| 1 | SRONITE ;BIR/MAM - NIGHTLY BACKGROUND TASK ;12/16/98 2:09 PM
|
|---|
| 2 | ;;3.0; Surgery ;**47,58,62,41,86,142**;24 Jun 93
|
|---|
| 3 | F SRI=1:1 S SRX=$P($T(TASK+SRI),";;",2) Q:SRX="" S SRRTN=$P(SRX,";"),SRDESC=$P(SRX,";",2) S ZTDESC=SRDESC,ZTRTN="JOB^SRONITE",ZTIO="",ZTDTH=$H,ZTSAVE("SRRTN")="" D ^%ZTLOAD
|
|---|
| 4 | D EN^SROA30
|
|---|
| 5 | Q
|
|---|
| 6 | JOB D @SRRTN S ZTREQ="@"
|
|---|
| 7 | Q
|
|---|
| 8 | TRANS ; entry to queue risk assessment transmissions manually
|
|---|
| 9 | W !!,"Transmit Surgery Risk Assessments",!
|
|---|
| 10 | S ZTDESC="Transmit Surgery Risk Assessments",SRRTN="^SROATMIT",ZTRTN="JOB^SRONITE",ZTIO="",ZTSAVE("SRRTN")="" D ^%ZTLOAD
|
|---|
| 11 | I $D(ZTSK) W !!,"Queued as task #"_ZTSK
|
|---|
| 12 | D PRESS,^SRSKILL K SRRTN W @IOF
|
|---|
| 13 | Q
|
|---|
| 14 | PRESS W ! K DIR S DIR("A")="Press RETURN to continue ",DIR(0)="FOA" D ^DIR K DIR
|
|---|
| 15 | Q
|
|---|
| 16 | TASK ;
|
|---|
| 17 | ;;^SRSCRAP;Surgery Files Cleanup
|
|---|
| 18 | ;;^SROUTUP;Update Surgery Utilization File
|
|---|
| 19 | ;;LOCK^SROLOCK;Lock Surgery Cases
|
|---|
| 20 | ;;TASK^SRSAVG;Store Operation Times
|
|---|
| 21 | ;;^SROATMIT;Transmit Surgery Risk Assessments
|
|---|
| 22 | ;;TASK^SROAWL;Surgery Workload Report
|
|---|
| 23 | ;;NIGHT^SROQT;Surgery Quarterly Report
|
|---|
| 24 | ;;^SRHLXTMP;Surgery Interface Purge
|
|---|
