DGNDSU ;DAL/JCH - DEMOGRAPHICS NDS UTILITIES ;06/18/2017
Source file <DGNDSU.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 2 | ASSOCIATED VA RACES ASSOCIATED VA RELIGIONS |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | UPDPTR+35, UPDPTR+37, UPDPTR+38, UPDPTR+42 |
| ^TMP($J | UPDATE+6!, SCANO+17 |
| Name | Line Occurrences |
|---|---|
| SCANM | UPDATE+2 |
| SCANO | UPDATE+4 |
| UPDATE | EN+7 |
| UPDPTR | SCANM+8, SCANO+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASSOC | SCANM+1~, SCANM+5*, SCANM+8 |
| DGACT | UPDPTR~, UPDPTR+21, UPDPTR+36, UPDPTR+41 |
| DGAUDT | SCANO+4~, SCANO+5*, SCANO+6 |
| DGAUGLO | SCANO+4~, SCANO+5*, SCANO+6 |
| DGDA | UPDPTR~ |
| DGDA(1 | UPDPTR+20 |
| DGERR | UPDPTR+14~ |
| DGERROR | SCANO+14~ |
| DGFDA | UPDPTR+13~ |
| DGFDA( | UPDPTR+39*, UPDPTR+43* |
| DGFILE | UPDPTR~, UPDPTR+21, UPDPTR+26, UPDPTR+35, UPDPTR+37, UPDPTR+38, UPDPTR+39, UPDPTR+42, UPDPTR+43 |
| DGFL | EN+1~, EN+7* |
| DGMFILE | UPDPTR+10~, UPDPTR+28*, UPDPTR+29, UPDPTR+32 |
| DGMIEN | UPDPTR+15~, UPDPTR+20*, UPDPTR+21, UPDPTR+38, UPDPTR+39, UPDPTR+42 |
| DGMSUB | UPDPTR+12~, UPDPTR+32*, UPDPTR+33 |
| DGNDSGLO | UPDPTR+11~, UPDPTR+27*, UPDPTR+28 |
| DGNDSGLO("POINTER" | UPDPTR+27 |
| DGRESULT | SCANO+14~ |
| DGRESULT("DILIST" | SCANO+23 |
| DGVAIEN | UPDPTR+16~, UPDPTR+35*, UPDPTR+37, UPDPTR+38, UPDPTR+39, UPDPTR+42, UPDPTR+43 |
| DGVAMPTR | UPDPTR+17~, UPDPTR+37*, UPDPTR+38 |
| DGVANAM | UPDPTR~, UPDPTR+21, UPDPTR+22 |
| DGVANAMS | UPDPTR+18~, UPDPTR+22*, UPDPTR+35 |
| MERR | SCANM+1~ |
| MFILE | SCANM+1~, SCANM+4*, SCANO+4~, SCANO+11*, SCANO+19, SCANO+21 |
| MFILESUB | SCANO+14~, SCANO+21*, SCANO+22 |
| MGLO | SCANM+1~, SCANM+3*, SCANM+4, SCANM+5, SCANM+6, SCANO+4~, SCANO+10*, SCANO+11 |
| MGLO("POINTER" | SCANM+3, SCANO+10 |
| MIEN | SCANM+1~, SCANM+6*, SCANM+7, SCANM+8 |
| MIEN(1 | SCANM+7* |
| MNAME | SCANO+14~, SCANO+20* |
| MPTR | SCANO+4~, SCANO+13*, SCANO+19, SCANO+22, SCANO+23 |
| ODA | SCANO+14~, SCANO+23 |
| ODA(1 | SCANO+23* |
| OERR | SCANO+4~ |
| OFILE | UPDATE~, UPDATE+2, UPDATE+4, SCANM~, SCANM+2, SCANM+8, SCANO~, SCANO+6, SCANO+7, SCANO+9 , SCANO+15, SCANO+23 |
| OFILIEN | SCANO+4~, SCANO+12*, SCANO+13, SCANO+15, SCANO+17 |
| OGLO | SCANO+4~, SCANO+8*, SCANO+12, SCANO+13 |
| OGLO("GLOBAL | NAME" , SCANO+8 |
| ONAME | SCANO+14~, SCANO+16*, SCANO+22, SCANO+23 |
| RESULT | SCANO+18! |
| RESULT("DILIST" | SCANO+16, SCANO+20 |
| XUMF | EN+1~, EN+6* |
| ZTDESC | QUE+1~, QUE+4* |
| ZTDTH | QUE+1~, QUE+5* |
| >> ZTIO | QUE+6* |
| ZTRTN | QUE+1~, QUE+3* |
