SRONUR.m

SRONUR ;B'HAM ISC/MAM - NURSE STAFF REPORT ; [ 07/27/98   2:33 PM ]

 ;;3.0; Surgery ;**50**;24 Jun 93

 S SRINST=SRSITE("SITE")

ALL S SRSOUT=0 W @IOF,"Surgical Nurse Staffing Report",!!,"Do you want the report for all nurses ?  YES//  " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END

 S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"

 I "YyNn"'[SRYN W !!,"Enter RETURN to print the Surgical Nurse Staffing Report for all nurses, or ",!,"'NO' to select a specific person.",!!,"Press RETURN to continue  " R X:DTIME G ALL

 I "Yy"[SRYN D ^SRONUR1 G END

 W ! K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Print the Nurse Staffing Report for which Nurse ?  " D ^DIC I Y<0 S SRSOUT=1 G END

 S SRONUR=+Y,SRONUR("NAME")=$P(Y(0),"^")

 D ^SRONUR2

END W ! S:$E(IOST)="P" SRSOUT=1 I 'SRSOUT W !!,"Press RETURN to continue  " R X:DTIME

 D ^%ZISC K SRTN D ^SRSKILL W @IOF

 Q

SRONUR    ;B'HAM ISC/MAM - NURSE STAFF REPORT ; [ 07/27/98   2:33 PM ]

 +1       ;;3.0; Surgery ;**50**;24 Jun 93

 +2        SET SRINST=SRSITE("SITE")

ALL        SET SRSOUT=0

           WRITE @IOF,"Surgical Nurse Staffing Report",!!,"Do you want the report for all nurses ?  YES//  "

           READ SRYN:DTIME

           IF '$TEST!(SRYN["^")

               SET SRSOUT=1

               GOTO END

 +1        SET SRYN=$EXTRACT(SRYN)

           IF SRYN=""

               SET SRYN="Y"

 +2        IF "YyNn"'[SRYN

               WRITE !!,"Enter RETURN to print the Surgical Nurse Staffing Report for all nurses, or ",!,"'NO' to select a specific person.",!!,"Press RETURN to continue  "

               READ X:DTIME

               GOTO ALL

 +3        IF "Yy"[SRYN

               DO ^SRONUR1

               GOTO END

 +4        WRITE !

           KILL DIC

           SET DIC=200

           SET DIC(0)="QEAMZ"

           SET DIC("A")="Print the Nurse Staffing Report for which Nurse ?  "

           DO ^DIC

           IF Y<0

               SET SRSOUT=1

               GOTO END

 +5        SET SRONUR=+Y

           SET SRONUR("NAME")=$PIECE(Y(0),"^")

 +6        DO ^SRONUR2

END        WRITE !

           IF $EXTRACT(IOST)="P"

               SET SRSOUT=1

           IF 'SRSOUT

               WRITE !!,"Press RETURN to continue  "

               READ X:DTIME

 +1        DO ^%ZISC

           KILL SRTN

           DO ^SRSKILL

           WRITE @IOF

 +2        QUIT