XUPSPAID ;CS/GRR/RAM/DW - New Person file Update & Report ; 1 Jan 2004
Source file <XUPSPAID.m>
| Package | Total | Caller Graph |
|---|---|---|
| Kernel | 2 | XUPS PREUPDATE NPF REPORTS XUPS UPDATE NEW PERSON FILE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; - entry point
|
|
| HD(NODE) | ; -- Report header
|
|
| UPDSEX | ;Update SEX if NPF SEX is null
|
|
| UPDDOB | ;Update DOB if NPF DOB is null
|
|
| RECORD | ;Process the record
|
|
| EN1 | ;
|
|
| FL1(NODE,DATA) | ; -- format line
|
|
| DOB(DOB) | ; format DOB
|
|
| QUE | ;Que the task
|
|
| REPORT | ;Pre-update reports
|
|
| NAME(NAME) | ; Return "LastName,FirstName".
|
|
| XM(XMSUB,X) | ;Email the report
|
|
| PSDT() | ; format date
|
|
| HD1(NODE) | ; -- Report header
|
|
| FL(NODE,DATA) | ; -- format line
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | PSDT+4 |
| NOW^%DTC | PSDT+4 |
| HOME^%ZIS | QUE+9 |
| ^%ZISC | QUE+9 |
| ^%ZTLOAD | QUE+8 |
| ^DIE | UPDSEX+7, UPDDOB+7 |
| ^DIR | EN+14 |
| $$FORMAT^XLFNAME7 | NAME+7 |
| $$CJ^XLFSTR | HD+18, HD+27, HD+36, FL+19, FL+29, HD1+29, FL1+16 |
| $$LJ^XLFSTR | HD+17, HD+19, HD+20, HD+26, HD+28, HD+29, HD+35, HD+37, HD+38, FL+18 , FL+20, FL+21, FL+28, FL+30, FL+31, HD1+18, HD1+19, HD1+20, HD1+21, HD1+27 , HD1+28, HD1+30, FL1+14, FL1+15, FL1+18 |
| $$RJ^XLFSTR | HD+21, HD+30, HD+39, FL+22, FL+32, HD1+22, HD1+31, FL1+19 |
| ^XMD | XM+7 |
| NOTICE^XUPSPD1 | EN1+21 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRSPC( | EN1+17, RECORD+7, RECORD+13 |
| ^TMP( | HD+4*, HD+8*, HD+10*, HD+12*, HD+15*, HD+24*, HD+33*, HD+42*, HD+45*, FL+25* , FL+35*, FL+38*, HD1+5*, HD1+9*, HD1+11*, HD1+13*, HD1+16*, HD1+25*, HD1+34*, HD1+37* , FL1+22*, FL1+25* |
| ^TMP("XUPS DIFF" | EN1+5!, REPORT+13*, REPORT+15*, REPORT+17*, REPORT+19*, REPORT+21*, REPORT+23*, REPORT+48! |
| ^TMP("XUPS PAID" | EN1+4!, REPORT+8, REPORT+9, REPORT+29, REPORT+30, REPORT+47!, RECORD+37*, RECORD+43*, RECORD+49*, RECORD+55* , RECORD+61* |
| ^TMP("XUPS UPD" | EN1+6!, REPORT+34*, REPORT+36*, REPORT+38*, REPORT+40*, REPORT+42*, REPORT+49! |
| ^VA(200 - [#200] | RECORD+22, RECORD+23 |
| Name | Line Occurrences |
|---|---|
| $$DOB | FL+20, FL+30, FL1+18 |
| $$NAME | RECORD+35 |
| FL | REPORT+10 |
| FL1 | REPORT+31 |
| HD | REPORT+6 |
| HD1 | REPORT+27 |
| QUE | EN+17 |
| RECORD | EN1+17 |
| REPORT | EN1+23 |
| UPDDOB | RECORD+57 |
| UPDSEX | RECORD+45 |
| XM | REPORT+44, REPORT+45 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PSDT+2~, PSDT+4, XM+2~ |
| C1 | HD+1~, HD+17*, HD+24, HD+26*, HD+33, HD+35*, HD+42, FL+15~, FL+18*, FL+25 , FL+28*, FL+35, HD1+2~, HD1+18*, HD1+25, HD1+27*, HD1+34, FL1+11~, FL1+14*, FL1+22 |
| C2 | HD+1~, HD+18*, HD+24, HD+27*, HD+33, HD+36*, HD+42, FL+15~, FL+19*, FL+25 , FL+29*, FL+35, HD1+2~, HD1+19*, HD1+25, HD1+28*, HD1+34, FL1+11~, FL1+15*, FL1+22 |
| C3 | HD+1~, HD+19*, HD+24, HD+28*, HD+33, HD+37*, HD+42, FL+15~, FL+20*, FL+25 , FL+30*, FL+35, HD1+2~, HD1+20*, HD1+25, HD1+29*, HD1+34, FL1+11~, FL1+16*, FL1+22 |
| C4 | HD+1~, HD+20*, HD+24, HD+29*, HD+33, HD+38*, HD+42, FL+15~, FL+21*, FL+25 , FL+31*, FL+35, HD1+2~, HD1+21*, HD1+25, HD1+30*, HD1+34, FL1+11~, FL1+17*, FL1+18* , FL1+22 |
| C5 | HD+1~, HD+21*, HD+24, HD+30*, HD+33, HD+39*, HD+42, FL+15~, FL+22*, FL+25 , FL+32*, FL+35, HD1+2~, HD1+22*, HD1+25, HD1+31*, HD1+34, FL1+11~, FL1+19*, FL1+22 |
| CNT | REPORT+2~, REPORT+3*, REPORT+12*, REPORT+13, REPORT+14*, REPORT+15, REPORT+16*, REPORT+17, REPORT+18*, REPORT+19 , REPORT+20*, REPORT+21, REPORT+22*, REPORT+23, REPORT+26*, REPORT+33*, REPORT+34, REPORT+35*, REPORT+36, REPORT+37* , REPORT+38, REPORT+39*, REPORT+40, REPORT+41*, REPORT+42, HD+3*, HD+4, HD+7*, HD+8, HD+9* , HD+10, HD+11*, HD+12, HD+14*, HD+15, HD+23*, HD+24, HD+32*, HD+33, HD+41* , HD+42, HD+44*, HD+45, FL+24*, FL+25, FL+34*, FL+35, FL+37*, FL+38, HD1+4* , HD1+5, HD1+8*, HD1+9, HD1+10*, HD1+11, HD1+12*, HD1+13, HD1+15*, HD1+16, HD1+24* , HD1+25, HD1+33*, HD1+34, HD1+36*, HD1+37, FL1+21*, FL1+22, FL1+24*, FL1+25 |
| CNTD | REPORT+2~, REPORT+3*, REPORT+11*, REPORT+23 |
| CNTG | REPORT+2~, REPORT+3* |
| CNTU | REPORT+2~, REPORT+3*, REPORT+32*, REPORT+42 |
| DA | UPDSEX+3~, UPDSEX+4*, UPDDOB+3~, UPDDOB+4* |
| DATA | REPORT+2~, REPORT+9*, REPORT+10, REPORT+30*, REPORT+31, RECORD+2~, RECORD+13*, RECORD+14, RECORD+15, RECORD+16 , RECORD+17, RECORD+22*, RECORD+24, RECORD+25, RECORD+26, RECORD+30*, RECORD+31*, RECORD+37, RECORD+49, RECORD+61 , FL~, FL+5, FL+6, FL+7, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13 , FL1~, FL1+4, FL1+5, FL1+6, FL1+8, FL1+9 |
| DATA1 | REPORT+2~, RECORD+2~, RECORD+33*, RECORD+41*, RECORD+43, RECORD+53*, RECORD+55 |
| DIE | UPDSEX+3~, UPDSEX+4*, UPDDOB+3~, UPDDOB+4* |
| DIFROM | XM+2~ |
| DIR | EN+14! |
| DIR("?" | EN+13* |
| DIR("A" | EN+12* |
| DIR("B" | EN+12* |
| DIR(0 | EN+12* |
| DIRUT | EN+2~, EN+15 |
| DOB | DOB~, DOB+2, DOB+4 |
| DR | UPDSEX+3~, UPDSEX+6*, UPDDOB+3~, UPDDOB+6* |
| DUZ | XM+5 |
| ERR | QUE+1~ |
| IEN | EN1+1~, EN1+16*, EN1+17*, REPORT+2~, REPORT+7*, REPORT+8*, REPORT+9, REPORT+28*, REPORT+29*, REPORT+30 , RECORD+7, RECORD+13 |
| IEN200 | RECORD+2~, RECORD+7*, RECORD+9, RECORD+22, RECORD+23, RECORD+31, RECORD+33, RECORD+37, RECORD+43, RECORD+49 , RECORD+55, RECORD+61, UPDSEX+4, UPDDOB+4 |
| IOP | QUE+1~ |
| NAME | NAME~, NAME+7 |
| NODE | HD~, HD+4, HD+6, HD+8, HD+10, HD+12, HD+15, HD+24, HD+33, HD+42 , HD+45, FL~, FL+25, FL+35, FL+38, HD1~, HD1+5, HD1+7, HD1+9, HD1+11 , HD1+13, HD1+16, HD1+25, HD1+34, HD1+37, FL1~, FL1+22, FL1+25 |
| NPFDOB | RECORD+4~, RECORD+25*, RECORD+30, RECORD+52, RECORD+59, FL+2~, FL+7*, FL+20, FL1+2~, FL1+8* , FL1+17, FL1+18, UPDDOB+5 |
| NPFIEN | FL+2~, FL+9*, FL+22, FL1+2~, FL1+9*, FL1+19 |
| NPFNM | RECORD+4~, RECORD+23*, RECORD+30, RECORD+33, RECORD+35, FL+2~, FL+5*, FL+18, FL1+2~, FL1+5* , FL1+15 |
| NPFSEX | RECORD+4~, RECORD+24*, RECORD+30, RECORD+40, RECORD+47, FL+2~, FL+6*, FL+19, FL1+2~, FL1+6* , FL1+7*, FL1+16, UPDSEX+5 |
| NPFSSN | RECORD+4~, RECORD+26*, RECORD+28, RECORD+30, RECORD+33, FL+2~, FL+8*, FL+21, FL1+2~, FL1+4* , FL1+14 |
| PAIDDOB | RECORD+15*, RECORD+31, RECORD+51, RECORD+53, RECORD+59, FL+3~, FL+12*, FL+30 |
| PAIDNM | RECORD+3~, RECORD+14*, RECORD+31, RECORD+35, FL+3~, FL+10*, FL+28 |
| PAIDOB | RECORD+3~ |
| PAIDSEX | RECORD+3~, RECORD+17*, RECORD+19*, RECORD+31, RECORD+39, RECORD+41, RECORD+47, FL+3~, FL+11*, FL+29 |
| PAIDSSN | RECORD+3~, RECORD+16*, RECORD+28, RECORD+31, FL+3~, FL+13*, FL+31 |
| POP | QUE+1~ |
| RESULT | NAME+2~, NAME+4*, NAME+10*, NAME+12 |
| STDNM | NAME+2~, NAME+7*, NAME+10 |
| U | RECORD+23, RECORD+30, RECORD+31, RECORD+33, RECORD+41, RECORD+53, FL+5, FL+6, FL+7, FL+8 , FL+9, FL+10, FL+11, FL+12, FL+13, FL1+4, FL1+5, FL1+6, FL1+8, FL1+9 |
| X | EN+2~, QUE+1~, XM~, XM+6 |
| XMDUZ | XM+4~, XM+5* |
| XMSUB | XM~ |
| XMTEXT | XM+4~, XM+6* |
| XMY | XM+4~ |
| XMY( | XM+5* |
| XUNPFT | EN1+1~, EN1+2*, EN1+19, RECORD+10* |
| XUPSACT | EN+4, EN+19!, QUE+6, QUE+7, EN1+21, RECORD+44, RECORD+56, UPDSEX+1, UPDDOB+1 |
| XUPSDIFF | EN1+1~ |
| XUPSDIFF("DOB" | EN1+11*, REPORT+21, RECORD+60* |
| XUPSDIFF("NAME" | EN1+9*, REPORT+17, RECORD+36* |
| XUPSDIFF("SEX" | EN1+10*, REPORT+19, RECORD+48* |
| XUPSDIFF("SSN" | EN1+8* |
| XUPSUPD | EN1+1~ |
| XUPSUPD("DOB" | EN1+14*, REPORT+40, RECORD+54* |
| XUPSUPD("SEX" | EN1+13*, REPORT+38, RECORD+42* |
| XUT | EN1+1~, EN1+21 |
| XUT(1 | EN1+19* |
| XUT(2 | EN1+20* |
| XUUPDT | EN1+1~, EN1+2*, EN1+20, RECORD+46*, RECORD+58* |
| Y | EN+2~, EN+15, PSDT+4*, PSDT+6 |
| ZTDESC | QUE+1~, QUE+6*, QUE+7* |
| ZTIO | QUE+1~, QUE+3* |
| >> ZTQUEUED | XM+2 |
| ZTRTN | QUE+1~, QUE+4* |
| ZTSAVE | QUE+1~ |
| ZTSAVE("XUPSACT" | QUE+5* |
| ZTSK | QUE+1~, QUE+10 |
| ZUSR | QUE+1~ |