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 |
| 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 |