VPSMR51 ;WOIFO/BT - Get the last MRAR data for a patient (Transaction Level) ;01/29/15 15:30
Source file <VPSMR51.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | FIELD^DID GETS^DIQ |
VA Point of Service | 1 | ($$WP,ADD)^VPSMRAR9 |
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 | 1 | VPSMRAR9 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TRANS(VPSMRAR,DFN,LASTMRAR) | ; -- retrieve conducted with level fields and store them in VPSMRAR
; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar |
|
CNDWTH(VPSMRAR,DFN,LASTMRAR) | ; -- retrieve conducted with level fields and store them in VPSMRAR
; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^VPS(853.5 - [#853.5] | CNDWTH+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATTR | TRANS+9~, TRANS+14!, CNDWTH+10~ |
ATTR("LABEL" | TRANS+18, CNDWTH+17 |
ATTR("TYPE" | TRANS+17 |
CNDWTH | CNDWTH+9~*, CNDWTH+13*, CNDWTH+14, CNDWTH+15, CNDWTH+16 |
DFN | TRANS~, TRANS+8, TRANS+13, TRANS+15, TRANS+16, CNDWTH~, CNDWTH+13, CNDWTH+14, CNDWTH+15, CNDWTH+16 |
EXVAL | TRANS+9~, TRANS+16*, TRANS+17*, TRANS+18, CNDWTH+8~, CNDWTH+16*, CNDWTH+17 |
FIL | TRANS+7~*, TRANS+8, TRANS+13, TRANS+14, TRANS+15, TRANS+16, TRANS+17, CNDWTH+7~*, CNDWTH+10, CNDWTH+14 , CNDWTH+15, CNDWTH+16 |
FLD | TRANS+11~*, TRANS+13*, TRANS+14, TRANS+15, TRANS+16, TRANS+17, CNDWTH+11~*, CNDWTH+15, CNDWTH+16 |
INVAL | TRANS+9~, TRANS+15*, TRANS+17*, TRANS+18, CNDWTH+8~, CNDWTH+15*, CNDWTH+17 |
LASTMRAR | TRANS~, TRANS+8, TRANS+13, TRANS+15, TRANS+16, CNDWTH~, CNDWTH+13, CNDWTH+14, CNDWTH+15, CNDWTH+16 |
REC | CNDWTH+8~, CNDWTH+14! |
REC( | CNDWTH+15, CNDWTH+16 |
SUBS | TRANS+10~*, TRANS+17, TRANS+18 |
TRANS | TRANS+8~, TRANS+17 |
TRANS( | TRANS+13, TRANS+15, TRANS+16 |
VPSMRAR | TRANS~, TRANS+18, CNDWTH~, CNDWTH+17 |