;Add a New File/Field Entry
; Input -- HDISFILN File Number
; HDISFLDN Field Number (Optional- Default .01)
; Output -- 1=Successful and 0=Failure
; If Successful:
; HDISFIEN HDIS File/Field file IEN
; If Failure:
; HDISERRM Error Message (Optional)
GETIENQ
GETFF(HDISFIEN,HDISFILN,HDISFLDN)
;Get File Number and Field Number for a File/Field by IEN
; Input -- HDISFIEN HDIS File/Field file IEN
; Output -- 1=Successful and 0=Failure
; If Successful:
; HDISFILN File Number
; HDISFLDN Field Number
GETIEN(HDISFILN,HDISFLDN,HDISFIEN)
;Get IEN for a File/Field by File Number and Field Number
; Input -- HDISFILN File Number
; HDISFLDN Field Number (Optional- Default .01)
; Output -- 1=Successful and 0=Failure
; If Successful:
; HDISFIEN HDIS File/Field file IEN