- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRONUR 854 printed Feb 19, 2025@00:11:09 Page 2
- 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