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

Package: Health Summary

Routine: GMTSADH2


Information

GMTSADH2 ; SLC/JER,KER - Ad Hoc Summary Driver ; 02/27/2002

Source Information

Source file <GMTSADH2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Summary 2 (GETCPTM,GETHOSP,GETICD,GETIME,GETNAME,GETOCC,GETPROV)^GMTSADH4  ($$FLOC,$$FNAM)^GMTSU  
Order Entry Results Reporting 1 EN^ORUS  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Health Summary 2 GMTSADH1  GMTSUP  

Entry Points

Name Comments DBIA/ICR reference
GETSEL ; Updates GMTSEG array with Selections
COMPILE(GMTEST) ; Compile menu for ORUS call
SHOWDEF ; Writes out loaded (default) selection items
CMPLIM ; Get Limits and Selection Items
RESOLVE(GMREF,GMTSEG,GMI) ; Call ORUS to resolve compound items
HEADER ; Write Header
SELECT ; Get Selection Items

External References

Name Field # of Occurrence
^DIC GETSEL+25
GETCPTM^GMTSADH4 CMPLIM+7
GETHOSP^GMTSADH4 CMPLIM+4
GETICD^GMTSADH4 CMPLIM+5
GETIME^GMTSADH4 CMPLIM+3
GETNAME^GMTSADH4 CMPLIM+8
GETOCC^GMTSADH4 CMPLIM+2
GETPROV^GMTSADH4 CMPLIM+6
$$FLOC^GMTSU GETSEL+13
$$FNAM^GMTSU SELECT+6, GETSEL+8
EN^ORUS RESOLVE+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Default selection items are "
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: "Push Return at the first prompt to select default items.",!
  • Condition for execution: GMTSJ
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: "Select new "_$$FNAM^GMTSU(+SEL)_" items one at a time in the sequence",!,"you want them displayed. "
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: "You may select "
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: "any number of items.",!
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: "up to ",SELCNT," items.",!
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !?2,$C(7),"MAXIMUM # OF ITEMS SELECTED.",!
  • Line Location: SELECT+10
Function Call: WRITE
  • Prompt: !,"Select TITLE: "
  • Line Location: GETSEL+7
Function Call: WRITE
  • Prompt: !,"Select "_$$FNAM^GMTSU(+SEL)_" Selection Item: "
  • Line Location: GETSEL+8
Function Call: WRITE
  • Prompt: !!,"No SELECTION ITEMS chosen.",!
  • Line Location: SHOWDEF+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: GMTSWHL>1
  • Line Location: SHOWDEF+3
Function Call: WRITE
  • Prompt: ?30,$P(@(GMTSEG(SBS,GMTSJ,0)_GMTSEG(SBS,GMTSJ,GMTSN)_",0)"),U)
  • Line Location: SHOWDEF+3
