Routine: QANAUX1

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

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

Entry Points

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

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	Variable: QANST Timeout: DTIME 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	DIC Line Location: EN0+3
Routine Call	DIE Line Location: EN0+4 EN0+11 EN1+2 EN2+4 EN2+6 EN2+9 EN2+14 WARN2+4
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

Customize PDF page

Package: Incident Reporting

Routine: QANAUX1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: