|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 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.
