Routine: GMTSDGC1

Information

GMTSDGC1 ; SLC/KER/SBW - Subroutines for Ext ADT Hist ;06/25/15 15:47

Name	Comments	DBIA/ICR reference
OTHER(DFN,PTF,CODE,GMVAIP,MDA)	; Additional data to include
GETDATA	; Gets LOS, ICD and bedsection data
NXTICD	; Print the next ICD

Name	Line Occurrences
Function Call: WRITE	Prompt: ?12,"Adm. Diag: ",GMVAIP("MF") Line Location: OTHER+6
Function Call: WRITE	Prompt: ?64,"LOS: ",LOS,! Line Location: OTHER+7
Function Call: WRITE	Prompt: ?11,"Bedsection: ",BDSC,?64,"LOS: ",LOS,! Line Location: OTHER+18
Function Call: WRITE	Prompt: ?7,"Principal Diag: No discharge diagnosis available.",! Line Location: OTHER+22
Function Call: WRITE	Prompt: ?4,"Disposition Place: ",DSPL,! Line Location: OTHER+23
Function Call: WRITE	Prompt: ?4,"Outpat. Treatment: ",OPTR,! Line Location: OTHER+24
Function Call: WRITE	Prompt: ! Line Location: OTHER+25
Function Call: WRITE	Prompt: ?14,"TS Diag: " Line Location: OTHER+34
Function Call: WRITE	Prompt: ?23,^UTILITY($J,"W",GMJ,GMJ1,0),! Line Location: OTHER+36
Function Call: WRITE	Prompt: ?23,GMTO,?61,GMTNO,! Line Location: NXTICD+5