Routine: DGPMTSO1

Information

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

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