XUPSGS ;ALB/CMC - GET, COMPARE/SET FOR FILE 200;DEC 31 2008
Source file <XUPSGS.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(EN,ARRAY) | ;GET DATA FROM FILE 200 AND SET INTO ARRAY
|
|
| UPD(EN,ARRAY,ERROR) | ;update New Person entry EN
; Input: EN is the IEN in file 200 to be updated ; ARRAY is an array with the values to be updated ; ERROR is an array that will return any error messages for any field that fails to update ; Returns: -1^error text if unsuccessful ; 0 if OK - doesn't mean ERROR isn't defined |
|
| LOGERR(XUERR) | ;build error array from fileman's error array
|
|
| BLDFDA(NEWCOR,COR,FDA) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | GET+25, BLDFDA+24, BLDFDA+25 |
| ^VA(200 - [#200] | GET+6, GET+28, GET+29, GET+30, GET+31, UPD+11, UPD+13, UPD+19, UPD+21 |
| Name | Line Occurrences |
|---|---|
| BLDFDA | UPD+15 |
| LOGERR | UPD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | GET~, UPD~, UPD+15 |
| ARRAY("DOB" | GET+18* |
| ARRAY("EnumerateComp" | GET+31* |
| ARRAY("EnumerateStart" | GET+30* |
| ARRAY("FirstName" | GET+14* |
| ARRAY("Gender" | GET+19* |
| ARRAY("MiddleName" | GET+15* |
| ARRAY("NPI" | GET+28* |
| ARRAY("PAID" | GET+29* |
| ARRAY("Prefix" | GET+16* |
| ARRAY("ResAddCity" | GET+24* |
| ARRAY("ResAddL1" | GET+21* |
| ARRAY("ResAddL2" | GET+22* |
| ARRAY("ResAddL3" | GET+23* |
| ARRAY("ResAddState" | GET+25* |
| ARRAY("ResAddZip4" | GET+26* |
| ARRAY("ResPhone" | GET+27* |
| ARRAY("SSN" | GET+20* |
| ARRAY("SourceID" | GET+10* |
| ARRAY("SourceSystemID" | GET+9* |
| ARRAY("SourceSystemIEN" | GET+8* |
| ARRAY("Suffix" | GET+17* |
| ARRAY("Surname" | GET+13* |
| CNT | GET+4~, UPD+7~ |
| COR | GET+4~, UPD+7~, UPD+15, BLDFDA~ |
| COR( | GET+6*, GET+7, GET+11, GET+18, GET+19, GET+20, GET+21, GET+22, GET+23, GET+24 , GET+25, GET+26, GET+27, UPD+13*, BLDFDA+5, BLDFDA+7, BLDFDA+10, BLDFDA+13, BLDFDA+16, BLDFDA+18 , BLDFDA+20, BLDFDA+22, BLDFDA+24, BLDFDA+27, BLDFDA+30 |
| E | LOGERR+1~, LOGERR+2*, LOGERR+3* |
| ECNT | UPD+7~, UPD+19, LOGERR+1~, LOGERR+2*, LOGERR+3* |
| EN | GET~, GET+5, GET+6, GET+7, GET+10, GET+11, GET+16, GET+18, GET+19, GET+20 , GET+21, GET+22, GET+23, GET+24, GET+25, GET+26, GET+27, GET+28, GET+29, GET+30 , GET+31, UPD~, UPD+9, UPD+11, UPD+13, UPD+19, UPD+21, BLDFDA+5, BLDFDA+7, BLDFDA+8 , BLDFDA+10, BLDFDA+11, BLDFDA+13, BLDFDA+14, BLDFDA+16, BLDFDA+17, BLDFDA+18, BLDFDA+19, BLDFDA+20, BLDFDA+22 , BLDFDA+23, BLDFDA+24, BLDFDA+26, BLDFDA+27, BLDFDA+28, BLDFDA+30, BLDFDA+31 |
| ERROR | GET+5*, GET+7*, UPD~, UPD+8!, UPD+9*, UPD+19* |
| ERROR( | LOGERR+3* |
| FDA | UPD+7~, UPD+15, UPD+17, BLDFDA~, BLDFDA+2! |
| FDA(200 | BLDFDA+5*, BLDFDA+8*, BLDFDA+11*, BLDFDA+14*, BLDFDA+17*, BLDFDA+19*, BLDFDA+21*, BLDFDA+23*, BLDFDA+26*, BLDFDA+28* , BLDFDA+31* |
| FLDCNT | UPD+7~, UPD+19 |
| IDCNT | UPD+7~ |
| IEN | UPD+7~, UPD+19, BLDFDA+21 |
| MIEN | UPD+7~ |
| MPIERR | UPD+7~ |
| NAME | GET+4~, GET+12*, GET+13, GET+14, GET+15, GET+17 |
| NAME2 | GET+4~, GET+11*, GET+12 |
| NAMEDIT | UPD+7~ |
| NEWCOR | BLDFDA~ |
| NEWCOR("DOB" | BLDFDA+7, BLDFDA+8 |
| NEWCOR("FirstName" | BLDFDA+4 |
| NEWCOR("Gender" | BLDFDA+10, BLDFDA+11 |
| NEWCOR("MiddleName" | BLDFDA+4 |
| NEWCOR("NAME" | BLDFDA+4*, BLDFDA+5 |
| NEWCOR("ResAddCity" | BLDFDA+22, BLDFDA+23 |
| NEWCOR("ResAddL1" | BLDFDA+16, BLDFDA+17 |
| NEWCOR("ResAddL2" | BLDFDA+18, BLDFDA+19 |
| NEWCOR("ResAddL3" | BLDFDA+20, BLDFDA+21 |
| NEWCOR("ResAddState" | BLDFDA+24, BLDFDA+25 |
| NEWCOR("ResAddZip4" | BLDFDA+27, BLDFDA+28 |
| NEWCOR("ResPhone" | BLDFDA+30, BLDFDA+31 |
| NEWCOR("SSN" | BLDFDA+13, BLDFDA+14 |
| NEWCOR("Suffix" | BLDFDA+4 |
| NEWCOR("Surname" | BLDFDA+4 |
| RESSTIEN | BLDFDA+25~*, BLDFDA+26 |
| RET | UPD+7~ |
| TFUPDATE | UPD+7~ |
| XUERR | UPD+17, LOGERR~ |
| XUERR("DIERR" | UPD+17, LOGERR+3 |
