Routine: QAMAHO1

Package	Total	Call Graph
Clinical Monitoring System	3	(DLMNT,MON,PAT)^QAMAHO2 ^QAMAHO3 EVENT^QAMAHO5
Quality Assurance Integration	2	K^QAQDATE EN1^QAQSELCT
Kernel	1	HOME^%ZIS
VA FileMan	1	YN^DICN

Package	Total	Caller Graph
Clinical Monitoring System	1	QAM RPT ADHOC
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
KILL
ASKSRT	;
ASKPRT	;
CHPRT	;
CHSRT	;
DISP	;
MSSG	;
VOID	;
ZFLDS	;;

External References

Name	Field # of Occurrence
HOME^%ZIS	QAMAHO1+3
YN^DICN	VOID+1
DLMNT^QAMAHO2	ASKSRT+11
MON^QAMAHO2	ASKSRT+11
PAT^QAMAHO2	ASKSRT+11
^QAMAHO3	QAMAHO1+7
EVENT^QAMAHO5	ASKSRT+11
K^QAQDATE	KILL+4
EN1^QAQSELCT	ASKPRT+11

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: ZZZ Timeout: 3 Line Location: ASKSRT+3
Function Call: WRITE	Prompt: !!?15,"Maximum of two sort fields reached!!",*7 Line Location: ASKSRT+3
Function Call: WRITE	Prompt: !?15,"Select next field to sort on. " Line Location: ASKSRT+4
Function Call: WRITE	Prompt: !?15,"Maximum two sort fields allowed." Line Location: ASKSRT+5
Function Call: WRITE	Prompt: !?15,"* indicates already selected." Condition for execution: CNTR>0 Line Location: ASKSRT+5
Function Call: WRITE	Prompt: !!?15,"Sort selection #",CNTR+1_": " Line Location: ASKSRT+5
Function Call: READ	Variable: ZZZ Timeout: 3 Line Location: ASKPRT+3
Function Call: WRITE	Prompt: !!?15,"Maximum of four print fields reached!!",*7 Line Location: ASKPRT+3
Function Call: WRITE	Prompt: !?15,"Select next field to print on. " Line Location: ASKPRT+4
Function Call: WRITE	Prompt: !?15,"Maximum four print fields allowed. " Line Location: ASKPRT+5
Function Call: WRITE	Prompt: !?15,"* indicates already selected." Condition for execution: CNT>0 Line Location: ASKPRT+5
Function Call: WRITE	Prompt: !!?15,"Print selection # ",CNT+1_": " Line Location: ASKPRT+5
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: !,+X,$S($D(CHOICE(+X))#2:" * ",1:" "),$P(X," ",2) Line Location: DISP+1
Function Call: WRITE	Prompt: !,+X,$S($D(CHOICE(+X))#2:" * ",1:" "),$P(X," ",2) Line Location: DISP+1
Function Call: WRITE	Prompt: *7," ??",!!?15,"Enter a number between 1 - "_LIMIT_". " Line Location: MSSG+1
Function Call: WRITE	Prompt: !!?15,*7,"You have not selected any sort or print data.",!?15,"Do you wish to exit the program" Line Location: VOID+1
Function Call: WRITE	Prompt: !,*7,?15,"""Y"" for Yes, ""N"" for No " Line Location: VOID+2
Routine Call	%ZIS Line Location: QAMAHO1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	KILL!

Label References

Name	Line Occurrences
ASKPRT	QAMAHO1+6, ASKPRT+7, ASKPRT+9, ASKPRT+10
ASKSRT	QAMAHO1+4, ASKSRT+7, ASKSRT+9, ASKSRT+10, ASKSRT+12
CHPRT	ASKPRT+10
CHSRT	ASKSRT+10
DISP	ASKSRT+5, ASKPRT+5
KILL	QAMAHO1+3, QAMAHO1+5
MSSG	ASKSRT+9, ASKPRT+9
VOID	ASKSRT+7, ASKPRT+7, VOID+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL+1!, ASKSRT+7, ASKPRT+7, VOID+1*, VOID+2
%DT	KILL+1!
C	KILL+3!
CD	KILL+1!
CHOICE	QAMAHO1+6!, KILL+3!
CHOICE(	ASKSRT+12!, ASKSRT+13, ASKPRT+10, ASKPRT+11!, DISP+1
CNT	QAMAHO1+3, KILL+1!, ASKPRT+2, ASKPRT+3, ASKPRT+4, ASKPRT+5, ASKPRT+7, ASKPRT+10, ASKPRT+11, CHPRT+1
CNTR	QAMAHO1+3, KILL+1!, ASKSRT+2, ASKSRT+3, ASKSRT+4, ASKSRT+5, ASKSRT+7, ASKSRT+10, ASKSRT+12, ASKSRT+13 , CHSRT+1
DATA1	KILL+1!
DATA2	KILL+1!
DIR	KILL+1!
DIRUT	KILL+1!
DIW	KILL+1!
DIWF	KILL+1!
DIWI	KILL+1!
DIWL	KILL+1!
DIWR	KILL+1!
DIWT	KILL+1!
DIWTC	KILL+1!
DIWX	KILL+1!
DN	KILL+1!
DTIME	ASKSRT+6, ASKPRT+6
DTOUT	KILL+1!, VOID+1!
DUOUT	KILL+1!
DUP	KILL+1!
EF	KILL+1!
ELEM	KILL+1!
ELEMENT	KILL+3!
FIELD	KILL+1!, ASKSRT+10, ASKSRT+12, ASKSRT+13, ASKPRT+10, ASKPRT+11, CHPRT+1, CHPRT+2, CHSRT+1, CHSRT+2
GC	KILL+1!
IEN	KILL+1!
IOF	ASKSRT+2, ASKPRT+2
JD	KILL+1!
LABEL1	KILL+1!
LABEL2	KILL+1!
LIMIT	KILL+1!, ASKSRT+1, ASKPRT+1, MSSG+1
LOOP	KILL+1!
LP	KILL+1!, CHPRT+1, CHSRT+1
LP0	KILL+1!
LP1	KILL+1!
MN	KILL+1!
MN1	KILL+1!
MON	KILL+2!
MON1	KILL+2!
MON2	KILL+2!
MONI	KILL+2!
NAME1	KILL+2!
NAME2	KILL+2!
PAGE	KILL+2!
PARRAY	KILL+3!
PARRAY(	ASKPRT+10*
PARRY	QAMAHO1+7, KILL+2!
PARRY(	ASKPRT+10*, ASKPRT+11!, CHPRT+1
PCPY	KILL+2!, ASKPRT+10, CHPRT+1*, CHPRT+2
PNT	KILL+2!
POP	KILL+2!
PRNT	KILL+2!, ASKPRT+6*, ASKPRT+7, ASKPRT+8, ASKPRT+9, ASKPRT+11
PTNT	KILL+2!
QA	KILL*, KILL+2!, KILL+3!
QADIRPNT	KILL+3!
QAM0	QAMAHO1+4, QAMAHO1+6, KILL+2!
QAM1	KILL+2!
QAM1HED	KILL+3!
QAM2	KILL+2!
QAM2HED	KILL+3!
QAMCD	KILL+3!
QAMD0	KILL+2!
QAMDATA	KILL+2!, ASKSRT+13
QAMDIEN	KILL+2!
QAMDT	KILL+2!
QAMELEM	KILL+3!
QAMENGD	KILL+3!
QAMEXIT	QAMAHO1+3, QAMAHO1+5, KILL+2!, ASKSRT+8, ASKPRT+8, VOID+1
QAMFIN	KILL+2!
QAML	KILL+2!, DISP+1*
QAMLP	KILL+2!
QAMOUT	QAMAHO1+4, QAMAHO1+6, KILL+2!, ASKSRT+1, ASKSRT+3, ASKSRT+7, ASKSRT+8, ASKSRT+12, ASKPRT+1, ASKPRT+3* , ASKPRT+7, ASKPRT+8, VOID+1
QAMPT	KILL+2!
QAMQUIT	KILL+2!, ASKPRT+11*
QAMRANG	KILL+3!
QAMTART	KILL+3!
QAMTYPE	KILL+2!
QAMX	KILL+3!
>> QAQDIC	ASKPRT+11*
>> QAQDIC("A"	ASKPRT+11*
>> QAQDIC(0	ASKPRT+11*
QAQNBEG	KILL+3!
QAQNEND	KILL+3!
QAQQUIT	KILL+2!, KILL+3!, ASKPRT+11*
>> QAQUTIL	ASKPRT+11*
SARRAY	KILL+3!
SARRAY(	ASKSRT+12!, ASKSRT+13*
SARRY	QAMAHO1+7, KILL+3!
SARRY(	ASKSRT+10*, ASKSRT+12!, CHSRT+1
SCPY	KILL+3!, ASKSRT+10, CHSRT+1*, CHSRT+2
SORT	KILL+3!, ASKSRT+6*, ASKSRT+7, ASKSRT+8, ASKSRT+9, ASKSRT+11, ASKSRT+13
SUB	KILL+3!
SUB1	KILL+3!
SUB2	KILL+3!
TODAY	KILL+3!
U	ASKSRT+10, ASKPRT+10, DISP+1
>> X	DISP+1*
X1	KILL+3!
X2	KILL+3!
YZ	KILL+3!
Z	KILL+3!
>> ZTQUEUED	KILL+4
>> ZTREQ	KILL+4*
ZTSAVE	KILL+3!
ZZZ	KILL+3!, ASKSRT+3, ASKPRT+3, CHPRT+2, CHSRT+2, MSSG+1*

Marked Items

Name	Field # of Occurrence
$T(ZFLDS+PRNT	ASKPRT+10
$T(ZFLDS+QAML	DISP+1
$T(ZFLDS+QAML+2	DISP+1
$T(ZFLDS+SORT	ASKSRT+10

Customize PDF page

Package: Clinical Monitoring System

Routine: QAMAHO1

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:

Marked Items