VPSALL01 ;DALOI/KML - Retrieve Allergies for Vetlink ;11/20/11 15:30
Source file <VPSALL01.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(VPSRES,VPSDFN) | ;
|
|
BLDRES(VFL,IENS,ALST,DDFLDS,CTR,RESULTS) | ;
; build allergy results array that gets returned to client ; the results consist of allergy data taken from the entry at 120.8 and associated multiples (sub-entries) ; ; INPUT ; VFL - file number ; IENS - internal entry numbers for top entries and any sub-entries ; ALST - contains the data taken from the fields existing at the entry and sub-entries of 120.8 (built from GETS^DIQ) ; DDFLDS - array of fields defined in 120.8 ; CTR - Sequential numeric value that is assigned as the subscript to the local results array, passed in by reference ; RESULTS - passed in by reference ; ; OUTPUT ; RESULTS - array of patient allergies taken from specified fields in the patient entry in 120.8 ; Each subscript in the array is assigned a composite, delimited string as described in the next comment: ; RESULTS(ctr)="file name^iens (top file, subfile)^field number^field name^data value" |
|
TABLE(DEFS) | ;the DD field array built at this procedure will be used when constructing the allergy results array
|
|
AFLDS | ; valid fields defined in the PATIENT ALLERGIES file (120.8)
; negotiated fields to be given to kiosk for MRAR event or for the purposes of tiu note during PDO invocable period |
RPC Name | Call Tags |
---|---|
VPS GET ALLERGIES | GET |
FileNo | Call Tags |
---|---|
^GMR(120.8 - [#120.8] | GETS^DIQ |
120.81 | GETS^DIQ |
120.826 | GETS^DIQ |
^GMR(120.86 - [#120.86] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | GET+11 |
^GMR(120.8 - [#120.8] | GET+18, GET+23, GET+28 |
Name | Line Occurrences |
---|---|
BLDRES | GET+21, GET+26, GET+31 |
TABLE | GET+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALST | GET+9!, GET+21, GET+26, GET+31, BLDRES~ |
ALST( | BLDRES+19, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29 |
CTR | BLDRES~, BLDRES+25*, BLDRES+27*, BLDRES+29, BLDRES+30* |
DDFLDS | GET+14~, GET+17, GET+21, GET+26, GET+31, BLDRES~ |
DDFLDS( | BLDRES+21, BLDRES+22, BLDRES+23 |
DEFS | TABLE~ |
DEFS( | TABLE+7* |
I | BLDRES+17~, BLDRES+25* |
IENS | BLDRES~, BLDRES+19, BLDRES+20, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29 |
LINE | TABLE+6~, TABLE+7* |
LN | TABLE+6~, TABLE+7* |
N | BLDRES+17~, BLDRES+27* |
RESULTS | BLDRES~ |
RESULTS( | BLDRES+25*, BLDRES+27*, BLDRES+29* |
STRING | TABLE+6~, TABLE+7* |
TRMIEN | BLDRES+17~, BLDRES+20*, BLDRES+25, BLDRES+27, BLDRES+29 |
U | BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+29, TABLE+7 |
VCTR | GET+14~, GET+16*, GET+21, GET+26, GET+31 |
VDA | GET+14~, GET+15*, GET+18*, GET+19, GET+20, GET+23, GET+24, GET+28, GET+29 |
VFL | BLDRES~, BLDRES+19, BLDRES+21, BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29 |
VFLD | BLDRES+17~, BLDRES+18*, BLDRES+19*, BLDRES+21, BLDRES+22, BLDRES+23, BLDRES+25, BLDRES+27, BLDRES+28, BLDRES+29 |
VFNAME | BLDRES+17~, BLDRES+23*, BLDRES+25, BLDRES+27, BLDRES+29 |
VIEN | GET+14~, GET+15*, GET+22*, GET+23*, GET+24, GET+27*, GET+28*, GET+29 |
VIENS | GET+14~, GET+20*, GET+21, GET+24*, GET+25, GET+26, GET+29*, GET+30, GET+31 |
VINEX | BLDRES+17~, BLDRES+22*, BLDRES+24, BLDRES+26, BLDRES+28, BLDRES+29 |
VPSDFN | GET~, GET+10, GET+11, GET+12, GET+18 |
VPSRA | GET+12~*, GET+13 |
VPSRES | GET~, GET+9!, GET+21, GET+26, GET+31, GET+32 |
VPSRES(0 | GET+10*, GET+11*, GET+13*, GET+32* |
VSTR | BLDRES+17~, BLDRES+21* |
Y | BLDRES+17~, BLDRES+25* |
Name | Field # of Occurrence |
---|---|
$T(AFLDS+LN | TABLE+7 |