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 |
