VPSRPC3 ;DALOI/KML - VPS Pre-registration RPC ;4/26/2012
Source file <VPSRPC3.m>
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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 3 | SDEC53 SDECUPDPATPREREG SDES2EDITPREREG |
VA Point of Service | 1 | VPS PATIENT PRE-REGISTRATION |
Name | Comments | DBIA/ICR reference |
---|---|---|
PREREG(RESULT,DFN,PRESTAT) | ; Pre-Register a patient
; RPC=VPS PATIENT PRE-REGISTRATION ; input variables ; DFN - patient IEN, required ; PRESTAT - code for the call such as 'C' = 'CONTACTED' or ; 'X' = 'CHANGE INFORMATION', required ; output variable ; RESULT - variable that returns the result of the RPC, includes a ; a number (1 or 0) followed by a short message |
|
UPDLOG(DFN,STATUS,DIVIEN) | ; Update PRE-REGISTRATION CALL File, #41.43
; ICR # 5798 - allows VPS package to add and edit an entry in the PRE-REGISTRATION CALL file ; Input: ; DFN - The IEN of the patient being called ; STATUS - Status of the call attempt ; DIVIEN - Division IEN (used for sorting) |
|
CHKST(CODE) | ; determine if status code is valid
; input - ; CODE = status of pre-registration call - this code is sent to the RPC from the Vetlink Kiosk ; output - ; FOUND = result of the validation which determines if the incoming kiosk code was matched against one of the valid VistA codes |
|
BLDCODES(ARRAY) | ;build array of valid statuses that represent the outcome of the call to the patient
; valid codes can be located at the STATUS field of the PRE-REGISTRATION CALL LOG (#41.43,3). |
|
CODELST | ; list of codes
|
RPC Name | Call Tags |
---|---|
VPS PATIENT PRE-REGISTRATION | PREREG |
FileNo | Call Tags |
---|---|
^DGS(41.41 - [#41.41] | Classic Fileman Calls |
^DGS(41.42 - [#41.42] | Classic Fileman Calls |
^DGS(41.43 - [#41.43] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGS(41.42 - [#41.42] | PREREG+22, PREREG+24, PREREG+25, PREREG+26, PREREG+44 |
^DGS(41.43 - [#41.43] | UPDLOG+14, UPDLOG+18 |
^DPT - [#2] | PREREG+14 |
Name | Line Occurrences |
---|---|
$$CHKST | PREREG+17 |
BLDCODES | CHKST+7 |
UPDLOG | PREREG+29 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | BLDCODES~ |
ARRAY( | BLDCODES+4* |
CODE | CHKST~, CHKST+8 |
DA | PREREG+40!, PREREG+41*, UPDLOG+7~, UPDLOG+13*, UPDLOG+18 |
DFN | PREREG~, PREREG+12, PREREG+13, PREREG+14, PREREG+22, PREREG+24, PREREG+29, PREREG+35, UPDLOG~ |
DIC | PREREG+35*, UPDLOG+7~, UPDLOG+8* |
DIC("DR" | PREREG+36* |
DIC(0 | PREREG+35*, UPDLOG+9* |
DIE | PREREG+40!, PREREG+41*, UPDLOG+7~, UPDLOG+15*, UPDLOG+17! |
DIK | UPDLOG+7~, UPDLOG+14*! |
DIVIEN | UPDLOG~ |
DR | PREREG+40!, PREREG+42*, UPDLOG+7~, UPDLOG+16* |
FOUND | CHKST+5~, CHKST+6*, CHKST+8*, CHKST+9 |
LINE | BLDCODES+3~, BLDCODES+4* |
LIST | CHKST+5~, CHKST+7 |
LIST( | CHKST+8 |
LN | BLDCODES+3~, BLDCODES+4* |
LOCK | PREREG+18~, PREREG+19*, PREREG+26*, PREREG+27 |
NEW | PREREG+18~, PREREG+19*, PREREG+23*, PREREG+27, PREREG+39 |
PDIV | PREREG+18~, PREREG+25*, PREREG+28*, PREREG+29 |
PIDX | PREREG+18~, PREREG+19*, PREREG+24*, PREREG+25, PREREG+26, PREREG+39, PREREG+41, PREREG+44 |
PIEN | PREREG+18~ |
PRESTAT | PREREG~, PREREG+16, PREREG+17, PREREG+29 |
RESULT | PREREG~, PREREG+10!, PREREG+12*, PREREG+13*, PREREG+14*, PREREG+16*, PREREG+17*, PREREG+27*, PREREG+45* |
STATUS | UPDLOG~ |
STRING | BLDCODES+3~, BLDCODES+4* |
TMSTMP | PREREG+32~* |
U | PREREG+25, BLDCODES+4 |
VALID | PREREG+9~, PREREG+17* |
VALUE | CHKST+5~, CHKST+6*, CHKST+8* |
X | PREREG+35*, UPDLOG+7~, UPDLOG+10* |
Y | UPDLOG+7~, UPDLOG+12, UPDLOG+13, UPDLOG+14 |
Name | Field # of Occurrence |
---|---|
$T(CODELST+LN | BLDCODES+4 |