|
Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
