- DGODNSM1 ;ALB/EG - INPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500
- ;;5.3;Registration;;Aug 13, 1993
- ;;V 4.5
- TOT1 F I=30:10:110 W ?I,"------"
- W !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,"T",K,"C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
- W ?100,^UTILITY("DGOD",$J,"T",K,"R")
- W:^UTILITY("DGOD",$J,"T",K,"R")>0 ?110,"("_$J(^UTILITY("DGOD",$J,"T",K,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)_")"
- Q:^UTILITY("DGOD",$J,"T",K,"R")=0
- W !,?1,"SUBTOTAL %",?30,$J(^UTILITY("DGOD",$J,"T",K,"C",1)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?40,$J(^UTILITY("DGOD",$J,"T",K,"C",2)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
- W ?50,$J(^UTILITY("DGOD",$J,"T",K,"C",3)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?60,$J(^UTILITY("DGOD",$J,"T",K,"C",4)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
- W ?70,$J(^UTILITY("DGOD",$J,"T",K,"C",5)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2),?80,$J(^UTILITY("DGOD",$J,"T",K,"C",6)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
- W ?90,$J(^UTILITY("DGOD",$J,"T",K,"C",7)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
- W ?100,$J(^UTILITY("DGOD",$J,"T",K,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
- Q
- ;
- TOT W ! F I=30:10:100 W ?I,"======"
- W !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,"T","C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
- W ?100,^UTILITY("DGOD",$J,"T","C")
- W !,?1,"TOTAL %",?30,$J(^UTILITY("DGOD",$J,"T","C",1)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?40,$J(^UTILITY("DGOD",$J,"T","C",2)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
- W ?50,$J(^UTILITY("DGOD",$J,"T","C",3)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?60,$J(^UTILITY("DGOD",$J,"T","C",4)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
- W ?70,$J(^UTILITY("DGOD",$J,"T","C",5)/^UTILITY("DGOD",$J,"T","C")*100,2,2),?80,$J(^UTILITY("DGOD",$J,"T","C",6)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
- W ?90,$J(^UTILITY("DGOD",$J,"T","C",7)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
- W ?100,$J(^UTILITY("DGOD",$J,"T","C")/^UTILITY("DGOD",$J,"T","C")*100,2,2),!
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGODNSM1 1938 printed Feb 19, 2025@00:12:29 Page 2
- DGODNSM1 ;ALB/EG - INPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500
- +1 ;;5.3;Registration;;Aug 13, 1993
- +2 ;;V 4.5
- TOT1 FOR I=30:10:110
- WRITE ?I,"------"
- +1 WRITE !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$JOB,"T",K,"C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
- +2 WRITE ?100,^UTILITY("DGOD",$JOB,"T",K,"R")
- +3 if ^UTILITY("DGOD",$JOB,"T",K,"R")>0
- WRITE ?110,"("_$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"R")/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)_")"
- +4 if ^UTILITY("DGOD",$JOB,"T",K,"R")=0
- QUIT
- +5 WRITE !,?1,"SUBTOTAL %",?30,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",1)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2),?40,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",2)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)
- +6 WRITE ?50,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",3)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2),?60,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",4)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)
- +7 WRITE ?70,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",5)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2),?80,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",6)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)
- +8 WRITE ?90,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"C",7)/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)
- +9 WRITE ?100,$JUSTIFY(^UTILITY("DGOD",$JOB,"T",K,"R")/^UTILITY("DGOD",$JOB,"T",K,"R")*100,2,2)
- +10 QUIT
- +11 ;
- TOT WRITE !
- FOR I=30:10:100
- WRITE ?I,"======"
- +1 WRITE !,?1,"TOTAL",?30,^UTILITY("DGOD",$JOB,"T","C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
- +2 WRITE ?100,^UTILITY("DGOD",$JOB,"T","C")
- +3 WRITE !,?1,"TOTAL %",?30,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",1)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2),?40,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",2)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2)
- +4 WRITE ?50,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",3)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2),?60,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",4)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2)
- +5 WRITE ?70,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",5)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2),?80,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",6)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2)
- +6 WRITE ?90,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C",7)/^UTILITY("DGOD",$JOB,"T","C")*100,2,2)
- +7 WRITE ?100,$JUSTIFY(^UTILITY("DGOD",$JOB,"T","C")/^UTILITY("DGOD",$JOB,"T","C")*100,2,2),!
- +8 QUIT
- +9 ;