;CLAIM FOLDER LOCATION screen of INSTITUTIONS with specific types
; DGI = facility (pointer to file 4)
; Returns 1 if valid facility type for facility ien DGI
; Returns 0 if invalid facility type for facility ien DGI
KILL(DFN)
; XREF KILL STATEMENT FOR PATIENT, CLAIM FOLDER LOCATION (#2,.314)
; TRIGGERS THE FREE TEXT VALUE OF FIELD .312 TO NULL (deletes it)
PFTF(DGI)
;PREFERRED FACILITY screens of INSTITUTIONS for valid facility types
; DGI = facility (pointer to file 4)
; Returns 1 if valid facility type for facility
; Returns 0 if invalid facility type for facility
CFLTFQ
SET(DFN,X)
; XREF SET STATEMENT FOR PATIENT, CLAIM FOLDER LOCATION (#2,.314)
; TRIGGERS THE FREE TEXT VALUE OF FLD .312 TO STATION#_STATION NAME