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

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

initial load of WorldVistAEHR
File size: 3.0 KB
Line 
1DGODTOT ;ALB/EG - PRINT TOTALS FOR OUTPUT REPORTS ; 2/22/89 1420
2 ;;5.3;Registration;;Aug 13, 1993
3 ;;V 4.5
4TOTI ;grand total
5 Q:ZRT[U F I=30:10:110 W ?I,"======"
6 W !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U")
7 W ?100,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)_")"
8 W !,?1,"%",?30,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AN")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
9 W ?50,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"B")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"C")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
10 W ?70,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"N")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"X")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
11 W ?90,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"U")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
12 W ?100,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),!
13 S ZRT1="Hit RETURN to continue" I (IOST["C-")&(IO=IO(0)) W !,?IOM-$L(ZRT1)-2,ZRT1 R ZRT:DTIME
14 Q
15HDR ;header
16 U IO W @IOF,!,?1,"INPATIENT DISCHARGES REPORT",?IOM-20,T2 S $P(L,"-",IOM-1)="" W !,L,!
17 W !,?1,"DATE RANGE: FROM " S Y=DGBD X ^DD("DD") W Y," TO " S Y=DGND X ^DD("DD") W Y,!
18 W !,?(IOM-26\2),"MEANS TEST CLASSIFICATION",!
19 Q
20 ;
21TOTO ;print total for division
22 S ^UTILITY("DGOD",$J,DGJB,K1,DGDV)=$C(35)_U_DGGE_U_DGDV_U_DGJB_U_DGBD_U_DGND_U_DGTOUT
23 Q:ZRT[U Q:^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)=0 F I=30:10:110 W ?I,"======"
24 W !,?1,"TOTAL",?30,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS"),?40,^("AN"),?50,^("B"),?60,^("C"),?70,^("N"),?80,^("X"),?90,^("U")
25 W ?100,^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV),?110,"("_$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)_")"
26 W !,?1,"%",?30,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AS")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?40,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"AN")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
27 W ?50,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"B")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?60,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"C")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
28 W ?70,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"N")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),?80,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"X")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
29 W ?90,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV,"U")/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2)
30 W ?100,$J(^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)/^UTILITY("DGOD",$J,DGJB,K1,"TOT",DGDV)*100,2,2),!
31 S ^UTILITY("DGOD",$J,DGJB,K1,DGDV)=$C(35)_U_DGGE_U_DGDV_U_DGJB_U_DGBD_U_DGND_U_DGTOUT
32 S ZRT1="Hit RETURN to continue" I (IOST["C-")&(IO=IO(0)) W !,?IOM-$L(ZRT1)-2,ZRT1 R ZRT:DTIME
33 Q
34 ;
Note: See TracBrowser for help on using the repository browser.