Routine: AMQQMGR7

Package	Total	Call Graph
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIE
PCC Medical Query	1	LHEAD^AMQQMGR4

Entry Points

External References

Name	Field # of Occurrence
LHEAD^AMQQMGR4	SAVE+34, SAVE+42
^DIC	LSET+16, PASK+3, CASK+1, ADD+5
FILE^DICN	LSET+9
YN^DICN	COMP+3, CADD+3
^DIE	LSET+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: LSET+21
Function Call: WRITE	Prompt: "." Line Location: RESCO+6
Function Call: WRITE	Prompt: !,"Want to define new 'COMPANION' lab tests" Line Location: COMP+1
Function Call: WRITE	Prompt: ! Line Location: LOOP+0
Function Call: WRITE	Prompt: !,"Are you sure you want to add this companion test" Line Location: CADD+1
Function Call: WRITE	Prompt: !!,"The following tests are already companions to ",$P($G(^AMQQ(5,AMQQLAB,0)),U)," =>",! Line Location: CLOOK+3
Function Call: WRITE	Prompt: !! Line Location: CLOOK+8
Routine Call	DIE Line Location: LSET+19
Routine Call	DIC Line Location: LSET+16 PASK+3 CASK+1 ADD+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(5 - [#9009075]	LSET+8, ADD+1, CLOOK+2, CLOOK+3, CLOOK+5
^DD(9009075	LSET+15, RESCO+4, CADD+6
^LAB(60 - [#60]	SAVE+1, SAVE+2, SAVE+5, SAVE+7, SAVE+10, SAVE+18, SAVE+26, LTYPE, LTYPE+1, CLOOK+6
^UTILITY("AMQQ LC"	RESCO+2, RESCO+6, RESCO+7!

Label References

Name	Line Occurrences
ADD	RESCO+6
CADD	CASK+5
CASK	CASK+7
CLOOK	PASK+7
LEXIT	SAVE+24, SAVE+29
LN1	SAVE+32
LN2	SAVE+40
LOOP	CASK+3
LSET	SAVE+35, SAVE+43
LTYPE	SAVE+33, SAVE+41
PASK	LOOP+2
TF	LTYPE+2, LTYPE+4

Naked Globals

Name	Field # of Occurrence
^(	SAVE+10
^(3	LTYPE+6, LTYPE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SAVE+2, SAVE+3, SAVE+4, SAVE+26, SAVE+27, LEXIT!, LN1+5, LN1+7, LN1+9, LTYPE+1* , LTYPE+2, LTYPE+3, LTYPE+4, LTYPE+5, LTYPE+6, LTYPE+7, LTYPE+8, LTYPE+9, LTYPE+10, RESCO+1~ , COMP+2, COMP+4, CADD~, CADD+2*, CADD+4
%Y	CADD~
AMQQCO	RESCO+1~, RESCO+6, CASK+4, ADD+4
AMQQI	LSET+3~, LSET+16*
AMQQLAB	RESCO+1~, RESCO+5, RESCO+6, PASK+6*, ADD+1, ADD+2, CLOOK+2, CLOOK+3, CLOOK+5
AMQQLAKA	SAVE+6~, SAVE+7, SAVE+10, SAVE+28, LEXIT!, LN1+1, LN2+2
AMQQLAKN	SAVE+6~, SAVE+8, SAVE+10, LEXIT!
AMQQLDFN	SAVE~, SAVE+1, SAVE+2, SAVE+5, SAVE+7, SAVE+10, SAVE+11, SAVE+15, SAVE+18, SAVE+26 , LTYPE, LTYPE+1, LSET+7, LSET+17
AMQQLDS	SAVE+6~, SAVE+25, SAVE+27, LN1+3, LN1+5
AMQQLHL	LEXIT!, LSET+17
AMQQLHN	LEXIT!, LSET+17
AMQQLI	SAVE+36*, SAVE+37, SAVE+38, LEXIT!
AMQQLOFF	SAVE+6~, SAVE+31, SAVE+39, LEXIT!, LSET+7
AMQQLOUT	LEXIT!, LSET+18
AMQQLSPC	SAVE+6~, SAVE+37*, LN2+4, LN2+6, LN2+7
AMQQLSPX	SAVE+6~, SAVE+30, SAVE+38, SAVE+39, LSET+17
AMQQLSS	SAVE+6~, SAVE+12, SAVE+20, SAVE+21, SAVE+28, SAVE+37, LEXIT!, LN1+3
AMQQLSSN	SAVE+6~, SAVE+14, SAVE+22, SAVE+24, SAVE+28*, SAVE+29, SAVE+36, LEXIT!
AMQQLSSX	SAVE+6~, SAVE+13, SAVE+23, SAVE+30, SAVE+31, SAVE+38
AMQQLSTG	LEXIT!, LN1, LN1+3, LN1+7, LN1+9, LN2, LN2+4, LN2+6, LN2+7, LTYPE+9 , LSET+6, LSET+16
AMQQLTRM	LSET+1!
AMQQLTYP	SAVE+6~, LTYPE, LTYPE+5, LTYPE+6, LTYPE+7, LTYPE+8, LTYPE+9, LTYPE+10, TF, LSET+17
AMQQLUNT	LEXIT!, LSET+17
D	LSET+3~
D0	LSET+20!
D1	LSET+20!
DA	LSET+2!, LSET+3~, LSET+10!, RESCO+1~, CADD~
DA(1	LSET+12, LSET+13, ADD+2, ADD+3
DD	LSET+2!, LSET+10!
DI	LSET+20!
DIC	LSET+2!, LSET+3~, LSET+4, LSET+10!, LSET+13, LSET+20!, RESCO+1~, PASK, PASK+4!, CASK , CASK+2!, CADD~, ADD+3*
DIC("A"	COMP+5, PASK+8, CASK+6, LOOP+1
DIC("P"	LSET+15, RESCO+4, CADD+6*
DIC("S"	PASK+2*
DIC(0	LSET+5, LSET+14, RESCO+3, PASK+1, CASK, CADD+5
DIE	LSET+2!, LSET+3~, LSET+4*, LSET+10!, LSET+13, LSET+20!
DIK	LSET+2!, LSET+10!
DINUM	LSET+2!, LSET+7*, LSET+8, LSET+10!
DLAYGO	LSET+2!, LSET+10!
DO	LSET+2!, LSET+10!
DQ	LSET+20!
DR	LSET+2!, LSET+3~, LSET+10!, LSET+17, LSET+18, LSET+20!
I	LEXIT!, LN1, LN1+2, LN1+3, LN1+6, LN1+7, LN1+8, LN1+9, LN2+1, LN2+3 , LN2+4, LN2+5, LN2+6, LN2+7
N	LEXIT!
>> TMP	SAVE+15, SAVE+16
U	SAVE+2, SAVE+4, SAVE+5, SAVE+7, SAVE+10, SAVE+20, SAVE+21, SAVE+23, SAVE+26, SAVE+27 , SAVE+30, SAVE+31, SAVE+37, SAVE+38, LN1+1, LN1+3, LN1+4, LN1+7, LN1+9, LN2+2 , LN2+4, LN2+6, LN2+7, LTYPE+1, LTYPE+3, LTYPE+5, LTYPE+6, LTYPE+7, LTYPE+8, LTYPE+9 , LTYPE+10, LSET+6, LSET+15, LSET+16, RESCO+4, CADD+6, CLOOK+3, CLOOK+6
X	SAVE+6~, SAVE+9, SAVE+10, SAVE+11, SAVE+15, SAVE+16, LEXIT!, LN1+1, LSET+3~, LSET+6 , LSET+16, RESCO+1~, CADD~, ADD+4, CLOOK+1~, CLOOK+4, CLOOK+5, CLOOK+6
Y	SAVE+6~, SAVE+10, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20, SAVE+21, SAVE+23, LEXIT! , LN1+1, LN1+3, LN1+4, LN1+7, LN1+9, LN2+2, LSET+3~, LSET+11, LSET+12, RESCO+1~ , PASK+5, PASK+6, CASK+3, CASK+4, CADD~, CLOOK+1~, CLOOK+6*, CLOOK+7
Z	LEXIT!, LN2+2*, LN2+4, LN2+6, LN2+7

Customize PDF page

Package: PCC Medical Query

Routine: AMQQMGR7

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LTYPE
CLOOK	;
COMP	; ADD COMPANION LAB TESTS
LN1
CASK
LN2
LSET	;
TF
ADD	;
CADD
SAVE(AMQQLDFN)	;EP;
LEXIT
PASK
RESCO	; RESTORE COMPANION LAB TESTS
LOOP