| GENERAL DESCRIPTION |
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.
|
