Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: VPSRPC21

Package: VA Point of Service

Routine: VPSRPC21


Information

VPSRPC21 ;;DALOI/KML,WOIFO/BT - Update of Patient Demographics RPC (Continue from VPSRPC2) ;11/20/11 15:30

Source Information

Source file <VPSRPC21.m>

Entry Points

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
Info |  Source |  Entry Points