IBARXEC0.m

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.

	;;

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      ;;