source: FOIAVistA/trunk/r/CLINICAL_INFO_RESOURCE_NETWORK-MRF-RGE--RG--RGED--RGUT--RGWB/RGEQDMN.m@ 1783

Last change on this file since 1783 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 492 bytes
Line 
1RGEQDMN ;BHM/RGY-DEQUEUE PROCESSOR ;2/17/98
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
3MAIN ;
4 N TYPE,ZTIO,ZTRTN,ZTDESC,ZTDTH,ZTSK
5 L +^RGEQ("MAIN"):1 E Q
6 F D:$$TM^%ZTLOAD Q:$$ESTOP^RGEQDMN1("MAIN") H 15
7 .S TYPE="B"
8 .F S TYPE=$O(^RGEQ(TYPE)) Q:TYPE="" I '$$ESTOP^RGEQDMN1(TYPE) D
9 ..L +^RGEQ(TYPE):1 E Q
10 ..L -^RGEQ(TYPE)
11 ..S ZTREQ="@",ZTIO="",ZTRTN="SUBPROC^RGEQSUB",ZTSAVE("TYPE")="",ZTDTH=$H,ZTDESC="'"_TYPE_"' MPI/PD Subprocess" D ^%ZTLOAD
12 .Q
13 L -^RGEQ("MAIN")
14 Q
Note: See TracBrowser for help on using the repository browser.