RA84PRE ;Hines OI/GJC - Pre-init Driver, patch 84 ;01/05/06 06:32
Source file <RA84PRE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point for the pre-install logic
|
|
| XREF | ;REGARDLESS OF WHETHER FILE 78.3 HAS BEEN UPDATED, delete the traditional cross-reference
|
|
| NS | ;Create the new-style cross-reference on the PRIMARY DIAGNOSTIC CODE (70.03,13) field.
|
|
| PCLKUP() | ;PERSON CLASS lookup screened by INACTIVATED field on file 8932.1
|
|
| ERR | ;display the error text associated with our failed event
|
| FileNo | Call Tags |
|---|---|
| ^DD("IX" - [#.11] | FIND1^DIC |
| ^VA(200 - [#200] | FIND1^DIC, GETS^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| 70.03 | DELIX^DDMOD |
| ^USC(8932.1 - [#8932.1] | FIND1^DIC |
