Routine: QAMPRUN0

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	^%DT (H,YMD)^%DTC ^DIR
Quality Assurance Integration	1	(,K)^QAQDATE

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: 2

Package	Total	Caller Graph
Clinical Monitoring System	2	QAM RPT AUTO/MAN MONITORS RUN QAMAUTO0

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; *** MENU ENTRY POINT
ENTSK	;
EXIT	;
SLOOP1	;
SLOOP2	;
PLOOP1	;
PLOOP2	;
HEAD	;
PAUSE	;
EN2	; *** AUTO ENROLL ENTRY POINT
2

External References

Name	Field # of Occurrence
^%DT	ENTSK+3
H^%DTC	ENTSK+1
YMD^%DTC	ENTSK+2
^%ZIS	EN1+2
^%ZISC	EXIT+1
^%ZTLOAD	EN1+2, EN2+2
^DIR	PAUSE+1
^QAQDATE	EN1+1
K^QAQDATE	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* NO DATA FOUND FOR THIS REPORT *" Line Location: ENTSK+4
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,$P(QA,"^"),?15,$P(QA,"^",2) Line Location: PLOOP1+1
Function Call: WRITE	Prompt: !?2,QAMMON,$P(QA,"^",3),?35,$P(QA,"^"),?68,$P(QA,"^",2) Line Location: PLOOP2+1
Function Call: WRITE	Prompt: !!?24,"AUTO/MANUAL ENROLL MONITORS RUN",?68,TODAY,!?80-$L(QAQ2HED)/2,QAQ2HED,?68,"PAGE: ",PAGE Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"AUTO ENROLL RUN DATE",!?2,"MONITOR CODE (a/m=AUTO/MANUAL)",?35,"MONITOR TITLE",?68,"DATE RUN",!,UNDL Line Location: HEAD+3
Routine Call	DIR Line Location: PAUSE+1
Routine Call	%ZIS Line Location: EN1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENTSK+3, SLOOP1+1, SLOOP2+2, EN2+1
^QA(740 - [#740]	EN2+1
^QA(743 - [#743]	SLOOP2+1
^QA(743.6 - [#743.6]	SLOOP1+1, SLOOP1+3, SLOOP2+1
^UTILITY($J	ENTSK+1!, ENTSK+4, ENTSK+5, SLOOP1+2, SLOOP2+2, PLOOP1+1, PLOOP1+4, PLOOP2+1

Label References

Name	Line Occurrences
2	EN2+1
EXIT	EN1+1, EN1+2, ENTSK+4
HEAD	ENTSK+4, PLOOP1+2, PLOOP2+1
PAUSE	PLOOP1+2, PLOOP2+1
PLOOP1	ENTSK+5
PLOOP2	PLOOP1+4
SLOOP1	ENTSK+2
SLOOP2	SLOOP1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ENTSK+3*, EXIT+2!
%H	ENTSK+1, ENTSK+2*, EXIT+2!
%ZIS	EN1+2!*, EXIT+2!
DIR	EXIT+2!, PAUSE+1!
DIR(0	PAUSE+1*
END	ENTSK+1*, ENTSK+2, EXIT+2!
IO	ENTSK+3
IO("Q"	EN1+2!
IOF	HEAD+1
IOP	EN1+2!, EXIT+2!
IOSL	PLOOP1+2, PLOOP2+1
IOST	PLOOP1+2, PLOOP2+1, HEAD+1
PAGE	ENTSK+3, EXIT+2!, HEAD+1, HEAD+2
POP	EN1+2, EXIT+2!
QA	EXIT+2!, SLOOP2+1, SLOOP2+2, PLOOP1+1, PLOOP1+3, PLOOP2+1*
QAM	EXIT+2!, SLOOP2+1*, SLOOP2+2
QAMDATE	ENTSK+2*, EXIT+2!
QAMDT	ENTSK+2, ENTSK+5, EXIT+2!, SLOOP1+1, SLOOP1+2, SLOOP2+2, PLOOP1+1, PLOOP1+4, PLOOP2+1
QAMMON	EXIT+2!, PLOOP1+4*, PLOOP2+1
QAMMON(0	PLOOP1+4*, PLOOP1+5
QAMQUIT	ENTSK+3, ENTSK+5, EXIT+2!, PLOOP1+2, PLOOP1+4, PLOOP2+1, PAUSE+1
QAMS0	EXIT+2!, SLOOP1+1*, SLOOP1+2, SLOOP1+3, SLOOP2+1
QAMS1	EXIT+2!, SLOOP1+3*, SLOOP2+1
>> QAMTODAY	EN2+1, EN2+2
>> QAQ2HED	HEAD+2, EN2+1*
>> QAQNBEG	ENTSK+1
>> QAQNEND	ENTSK+1
>> QAQQUIT	EN1+1
START	ENTSK+1*, ENTSK+2, EXIT+2!
TODAY	ENTSK+3*, EXIT+2!, HEAD+2
UNDL	ENTSK+3!*, EXIT+2!, HEAD+3
X	ENTSK+1, ENTSK+2, ENTSK+3, EXIT+2!
Y	ENTSK+3, EXIT+2!, SLOOP1+1, SLOOP1+2, SLOOP2+2, PAUSE+1, EN2+1*
ZTDESC	EN1+2, EXIT+2!, EN2+1, 2!
ZTDTH	EXIT+2!, EN2+1*
ZTIO	EXIT+2!, EN2+1*, 2!
>> ZTQUEUED	EXIT+3
>> ZTREQ	EXIT+3*
ZTRTN	EN1+2, EXIT+2!, EN2+1, 2!
ZTSAVE	EXIT+2!, 2!
ZTSAVE("QAM*"	EN1+2, EN2+2
ZTSAVE("QAQ*"	EN1+2*
ZTSAVE("QAQ2HED"	EN2+2*
ZTSAVE("QAQNBEG"	EN2+2*
ZTSAVE("QAQNEND"	EN2+2*
ZTSK	2!

Customize PDF page

Package: Clinical Monitoring System

Routine: QAMPRUN0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: