- 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 Mar 13, 2025@21:49:28 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