©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBARXEC0 ;ALB/AAS - RX COPAY EXEMPTION CONVERSION HELP ; 07-JAN-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
% ;
RESTART ; -- help for restarting the conversion
S DIR(0)="Y",DIR("A")="Show help on Restarting",DIR("B")="NO"
D ^DIR K DIR
I $D(DIRUT) S IBQUIT=1 Q
Q:Y<1
;
W !!
F I=1:1 S LINE=$P($T(TEXT1+I),";",3) Q:LINE=""!(IBQUIT) W !,LINE I ($Y+5)>IOSL D PAUSE^IBOUTL Q:IBQUIT W @IOF
W !! Q
;
;
Q
;
HELP S DIR(0)="Y",DIR("A")="Do you want to see the help",DIR("B")="NO"
D ^DIR K DIR
I $D(DIRUT) S IBQUIT=1 Q
Q:Y<1
;
W !!
F I=1:1 S LINE=$P($T(TEXT+I),";",3) Q:LINE=""!(IBQUIT) W !,LINE I ($Y+5)>IOSL D PAUSE^IBOUTL Q:IBQUIT W @IOF
W !! Q
;
TEXT ;; ;
;;This routine is the Medication Copayment Exemption
;;Conversion. It should be started immediately after bringing
;;your system up after the installation of the Medication
;;Copayment Exemption Patch. It will not run unless all parts
;;of the installation have been completed.
;; ;
;;Running of this conversion will set up the correct exemption
;;status for all patients who have received a pharmacy copay
;;charge since Oct. 30, 1992. For all patients determined to
;;be exempt it will cancel the charges in Integrated Billing
;;and then adjust the patient account to remove the copay
;;charges plus any administrative and interest charges that
;;may have accumulated on the canceled charges.
;; ;
;;In order for this conversion to work correctly you must have
;;AR version 3.7 installed correctly to do refunds. This
;;includes setting up an entry in the SERVICE/SECTION file
;;with the name of 'FISCAL' and a mail symbol of '04'. One
;;entry in file 411 must be identified as the primary
;;station. A Common Numbering series for refunds for the
;;Primary Station, for 'FISCAL' service must be set up.
;;Make sure that there are sufficient bill numbers available,
;;you may generate 1000 to 5000 refunds during this conversion
;;depending on the size of your facility.
;; ;
;;This conversion may run for a significant period of time.
;;It can be run with the users on a live system but should
;;not be run at peak business hours. It can be
;;restarted at any time. It will pick up after the patient it
;;last processed. If you do not queue the conversion,
;;pressing '^' return will pause the conversion after it finishes
;;the current patient and display the conversion's current
;;progress.
;; ;
;;After the conversion has completed, there will be a mail
;;message sent to the pharmacy copay mail group, the
;;user who started the conversion, and the Albany ISC telling
;;them the final statistics on the conversion.
;; ;
;;There are two reports that will need to be printed after the
;;conversion has completed. One in Accounts Receivable and one
;;in Integrated Billing. You should reconcile these reports.
;;For each patient listed on either report there should be a
;;matching patient and equal dollar amount shown. The only
;;exception will be if interest and/or admin charges have been
;;removed in AR they will not show on the IB report.
;;
;;
TEXT1 ;;
;;This is the current status of the Medication Copayment Exemption
;;Conversion. It may be restarted at any time. If a second
;;conversion is started the running conversion will stop at the
;;conclusion of a patient. This may affect the total counts
;;kept for quick reports by losing the count of the patient
;;being processed.
;; ;
;;If you are unsure stop now and do a system status. The conversion
;;routines are all named IBARXEC*. If your system is live, you may
;;see an intermittent conversion on the fly of a patient who has
;;not been converted.
;;