FBAAAUD ;WCIOFO/SAB - FEE BASIS FILE 161.01 DATA AUDIT ;3/26/2014
Source file <FBAAAUD.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | UPDATE^DIE $$EXTERNAL^DILFD |
Kernel | 1 | $$NOW^XLFDT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
Name | Line Occurrences |
---|---|
SAVE | AUD+22, AUD+24 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D0 | OUTX+12, OUTX+19, OUTX+20, OUTX+21 |
>> D1 | OUTX+19, OUTX+20, OUTX+21 |
>> D2 | OUTX+19, OUTX+20, OUTX+21 |
>> DA | SAVE+2 |
>> DA(1 | SAVE+2 |
>> DIC | OUTX+20, OUTX+21 |
DUZ | SAVE+7 |
FBDT | AUD+9~, AUD+12*, SAVE+3 |
FBFDA | AUD+9~, SAVE+1~ |
FBFDA( | SAVE+3*, SAVE+4*, SAVE+5*, SAVE+6*, SAVE+7* |
FBFIELDL | AUD+9~, AUD+11*, SAVE+4 |
FBFLD | OUTX+15~, OUTX+25*, OUTX+26, OUTX+29 |
FBI | AUD+9~, AUD+20*, AUD+22, AUD+24, SAVE+4, SAVE+5, SAVE+6 |
FBIENS | SAVE+1~, SAVE+2*, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7 |
FBNODE | OUTX+15~, OUTX+18*, OUTX+19*, OUTX+20*, OUTX+21*, OUTX+22, OUTX+25 |
FBSET | AUD~, AUD+16, AUD+22, AUD+24 |
FBY | OUTX+15~, OUTX+29*, OUTX+30 |
>> X1( | AUD+22, AUD+24, SAVE+5 |
>> X2( | AUD+22, AUD+24, SAVE+6 |
>> X2(1 | AUD+16 |
>> Y | OUTX+13, OUTX+29, OUTX+30* |