VPSRPC2 ;DALOI/KML - Update of Patient Demographics RPC;11/20/11 15:30
Source file <VPSRPC2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT(RESULT,VPSDFN,VPSLST) | ;
; RPC=VPS EDIT PATIENT DEMOGRAPHICS ; Vetlink Kiosk allows edit of patient data (PATIENT File (#2)) ; Kiosk identifies the field to be updated along with the respective data changes and serves to RPC ; INPUT - RESULT represents the results of processing and passed in by reference ; VPSDFN=(patient) DFN ; VPSLST=contains the imported and pre-validated data from Vecna that is intended to update the patient record in file 2 ; OUTPUT - RESULT=local array that returns the results of each updated field per array data element. |
|
| FILE(PTIEN,FIL,FLD,DATA,N) | ; write to patient record
; PTIEN=DFN ; FIL=FILE NUMBER (e.g., 2.02 or 2.06) ; FLD=FIELD NUMBER ; DATA=Data that gets populated at that field (sent from client) ; N=sequential number associated with the array element sent in by Vecna |
|
| FILERACE(PTIEN,FIL,FLD,DATA,N) | ; write to patient record at the RACE or ETHNICITY multiple
; PTIEN=DFN ; FIL=FILE NUMBER (e.g., 2.02 or 2.06) ; FLD=FIELD NUMBER ; DATA=Data that gets populated at that field (sent from client) ; N=sequential number associated with the array element sent in by Vecna |
|
| ERROR(VERR,N,STRING) | ;
; VERR=error array that was created when attempting to file the changes ; N=seq number associated with the array element sent in by Vecna ; STRING=the string of data that could not be updated in patient record sent by Vecna ; RETURNS results string |
|
| DDVAL(REC,ILST,DDEFS,VRES) | ; Validate that incoming field labels sent by Vecna exist in patient file data definition
; INPUT - all input parameters passed in by reference ; REC = incremental number assigned to each subscript built in the OUTPUT array ; ILST = validate the data passed in by Vecna ; DDEFS = Data definitions as defined in PATIENT file (#2) to be used during validation ; OUTPUT - ; VRES = the array to return the results of pre-validation processing. Exceptions (only) made available as RPC output for client |
|
| SPVAL(PTIEN,REC,REQLST,ILST,VRES) | ; pre-validate on conditions related to spouse's information
; If marital status is NOT MARRIED, UNKNOWN, or WIDOWED then SPOUSE'S data elements should not be submitted for update. Exception message needs to ; be returned. |
|
| ECONT(PTIEN,REC,REQLST,ILST,VRES) | ; pre-validate emergency contact and next of kin fields
|
|
| NOK | ||
| EMER | ||
| TABLE(ARRAY1,ARRAY2,VLST) | ;build array of valid fields defined to PATIENT file (#2)
|
|
| FIELDLST | ; list of fields defined in PATIENT file (#2)
|
| RPC Name | Call Tags |
|---|---|
| VPS EDIT PATIENT DEMOGRAPHIC | EDIT |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
