source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURCYRP0.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1NURCYRP0 ;HIRMFO/YH-PATIENT INTAKE/OUTPUT REPORTS ;2/25/91
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3EN1 ;PATIENT I/O SUMMARY REPORT BY DATE AND SHIFT
4 S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYRP0 D QUIT Q
5EN2 ;PATIENT I/O SUMMARY REPORT FOR THE PREVIOUS DAY
6 S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN2^GMRYRP0 D QUIT Q
7EN3 ;PATIENT VITAL SIGNS & I/O SHEET - SF511
8 S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S X="GMRVVS0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1,GMROUT=0,NURQUIT=0 D ^NURCVUT0 G:NURQUIT!(NUREDB["S"&'$D(NRMBD)) Q D DATE^GMRVVS0 G:GMROUT Q
9DEV W !!,"This report must be queued to a line printer",!,"or a slave printer with 132 columns.",!!
10 S %ZIS="Q" S %ZIS("B")="" D ^%ZIS K:POP IO("Q") G:POP Q I '(IOST?1"P".E&$D(IO("Q"))),'$D(IO("S")) D ^%ZISC G DEV
11 I IOM'>130 D ^%ZISC K IO("Q"),IO("C") G DEV
12 I $D(IO("Q")) K IO("Q"),IO("C") S ZTDESC="EXPANDED SF 511",ZTRTN="START^NURCYRP0",ZTIO=ION_";"_IOM_";"_IOSL D LOOP1,^%ZTLOAD,HOME^%ZIS D Q2^GMRVVS0 Q
13START K ^TMP($J,"NURCEN") S GFLAG=0,GMRNUR=1,NURRM="" D ^NURCAS2 I '$D(^TMP($J,"NURCEN")) W !,"NO DATA FOR THIS REPORT",! G Q
14 F S NURRM=$O(^TMP($J,"NURCEN",NURRM)) Q:NURRM=""!NURQUIT S NBED="" F S NBED=$O(^TMP($J,"NURCEN",NURRM,NBED)) Q:NBED=""!NURQUIT S NURNAM="" F S NURNAM=$O(^TMP($J,"NURCEN",NURRM,NBED,NURNAM)) Q:NURNAM=""!NURQUIT D
15 .S DFN=+$P($G(^TMP($J,"NURCEN",NURRM,NBED,NURNAM)),"^") D:DFN>0 EN1^GMRVVS0 S:GMROUT NURQUIT=1
16Q K ND1,NDA,NORM,NURP,NURRMST,NURSX,NURSY,NWLOC,NURQUIT,GMROUT,^TMP($J),NPWARD,NROOM,NUREDB,NURNAM,NURRM,POP,NBED,NAME,NURWARD D Q2^GMRVVS0 Q
17LOOP1 F G="GMROUT","NUREDB","NPWARD","NURWARD","NURQUIT","NRMBD(","GMRFIN","GMRSTRT","DFN" S ZTSAVE(G)=""
18 K G Q
19EN4 ;PATIENT I/O SUMMARY FOR TODAY
20 S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN4^GMRYRP0 D QUIT Q
21EN5 ;I/O SUMMARY FOR 48 HRS
22 S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN5^GMRYRP0 D QUIT Q
23EN6 ;24 HOURS ITEMIZED SHIFT REPORT
24 S X="GMRYSE0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYSE0 D QUIT Q
25EN7 ;INTRAVENOUS INFUSION FLOW SHEET
26 S X="GMRYFLW0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYFLW0 K GMRNUR Q
27 ;
28QUIT K I,GMRNUR,DFN Q
Note: See TracBrowser for help on using the repository browser.