Routine: DGPMTSO3

Information

DGPMTSO3 ;ALB/LM - TREATING SPECIALTY INPATIENT COUNTS BY TS ;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: !?63 Line Location: DIV+4
Function Call: WRITE	Prompt: "-" Line Location: DIV+4
Function Call: WRITE	Prompt: !!?69,"TOTAL = ",$J($P(TOTAL,"^",1),4),?89,$J($P(TOTAL,"^",2),4),?97,$J($P(TOTAL,"^",3),4),?105,$J($P(TOTAL,"^",4),4),?114,$J($P(TOTAL,"^",5),4),?124,$J($P(TOTAL,"^",6),4) Line Location: DIV+5
Function Call: WRITE	Prompt: !?66 Line Location: SUB+3
Function Call: WRITE	Prompt: "-" Line Location: SUB+3
Function Call: WRITE	Prompt: !!?66,"SUBCOUNT = ",$J($P(SUBCOUNT,"^",1),4),?89,$J($P(SUBCOUNT,"^",2),4),?97,$J($P(SUBCOUNT,"^",3),4),?105,$J($P(SUBCOUNT,"^",4),4),?114,$J($P(SUBCOUNT,"^",5),4),?124,$J($P(SUBCOUNT,"^",6),4),! Line Location: SUB+4
Function Call: WRITE	Prompt: !!!,"DIVISION",!?3,"FACILITY TREATING SPECIALTY",?35,"ABBRV",?43,"TREATING SPECIALTY SERVICE",?76,"PATIENTS",?89,"PASS",?99,"AA",?107,"UA",?114,"ASIH",?122,"PTS REM",! Line Location: SUBHEAD+2
Function Call: WRITE	Prompt: "-" Line Location: SUBHEAD+3