Routine: GMTSADH1

Information

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

Source Information

Source file <GMTSADH1.m>

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

Caller Graph Total: 3

Package	Total	Caller Graph
Health Summary	3	GMTSADH GMTSADHC GMTSADOR

Entry Points

Name	Comments	DBIA/ICR reference
STAR	; Writes * to indicate added component when called by ; GMTSUP for Health Summary Type other than AD HOC
LISTSEL	; Lists default selection items
ASKLIST	; Asks whether to relist Component
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
GETLIM	; Get Limits/Flags (external entry) ; ; Time ; Occurrence ; Selection Items ; Hospital Location Display ; ICD Text Display ; Provider Narrative Display ; CPT Modifier Display ;
CMPCOND	; Checks component for new limits/sel items
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 ;
ASKCMPS	; Asks for components for new limits/sel items
SCRNLNTH	; Checks screen length

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

Customize PDF page

Package: Health Summary

Routine: GMTSADH1

Call Graph Total: 4

Caller Graph Total: 3