PRCVRCA ;WOIFO/SC-SEND RIL CANCELLATION TO DYNAMED ; 5/31/05 2:24pm
Source file <PRCVRCA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PRCVDA) | ;
; Input PRCVDA = ien of top entry of the file |
|
| ITEM | ;
|
|
| SETUP | ;set up XTMP ITEM node(S) & UPDATE audit file for each item on a RIL
|
|
| SETUP0 | ;set up XTMP 0 node
|
|
| SETUP1 | ;set up XTMP 1 node
|
|
| IDBULET | ; send a bulletin if DM DOC ID is missing
|
|
| RDBULET | ;if record is missing from file 414.02
|
|
| EXIT | ;kill variables and quit
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^PRCS(410.3 - [#410.3] | GET1^DIQ |
| 410.31 | GETS^DIQ |
