VPSRPC21 ;;DALOI/KML,WOIFO/BT - Update of Patient Demographics RPC (Continue from VPSRPC2) ;11/20/11 15:30
Source file <VPSRPC21.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 |
|---|---|---|
| ADDRVAL(PTIEN,REC,REQLST,ILST,VRES) | ; validate for required fields for address sets
; INPUT - all input parameters except PTIEN passed in by reference ; PTIEN = DFN ; REC = incremental number assigned to each subscript built in the OUTPUT array ; REQLST = array to be used when validating the required address sets ; ILST = data passed in by Vecna (VPSLST array) ; OUTPUT ; VRES = the array to return the results of ADDRESS validation processing. Exceptions (only) made available as RPC output for client |
|
| PERMVAL(REQLST,ILST,ER) | ;validate country and zip code for permanent address
; INPUT - all input parameters passed in by reference ; REQLST = array to be used when validating the required address sets ; ILST = data passed in by Vecna (VPSLST array) ; OUTPUT ; ER = array of Error Message or Empty (No error) ; RETURN ; 1 = success ; 0 = failed |
|
| GETZIP(CITY,COUNTY,STATE,XIP,ZIPIDX) | ;get the index of XIP of permanent address
; INPUT ; CITY = City sent by VecNa ; COUNTY = County sent by VecNa ; STATE = State sent by VecNa ; XIP = VistA Zip Code information in array (multiple entries could exist for a zipcode) ; OUTPUT ; ZIPIDX = The selected Index of XIP containing the ZIP CODE information ; RETURN ; 0 = City, State, County, Country have perfect match between Vecna and Vista ; 1 = City/County/state/country doesn't match, require update ; -1 = State sent by Vecna doesn't match VistA based on the ZipCode ; -2 = Can't find default city for the zipcode |
|
| UPDZIP(ZIPIDX,XIP,REQLST,ILST) | ; Change city, county, state, country of permanent address to match VistA
; INPUT ; ZIPIDX = The selected Index of XIP containing the ZIP CODE information ; XIP = VistA Zip Code information in array (multiple entries could exist for a zipcode) ; OUTPUT ; REQLST = array to be used when validating the required address sets - will be updated based on VistA ZIP Code ; ILST = data passed in by Vecna (VPSLST array) - will be updated based on VistA ZIP Code |
|
| CLRPERM(REQLST,ILST) | ;clear permanent address
; INPUT - all input parameters passed in by reference ; REQLST = array to be used when validating the required address sets ; OUTPUT ; ILST = data passed in by Vecna (VPSLST array) to be cleared so no update will happen |
|
| CLRCCS(REQLST,ILST) | ;clear zipcode, city, state, county from processing
; INPUT - all input parameters passed in by reference ; REQLST = array to be used when validating the required address sets ; OUTPUT ; ILST = data passed in by Vecna (VPSLST array) to be cleared so no update will happen |
|
| ADDERR(REC,VRES,ER) | ;Add error to the result array
; INPUT - all input parameters passed in by reference ; ER = Error Message to be returned to vecna ; REC = incremental number assigned to each subscript built in the OUTPUT array ; OUTPUT ; VRES = the array to return the results of ADDRESS validation processing. Exceptions (only) made available as RPC output for client |
|
| TEMPVAL(PTIEN,REQLST,ILIST,ER) | ; validate temporary address
; INPUT - all input parameters except PTIEN passed in by reference ; PTIEN = DFN ; REQLST = array to be used when validating data ; ILIST = data passed in by Vecna (VPSLST array) ; OUTPUT ; ER = array of Error Message or Empty (No error) ; RETURN ; 1 = success ; 0 = failed |
|
| USVAL(REQLST,ER) | ;validate US Address
; INPUT - all input parameters except PTIEN passed in by reference ; REQLST = array to be used when validating data ; OUTPUT ; ER = array of Error Message or Empty (No error) |
|
| NONUSVAL(REQLST,ER) | ; validate foreign address
; INPUT - all input parameters except PTIEN passed in by reference ; REQLST = array to be used when validating data ; OUTPUT ; ER = array of Error Message or Empty (No error) |
|
| CLRTEMP(REQLST,ILST) | ;clear temporary address
; INPUT - all input parameters passed in by reference ; REQLST = array to be used when validating the required address sets ; OUTPUT ; ILST = data passed in by Vecna (VPSLST array) to be cleared so no update will happen |
| Name | Line Occurrences |
|---|---|
| $$GETZIP | PERMVAL+37 |
| $$PERMVAL | ADDRVAL+11 |
| $$TEMPVAL | ADDRVAL+16 |
| ADDERR | ADDRVAL+12, ADDRVAL+17 |
| CLRCCS | PERMVAL+26 |
| CLRPERM | ADDRVAL+13 |
| CLRTEMP | ADDRVAL+18 |
| NONUSVAL | TEMPVAL+25 |
| UPDZIP | PERMVAL+40 |
| USVAL | TEMPVAL+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CITY | PERMVAL+34~*, PERMVAL+37, GETZIP~, GETZIP+18, GETZIP+22 |
| COUNTRY | PERMVAL+18~*, PERMVAL+19, PERMVAL+21, TEMPVAL+18~*, TEMPVAL+19, TEMPVAL+20, TEMPVAL+23 |
| COUNTY | PERMVAL+36~*, PERMVAL+37, GETZIP~, GETZIP+22 |
| EFLG | PERMVAL+37~*, PERMVAL+38, PERMVAL+39, PERMVAL+40 |
| ER | ADDRVAL+9~, ADDRVAL+11, ADDRVAL+12, ADDRVAL+16, ADDRVAL+17, PERMVAL~, PERMVAL+11!, PERMVAL+20, PERMVAL+42, ADDERR~ , TEMPVAL~, TEMPVAL+11!, TEMPVAL+24, TEMPVAL+25, TEMPVAL+26, USVAL~, NONUSVAL~ |
| ER( | ADDERR+8, USVAL+12*, NONUSVAL+12* |
| ER(1 | PERMVAL+19*, PERMVAL+30*, PERMVAL+38*, PERMVAL+39*, TEMPVAL+19* |
| FLD | PERMVAL+14~*, UPDZIP+12~, UPDZIP+13*, UPDZIP+14, UPDZIP+17, UPDZIP+18, CLRPERM+6~, CLRPERM+7*, CLRCCS+6~, CLRCCS+7* , USVAL+9~, USVAL+10*, USVAL+12, NONUSVAL+9~, NONUSVAL+10*, NONUSVAL+12, CLRTEMP+6~, CLRTEMP+7* |
| IDX | GETZIP+18~*, GETZIP+28*, ADDERR+7~*, ADDERR+8*, USVAL+6~*, USVAL+11*, USVAL+12, NONUSVAL+6~*, NONUSVAL+11*, NONUSVAL+12 |
| ILIST | TEMPVAL~ |
| ILST | ADDRVAL~, ADDRVAL+11, ADDRVAL+13, ADDRVAL+16, ADDRVAL+18, PERMVAL~, PERMVAL+26, PERMVAL+40, UPDZIP~, CLRPERM~ , CLRCCS~, CLRTEMP~ |
| ILST( | UPDZIP+18*, CLRPERM+7!, CLRCCS+7!, CLRTEMP+7! |
| ILST("" | UPDZIP+16 |
| NUM | TEMPVAL+14~* |
| OK | ADDRVAL+9~, ADDRVAL+11*, ADDRVAL+12, ADDRVAL+13, ADDRVAL+16*, ADDRVAL+17, ADDRVAL+18 |
| PERM | PERMVAL+13~*, PERMVAL+14*, PERMVAL+15 |
| PTIEN | ADDRVAL~, ADDRVAL+16, TEMPVAL~, TEMPVAL+29 |
| REC | ADDRVAL~, ADDRVAL+12, ADDRVAL+17, ADDERR~, ADDERR+8* |
| RECNO | UPDZIP+14~*, UPDZIP+15, UPDZIP+16*, UPDZIP+17, UPDZIP+18, CLRPERM+6~, CLRPERM+7*, CLRCCS+6~, CLRCCS+7*, CLRTEMP+6~ , CLRTEMP+7* |
| REQLST | ADDRVAL~, ADDRVAL+11, ADDRVAL+13, ADDRVAL+16, ADDRVAL+18, PERMVAL~, PERMVAL+26, PERMVAL+40, UPDZIP~, CLRPERM~ , CLRCCS~, TEMPVAL~, TEMPVAL+24, TEMPVAL+25, USVAL~, NONUSVAL~, CLRTEMP~ |
| REQLST( | PERMVAL+14, PERMVAL+18, PERMVAL+25, PERMVAL+34, PERMVAL+35, PERMVAL+36, UPDZIP+8*, UPDZIP+9*, UPDZIP+10*, UPDZIP+14 , UPDZIP+17*, UPDZIP+18, CLRPERM+7, CLRCCS+7, TEMPVAL+14, TEMPVAL+18, TEMPVAL+19, USVAL+10, USVAL+12, NONUSVAL+10 , NONUSVAL+12, CLRTEMP+7 |
| RET | GETZIP+14~*, GETZIP+22*, GETZIP+23*, GETZIP+24*, GETZIP+28*, GETZIP+29*, GETZIP+31 |
| STATE | PERMVAL+35~*, PERMVAL+37, GETZIP~, GETZIP+22, GETZIP+23, GETZIP+29 |
| TEMP | TEMPVAL+12~*, TEMPVAL+14*, TEMPVAL+15 |
| U | PERMVAL+14, PERMVAL+18, PERMVAL+25, PERMVAL+34, PERMVAL+35, PERMVAL+36, UPDZIP+8, UPDZIP+9, UPDZIP+10, UPDZIP+14 , UPDZIP+17, UPDZIP+18, CLRPERM+7, CLRCCS+7, TEMPVAL+14, TEMPVAL+18, TEMPVAL+19, USVAL+10, USVAL+12, NONUSVAL+10 , NONUSVAL+12, CLRTEMP+7 |
| USAADDR | PERMVAL+21~*, PERMVAL+22, TEMPVAL+23~*, TEMPVAL+24, TEMPVAL+25 |
| VPSFDA | TEMPVAL+29~ |
| VPSFDA(2 | TEMPVAL+29* |
| VRES | ADDRVAL~, ADDRVAL+12, ADDRVAL+17, ADDERR~ |
| VRES( | ADDERR+8* |
| XIP | PERMVAL+29~, PERMVAL+30, PERMVAL+31, PERMVAL+37, PERMVAL+40, GETZIP~, GETZIP+18, GETZIP+28, UPDZIP~ |
| XIP( | GETZIP+18, GETZIP+22, GETZIP+23, GETZIP+28, GETZIP+29, UPDZIP+8, UPDZIP+9, UPDZIP+10 |
| XIP("ERROR" | PERMVAL+30 |
| ZIP | PERMVAL+25~*, PERMVAL+26, PERMVAL+27, PERMVAL+29 |
| ZIPIDX | PERMVAL+37, PERMVAL+40, GETZIP~, GETZIP+15*, GETZIP+18*, GETZIP+21, GETZIP+22, GETZIP+23, GETZIP+27, GETZIP+28* , GETZIP+29, UPDZIP~, UPDZIP+8, UPDZIP+9, UPDZIP+10 |
