DBIA2347    ICR (2347)

We were tasked to make the class III VIST software a
nationally supported product.  In doing so, we eliminated many of the
unsupported calls to other packages and files.  The following is a list of the
remaining unsupported calls to the FEE BASIS PATIENT file (#161).

The VIST software contains a report titled "Fee Basis List". It includes a
sort template [ANRV FEE PT] and print template [ANRV FEE PT] with references
to NAME (.01), the AUTHORIZATION multiple subfile (#161.01), FROM DATE(.01),
TO DATE(.02), and TREATMENT TYPE CODE (.095) fields in the FEE BASIS PATIENT
File (#161). We request read access via FileMan extended syntax for the FEE
BASIS PATIENT fields NAME, AUTHORIZATION, FROM DATE, TO DATE, and TREATMENT
TYPE CODE.

Below is a capture of the templates in question and the report it generates.

Here is an example of the report output;

FEE PATIENT LISTING                            MAR 19,1998  12:40    PAGE 1
NAME                            SSN            FROM DATE    TO DATE
TREATMENT TYPE CODE
--------------------------------------------------------------------------
ANRVPATIENT,ONE                 000-00-4444    FEB 17,1998  APR 18,1998
I.D. CARD STATUS
------------------------------
COUNT 1



This is a copy of the Sort Template;

WANT TO EDIT 'ANRV FEE PT' TEMPLATE? NO// y  YES NAME: ANRV FEE PT// READ
ACCESS: WRITE ACCESS: SORT BY: @INTERNAL(VIST ELIGIBLE (AMIS))'="I";L1
Replace
By 'VIST ELIGIBLE ', do you mean VIST ROSTER 'VIST ELIGIBLE (AMIS)'? Yes//
(Yes)
WITHIN INTERNAL(VIST ELIGIBLE (AMIS))'="I", SORT BY: @NAME//
* Previous selection: NAME not null
START WITH NAME: FIRST//
WITHIN NAME, SORT BY: AUTHORIZATION// NAME:FEE BASIS PATIENT:
By 'FEE BASIS PATIENT', do you mean the FEE BASIS PATIENT File,
pointing via its 'NAME' Field? Yes//   (Yes)
FEE BASIS PATIENT FIELD: 1//   AUTHORIZATION    (multiple)
AUTHORIZATION SUB-FIELD: TREATMENT TYPE CODE["CARD"&(TO DATE>T);L1
Replace
WITHIN TREATMENT TYPE CODE["CARD"&(TO DATE>T), SORT BY: STORE IN 'SORT'
TEMPLATE:



This is a copy of the Print template;

WANT TO EDIT 'ANRV FEE PT' TEMPLATE? No// Y  (Yes) NAME: ANRV FEE PT// READ
ACCESS: WRITE ACCESS: FIRST PRINT FIELD: NAME;C1!//     THEN PRINT FIELD:
NAME:$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9);"SSN"
Replace
By 'SSN', do you mean PATIENT 'SOCIAL SECURITY NUMBER'? Yes//   (Yes)
By 'SSN', do you mean PATIENT 'SOCIAL SECURITY NUMBER'? Yes//   (Yes)
By 'SSN', do you mean PATIENT 'SOCIAL SECURITY NUMBER'? Yes//   (Yes) THEN
PRINT FIELD: NAME:FEE BASIS PATIENT:  Replace
By 'FEE BASIS PATIENT', do you mean the FEE BASIS PATIENT File,
pointing via its 'NAME' Field? Yes//   (Yes)
THEN PRINT FEE BASIS PATIENT FIELD: AUTHORIZATION//       (multiple)
THEN PRINT AUTHORIZATION SUB-FIELD: FROM DATE;C48//
THEN PRINT AUTHORIZATION SUB-FIELD: TO DATE//
THEN PRINT AUTHORIZATION SUB-FIELD: TREATMENT TYPE CODE//
THEN PRINT AUTHORIZATION SUB-FIELD:
THEN PRINT FEE BASIS PATIENT FIELD: THEN PRINT FIELD:

We will need a DBIA to cover these calls.