RGEQDMN ;BHM/RGY-DEQUEUE PROCESSOR ;2/17/98
;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
MAIN ;
N TYPE,ZTIO,ZTRTN,ZTDESC,ZTDTH,ZTSK
L +^RGEQ("MAIN"):1 E Q
F D:$$TM^%ZTLOAD Q:$$ESTOP^RGEQDMN1("MAIN") H 15
.S TYPE="B"
.F S TYPE=$O(^RGEQ(TYPE)) Q:TYPE="" I '$$ESTOP^RGEQDMN1(TYPE) D
..L +^RGEQ(TYPE):1 E Q
..L -^RGEQ(TYPE)
..S ZTREQ="@",ZTIO="",ZTRTN="SUBPROC^RGEQSUB",ZTSAVE("TYPE")="",ZTDTH=$H,ZTDESC="'"_TYPE_"' MPI/PD Subprocess" D ^%ZTLOAD
.Q
L -^RGEQ("MAIN")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGEQDMN 506 printed Dec 13, 2024@01:41:34 Page 2
RGEQDMN ;BHM/RGY-DEQUEUE PROCESSOR ;2/17/98
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
MAIN ;
+1 NEW TYPE,ZTIO,ZTRTN,ZTDESC,ZTDTH,ZTSK
+2 LOCK +^RGEQ("MAIN"):1
IF '$TEST
QUIT
+3 FOR
if $$TM^%ZTLOAD
Begin DoDot:1
+4 SET TYPE="B"
+5 FOR
SET TYPE=$ORDER(^RGEQ(TYPE))
if TYPE=""
QUIT
IF '$$ESTOP^RGEQDMN1(TYPE)
Begin DoDot:2
+6 LOCK +^RGEQ(TYPE):1
IF '$TEST
QUIT
+7 LOCK -^RGEQ(TYPE)
+8 SET ZTREQ="@"
SET ZTIO=""
SET ZTRTN="SUBPROC^RGEQSUB"
SET ZTSAVE("TYPE")=""
SET ZTDTH=$HOROLOG
SET ZTDESC="'"_TYPE_"' MPI/PD Subprocess"
DO ^%ZTLOAD
End DoDot:2
+9 QUIT
End DoDot:1
if $$ESTOP^RGEQDMN1("MAIN")
QUIT
HANG 15
+10 LOCK -^RGEQ("MAIN")
+11 QUIT
