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 |
