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 | |
---|
1 | RGEQDMN ;BHM/RGY-DEQUEUE PROCESSOR ;2/17/98
|
---|
2 | ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
|
---|
3 | MAIN ;
|
---|
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.