RA94PST ;Hines OI/GJC - Post-init Driver, patch 94 ;07/24/08 12:13
Source file <RA94PST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
NEW1AD | ;Check to see if the traditional "AD" cross-reference was deleted.
|
|
CREIXN | ;rebuilds the ""AD"" xref on the PRIMARY DIAGNOSTIC CODE (70.03 - 0;13) field
|
|
BLDMSG | ;failure: we did not create the cross-reference
|
|
; pass the negative results concerning the tasked process
|
FileNo | Call Tags |
---|---|
^DD("IX" - [#.11] | FIND1^DIC |
^DIC(4 - [#4] | GET1^DIQ |
70.03 | DELIXN^DDMOD, DELIX^DDMOD |