Routine: HDISVF08

Information

HDISVF08 ;ALB/RMO - 7118.22 File Utilities/API Cont.; 1/18/05@1:57:00

Name	Comments	DBIA/ICR reference
FINDFAC(HDISYIEN,HDISFIEN,HDISTIEN,HDISIREF,HDISADDF,HDISAIEN,HDISERRM)	;Find or Add a New Facility Term/Concept Entry ; Input -- HDISYIEN HDIS System file (#7118.21) IEN ; HDISFIEN HDIS File/Field file (#7115.6) IEN ; HDISTIEN HDIS Term/Concept VUID Association file (#7118.11) IEN ; HDISIREF Internal Reference (Optional) ; HDISADDF Add a New Entry Flag (Optional- Default 0) ; 1=Yes and 0=No ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISAIEN HDIS Facility Term/Concept Association file IEN ; If Failure: ; HDISERRM Error Message (Optional)
FINDFACQ
ADDFAC(HDISYIEN,HDISFIEN,HDISTIEN,HDISIREF,HDISAIEN,HDISERRM)	;Find or Add a New Facility Term/Concept Entry ; Input -- HDISYIEN HDIS System file (#7118.21) IEN ; HDISFIEN HDIS File/Field file (#7115.6) IEN ; HDISTIEN HDIS Term/Concept VUID Association file (#7118.11) IEN ; HDISIREF Internal Reference (Optional) ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISAIEN HDIS Facility Term/Concept Association file IEN ; If Failure: ; HDISERRM Error Message (Optional)
ADDFACQ
GETIENS(HDISYIEN,HDISFIEN,HDISTIEN,HDISIENS)	;Get IENS for Facility Term/Concept by System, File/Field and Term/Concept ; Input -- HDISYIEN HDIS System file (#7118.21) IEN ; HDISFIEN HDIS File/Field file (#7115.6) IEN ; HDISTIEN HDIS Term/Concept VUID Association file (#7118.11) IEN ; Output -- 1=Successful and 0=Failure ; If Successful: ; HDISIENS Array where HDISIENS(IEN)=Internal Reference field (#.03)
GETIENSQ