Routine: GMTSRM3

Name	Comments	DBIA/ICR reference
ARY(GMTST,GMTSS,ARY)	; Array of Items
EN	; Entry Logic for Selection Items
COMPILE(GMTEST)	; Compile Menu
HEADER	; Write Header
SHOWSEL	; Writes Current Selection Items
REITEM(GMTST,GMTSS)	; Resequence Items
EXIT	; Exit Logic for Selection Items
RIH	; Resequence Items Help
RESOLVE(GMREF)	; Resolve Compound Items
DELCOSMO(X1,X2,X3)	; Delete Cosmic Lab Tests from Selection Items

Name	Field # of Occurrence
$$CREF^DILF	ARY+5, ARY+6
^DIR	REITEM+9
LOADSEL^GMTSRM1A	RESOLVE+18
RSI^GMTSRS2	REITEM+11
EN^ORUS	RESOLVE+9
$$LJ^XLFSTR	ARY+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($O(^GMT(142,DA(1),1,DA,1,0)):"Current selection items are: ",1:"No selection items chosen.") Line Location: EN+1
Function Call: WRITE	Prompt: !!,"Select new items one at a time in the sequence you want them displayed." Line Location: EN+3
Function Call: WRITE	Prompt: !,"You may select " Line Location: EN+4
Function Call: WRITE	Prompt: "any number of items.",! Line Location: EN+4
Function Call: WRITE	Prompt: "up to ",SELCNT," items.",! Line Location: EN+5
Function Call: WRITE	Prompt: ?30,$P(@("^"_$P(GMTSN(0),";",2)_+GMTSN(0)_",0)"),U),! Line Location: SHOWSEL+1
Function Call: WRITE	Prompt: !?2,$C(7),"MAXIMUM # OF ITEMS SELECTED.",! Line Location: EXIT+7
Function Call: WRITE	Prompt: $C(7),!," Duplicate test omitted." Line Location: RESOLVE+17
Function Call: WRITE	Prompt: !,?1,GMTSCN," ",$S($L(GMTSCA):"(",1:""),GMTSCA,$S($L(GMTSCA):")",1:"") Line Location: REITEM+6
Function Call: WRITE	Prompt: !,$J(GMTSN,6)," ",GMTSA(GMTSN) Line Location: REITEM+7
Function Call: WRITE	Prompt: ! Line Location: REITEM+9
Function Call: WRITE	Prompt: !,?4,"Enter either 'Y' or 'N'." Line Location: RIH+1
Function Call: WRITE	Prompt: !!?15,"Select the tests which you wish to include, in the",!?19,"sequence in which you wish them to appear." Line Location: HEADER+1
Function Call: WRITE	Prompt: !!?((80-$L(GMHEAD))\2),GMHEAD,! Line Location: HEADER+2
Routine Call	DIR Line Location: REITEM+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	EN+1, EN+2, EXIT+5, EXIT+6*, RESOLVE+14, RESOLVE+17, RESOLVE+19, REITEM+1, REITEM+2, REITEM+5 , ARY+2, ARY+3, ARY+4, DELCOSMO+1, DELCOSMO+2!
^GMT(142.1 - [#142.1]	REITEM+5
^LAB(60 - [#60]	RESOLVE+2, RESOLVE+19, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+8
^XUTL("OR"	RESOLVE+1!, RESOLVE+3, RESOLVE+9!, COMPILE+6, COMPILE+7

Name	Line Occurrences
ARY	REITEM+4
COMPILE	RESOLVE+3, COMPILE+8
DELCOSMO	RESOLVE+21
RESOLVE	EXIT+3
SHOWSEL	EN+2

Name	Field # of Occurrence
^(	EN+2
^("ORU"	RESOLVE+9!
^("ORV"	RESOLVE+1!, RESOLVE+9!
^("ORW"	RESOLVE+1!, RESOLVE+9!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	ARY~
ARY(	ARY+9, ARY+10
ARY(0	ARY+2, ARY+9, ARY+10*
C	RESOLVE+1~
>> CMP(	RESOLVE+10, RESOLVE+11, RESOLVE+12, RESOLVE+15, RESOLVE+16, RESOLVE+17!
DA	EN+1, EN+2, RESOLVE+10, RESOLVE+11, RESOLVE+12, RESOLVE+15, RESOLVE+19, RESOLVE+20, REITEM+11~
DA(1	EN+1, EN+2, EXIT+4, EXIT+5, EXIT+6, RESOLVE+14, RESOLVE+17, RESOLVE+19, RESOLVE+20, REITEM+11*
DA(2	EXIT+4, EXIT+5, EXIT+6, RESOLVE+14, RESOLVE+17, RESOLVE+19, RESOLVE+20, REITEM+11*
DIR	REITEM+3~
DIR("?"	REITEM+8*
DIR("A"	REITEM+8*
DIR(0	REITEM+8*
DIROUT	REITEM+3~, REITEM+9
DIRUT	REITEM+3~, REITEM+9
DTOUT	REITEM+3~, REITEM+9
DUOUT	REITEM+3~, REITEM+9
GMC	COMPILE+1~, COMPILE+6*, COMPILE+7
GMHEAD	RESOLVE+1~, RESOLVE+2*, HEADER+2
GMI	RESOLVE+1~, RESOLVE+12, RESOLVE+13, RESOLVE+14, RESOLVE+15, COMPILE+1~, COMPILE+2*, COMPILE+3, COMPILE+8
GMJ	COMPILE+1~, COMPILE+3*, COMPILE+4, COMPILE+7
GMREF	EXIT+1~, EXIT+2*, EXIT+3, RESOLVE~, RESOLVE+2, RESOLVE+3, RESOLVE+10
GMROOT	COMPILE+1~, COMPILE+4*, COMPILE+5, COMPILE+7
GMTEST	COMPILE~, COMPILE+2, COMPILE+3, COMPILE+8
GMTSA	REITEM+3~, REITEM+4
GMTSA(	REITEM+7
GMTSA(0	REITEM+4
GMTSC	ARY+1~, ARY+3, ARY+9, ARY+10*
GMTSCA	REITEM+3~, REITEM+5*, REITEM+6
GMTSCN	REITEM+3~, REITEM+5*, REITEM+6
GMTSCRT	ARY+1~, ARY+5*
GMTSFCRT	ARY+1~, ARY+6*, ARY+7, ARY+8, ARY+9, ARY+10
GMTSFFRT	ARY+1~, ARY+5*, ARY+6
GMTSFRT	ARY+1~, ARY+4*, ARY+5
GMTSI	REITEM+3~, ARY+1~, ARY+3*, ARY+4
GMTSMAX	REITEM+3~
GMTSN	EN+1~, EN+2, EXIT+1~, EXIT+5, REITEM+3~, REITEM+7*
GMTSN(0	EN+2*, SHOWSEL+1
>> GMTSNCNT	EXIT+5*, EXIT+6, EXIT+7
GMTSPTR	ARY+1~, ARY+4*, ARY+5
GMTSRT	ARY+2~
GMTSS	REITEM~, REITEM+2, REITEM+4, REITEM+5, REITEM+11, ARY~, ARY+2, ARY+3, ARY+4
GMTST	REITEM~, REITEM+1, REITEM+2, REITEM+4, REITEM+5, REITEM+11, ARY~, ARY+2, ARY+3, ARY+4
GMTSTYPE	ARY+1~, ARY+8*, ARY+9
GMTSUB	ARY+2~, ARY+9, ARY+10
GMTSVAL	ARY+1~, ARY+4*
IEN	RESOLVE+1~, RESOLVE+16*, RESOLVE+17
>> ORUS	RESOLVE+4*
>> ORUS("A"	RESOLVE+7, RESOLVE+8
>> ORUS("B"	RESOLVE+7, RESOLVE+8
>> ORUS("T"	RESOLVE+4*
>> ORUS(0	RESOLVE+6, RESOLVE+8
P	RESOLVE+1~
REC	RESOLVE+20~*, RESOLVE+21
>> SELCNT	EN+4, EN+5, EXIT+7, RESOLVE+5, RESOLVE+6, RESOLVE+7
SELREF	EXIT+1~, EXIT+2*, EXIT+3
SUBREC	RESOLVE+20~*, RESOLVE+21
SUBSUB	RESOLVE+20~*, RESOLVE+21
TEST	DELCOSMO+1~*, DELCOSMO+2
U	SHOWSEL+1, EXIT+2, EXIT+3, EXIT+6, RESOLVE+2, RESOLVE+19, COMPILE+5, COMPILE+6, COMPILE+7
X	EXIT+1, EXIT+2, RESOLVE+1~, REITEM+3~
X1	DELCOSMO~, DELCOSMO+1, DELCOSMO+2
X2	DELCOSMO~, DELCOSMO+1, DELCOSMO+2
X3	DELCOSMO~, DELCOSMO+1, DELCOSMO+2
Y	RESOLVE+1~, RESOLVE+12, REITEM+3~, REITEM+10
Y(	RESOLVE+13, RESOLVE+14, RESOLVE+15

Customize PDF page

Package: Health Summary

Routine: GMTSRM3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: