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 |  Local Variables  | All
Print Page as PDF
Routine: GMTSADH1

Package: Health Summary

Routine: GMTSADH1


Information

GMTSADH1 ;SLC/JER,MAM - Ad Hoc Summary Driver ; 09/21/2001

Source Information

Source file <GMTSADH1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Summary 2 LOAD1^GMTSADH  CMPLIM^GMTSADH2  
Kernel 1 EN^XQORM  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Health Summary 3 GMTSADH  GMTSADHC  GMTSADOR  

Entry Points

Name Comments DBIA/ICR reference
GETLIM ; Get Limits/Flags (external entry)
;
; Time
; Occurrence
; Selection Items
; Hospital Location Display
; ICD Text Display
; Provider Narrative Display
; CPT Modifier Display
;
LIST ; Lists defaults for Ad Hoc Summary
LIST1 ; Called by GMTSUP to list components
; FLG=1 for Ad Hoc Health Summary Type
; FLG=2 for other Health Summary Types
SCRNLNTH ; Checks screen length
LISTLIM ; List Components and Limits for GMTSET() array
; Component Abbreviation
; Component Name
; If not called by GMTSUP:
; Time Limits
; Occurrence Limits
; Hospital Location
; ICD Text
; Provider Narrative
; CPT Modifier
;
STAR ; Writes * to indicate added component when called by
; GMTSUP for Health Summary Type other than AD HOC
LISTSEL ; Lists default selection items
ASKCMPS ; Asks for components for new limits/sel items
CMPCOND ; Checks component for new limits/sel items
ASKLIST ; Asks whether to relist Component

External References

Name Field # of Occurrence
^DIR SCRNLNTH+1, ASKLIST+2
LOAD1^GMTSADH CMPCOND+3
CMPLIM^GMTSADH2 CMPCOND+4
EN^XQORM ASKCMPS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!," Default Limits and Selection Items",!!
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: " Component Occ Time Hosp ICD Prov CPT Selection",!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: " Limit Limit Loc Txt Narr Mod Item(s)",!
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRNLNTH+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCRNLNTH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTLIM+11
Function Call: WRITE
  • Prompt: $P(CREC,U,4),?5,$S($L($P(GMTSEG(GMI),U,5)):$P(GMTSEG(GMI),U,5),$L($P(CREC,U,9)):$P(CREC,U,9),1:$E($P(CREC,U),1,24))
  • Line Location: LISTLIM+12
Function Call: WRITE
  • Prompt: " "
  • Line Location: STAR+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: STAR+3
Function Call: WRITE
  • Prompt: ?64,$E($P(@(GMTSEG(GMI,GMJ,0)_GMTSEG(GMI,GMJ,GML)_",0)"),U),1,15)
  • Line Location: LISTSEL+2
Function Call: WRITE
  • Prompt: !!,"To change limits, selection items, hospital location display, ICD"
  • Line Location: ASKCMPS+2
Function Call: WRITE
  • Prompt: !,"text display, provider narrative display, or CPT Modifiers, enter "
  • Line Location: ASKCMPS+3
Function Call: WRITE
  • Prompt: !,"components, one at a time or more than one, separated by commas."
  • Line Location: ASKCMPS+4
Function Call: WRITE
  • Prompt: !,"You may select new components if you wish."
  • Line Location: ASKCMPS+5
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKCMPS+12
Function Call: WRITE
  • Prompt: !!,$P(Y(GMI),U,3)
  • Line Location: ASKCMPS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLIST+1
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: ASKLIST+4
Routine Call
  • DIR
  • Line Location:
    • SCRNLNTH+1
    • ASKLIST+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMT(142 - [#142] STAR+2, ASKCMPS+13
^GMT(142.1 - [#142.1] LISTLIM+11, CMPCOND+2

Label References

Name Line Occurrences
ASKCMPS GETLIM+11, ASKCMPS+9
ASKLIST ASKCMPS+11
CMPCOND ASKCMPS+13
LIST GETLIM+10, ASKLIST+6
LISTLIM LIST1+4
LISTSEL LIST1+4
SCRNLNTH LIST1+4, LISTSEL+2
STAR LISTLIM+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASKCPQIT ASKCMPS+1~
CPCDQIT CMPCOND+1~
CREC LISTLIM+11~*, LISTLIM+12, CMPCOND+1~, CMPCOND+2*
DIC ASKCMPS+1~
DIR LIST1+3~, ASKLIST+1~
DIR("A" ASKLIST+1*
DIR("B" ASKLIST+1*
DIR(0 LIST1+3*, ASKLIST+1*
>> DIROUT GETLIM+11, SCRNLNTH+1*, ASKCMPS+8*, ASKCMPS+13, ASKCMPS+14, ASKLIST+3*
>> DIRUT ASKLIST+4, ASKLIST+5
DTOUT LIST+5~, LIST1+4, SCRNLNTH+1, LISTSEL+2, ASKCMPS+8, ASKLIST+3
DUOUT LIST1+3~, LIST1+4, SCRNLNTH+1, LISTSEL+2, ASKCMPS+13, ASKLIST+4
FLG LIST+5~*, LIST1+4, LISTLIM+11, LISTLIM+13, LISTLIM+14, LISTLIM+15
GMCHANGE GETLIM+10~*, LIST+1*, ASKCMPS+10, ASKCMPS+11, ASKCMPS+13*, ASKLIST+2
GMI LIST1+3~, LIST1+4*, LISTLIM+11, LISTLIM+12, LISTLIM+13, LISTLIM+14, LISTLIM+15, STAR+2, LISTSEL+1, LISTSEL+2
, ASKCMPS+1~, ASKCMPS+13*
GMJ LISTSEL+1~*, LISTSEL+2, CMPCOND+3
GML LISTSEL+1~*, LISTSEL+2*
>> GMTSEG( LIST1+4, LISTLIM+11, LISTLIM+12, LISTLIM+13, LISTLIM+14, LISTLIM+15, STAR+2, LISTSEL+1, LISTSEL+2
>> GMTSEGC CMPCOND+3*
>> GMTSEGI( CMPCOND+1
>> GMTSTYP STAR+2, ASKCMPS+6, ASKCMPS+13
GMW GETLIM+10~, LIST1+3~, LISTSEL+1~, LISTSEL+2*, ASKCMPS+1~
GMX ASKCMPS+1~, ASKCMPS+13*, CMPCOND+1, CMPCOND+2, CMPCOND+3
IOF LIST+2, SCRNLNTH+1
IOSL SCRNLNTH+1
LISTFLG GETLIM+10~, GETLIM+11*, LIST+1*, ASKCMPS+1, ASKCMPS+14*
OLD CMPCOND+1~*, CMPCOND+3
QUIT GETLIM+10~, GETLIM+11, ASKCMPS+8*, ASKCMPS+10*, ASKLIST+2*
SBS CMPCOND+1~*, CMPCOND+3*
SREC CMPCOND+1~, CMPCOND+3*
STRN CMPCOND+1~, CMPCOND+3*
U LISTLIM+11, LISTLIM+12, LISTLIM+13, LISTLIM+14, LISTLIM+15, STAR+2, LISTSEL+2, ASKCMPS+13, CMPCOND+1, CMPCOND+2
X ASKCMPS+1~, ASKCMPS+8, ASKCMPS+9, ASKCMPS+10, ASKCMPS+11, ASKCMPS+12, ASKLIST+1~
XQORM ASKCMPS+1~, ASKCMPS+6*
XQORM("??" ASKCMPS+6*
XQORM("A" ASKCMPS+7*
XQORM(0 ASKCMPS+7*
Y ASKCMPS+1~, ASKCMPS+9, ASKLIST+1~, ASKLIST+2, ASKLIST+5
Y( ASKCMPS+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All