VPS WRITE MRAR PDO (3373)    REMOTE PROCEDURE (8994)

Called by the Vetlink Kiosk system.  The RPC will accept 4 input 
parameters; and will return output when processing completes or ends with 
an exception.  Vetlink Kiosk has the Medication Review Allergy Review 
modules where a  veteran can review and make changes to his medications
and any allergies.  The MRAR can also be facilitated by a provider.  The
local arrays identify the field to be updated along with the respective
data changes and serves to the RPC.

• VPSPID
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  The patient identifier value corresponding to the provided identifier
  type, VPSTYP.
  

• VPSMRAR
  PARAMETER TYPE:   LIST
  REQUIRED:   YES
  SEQUENCE NUMBER:   4
  DESCRIPTION:   

  Local array representing the kiosk Medication and Allergy 
  where 
   
       n is an incremental number
   
       FIELD NAME represents the name of the field in 853.5 file 
   
       ARRAY IENS represent entry and sub-entry ctrs (e.g., if patient has 3
       allergies then a given value would be "1,2" where "1" represents top
       level entry and "2" represents the sub-entry or the 2nd allergy
       record.)
  Review passed in by reference.   VPSMRAR represents allergy related
   
       DATA is the actual data that is populated at an entry in 853.5
   
  Note:  Each element in VPSMRAR will accept values in the above format. 
  However, elements of some multiple fields use the third index as the 
  value and will ignore provided input values.  
  fields, medication related fields, and statistical information about the
  MRAR session.
   
  Each subscript in the array is assigned a composite, delimited string.
   
   localArray(n) = FIELD NAME^ARRAY IENS^DATA 
   
  

• VPSINTFC
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   1
  REQUIRED:   YES
  SEQUENCE NUMBER:   3
  DESCRIPTION:   

  Interface Module.
  'S' represents Staff-facing Interface Module
  'P' represents Patient-facing Interface Module
  

• VPSTYP
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   7
  REQUIRED:   YES
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  Patient ID Type. Valid Values for this parameter are SSN, DFN, ICN, or
  VIC/CAC.
  

Local array that returns the results of each updated field per array data
  specific field and exception message describes the error.
element.
        
SUCCESS : localArray(n) = FIELD NAME^ARRAY IENS^DATA^1 
  1 equals successful update to the database of the specific
  field declared at field label.  
          
FAILED  : localArray(n)="FIELD NAME^ARRAY IENS^DATA^99^exception message"
  99 means an exception and no update was made to the database for that