DG53970P ;ALB/JAM - REGISTRATION EMERGENCY PATCH POST-INSTALL TO FIX BLANK SSN IN PERSON INCOME FILE ;9/4/2018 3:21pm
Source file <DG53970P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ; Entry Point
|
|
| CLEANUP | ; Entry point
; sweep through 408.13 file looking at SSN field (Piece 9) for values " " OR " P" ; - modify the SSN field to NULL ; - clean up the xrefs ; - get the associated DFN and store it |
|
| XREF(IEN,DGFIL) | ; clean "SSN", "BS" and "BS5" xrefs for this INCOME PERSON file (#408.13) record
|
|
| GETDFN(IEN) | ; retrieve DFN for this IEN from 408.12
|
|
| SENDMSG | ;Send MailMan message when process completes
|
|
| LN() | ;Increment line counter
|
| Name | Line Occurrences |
|---|---|
| $$GETDFN | CLEANUP+27 |
| $$LN | SENDMSG+4, SENDMSG+5, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11, SENDMSG+12, SENDMSG+13 , SENDMSG+14, SENDMSG+15, SENDMSG+16, SENDMSG+17, SENDMSG+18, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23 |
| SENDMSG | CLEANUP+35 |
| XREF | CLEANUP+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CLEANUP+10~, CLEANUP+11, CLEANUP+33 |
| DFN | CLEANUP+10~, CLEANUP+27*, CLEANUP+29, CLEANUP+31, GETDFN+1~, GETDFN+2*, GETDFN+4, GETDFN+13*, GETDFN+14 |
| DGFIL | CLEANUP+10~, CLEANUP+14*, CLEANUP+15, CLEANUP+17, CLEANUP+19, CLEANUP+21, XREF~, XREF+4, XREF+5 |
| DGTEXT | EP+5~, EP+13 |
| DGTEXT(1 | EP+11* |
| DGTEXT(2 | EP+12* |
| DT | CLEANUP+8 |
| DUZ | SENDMSG+2 |
| GLOC | GETDFN+1~, GETDFN+7*, GETDFN+9 |
| IEN | CLEANUP+10~, CLEANUP+14*, CLEANUP+15*, CLEANUP+17, CLEANUP+19, CLEANUP+21, CLEANUP+25, CLEANUP+27, CLEANUP+29, XREF~ , XREF+5, GETDFN~, GETDFN+9 |
| LN | SENDMSG+1~, LN+1*, LN+2 |
| MSG | SENDMSG+1~ |
| MSG( | SENDMSG+4*, SENDMSG+5*, SENDMSG+6*, SENDMSG+7*, SENDMSG+8*, SENDMSG+9*, SENDMSG+10*, SENDMSG+11*, SENDMSG+12*, SENDMSG+13* , SENDMSG+14*, SENDMSG+15*, SENDMSG+16*, SENDMSG+17*, SENDMSG+18*, SENDMSG+19*, SENDMSG+20*, SENDMSG+21*, SENDMSG+22*, SENDMSG+23* |
| PCNT | CLEANUP+10~, CLEANUP+13*, CLEANUP+16*, SENDMSG+15 |
| RELIEN | GETDFN+1~, GETDFN+10*, GETDFN+11, GETDFN+13 |
| SSN | CLEANUP+10~, CLEANUP+17*, CLEANUP+18 |
| SSNCNT | CLEANUP+10~, CLEANUP+13*, CLEANUP+23*, CLEANUP+25, CLEANUP+39, SENDMSG+16 |
| U | CLEANUP+8 |
| VAL | XREF+1~, XREF+3*, XREF+4*, XREF+5, GETDFN+1~, GETDFN+2*, GETDFN+4*, GETDFN+7, GETDFN+10 |
| XIEN | GETDFN+1~, GETDFN+7*, GETDFN+9 |
| XMDUZ | SENDMSG+1~, SENDMSG+3* |
| XMSUB | SENDMSG+1~, SENDMSG+3* |
| XMTEXT | SENDMSG+1~, SENDMSG+2* |
| XMY | SENDMSG+1~ |
| XMY( | SENDMSG+2* |
| XREF | XREF+1~, XREF+2*, XREF+4, XREF+5 |
| Y | CLEANUP+10~, CLEANUP+11*, CLEANUP+12, CLEANUP+33*, CLEANUP+34 |
| ZTDESC | EP+5~, EP+7* |
| ZTDTE | CLEANUP+10~, CLEANUP+34*, CLEANUP+38, SENDMSG+13 |
| ZTDTH | EP+5~, EP+8* |
| ZTDTS | CLEANUP+10~, CLEANUP+12*, CLEANUP+37, SENDMSG+12 |
| ZTIO | EP+5~, EP+9* |
| ZTRTN | EP+5~, EP+6* |
| ZTSK | EP+5~, EP+12 |