DVBABDDU ;ALB/RPM - CAPRI DATA DICTIONARY UTILITIES ; 08/05/10
 ;;2.7;AMIE;**149**;Apr 10, 1995;Build 16
 ;
GETSET(DVBRSLT,DVBFIL,DVBFLD) ;return Set of Codes
 ;This procedure returns the internal and external values
 ;for a given file and SET OF CODES field.
 ;
 ;Supports remote procedure:  DVBAB GET SET
 ;
 ;  Input:
 ;    DVBFIL - (required) file number  (ex. 396.3)
 ;    DVBFLD - (required) field number (ex. 9)
 ;
 ;  Output:
 ;    DVBRSLT - (pass by reference) returns an array of caret-delimited
 ;              internal and external set of codes values on success;
 ;              otherwise, returns nothing
 ;              Ex: DVBRSLT(n)=code internal value^code external value
 ;
 
DVBSET   ;results from FIELD^DID call
 
DVBCNT   ;returned codes count
 
DVBI     ;generic counter
 
DVBSETI  ;internal value
 
DVBSETE  ;external value
 ;
 
FIELD^DID(DVBFIL,DVBFLD,"","POINTER","DVBSET","DVBSET")
 
'$D(DVBSET("DIERR")) D
 
DVBCNT=$L(DVBSET("POINTER"),";")-1
 . 
DVBI=1:1:DVBCNT D
 
. . DVBSETI=$P($P(DVBSET("POINTER"),";",DVBI),":",1)
 . . 
DVBSETE=$P($P(DVBSET("POINTER"),";",DVBI),":",2)
 . . 
DVBRSLT(DVBI)=DVBSETI_"^"_DVBSETE
 
Q