PRCVTCA ;WOIFO/SC-2237 CANCEL TO DYNAMED ; 5/31/05 2:31pm
Source file <PRCVTCA.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
|
|
| BULLET | ;Send a bulletin if record is missing from audit file
|
|
| EXIT | ;kill variables and quit
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^PRCS(410 - [#410] | GET1^DIQ |
| 410.02 | GET1^DIQ, GETS^DIQ |
| ^PRC(440 - [#440] | GET1^DIQ |
| ^PRC(441 - [#441] | GET1^DIQ |
| 441.01 | GET1^DIQ |
