source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGODNSM1.m@ 1432

Last change on this file since 1432 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.9 KB
RevLine 
[613]1DGODNSM1 ;ALB/EG - INPATIENT WORKLOAD SUMMARY, TOTALS ; 3/1/89 1500
2 ;;5.3;Registration;;Aug 13, 1993
3 ;;V 4.5
4TOT1 F I=30:10:110 W ?I,"------"
5 W !,?1,"SUBTOTAL",?30,^UTILITY("DGOD",$J,"T",K,"C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
6 W ?100,^UTILITY("DGOD",$J,"T",K,"R")
7 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)_")"
8 Q:^UTILITY("DGOD",$J,"T",K,"R")=0
9 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)
10 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)
11 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)
12 W ?90,$J(^UTILITY("DGOD",$J,"T",K,"C",7)/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
13 W ?100,$J(^UTILITY("DGOD",$J,"T",K,"R")/^UTILITY("DGOD",$J,"T",K,"R")*100,2,2)
14 Q
15 ;
16TOT W ! F I=30:10:100 W ?I,"======"
17 W !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,"T","C",1),?40,^(2),?50,^(3),?60,^(4),?70,^(5),?80,^(6),?90,^(7)
18 W ?100,^UTILITY("DGOD",$J,"T","C")
19 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)
20 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)
21 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)
22 W ?90,$J(^UTILITY("DGOD",$J,"T","C",7)/^UTILITY("DGOD",$J,"T","C")*100,2,2)
23 W ?100,$J(^UTILITY("DGOD",$J,"T","C")/^UTILITY("DGOD",$J,"T","C")*100,2,2),!
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.