Routine: RGEQDMN

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGEQDMN   506     printed  Apr 09, 2024@20:46:43                                                                                                                                                                                                      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

RGEQDMN.m