Routine: DGOINPT1

Information

DGOINPT1 ;ALB/REW - BUILDS,PRINTS INPATIENT ROSTER ; 8/8/03 11:45am

Name	Comments	DBIA/ICR reference
ROSTER	;
QUIT
FIXTOT	;
ROST	;
ADMDT	;
CHECK	;
WAIT
DOLIST	;
QTDOL
HEAD
OUT	;
QTOUT
PRINT	;
RM(ROOMB)	;
QKVADPT	;QUICK SUBSTITUTE FOR VADPT:REQUIRES DFN
DEM
MT
LEGEND

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QUIT+0
Function Call: WRITE	Prompt: @IOF Condition for execution: IOF]"" Line Location: HEAD+1
Function Call: WRITE	Prompt: !!?4,"INPATIENT ROSTER",?(61-($L(X)/2)),X,?99 Line Location: HEAD+1
Function Call: WRITE	Prompt: DGADMT Line Location: HEAD+1
Function Call: WRITE	Prompt: !!?33,"ADMISSION",?78,"PRIMARY",?95,"ATTENDING",?112,"TREATING",?126,"MEANS" Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"PATIENT NAME",?21,"ID",?28,"AGE",?33,"DATE",?46,"DAYS",?52,"WARD",?67,"ROOM-BED",?78,"PHYSICIAN",?95,"PHYSICIAN",?112,"SPECIALTY",?126,"TEST" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,X,! Line Location: HEAD+3
Function Call: WRITE	Prompt: !,$S($P(DGADM,U,12):"!",1:""),$E($P(DGADM,U,1),1,19),?21,$P(DGADM,U,2),?28,$J($P(DGADM,U,3),3) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?33,$P(DGADM,U,4),?46,$J($P(DGADM,U,5),4),?52,$E($P(DGADM,U,6),1,14),?67,$E($P(DGADM,U,7),1,9),?78,$E($P(DGADM,U,8),1,15) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?95,$E($P(DGADM,U,9),1,15),?112,$E($P(DGADM,U,10),1,13),?128,$P(DGADM,U,11) Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Condition for execution: DGDS Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: LEGEND+0
Function Call: WRITE	Prompt: !,"'!' Before the Patient name indicates the patient chose not to be listed in the Facility Directory" Line Location: LEGEND+1