Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMTSRM3

Package: Health Summary

Routine: GMTSRM3


Information

GMTSRM3 ; SLC/DLT - Create/Modify - Selection Items ; 08/27/2002

Source Information

Source file <GMTSRM3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Summary 2 LOADSEL^GMTSRM1A  RSI^GMTSRS2  
VA FileMan 2 $$CREF^DILF  ^DIR  
Kernel 1 $$LJ^XLFSTR  
Order Entry Results Reporting 1 EN^ORUS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary 1 GMTSRM1  

Entry Points

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

External References

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All