Routine: DGPMTSO2

Information

DGPMTSO2 ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING BY TS ;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, DGTS, 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,"FACILITY TREATING SPECIALTY: ",TREAT Line Location: DGTS+0
Function Call: WRITE	Prompt: !,PTNM,?30,ID,?45,ADMDT,?65,WARD,?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,"INPATIENT WARD",?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, TREAT, DGTS, PTNM, INFO, INFO+1, INFO+2, INFO+3

Name	Field # of Occurrence
^(0	DIV

Name	Field # of Occurrence
>> ABSENCE	INFO+3*, LINE
ADMDT	END!, INFO+1*, LINE
DGTS	END!, DGTS*, PTNM, INFO, INFO+1, INFO+2, INFO+3
DGTS1	END!, DGTS*
DIV	DIV*, END!, TREAT, DGTS, PTNM, INFO, INFO+1, INFO+2, INFO+3
DIV1	DIV*, END!
>> END	DIV, DIV+2, DIV+3, TREAT, DGTS, 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, DGTS, INFO+6, SUB
L	DIV+4, END!, SUB+4, SUBHEAD+3*
PAGE	START+2*, END!
PTLTS	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!, DGTS, TOTAL, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+4, SUB+2*, SUB+6 , SUB+7
SUBNAME	END!, DGTS, TOTAL+7, SUB+5
TOTAL	START+2, DIV+5, END!, TOTAL, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+4, TOTAL+5*
TREAT	END!, TREAT*, DGTS, PTNM, INFO, INFO+1, INFO+2, INFO+3
TREAT1	END!, TREAT*
TSXFR	END!, INFO+2*, LINE
WARD	END!, INFO*, LINE