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 |