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 |