source: WorldVistAEHR/trunk/r/SURGERY-SR/SRONUR.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 841 bytes
Line 
1SRONUR ;B'HAM ISC/MAM - NURSE STAFF REPORT ; [ 07/27/98 2:33 PM ]
2 ;;3.0; Surgery ;**50**;24 Jun 93
3 S SRINST=SRSITE("SITE")
4ALL 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
5 S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
6 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
7 I "Yy"[SRYN D ^SRONUR1 G END
8 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
9 S SRONUR=+Y,SRONUR("NAME")=$P(Y(0),"^")
10 D ^SRONUR2
11END W ! S:$E(IOST)="P" SRSOUT=1 I 'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
12 D ^%ZISC K SRTN D ^SRSKILL W @IOF
13 Q
Note: See TracBrowser for help on using the repository browser.