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* |