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.
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBARXEC0 3851 printed Apr 09, 2024@21:33:47 Page 2
IBARXEC0 ;ALB/AAS - RX COPAY EXEMPTION CONVERSION HELP ; 07-JAN-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
% ;
RESTART ; -- help for restarting the conversion
+1 SET DIR(0)="Y"
SET DIR("A")="Show help on Restarting"
SET DIR("B")="NO"
+2 DO ^DIR
KILL DIR
+3 IF $DATA(DIRUT)
SET IBQUIT=1
QUIT
+4 if Y<1
QUIT
+5 ;
+6 WRITE !!
+7 FOR I=1:1
SET LINE=$PIECE($TEXT(TEXT1+I),";",3)
if LINE=""!(IBQUIT)
QUIT
WRITE !,LINE
IF ($Y+5)>IOSL
DO PAUSE^IBOUTL
if IBQUIT
QUIT
WRITE @IOF
+8 WRITE !!
QUIT
+9 ;
+10 ;
+11 QUIT
+12 ;
HELP SET DIR(0)="Y"
SET DIR("A")="Do you want to see the help"
SET DIR("B")="NO"
+1 DO ^DIR
KILL DIR
+2 IF $DATA(DIRUT)
SET IBQUIT=1
QUIT
+3 if Y<1
QUIT
+4 ;
+5 WRITE !!
+6 FOR I=1:1
SET LINE=$PIECE($TEXT(TEXT+I),";",3)
if LINE=""!(IBQUIT)
QUIT
WRITE !,LINE
IF ($Y+5)>IOSL
DO PAUSE^IBOUTL
if IBQUIT
QUIT
WRITE @IOF
+7 WRITE !!
QUIT
+8 ;
TEXT ;; ;
+1 ;;This routine is the Medication Copayment Exemption
+2 ;;Conversion. It should be started immediately after bringing
+3 ;;your system up after the installation of the Medication
+4 ;;Copayment Exemption Patch. It will not run unless all parts
+5 ;;of the installation have been completed.
+6 ;; ;
+7 ;;Running of this conversion will set up the correct exemption
+8 ;;status for all patients who have received a pharmacy copay
+9 ;;charge since Oct. 30, 1992. For all patients determined to
+10 ;;be exempt it will cancel the charges in Integrated Billing
+11 ;;and then adjust the patient account to remove the copay
+12 ;;charges plus any administrative and interest charges that
+13 ;;may have accumulated on the canceled charges.
+14 ;; ;
+15 ;;In order for this conversion to work correctly you must have
+16 ;;AR version 3.7 installed correctly to do refunds. This
+17 ;;includes setting up an entry in the SERVICE/SECTION file
+18 ;;with the name of 'FISCAL' and a mail symbol of '04'. One
+19 ;;entry in file 411 must be identified as the primary
+20 ;;station. A Common Numbering series for refunds for the
+21 ;;Primary Station, for 'FISCAL' service must be set up.
+22 ;;Make sure that there are sufficient bill numbers available,
+23 ;;you may generate 1000 to 5000 refunds during this conversion
+24 ;;depending on the size of your facility.
+25 ;; ;
+26 ;;This conversion may run for a significant period of time.
+27 ;;It can be run with the users on a live system but should
+28 ;;not be run at peak business hours. It can be
+29 ;;restarted at any time. It will pick up after the patient it
+30 ;;last processed. If you do not queue the conversion,
+31 ;;pressing '^' return will pause the conversion after it finishes
+32 ;;the current patient and display the conversion's current
+33 ;;progress.
+34 ;; ;
+35 ;;After the conversion has completed, there will be a mail
+36 ;;message sent to the pharmacy copay mail group, the
+37 ;;user who started the conversion, and the Albany ISC telling
+38 ;;them the final statistics on the conversion.
+39 ;; ;
+40 ;;There are two reports that will need to be printed after the
+41 ;;conversion has completed. One in Accounts Receivable and one
+42 ;;in Integrated Billing. You should reconcile these reports.
+43 ;;For each patient listed on either report there should be a
+44 ;;matching patient and equal dollar amount shown. The only
+45 ;;exception will be if interest and/or admin charges have been
+46 ;;removed in AR they will not show on the IB report.
+47 ;;
+48 ;;
TEXT1 ;;
+1 ;;This is the current status of the Medication Copayment Exemption
+2 ;;Conversion. It may be restarted at any time. If a second
+3 ;;conversion is started the running conversion will stop at the
+4 ;;conclusion of a patient. This may affect the total counts
+5 ;;kept for quick reports by losing the count of the patient
+6 ;;being processed.
+7 ;; ;
+8 ;;If you are unsure stop now and do a system status. The conversion
+9 ;;routines are all named IBARXEC*. If your system is live, you may
+10 ;;see an intermittent conversion on the fly of a patient who has
+11 ;;not been converted.
+12 ;;
