Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
841 bytes
|
Line | |
---|
1 | SRONUR ;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")
|
---|
4 | 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
|
---|
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
|
---|
11 | END 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.