Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SRONITE

SRONITE.m

Go to the documentation of this file.
  1. 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
  1. 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
  1. D EN^SROA30
  1. Q
  1. JOB D @SRRTN S ZTREQ="@"
  1. Q
  1. TRANS ; entry to queue risk assessment transmissions manually
  1. W !!,"Transmit Surgery Risk Assessments",!
  1. S ZTDESC="Transmit Surgery Risk Assessments",SRRTN="^SROATMIT",ZTRTN="JOB^SRONITE",ZTIO="",ZTSAVE("SRRTN")="" D ^%ZTLOAD
  1. I $D(ZTSK) W !!,"Queued as task #"_ZTSK
  1. D PRESS,^SRSKILL K SRRTN W @IOF
  1. Q
  1. PRESS W ! K DIR S DIR("A")="Press RETURN to continue ",DIR(0)="FOA" D ^DIR K DIR
  1. Q
  1. TASK ;
  1. ;;^SRSCRAP;Surgery Files Cleanup
  1. ;;^SROUTUP;Update Surgery Utilization File
  1. ;;LOCK^SROLOCK;Lock Surgery Cases
  1. ;;TASK^SRSAVG;Store Operation Times
  1. ;;^SROATMIT;Transmit Surgery Risk Assessments
  1. ;;TASK^SROAWL;Surgery Workload Report
  1. ;;^SRHLXTMP;Surgery Interface Purge