SRONITE.m

SRONITE ;BIR/MAM - NIGHTLY BACKGROUND TASK ;12/16/98  2:09 PM

 ;;3.0; Surgery ;**47,58,62,41,86,142,167**;24 Jun 93;Build 27

 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

 D EN^SROA30

 Q

JOB D @SRRTN S ZTREQ="@"

 Q

TRANS ; entry to queue risk assessment transmissions manually

 W !!,"Transmit Surgery Risk Assessments",!

 S ZTDESC="Transmit Surgery Risk Assessments",SRRTN="^SROATMIT",ZTRTN="JOB^SRONITE",ZTIO="",ZTSAVE("SRRTN")="" D ^%ZTLOAD

 I $D(ZTSK) W !!,"Queued as task #"_ZTSK

 D PRESS,^SRSKILL K SRRTN W @IOF

 Q

PRESS W ! K DIR S DIR("A")="Press RETURN to continue ",DIR(0)="FOA" D ^DIR K DIR

 Q

TASK ;    

 ;;^SRSCRAP;Surgery Files Cleanup

 ;;^SROUTUP;Update Surgery Utilization File

 ;;LOCK^SROLOCK;Lock Surgery Cases

 ;;TASK^SRSAVG;Store Operation Times

 ;;^SROATMIT;Transmit Surgery Risk Assessments

 ;;NIGHT^SRTPTMIT;Transmit Surgery Transplant Assessments

 ;;TASK^SROAWL;Surgery Workload Report

 ;;NIGHT^SROQT;Surgery Quarterly Report

 ;;^SRHLXTMP;Surgery Interface Purge

SRONITE   ;BIR/MAM - NIGHTLY BACKGROUND TASK ;12/16/98  2:09 PM

 +1       ;;3.0; Surgery ;**47,58,62,41,86,142,167**;24 Jun 93;Build 27

 +2        FOR SRI=1:1

               SET SRX=$PIECE($TEXT(TASK+SRI),";;",2)

               IF SRX=""

                   QUIT 

               SET SRRTN=$PIECE(SRX,";")

               SET SRDESC=$PIECE(SRX,";",2)

               SET ZTDESC=SRDESC

               SET ZTRTN="JOB^SRONITE"

               SET ZTIO=""

               SET ZTDTH=$HOROLOG

               SET ZTSAVE("SRRTN")=""

               DO ^%ZTLOAD

 +3        DO EN^SROA30

 +4        QUIT 

JOB        DO @SRRTN

           SET ZTREQ="@"

 +1        QUIT 

TRANS     ; entry to queue risk assessment transmissions manually

 +1        WRITE !!,"Transmit Surgery Risk Assessments",!

 +2        SET ZTDESC="Transmit Surgery Risk Assessments"

           SET SRRTN="^SROATMIT"

           SET ZTRTN="JOB^SRONITE"

           SET ZTIO=""

           SET ZTSAVE("SRRTN")=""

           DO ^%ZTLOAD

 +3        IF $DATA(ZTSK)

               WRITE !!,"Queued as task #"_ZTSK

 +4        DO PRESS

           DO ^SRSKILL

           KILL SRRTN

           WRITE @IOF

 +5        QUIT 

PRESS      WRITE !

           KILL DIR

           SET DIR("A")="Press RETURN to continue "

           SET DIR(0)="FOA"

           DO ^DIR

           KILL DIR

 +1        QUIT 

TASK      ;    

 +1       ;;^SRSCRAP;Surgery Files Cleanup

 +2       ;;^SROUTUP;Update Surgery Utilization File

 +3       ;;LOCK^SROLOCK;Lock Surgery Cases

 +4       ;;TASK^SRSAVG;Store Operation Times

 +5       ;;^SROATMIT;Transmit Surgery Risk Assessments

 +6       ;;NIGHT^SRTPTMIT;Transmit Surgery Transplant Assessments

 +7       ;;TASK^SROAWL;Surgery Workload Report

 +8       ;;NIGHT^SROQT;Surgery Quarterly Report

 +9       ;;^SRHLXTMP;Surgery Interface Purge