Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: QANAUX1

Package: Incident Reporting

Routine: QANAUX1


Information

QANAUX1 ;;HISC/GJC-UTILITIES FOR INCIDENT REPORTING ;4/26/91

Source Information

Source file <QANAUX1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 ^DIC  MIX^DIC1  ^DIE  ^DIR  
Quality Assurance Integration 1 ^QAQAUDIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Incident Reporting 7 QAN INCIDENT STATUS ENTER/EDIT  QAN SITE PARAMETERS ENTER/EDIT  ^QA(742.1  ^QA(742.5  QANRPT1  QANRPT2  QANVAL  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
AUDIT ;Enter entries in the QA Audit file.
WARN ;Deleting a patient's record.
HDR ;Header generator.
WARN1
WARN2 ;Checks for associated incident deletion
EN0 ;Mark a incident record for deletion, also the associated patient(s).
EN1 ;Choose the MAILGROUP.
EN2 ;INCIDENT STATUS ENTER/EDIT
EN3 ;Choose X again.
KILL

External References

Name Field # of Occurrence
^DIC EN0+3
MIX^DIC1 EN2+2
^DIE EN0+4, EN0+11, EN1+2, EN2+4, EN2+6, EN2+9, EN2+14, WARN2+4
^DIR EN2+12, WARN2+3
^QAQAUDIT AUDIT+1, AUDIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"This option will allow the user to open, close, or delete a record at the local level.",!,"The appropriate patient(s) records are marked to reflect the change."
  • Line Location: EN0+1
Function Call: WRITE
  • Prompt: !!,$C(7),"No action taken, premature exit action encountered."
  • Line Location: EN0+5
Function Call: WRITE
  • Prompt: !!?16,$C(7),"Another person is editing this entry."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!?16,$C(7),"Another person is editing this entry."
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Number """_X_""" previously chosen, try again"
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: @IOF,!,?$S(IOM=132:114,1:69),TODAY,!,?$S(IOM=132:114,1:69),"Page: ",PAGE,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(QANHEAD(0))\2),QANHEAD(0)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(QANHEAD(1))\2),QANHEAD(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(IOM-$L(QANHEAD(1))\2),QANHEAD(1)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(IOM-$L(QANHEAD(2))\2),QANHEAD(2)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?(IOM-$L(QANHEAD(3))\2),QANHEAD(3),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?(IOM-$L(QANHEAD(4))\2),QANHEAD(4),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: BNDRY,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?5,"Patient: ",$P(^DPT($P(^QA(742,QANPAT,0),U),0),U)_"// "
  • Line Location: WARN+1
Function Call: READ
  • Timeout: DTIME
  • Variable: QANST
  • Line Location: WARN1+0
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Enter ""@"" to delete a record, <CR> to keep the patient active.",!!?5,"Patient: ",$P(^DPT($P(^QA(742,QANPAT,0),U),0),U)_"// "
  • Line Location: WARN1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Are you sure you want to delete?",!,"Deletion marks the associated incident as deleted."
  • Line Location: WARN2+2
Routine Call
  • DIE
  • Line Location:
    • EN0+4
    • EN0+11
    • EN1+2
    • EN2+4
    • EN2+6
    • EN2+9
    • EN2+14
    • WARN2+4
Routine Call
  • DIC
  • Line Location:
    • EN0+3
Routine Call
  • DIR
  • Line Location:
    • EN2+12
    • WARN2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(740 - [#740] Classic Fileman Calls
^QA(742 - [#742] Classic Fileman Calls
^QA(742.1 - [#742.1] Classic Fileman Calls
^QA(742.4 - [#742.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WARN+1, WARN1
^QA(740 - [#740] EN1+1, EN1+3
^QA(742 - [#742] EN0+11, WARN+1, WARN1
^QA(742.1 - [#742.1] EN2+5, EN2+7, EN2+8, EN2+13, EN2+15
^QA(742.4 - [#742.4] EN0+4

Label References

Name Line Occurrences
AUDIT WARN2+5
KILL EN0+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X EN1+4!
%Y EN1+4!
>> BNDRY HDR+8
D EN1+4!, EN2+1*
D0 EN1+4!
DA EN0+4*!, EN0+11*, KILL!, EN1+2!*, EN1+4!, EN2+3*, EN2+9*, WARN2+4!*
DI EN1+4!
DIC EN0+2!*, EN0+3!, EN1+4!, EN2+1*, EN2+2!
DIC("A" EN0+2*, EN2+1*
DIC("S" EN2+1*
DIC(0 EN0+2*, EN2+1*
DIE EN0+4!*, EN0+10!*, KILL!, EN1+2!*, EN1+4!, EN2+1*, WARN2+4!*
DINUM EN0+2!, EN0+3!, EN2+2!
DIR EN2+10!, EN2+12!, WARN2+3!
DIR("?" EN2+11*
DIR("A" EN2+10*
DIR("B" EN2+12*
DIR(0 EN2+10*, WARN2+3*
>> DIROUT EN2+13
DLAYGO EN0+2!, EN0+3!, EN2+2!
DQ EN1+4!
DR EN0+4!*, EN0+10!*, KILL!, EN1+2!*, EN1+4!, EN2+4*, EN2+6*, EN2+9*, EN2+14*, WARN2+4!*
DTIME WARN1
>> DTOUT EN2+13
>> DUOUT EN2+13
IOF HDR+1
IOM HDR+1, HDR+2, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7
>> LOOP HDR+8*
>> PAGE HDR+1*
QAN EN0+11*, KILL!, WARN1*
QAN0 EN0+4*, EN0+5, EN0+9, EN0+10, KILL!, EN2+8*, EN2+12
>> QANCHOS HDR+3, HDR+4, HDR+5, HDR+9, HDR+10
>> QANDVFLG HDR+7
>> QANHEAD(0 HDR+2
>> QANHEAD(1 HDR+3, HDR+4
>> QANHEAD(2 HDR+5
>> QANHEAD(3 HDR+6
>> QANHEAD(4 HDR+7
QANIEN EN0+4*, EN0+11, KILL!
>> QANINCD WARN2+4, AUDIT+2
QANMSS KILL!
QANMSS(0 EN0+6*, EN0+9
QANMSS(1 EN0+7*, EN0+9
QANMSS(2 EN0+8*, EN0+9
>> QANPAT WARN+1, WARN1, WARN2+4, AUDIT+1
>> QANQAN EN2+3*, EN2+5, EN2+7, EN2+8, EN2+9, EN2+13, EN2+15
>> QANST WARN1*, WARN1+1, WARN2+2
>> QANYN WARN2+1*, WARN2+3*, WARN2+4, WARN2+5
QAUDIT AUDIT+1!, AUDIT+2!
QAUDIT("ACTION" AUDIT+1*, AUDIT+2*
QAUDIT("COMMENT" AUDIT+1*, AUDIT+2*
QAUDIT("DA" AUDIT+1*, AUDIT+2*
QAUDIT("FILE" AUDIT+1*, AUDIT+2*
>> TODAY HDR+1
U EN0+9, EN0+10, EN2+4, EN2+12, WARN+1, WARN1
X EN3+1, EN3+2!
Y EN0+3, EN0+4, EN0+5, KILL!, EN2+2, EN2+3, EN2+4, EN2+7, EN2+14, WARN2+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All