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 ---[H[J[2J[HSRONITE 1043 printed Nov 22, 2024@17:54:15 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
