FBAAAUD ;WCIOFO/SAB - FEE BASIS FILE 161.01 DATA AUDIT ;3/26/2014
Source file <FBAAAUD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AUD(FBSET) | ; audit of selected fields in sub-file 161.01
; called by set and kill logic of AUD mumps x-ref on sub-file 161.01 ; input ; FBSET = 0 or 1, =true if set logic and =false if kill logic ; also variables from FileMan x-ref ; DA(1) = IEN of record in file 161 ; DA = IEN of record in sub-file 161.01 ; X1(#) = old values of cross-referenced fields ; X2(#) = new values of cross-referenced fields |
|
| SAVE | ;
|
|
| OUTX | ; output transform
; called by OLD VALUE and NEW VALUE fields in the DATA AUDIT multiple ; in the AUTHORIZATION multiple of the FEE BASIS PATIENT (#161) file. ; input ; Y = value to transform ; D0 = required internal entry number, top level ; D1 = optional internal entry number, one level below ; D2 = optional internal entry number, two levels below ; DIC = optional file/sub-file root ; output ; Y = external value for Y when available, else the input value |
