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 Dec 13, 2024@02:44:39 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
