Routine: GMTSDGH

Package	Total	Call Graph
Health Summary	2	($$NDBI,$$ROK,REGDT4)^GMTSU CKP^GMTSUP
Registration	1	(IN5,KVAR)^VADPT
Uncategorized	1	(DSP,LST)^A7RHSM

Package

Total

Call Graph

($$NDBI,$$ROK,REGDT4)^GMTSU CKP^GMTSUP

(IN5,KVAR)^VADPT

(DSP,LST)^A7RHSM

Name	Comments	DBIA/ICR reference
MVTS	; Loop through mvts chronologically, per admission
GET	; Get Inpatient Data [v5.0 and above]
PRNT	; Output Data
KILVAR	; Clean-up, exit
SETUTL	; Get Treating Specialty and Corresponding Admission
NEXT1	; Treating Specialty (ATS)
NEXT2	; Corresponding Admission (APCA)
MAIN	; Loop through admissions starting from most recent

Name	Line Occurrences
Function Call: WRITE	Prompt: X,?12,TT," ",$E(TYPE,1,34),?55,SPEC,?69,DOC,! Line Location: PRNT+7

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APCA"	SETUTL+3, NEXT2+1
^DGPM("ATID1"	MAIN+7, MVTS+1
^DGPM("ATS"	SETUTL+2, NEXT1+1, NEXT1+2
^UTILITY($J	MVTS+2!, MVTS+6, GET+1, GET+2, NEXT1+3, NEXT2+2, KILVAR+3!

Name	Field # of Occurrence
A7RHS	MAIN+6, MAIN+8!
ADA	MVTS+1*, MVTS+3, GET+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1, NEXT2+2, KILVAR+2!
ADM	MAIN+5, MAIN+7, MVTS+1, KILVAR+2!
CNTR	MAIN+3, MAIN+4, MAIN+7, MVTS+7*, KILVAR+2!
CODE	PRNT+3*, PRNT+4, KILVAR+2!
>> DFN	MAIN+6, MAIN+7, MVTS+1, SETUTL+2, SETUTL+3, NEXT1+1, NEXT1+2, NEXT2+1
DOC	PRNT+3, PRNT+5, PRNT+7, KILVAR+2!
FLAG	MAIN+5, MVTS+4, PRNT+8, KILVAR+2!
>> GMTS1	MAIN+5
>> GMTS2	MAIN+7
>> GMTSNDM	MAIN+3
>> GMTSNPG	PRNT+5, PRNT+6
>> GMTSQIT	MVTS+4, PRNT+2
IM	KILVAR+2!
IN	KILVAR+2!
ITS	KILVAR+3!
MDA	NEXT2+1*, NEXT2+2, KILVAR+2!
MDM	MVTS+6, GET+1, GET+2, SETUTL+1, SETUTL+3*, NEXT2+1, NEXT2+2, KILVAR+2!
PREVDR	MVTS+2!, PRNT+5, PRNT+8*, KILVAR+2!
PREVSP	MVTS+2!, PRNT+6, PRNT+8*, KILVAR+2!
SPEC	PRNT+3, PRNT+6, PRNT+7, KILVAR+2!
TS	NEXT1+1*, NEXT1+2, KILVAR+3!
TSDA	NEXT1+2*, NEXT1+3, KILVAR+3!
TSDM	SETUTL+1, SETUTL+2, NEXT1+1, NEXT1+2, NEXT1+3, KILVAR+3!
TT	PRNT+4*, PRNT+7, KILVAR+2!
TYPE	PRNT+3*, PRNT+7, KILVAR+2!
U	PRNT+1, PRNT+3, PRNT+5, PRNT+6, PRNT+8
>> VA200	MAIN+5*
VAHOW	MAIN+1~, MAIN+5*
VAIP	MAIN+2!, MVTS+2!, MVTS+4, GET+2!, GET+3
VAIP("DR"	PRNT+3, PRNT+5, PRNT+8
VAIP("E"	MVTS+3, GET+2
VAIP("MD"	PRNT+1
VAIP("MT"	PRNT+3
VAIP("TS"	PRNT+3, PRNT+6, PRNT+8
VAIP("TT"	PRNT+3
X	PRNT+1*, PRNT+7, KILVAR+2!

Information