VPSRPC2 ;DALOI/KML - Update of Patient Demographics RPC;11/20/11 15:30
Source file <VPSRPC2.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | (FILE,UPDATE)^DIE $$GET1^DIQ |
VA Point of Service | 1 | ADDRVAL^VPSRPC21 |
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 |
---|---|---|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | EDIT+22, EDIT+26, EDIT+42, FILERACE+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY1 | TABLE~ |
ARRAY1( | TABLE+15* |
ARRAY2 | TABLE~ |
ARRAY2( | TABLE+15*, TABLE+16* |
DATA | FILE~, FILE+8, FILE+10, FILE+11, FILERACE~, FILERACE+8, FILERACE+10, FILERACE+11, FILERACE+14, FILERACE+16 , FILERACE+17, FILERACE+19, FILERACE+21, FILERACE+22 |
DDEFS | DDVAL~ |
DDEFS( | DDVAL+10 |
DDFIELD | EDIT+19~, EDIT+38*, EDIT+39 |
DDFLD | DDVAL+7~, DDVAL+9*, DDVAL+10 |
DDFLDS | EDIT+19~, EDIT+27, EDIT+28 |
DDFLDS( | EDIT+39 |
ENAM | ECONT+18~, EMER*, EMER+1, EMER+4*, EMER+5 |
ERRNUM | ERROR+5~, ERROR+7*, ERROR+8* |
ERRSTR | ERROR+6! |
ERRSTR( | ERROR+9*, ERROR+10*, ERROR+12 |
ERRTXT | ERROR+5~, ERROR+8*, ERROR+9, ERROR+10 |
FIELD | EDIT+19~, EDIT+39*, EDIT+40, EDIT+41 |
FIL | FILE~, FILE+8, FILERACE~, FILERACE+12, FILERACE+13, FILERACE+19 |
FILE | EDIT+19~, EDIT+39*, EDIT+40, EDIT+41 |
FLD | FILE~, FILE+8, FILERACE~, FILERACE+13, FILERACE+19 |
ILST | DDVAL~, SPVAL~, ECONT~ |
ILST( | DDVAL+8, DDVAL+9, DDVAL+10!, SPVAL+29, SPVAL+30!, NOK+2, NOK+3!, NOK+7, NOK+8!, EMER+2 , EMER+3!, EMER+7, EMER+8! |
INTARRY | TABLE+11~ |
INTARRY( | TABLE+13*, TABLE+16 |
LINE | TABLE+11~, TABLE+14* |
LN | TABLE+11~, TABLE+14* |
MARITAL | SPVAL+21~, SPVAL+22*, SPVAL+23, SPVAL+25*, SPVAL+26, SPVAL+29 |
N | FILE~, FILE+10, FILE+11, FILE+12, FILERACE~, FILERACE+8, FILERACE+11, FILERACE+14, FILERACE+16, FILERACE+17 , FILERACE+21, FILERACE+22, FILERACE+23, ERROR~, ERROR+9, ERROR+10, ERROR+12 |
NOK | ECONT+18~, NOK*, NOK+1, NOK+4*, NOK+5 |
NUM | SPVAL+21~, SPVAL+28*, SPVAL+29, ECONT+18~, NOK+6*, NOK+7, EMER+6*, EMER+7 |
PIEN | FILE+6~, FILERACE+6~, FILERACE+9*, FILERACE+12*, FILERACE+13 |
PTIEN | FILE~, FILE+8, FILERACE~, FILERACE+12, FILERACE+13, FILERACE+19, SPVAL~, SPVAL+25, ECONT~, NOK , NOK+2, NOK+4, EMER, EMER+2, EMER+4 |
QUIT | SPVAL+21~, SPVAL+23*, SPVAL+24, SPVAL+26*, SPVAL+27 |
REC | DDVAL~, DDVAL+10*, SPVAL~, SPVAL+29*, ECONT~, NOK+2*, NOK+7*, EMER+2*, EMER+7*, TABLE+11~ , TABLE+12*, TABLE+13* |
REQFLDS | EDIT+19~, EDIT+27, EDIT+29, EDIT+30, EDIT+31 |
REQLST | SPVAL~, ECONT~ |
REQLST( | SPVAL+22, SPVAL+28, SPVAL+29, NOK+1, NOK+2, NOK+6, NOK+7, EMER+1, EMER+2, EMER+6 , EMER+7 |
RES | FILE+7!, FILERACE+7! |
RES( | FILE+10*, FILE+11*, FILE+12, FILERACE+8, FILERACE+11*, FILERACE+14*, FILERACE+16*, FILERACE+17*, FILERACE+21*, FILERACE+22* , FILERACE+23 |
RESULT | EDIT~, EDIT+24!, EDIT+28, EDIT+29, EDIT+30, EDIT+31 |
RESULT( | EDIT+37*, EDIT+40*, EDIT+41* |
RESULT(0 | EDIT+21*, EDIT+22*, EDIT+23*, EDIT+26* |
RIEN | FILE+6~, FILERACE+6~, FILERACE+9*, FILERACE+12* |
RN | EDIT+19~, EDIT+25*, EDIT+28, EDIT+29, EDIT+30, EDIT+31, EDIT+36*, EDIT+37, EDIT+40, EDIT+41 |
STRING | ERROR~, ERROR+9, ERROR+10, TABLE+11~, TABLE+14*, TABLE+15, TABLE+16 |
U | EDIT+37, EDIT+38, EDIT+39, FILE+8, FILERACE+8, FILERACE+10, FILERACE+19, DDVAL+9, SPVAL+22, SPVAL+28 , SPVAL+29, NOK+1, NOK+2, NOK+6, NOK+7, EMER+1, EMER+2, EMER+6, EMER+7, TABLE+13 , TABLE+15, TABLE+16 |
VALUE | FILE+6~, FILERACE+6~, FILERACE+10*, FILERACE+11, FILERACE+13 |
VERR | ERROR~, ERROR+11! |
VERR("DIERR" | ERROR+8 |
VLST | TABLE~ |
VLST( | TABLE+13 |
VPSDFN | EDIT~, EDIT+21, EDIT+22, EDIT+26, EDIT+29, EDIT+30, EDIT+31, EDIT+40, EDIT+41, EDIT+42 |
VPSERR | EDIT+20~, FILE+10, FILE+11, FILERACE+16, FILERACE+17, FILERACE+21, FILERACE+22 |
VPSFDA | EDIT+20~, FILE+6~, FILE+9!, FILERACE+6~, FILERACE+14, FILERACE+15!, FILERACE+20! |
VPSFDA( | FILE+8*, FILERACE+13*, FILERACE+19* |
VPSLST | EDIT~, EDIT+23, EDIT+27, EDIT+28, EDIT+29, EDIT+30, EDIT+31 |
VPSLST( | EDIT+35, EDIT+37, EDIT+38, EDIT+40, EDIT+41 |
VRES | DDVAL~, SPVAL~, ECONT~ |
VRES( | DDVAL+10*, SPVAL+29*, NOK+2*, NOK+7*, EMER+2*, EMER+7* |
X1 | EDIT+19~, EDIT+35*, EDIT+37, EDIT+38, EDIT+40, EDIT+41 |
X2 | DDVAL+7~, DDVAL+8*, DDVAL+9, DDVAL+10, SPVAL+21~, SPVAL+29*, SPVAL+30, ECONT+18~, NOK+2*, NOK+3 , NOK+7*, NOK+8, EMER+2*, EMER+3, EMER+7*, EMER+8 |
Name | Field # of Occurrence |
---|---|
$T(FIELDLST+LN | TABLE+14 |