SRONITE.m

SRONITE ;BIR/MAM - NIGHTLY BACKGROUND TASK ;07/06/2011

 ;;3.0;Surgery;**47,58,62,41,86,142,167,175,176,184**;24 Jun 93;Build 35

 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

 ;;TASK^SROAWL;Surgery Workload Report

 ;;^SRHLXTMP;Surgery Interface Purge

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SRONITE   1043     printed  Apr 09, 2024@21:49:47                                                                                                                                                                                                     Page 2

SRONITE   ;BIR/MAM - NIGHTLY BACKGROUND TASK ;07/06/2011

 +1       ;;3.0;Surgery;**47,58,62,41,86,142,167,175,176,184**;24 Jun 93;Build 35

 +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       ;;TASK^SROAWL;Surgery Workload Report

 +7       ;;^SRHLXTMP;Surgery Interface Purge