DGNDSU ;DAL/JCH - DEMOGRAPHICS NDS UTILITIES ;06/18/2017
Source file <DGNDSU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUE | ; Task off to run in background
|
|
| EN | ; Update Demographics pointers to MASTER files
|
|
| UPDATE(OFILE) | ; Update MASTER FILE multiple (#90) field pointers in legacy file (OFILE).
; Check ASSOCIATED VA <concept> field (#90) in MASTER file, add pointers in OFILE to MASTER file. |
|
| SCANM(OFILE) | ; Get ASSOCIATED VA <concept> field (#99) values from MASTER file MFILE, update pointers in OFILE
|
|
| SCANO(OFILE) | ; Get MASTER <concept> field (#90) values from legacy file OFILE, verify MASTER entry has matching ASSOCIATED entry
; Unless - if the local file (OFILE) entry has NEVER been filed into ANY ASSOCIATED VA <concept> fields, assume it's a local ; (non-standard or orphan) entry in local file OFILE and allow it to be mapped to MASTER. Check Audit trail for OFILE to see ; if MASTER file pointer has ever been updated via MFS process for the OFILE entry, if not, quit and allow it to remain. |
|
| UPDPTR(DGVANAM,DGDA,DGACT,DGFILE) | ; Update MASTER VA <concept> field (#90) in <concept> file
; anytime the ASSOCIATED VA <concept>(S) field (#99) in the MASTER <concept> file (#10.99, 11.99, or 13.99) is updated. ; DGFILE : The VA File Number (#10, #11, or #13) that points to the MASTER file (#10.99, #11.99, #13.99) ; DGXVAL : Value of ASSOCIATED VA <concept>(S) field (#99) in the MASTER <concept> file (#10.99, 11.99, or 13.99). ; DGDA(1) : Value of DA() ; DGDA = ASSOCIATED VA <concept>(S) sub-file (#10.99901, 11.99901, or 13.99901) IEN value ; DGDA(1) = IEN of the entry in the MASTER <concept> (#10.99, 11.99, or 13.99) file. ; DGACT : Action to perform on MASTER <concept> (#90) multiple in <concept> (#10): ; "ADD" = Add a pointer to the DGMIEN entry in MASTER <concept> (#10.99, 11.99, or 13.99) file, if it doesn't already exist ; "DEL" = Delete pointer to the DGMIEN entry in MASTER <concept> (#10.99, 11.99, or 13.99) file, if it exists |
