DG53688P ;ALB/CKN,BAJ,ERC - Patch DG*5.3*688 Install Utility Routine ; 8/15/08 12:03pm
Source file <DG53688P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ;Entry point - Driver
|
|
| ISTHERE(FILE,DGDATA,GLOBAL) | ;
|
|
| HECMSG | ; Send message to HEC Legacy that install is complete.
|
|
| 506() | ; Update entry #506 in the INCONSISTENT DATA ELEMENTS file (#38.6)
|
|
| 88() | ; Add entry #88 TEMP. ADDRESS DATA INCOMPLETE
|
|
| ENRSTAT() | ;Add NOT APPLICABLE to the Enrollment Status file (#27.15)
|
|
| NEWSTAT | ;set .01 and .02 fields
; .01 - NOT APPLICABLE ; .02 - N:NOT ENROLLED |
|
| CHKSTAT | ;check to see if existing NOT APPLICABLE entry has "N" for .02 field
|
|
| SETSTAT | ;set .02 field (Enr Category) to "N" (Not Enrolled) on existing N/A entry
|
|
| ERR | ;set error message into DGMSG for installation message
|
|
| MSG(DGB) | ;generate installation message
|
|
| CREF | ;index fuile #35 with new "C" cross reference
|
|
| TEXT | ;FILE#;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....
|
| FileNo | Call Tags |
|---|---|
| ^DIC(35 - [#35] | Classic Fileman Calls |
| ^HLCS(869.3 - [#869.3] | GET1^DIQ |
