VPSMR52 ;WOIFO/BT - Get the last MRAR data for a patient (Allergy Level) ;01/29/15 15:30
Source file <VPSMR52.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | FIELD^DID ($$GET1,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 |
---|---|---|
ALLERGY(VPSMRAR,DFN,LASTMRAR) | ; -- retrieve Allergy 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 |
|
ALLIND(VPSMRAR,DFN,LASTMRAR,ALRIEN,ALRNO) | ; -- retrieve Allergy Indicator level fields and store them in VPSMRAR
; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; ALRIEN : Allergy IEN ; ALRNO : Allergy Entry # ; OUTPUT ; VPSMRAR : local array contains all field names/values for the last mrar |
|
ALREACT(VPSMRAR,VPSDFN,LASTMRAR,ALRIEN,ALRNO) | ; -- retrieve Allergy Reaction level fields and store them in VPSMRAR
; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; ALRIEN : Allergy IEN ; OUTPUT ; VPSMRAR : local array contains all field names/values for the last mrar |
|
ADDALLER(VPSMRAR,DFN,LASTMRAR) | ; -- retrieve Additional Allergy 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 |
FileNo | Call Tags |
---|---|
^GMR(120.8 - [#120.8] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^VPS(853.5 - [#853.5] | ALLERGY+11, ALLIND+16, ALREACT+12, ADDALLER+11 |
Name | Line Occurrences |
---|---|
ALLIND | ALLERGY+24 |
ALREACT | ALLERGY+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALRIEN | ALLERGY+9~*, ALLERGY+11*, ALLERGY+12, ALLERGY+24, ALLERGY+25, ALLIND~, ALLIND+16, ALLIND+17, ALREACT~, ALREACT+12 , ALREACT+13, ADDALLER+9~*, ADDALLER+11*, ADDALLER+12 |
ALRNO | ALLERGY+7~, ALLERGY+14*, ALLERGY+22, ALLERGY+24, ALLERGY+25, ALLIND~, ALLIND+21, ALREACT~, ALREACT+22, ADDALLER+7~ , ADDALLER+14*, ADDALLER+21 |
ATTR | ALLERGY+17!, ALLIND+9~, ALLIND+14!, ALREACT+8~, ALREACT+18!, ADDALLER+17! |
ATTR("LABEL" | ALLERGY+22, ALLIND+21, ALREACT+22, ADDALLER+21 |
ATTR("TYPE" | ALLERGY+21, ALREACT+21, ADDALLER+20 |
DFN | ALLERGY~, ALLERGY+11, ALLERGY+12, ALLIND~, ALLIND+16, ALLIND+17, ALREACT+12, ALREACT+13, ADDALLER~, ADDALLER+11 , ADDALLER+12 |
EXVAL | ALLERGY+7~, ALLERGY+19*, ALLERGY+20*, ALLERGY+21*, ALLERGY+22, ALLIND+9~, ALLIND+20*, ALLIND+21, ALREACT+8~, ALREACT+20* , ALREACT+21*, ALREACT+22, ADDALLER+7~, ADDALLER+19*, ADDALLER+20*, ADDALLER+21 |
FIL | ALLERGY+8~*, ALLERGY+13, ALLERGY+14, ALLERGY+16, ALLERGY+17, ALLERGY+18, ALLERGY+19, ALLERGY+20, ALLERGY+21, ALLIND+10~ , ALREACT+9~*, ALREACT+14, ALREACT+15, ALREACT+17, ALREACT+18, ALREACT+19, ALREACT+20, ALREACT+21, ADDALLER+8~*, ADDALLER+13 , ADDALLER+14, ADDALLER+16, ADDALLER+17, ADDALLER+18, ADDALLER+19, ADDALLER+20 |
FIL( | ALLIND+14, ALLIND+18, ALLIND+19, ALLIND+20 |
FIL("ACHG" | ALLIND+10* |
FIL("ACNFR" | ALLIND+10* |
FIL("ADISCR" | ALLIND+10* |
FLD | ALLERGY+7~, ALLERGY+15*, ALLERGY+16*, ALLERGY+17, ALLERGY+18, ALLERGY+19, ALLERGY+20, ALLERGY+21, ALLIND+11~*, ALLIND+14 , ALLIND+19, ALLIND+20, ALREACT+8~, ALREACT+16*, ALREACT+17*, ALREACT+18, ALREACT+19, ALREACT+20, ALREACT+21, ADDALLER+7~ , ADDALLER+15*, ADDALLER+16*, ADDALLER+17, ADDALLER+18, ADDALLER+19, ADDALLER+20 |
>> IND | ALLIND+13*, ALLIND+14, ALLIND+16, ALLIND+18, ALLIND+19, ALLIND+20 |
INDIEN | ALLIND+15~*, ALLIND+16*, ALLIND+17 |
INVAL | ALLERGY+7~, ALLERGY+18*, ALLERGY+20, ALLERGY+21*, ALLERGY+22, ALLIND+9~, ALLIND+19*, ALLIND+21, ALREACT+8~, ALREACT+19* , ALREACT+21*, ALREACT+22, ADDALLER+7~, ADDALLER+18*, ADDALLER+20*, ADDALLER+21 |
LASTMRAR | ALLERGY~, ALLERGY+11, ALLERGY+12, ALLERGY+24, ALLERGY+25, ALLIND~, ALLIND+16, ALLIND+17, ALREACT~, ALREACT+12 , ALREACT+13, ADDALLER~, ADDALLER+11, ADDALLER+12 |
REACTIEN | ALREACT+10~*, ALREACT+12*, ALREACT+13 |
REACTNO | ALREACT+8~, ALREACT+15*, ALREACT+22 |
REC | ALLERGY+7~, ALLERGY+13!, ALLERGY+21, ALLIND+9~, ALLIND+18!, ALREACT+8~, ALREACT+14!, ALREACT+21, ADDALLER+7~, ADDALLER+13! , ADDALLER+20 |
REC( | ALLERGY+14, ALLERGY+16, ALLERGY+18, ALLERGY+19, ALLIND+19, ALLIND+20, ALREACT+15, ALREACT+17, ALREACT+19, ALREACT+20 , ADDALLER+14, ADDALLER+16, ADDALLER+18, ADDALLER+19 |
SUBS | ALLERGY+7~, ALLERGY+12*, ALLERGY+13, ALLERGY+14, ALLERGY+16, ALLERGY+18, ALLERGY+19, ALLERGY+21, ALLIND+9~, ALLIND+17* , ALLIND+18, ALLIND+19, ALLIND+20, ALREACT+8~, ALREACT+13*, ALREACT+14, ALREACT+15, ALREACT+17, ALREACT+19, ALREACT+20 , ALREACT+21, ADDALLER+7~, ADDALLER+12*, ADDALLER+13, ADDALLER+14, ADDALLER+16, ADDALLER+18, ADDALLER+19, ADDALLER+20 |
VPSDFN | ALLERGY+24, ALLERGY+25, ALREACT~ |
VPSMRAR | ALLERGY~, ALLERGY+22, ALLERGY+24, ALLERGY+25, ALLIND~, ALLIND+21, ALREACT~, ALREACT+22, ADDALLER~, ADDALLER+21 |