VPSMRAR9 ;WOIFO/BT - Get the last MRAR data for a patient;01/29/15 15:30
Source file <VPSMRAR9.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 |
|---|---|---|
| VA Point of Service | 4 | VPS GET LAST MRAR VPSMR51 VPSMR52 VPSMR54 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(VPSMRAR,VPSNUM,VPSTYP) | ; RPC: VPS GET LAST MRAR
; INPUT ; VPSNUM : Parameter Value - patient SSN OR DFN OR ICN OR VIC/CAC (REQUIRED) ; VPSTYP : Parameter TYPE - SSN or DFN OR ICN OR VIC/CAC (REQUIRED) ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar ; WITH ERROR -> VPSMRAR(0) = -1 ^ error message ; SUCCESS -> VPSMRAR(0) = 1 ; -> VPSMRAR(1..n) = FIELD NAME^SUBS^DATA |
|
| ADD(VPSMRAR,FLDNAM,SUBS,INVAL,EXVAL) | ;Add the record to VPSMRAR
; INPUT ; FLDNAM : Field name to store ; SUBS : Subscript (unique identifier for multiple values) ; INVAL : Fileman Internal Value ; EXVAL : Fileman Externall Value ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar |
|
| WP(REC,FIL,SUBS,FLD) | ;return word-processing value
|
| RPC Name | Call Tags |
|---|---|
| VPS GET LAST MRAR | GET |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VPS(853.5 - [#853.5] | GET+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| EXVAL | ADD~, ADD+9, ADD+11, ADD+12 |
| FIL | WP~, WP+1, WP+7, WP+8 |
| FLD | WP~, WP+1, WP+7, WP+8 |
| FLDNAM | ADD~, ADD+12 |
| IDX | WP+5~*, WP+7*, WP+8 |
| INVAL | ADD~, ADD+9, ADD+11*, ADD+12 |
| LAST | ADD+10~*, ADD+12 |
| LASTMRAR | GET+17~*, GET+18, GET+21, GET+24, GET+27, GET+30, GET+33, GET+36 |
| LF | WP+4~*, WP+8, WP+10 |
| REC | WP~ |
| REC( | WP+1, WP+7, WP+8 |
| SUBS | ADD~, ADD+12, WP~, WP+1, WP+7, WP+8 |
| U | GET+14, GET+18, ADD+12 |
| VPSDFN | GET+13~*, GET+14, GET+17, GET+21, GET+24, GET+27, GET+30, GET+33, GET+36 |
| VPSMRAR | GET~, GET+21, GET+24, GET+27, GET+30, GET+33, GET+36, ADD~ |
| VPSMRAR( | ADD+12* |
| VPSMRAR("" | ADD+10 |
| VPSMRAR(0 | GET+14*, GET+18*, GET+38* |
| VPSNUM | GET~, GET+11*, GET+13 |
| VPSTYP | GET~, GET+12*, GET+13 |
| WP | WP+3~*, WP+8*, WP+10 |
