Routine: GMTSDGA2

Information

GMTSDGA2 ; SLC/MKB,KER - Treating Spec for HS ; 02/27/2002

Name	Comments	DBIA/ICR reference
TSOUT	; Treating Speciality Output
FADM	; Future Scheduled admission output
GETFADM	; Get future scheduled admission data

Name	Line Occurrences
Function Call: WRITE	Prompt: ADT,?21,$E(SPEC,1,25),?48,"(",DDT,")",?63,$E($P(VAIP(7),U,2),1,15),! Line Location: TSOUT+4
Function Call: WRITE	Prompt: ?21,"Diag: " Line Location: TSOUT+6
Function Call: WRITE	Prompt: ?27,^UTILITY($J,"W",GMJ,GMJ1,0),! Line Location: TSOUT+6
Function Call: WRITE	Prompt: ! Line Location: FADM+8
Function Call: WRITE	Prompt: X," (Future)",?23,$E($P(NODE,U,5),1,24) Line Location: FADM+13
Function Call: WRITE	Prompt: ?49,"Expected LOS: ",$P(NODE,U,6),! Line Location: FADM+14
Function Call: WRITE	Prompt: "Admitting Diagnosis: ",$P(NODE,U,2) Line Location: FADM+16
Function Call: WRITE	Prompt: ?51,"Provider: ",$E($P(NODE,U,3),1,15),! Line Location: FADM+17