Routine: VPSALL01

Information

VPSALL01 ;DALOI/KML - Retrieve Allergies for Vetlink ;11/20/11 15:30

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