Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | (FILE,UPDATE)^DIE $$GET1^DIQ |
| VA Point of Service | 1 | ADDRVAL^VPSRPC21 |
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 |
