Routine: DGPMTSO1

Information

DGPMTSO1 ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING BY WARDS ;2-2-93

Package	Total	Call Graph
Registration	1	HEAD^DGPMTSO

Package	Total	Caller Graph
Registration	1	DGPMTSO

Name	Field # of Occurrence
HEAD^DGPMTSO	START+3, DIV, DIV+3, DGW, INFO+6, SUB

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"DIVISION: ",$S($D(^DG(40.8,DIV,0)):$P(^(0),"^"),1:"EMPTY") Line Location: DIV+0
Function Call: WRITE	Prompt: "-" Line Location: DIV+4
Function Call: WRITE	Prompt: !!?3,"TOTAL = ",$J($P(TOTAL,"^",1),4),?25,"PASS = ",$J($P(TOTAL,"^",2),4),?45,"AA = ",$J($P(TOTAL,"^",3),4),?65,"UA = ",$J($P(TOTAL,"^",4),4),?85,"ASIH = ",$J($P(TOTAL,"^",5),4),?105,"PTS REMAINING = ",$J($P(TOTAL,"^",6),4) Line Location: DIV+5
Function Call: WRITE	Prompt: !!?10,"INPATIENT WARD: ",WARD Line Location: DGW+0
Function Call: WRITE	Prompt: !,PTNM,?30,ID,?45,ADMDT,?65,TREAT,?100,TSXFR,?120,ABSENCE Line Location: LINE+0
Function Call: WRITE	Prompt: ! Line Location: SUB+3
Function Call: WRITE	Prompt: "-" Line Location: SUB+4
Function Call: WRITE	Prompt: !,SUBNAME,! Line Location: SUB+5
Function Call: WRITE	Prompt: "SUBCOUNT = ",$J($P(SUBCOUNT,"^",1),4),?25,"PASS = ",$J($P(SUBCOUNT,"^",2),4),?45,"AA = ",$J($P(SUBCOUNT,"^",3),4),?65,"UA = ",$J($P(SUBCOUNT,"^",4),4),?85,"ASIH = ",$J($P(SUBCOUNT,"^",5),4) Line Location: SUB+6
Function Call: WRITE	Prompt: ?105,"PTS REMAINING = ",$J($P(SUBCOUNT,"^",6),4),! Line Location: SUB+7
Function Call: WRITE	Prompt: !!,"PATIENT",?30,"PT'S ID",?45,"ADMISSION DATE",?65,"LAST FACILITY TREATING SPECIALTY",?100,"LAST TS SERVICE",?120,"ABSENCE",! Line Location: SUBHEAD+2
Function Call: WRITE	Prompt: "-" Line Location: SUBHEAD+3
Function Call: WRITE	Prompt: ! Line Location: SUBHEAD+4

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV
^DPT - [#2]	INFO+4
^TMP($J	DIV, WARD, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3

Name	Field # of Occurrence
^(0	DIV

Name	Field # of Occurrence
ABSENCE	END!, INFO+3*, LINE
ADMDT	END!, INFO+1*, LINE
DGW	END!, DGW*, PTNM, INFO, INFO+1, INFO+2, INFO+3
DGW1	END!, DGW*
DIV	DIV*, END!, WARD, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3
DIV1	DIV*, END!
>> END	DIV, DIV+2, DIV+3, WARD, DGW, PTNM, INFO+6, SUB, SUBHEAD+1
ID	END!, INFO+4*, LINE
IFN	END!, PTNM*, INFO, INFO+1, INFO+2, INFO+3, INFO+4
IOM	DIV+4, SUB+4, SUBHEAD+3
IOSL	DIV, DIV+3, DGW, INFO+6, SUB
L	DIV+4, END!, SUB+4, SUBHEAD+3*
PAGE	START+2*, END!
PTLWD	START, DIV+6*, END!
PTNM	END!, PTNM*, INFO, INFO+1, INFO+2, INFO+3, LINE
PTNM1	END!, PTNM*
REPORT	START+1*, END!
SUBCOUNT	DIV, END!, DGW, TOTAL, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+4, SUB+2*, SUB+6 , SUB+7
SUBNAME	END!, DGW, TOTAL+7, SUB+5
TOTAL	START+2, DIV+5, END!, TOTAL, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5*
TREAT	END!, INFO*, LINE
TSXFR	END!, INFO+2*, LINE
WARD	END!, WARD*, DGW, PTNM, INFO, INFO+1, INFO+2, INFO+3
WARD1	END!, WARD*