Function Call: WRITE
  • Prompt: $C(7)," INVALID TEST...Please choose another."
  • Line Location: RESOLVE+12
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
  • DIC
  • Line Location:
    • GETSEL+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMT(142.1 - [#142.1] CMPLIM+9, SELECT+4, GETSEL+16
^LAB(60 - [#60] GETSEL+33, RESOLVE+9, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+9
^XUTL("OR" RESOLVE+2!, RESOLVE+10*, RESOLVE+11, RESOLVE+12!, RESOLVE+13, RESOLVE+16!, COMPILE+6, COMPILE+7*

Label References

Name Line Occurrences
COMPILE RESOLVE+10, COMPILE+9
GETSEL SELECT+9
RESOLVE GETSEL+33
SELECT CMPLIM+9
SHOWDEF SELECT+3, GETSEL+12

Naked Globals

Name Field # of Occurrence
^("ORU" RESOLVE+16!
^("ORV" RESOLVE+2!, RESOLVE+16!
^("ORW" RESOLVE+2!, RESOLVE+16!
^(0 CMPLIM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ASKCPQIT GETSEL+11*, GETSEL+28*
>> CREC CMPLIM+2, CMPLIM+3, CMPLIM+4, CMPLIM+5, CMPLIM+6, CMPLIM+7
DIC SELECT+1~, GETSEL+13*, GETSEL+32, GETSEL+33
DIC("S" GETSEL+14*, GETSEL+17*, GETSEL+19*, GETSEL+23*, GETSEL+24*
DIC("W" GETSEL+20*
DIC(0 GETSEL+13*
>> DIROUT CMPLIM+2, CMPLIM+3, CMPLIM+4, CMPLIM+5, CMPLIM+6, CMPLIM+7, CMPLIM+8, SELECT+9, GETSEL+10*, GETSEL+26*
, GETSEL+27
DTIME GETSEL+9
>> DTOUT GETSEL+26
>> DUOUT CMPLIM+2, CMPLIM+3, CMPLIM+4, CMPLIM+5, CMPLIM+6, CMPLIM+7, CMPLIM+8, GETSEL+28
GETSLQIT SELECT+1~, GETSEL+11*, GETSEL+28*
GMC COMPILE+1~, COMPILE+6*, COMPILE+7
GMHEAD RESOLVE+1~, RESOLVE+9*, HEADER+2
GMI SELECT+1~, SELECT+9*, SELECT+10, GETSEL+29*, GETSEL+30*, GETSEL+33, GETSEL+34, RESOLVE~, RESOLVE+6*, RESOLVE+8
, RESOLVE+18*, COMPILE+1~, COMPILE+2*, COMPILE+3, COMPILE+9
GMJ RESOLVE+1~, RESOLVE+17*, RESOLVE+18, COMPILE+1~, COMPILE+3*, COMPILE+4, COMPILE+7
GMREF RESOLVE~, RESOLVE+9, RESOLVE+10
GMROOT COMPILE+1~, COMPILE+4*, COMPILE+5, COMPILE+7
GMTEST COMPILE~, COMPILE+2, COMPILE+3, COMPILE+9
GMTSEG GETSEL+33, RESOLVE~
GMTSEG( CMPLIM+9, SELECT+2, SELECT+4, GETSEL+12, GETSEL+32!*, GETSEL+34*, SHOWDEF+2, SHOWDEF+3, RESOLVE+18*
GMTSF SELECT+1~, SELECT+2*, GETSEL+32*
GMTSFUNC CMPLIM+1~
GMTSJ SELECT+1~, SELECT+2*, SELECT+3, SELECT+5, SHOWDEF+2*, SHOWDEF+3
GMTSN SHOWDEF+1~, SHOWDEF+3*
GMTSWHL SHOWDEF+1~, SHOWDEF+3*
>> GMX GETSEL+16
>> ORUS RESOLVE+13*
>> ORUS("A" RESOLVE+14*
>> ORUS("B" RESOLVE+15*
>> ORUS("T" RESOLVE+13*
>> ORUS(0 RESOLVE+13*, RESOLVE+14, RESOLVE+15
>> SBS CMPLIM+9, SELECT+2, SELECT+4, GETSEL+12, GETSEL+32, GETSEL+34, SHOWDEF+2, SHOWDEF+3, RESOLVE+18
SEL CMPLIM+9~*, SELECT+6, GETSEL+7, GETSEL+8, GETSEL+13, GETSEL+14, GETSEL+15, GETSEL+20, GETSEL+23, GETSEL+24
, GETSEL+32, GETSEL+34, RESOLVE+18
SELCNT SELECT+1~, SELECT+4*, SELECT+7, SELECT+8, SELECT+9, SELECT+10, RESOLVE+8
SELCT RESOLVE+1~, RESOLVE+8*, RESOLVE+13
TEMP SELECT+1~
U CMPLIM+2, CMPLIM+3, CMPLIM+4, CMPLIM+5, CMPLIM+6, CMPLIM+7, CMPLIM+9, SELECT+4, GETSEL+16, GETSEL+33
, SHOWDEF+3, RESOLVE+9, RESOLVE+11, RESOLVE+13, RESOLVE+14, RESOLVE+15, COMPILE+5, COMPILE+6, COMPILE+7
X SELECT+1~, GETSEL+9*, GETSEL+10, GETSEL+11, GETSEL+12, GETSEL+29, GETSEL+30, GETSEL+32, RESOLVE+1~
Y SELECT+1~, SELECT+9, GETSEL+10*, GETSEL+11*, GETSEL+29*, GETSEL+30*, GETSEL+31, GETSEL+33, GETSEL+34, RESOLVE+1~
, RESOLVE+17
Y( RESOLVE+17, RESOLVE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All