| 1 | NURCYRP0 ;HIRMFO/YH-PATIENT INTAKE/OUTPUT REPORTS ;2/25/91
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN1 ;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
|
|---|
| 5 | EN2 ;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
|
|---|
| 7 | EN3 ;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
|
|---|
| 9 | DEV 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
|
|---|
| 13 | START 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
|
|---|
| 16 | Q 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
|
|---|
| 17 | LOOP1 F G="GMROUT","NUREDB","NPWARD","NURWARD","NURQUIT","NRMBD(","GMRFIN","GMRSTRT","DFN" S ZTSAVE(G)=""
|
|---|
| 18 | K G Q
|
|---|
| 19 | EN4 ;PATIENT I/O SUMMARY FOR TODAY
|
|---|
| 20 | S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN4^GMRYRP0 D QUIT Q
|
|---|
| 21 | EN5 ;I/O SUMMARY FOR 48 HRS
|
|---|
| 22 | S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN5^GMRYRP0 D QUIT Q
|
|---|
| 23 | EN6 ;24 HOURS ITEMIZED SHIFT REPORT
|
|---|
| 24 | S X="GMRYSE0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYSE0 D QUIT Q
|
|---|
| 25 | EN7 ;INTRAVENOUS INFUSION FLOW SHEET
|
|---|
| 26 | S X="GMRYFLW0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYFLW0 K GMRNUR Q
|
|---|
| 27 | ;
|
|---|
| 28 | QUIT K I,GMRNUR,DFN Q
|
|---|
