FBCS FILE 161 R/W/D    ICR (5272)

FBCS accesses the FEE BASIS PATIENT (#161) file to
read/write. Some deletions will be done on the AUTHORIZATION multiple
(#161.01) after data integrity checks.  Applicable Authorized Services (FIELD
7 from file #162.4) are copied to field .021 Authorization Remark.

^FBAAA(DA,0)                         Global r ($D)
.01    NAME                   0;1  Fileman r
^FBAAA(D0,1,0)                       Global r (get count)
1      AUTHORIZATION          0;4
^FBAAA(D0,1,D1,0)                    Global r ($D)
.01    FROM DATE              0;1  Fileman r/w,Laygo,Global r
.02    TO DATE                0;2  Fileman r/w,Global r
.03    FEE PROGRAM            0;3  Fileman r/w,Global r
.04    VENDOR                 0;4  Fileman r/w,Global r/w
101    PRIMARY SERVICE AREA   0;5  Fileman r/w,Global r
.07    PURPOSE OF VISIT CODE  0;7  Fileman r/w,Global r
.08    DX LINE 1              0;8  Fileman r/w
.055   ASSOCIATED 7078/583    0;9  Fileman r,Global r
.095   TREATMENT TYPE CODE    0;13 Fileman r/w,Global r
2      TYPE OF CARE           0;14 Fileman r/w
.06    DISCHARGE TYPE         0;15 Fileman r/w
.065   PATIENT TYPE CODE      0;18 Fileman r/w,Global r
.096   ACCIDENT RELATED (Y/N) 0;19 Fileman r/w
.097   POTENTIAL COST RECOV   0;20 Fileman r/w
104    REFERRING PROVIDER     0;21 Fileman r/w,Global r
^FBAAA(D0,1,D1,1)
3      DATE PRINTED           1;2  Fileman r
^FBAAA(D0,1,D1,2,0)
.021   AUTHORIZATION REMARKS
^FBAAA(D0,1,D1,2,D2,0)
.01    AUTHORIZATION REMARK   0;1  Fileman r/w,Global r/w
^FBAAA(D0,1,D1,3)
.085   DX LINE 2              3;1  Fileman r/w,Global r
.086   DX LINE 3              3;2  Fileman r/w,Global r
^FBAAA(D0,1,D1,100)
100    CLERK                100;1  Fileman r/w
^FBAAA(D0,1,D1,ADEL)
103    DATE DELETE MRA TRAN ADEL;2 Global r
^FBAAA(D0,1,D1,C)
1      PRINT AUTHORIZATION    C;1  Fileman r/w
^FBAAA(D0,1,D1,LOG1,D2,0)
.01 DATA/TIME EDITED          0;1  Fileman r
1   EDITED BY                 0;2  Fileman r
2 COMMENTS                    0;3  Fileman r
^FBAAA(DO,1,D1,LOG2,D2,0)
.01 CHANGED DATE/TIME         0;1  Fileman r
1   FIELD                     0;2  Fileman r
2   OLD VALUE                 0;3  Fileman r
3   NEW VALUE                 0;4  Fileman r
4   CHANGED BY                0;5  Fileman r
^FBAAA(D0,4)
.5     FEE ID CARD NUMBER     4;1  Fileman r,Global r
.6     FEE ID CARD ISSUE DATE 4;2  Fileman r,Global r
^FBAA("AG")       Lookup by ASSOCIATED 7078/583
^FBAA("ATST")     Lookup by From Date
^FBAAA(DFN,1,"B") Lookup by Authorization From Date