RAO7VLD ;HISC/GJC-Validate OE/RR data to Rad (frontdoor) ;1/6/98 13:02
Source file <RAO7VLD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| 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') |
|
| EN3(X,Y) | ; does entry exist in a file
; X-> file # 'Y'-> ien ; 0 if entry exists, 1 if entry does not exist |
|
| 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) |
