Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SRONUR

SRONUR.m

Go to the documentation of this file.
  1. SRONUR ;B'HAM ISC/MAM - NURSE STAFF REPORT ; [ 07/27/98 2:33 PM ]
  1. ;;3.0; Surgery ;**50**;24 Jun 93
  1. S SRINST=SRSITE("SITE")
  1. 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
  1. S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
  1. 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
  1. I "Yy"[SRYN D ^SRONUR1 G END
  1. 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
  1. S SRONUR=+Y,SRONUR("NAME")=$P(Y(0),"^")
  1. D ^SRONUR2
  1. END W ! S:$E(IOST)="P" SRSOUT=1 I 'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
  1. D ^%ZISC K SRTN D ^SRSKILL W @IOF
  1. Q