DGODNSM1.m

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 ---DGODNSM1   1938     printed  Dec 13, 2024@02:46:26                                                                                                                                                                                                    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       ;