|
Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
646 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | SRONBCH ;B'HAM ISC/MAM - BATCH PRINT NURSE REPORTS ; 8 JUNE 1990 10:25 AM
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | S SRSOUT=0,X1=DT,X2=-1 D C^%DTC S SRSDATE=X-.0001
|
|---|
| 4 | F S SRSDATE=$O(^SRF("AC",SRSDATE)) Q:'SRSDATE!(SRSDATE>DT)!SRSOUT S SRTN=0 F S SRTN=$O(^SRF("AC",SRSDATE,SRTN)) Q:'SRTN!SRSOUT I $D(^SRF(SRTN,.2)),$P(^(.2),"^",3) D OP
|
|---|
| 5 | END W:$E(IOST)="P" @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
|
|---|
| 6 | D ^%ZISC,^SRSKILL K SRSITE,SRTN
|
|---|
| 7 | Q
|
|---|
| 8 | OP ; set info to print nurse report
|
|---|
| 9 | S SRNIGHT=1,X=$P($G(^SRF(SRTN,8)),"^"),SRSITE("SITE")=$S(X:$P(^DIC(4,X,0),"^"),1:$P($$SITE^SROVAR,"^",2))
|
|---|
| 10 | N SRSDATE D RPT^SRONRPT Q:SRSOUT S X=SRTN K SRTN S SRTN=X D ^SRSKILL
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
