Routine: GMTSDGCH

Information

GMTSDGCH ; SLC/KER/NDBI - Extended ADT Hist ; 09/21/2001

Name	Comments	DBIA/ICR reference
MAIN	; Loop through admissions starting from most recent
MVTS	; Loop through mvts chronologically, per admission
GET	; D IN5^VADPT for each mvt, print info
PRNT	; output line of data
SETUTL	; Set ^UTILITY array
NEXT1	; Next ^UTILITY($J,"GMTSMVTS",<inverse date>) - "ATS"
NEXT2	; Next ^UTILITY($J,"GMTSMVTS",<date>) - "APCA"
DISAB	; Disability Display
FADM	; Future Admissions

Name	Line Occurrences
Function Call: WRITE	Prompt: X,?18,TT,?23,$E(TYPE,1,56),! Line Location: PRNT+9
Function Call: WRITE	Prompt: ?3,AWS,?56,SPEC,! Line Location: PRNT+12
Function Call: WRITE	Prompt: ?7,AWS,?56,WARD,! Line Location: PRNT+18
Function Call: WRITE	Prompt: "Eligibility: ",$E($P(VAEL("EL"),U,2),1,40) Line Location: DISAB+4
Function Call: WRITE	Prompt: !," No rated disabilities" Line Location: DISAB+8
Function Call: WRITE	Prompt: !?3,GMTSDIS(2.04,DA,.01,"E"),?51,$J(GMTSDIS(2.04,DA,2,"E"),3),"%",?60,$S(GMTSDIS(2.04,DA,3,"E")="YES":"S/C",1:"NSC") Line Location: DISAB+14
Function Call: WRITE	Prompt: ! Line Location: DISAB+15
Function Call: WRITE	Prompt: ! Line Location: FADM+9
Function Call: WRITE	Prompt: X,?16,"Scheduled Admission",?56,$E($P(NODE,U,5),1,12),?69,$E($P(NODE,U,3),1,10),! Line Location: FADM+11
Function Call: WRITE	Prompt: ?11,"Adm. Diag.: ",$P(NODE,U,2) Line Location: FADM+13
Function Call: WRITE	Prompt: ?56,"Expected LOS: ",$P(NODE,U,6),! Line Location: FADM+14
Function Call: WRITE	Prompt: ?14,"Surgery: ",$P(NODE,U,4),! Line Location: FADM+16