; does entry exist in a file
; X-> file # 'Y'-> ien
; 0 if entry exists, 1 if entry does not exist
EN1(RAA,RAB,RAC,RAX,RAY,RAZ)
; Pass in parameters to validate data
; Returns '0' if data is valid, '1' if data is invalid
; This call is not used on pointer type data fields.
; ***** variable list *****
; RAA=file # RAB=field #
; RAC=flag parameters RAX=value being checked
; RAY=result of call array RAZ=Error Array (not used)
EN4(X)
;P75 Check CPRS entered CLINICAL HISTORY text for validity.
EN5(RAD0,RANSTAT,RADUZ,RAREA)
; update the 'REQUEST STATUS TIMES' multiple
; in the Rad/Nuc Med Orders file. All parameters must be in the
; internal format.
; RAD0=top level ien RANSTAT=new status
; RADUZ=user ien RAREA=reason for status change
; Pass back '1' if error, '0' if no error.
EN6(X)
; Check if parent procedure has descendents
; Passes back: 0 if descendents else 1
; X is the ien of the procedure (71)
EN2(T1,T2,T3)
;
; Pass in parameters to validate pointer type data.
; This call is only used on pointer type data fields.
; ***** variable list *****
; T1=file # T2=IEN (if app) T3=.01 fields value
; X=0 if proper match, 1 if no match Y=global node (assumed to be '0')