| 1 | IBYCPT ;ALB/CPM - PATCH IB*2*34 POST-INITIALIZATION ; 21-JUN-95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**34**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Patch IB*2*34 post initialization.
|
|---|
| 5 | ;
|
|---|
| 6 | D LTR ; add reminder letter to file #354.6
|
|---|
| 7 | D OPT ; add new option to the Copay Exemption menu
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | ;
|
|---|
| 11 | LTR ; Add the reminder letter to the IB FORM LETTER (#354.6) file.
|
|---|
| 12 | Q:$D(^IBE(354.6,"B","IB INCOME TEST REMINDER"))
|
|---|
| 13 | W !!,">>> Adding the Reminder Letter into the IB FORM LETTER (#354.6) file..."
|
|---|
| 14 | S DIC(0)="",DIC="^IBE(354.6,",X="IB INCOME TEST REMINDER"
|
|---|
| 15 | K DO,DD D FILE^DICN S IBLET=+Y
|
|---|
| 16 | I IBLET'>0 W !?4,*7,"Unable to add the letter! Contact your supporting ISC for assistance." G LTRQ
|
|---|
| 17 | ;
|
|---|
| 18 | S $P(^IBE(354.6,IBLET,0),"^",2,4)="Income Test Reminder Letter^2^15"
|
|---|
| 19 | ;
|
|---|
| 20 | ; - build letter body
|
|---|
| 21 | S ^IBE(354.6,IBLET,1,0)="^^13^13^"_DT_"^^^^"
|
|---|
| 22 | S ^IBE(354.6,IBLET,1,1,0)="The VA is required by law to charge veterans who receive medications"
|
|---|
| 23 | S ^IBE(354.6,IBLET,1,2,0)="on an outpatient basis for the treatment of nonservice-connected"
|
|---|
| 24 | S ^IBE(354.6,IBLET,1,3,0)="conditions, a copayment of $2.00 for each 30-day (or less) supply"
|
|---|
| 25 | S ^IBE(354.6,IBLET,1,4,0)="of medication provided. Based on the income information requested"
|
|---|
| 26 | S ^IBE(354.6,IBLET,1,5,0)="each year, some veterans may be exempt from the copayment."
|
|---|
| 27 | S ^IBE(354.6,IBLET,1,6,0)=" "
|
|---|
| 28 | S ^IBE(354.6,IBLET,1,7,0)="Our records indicate that your medication copayment exemption"
|
|---|
| 29 | S ^IBE(354.6,IBLET,1,8,0)="status will expire on |VAR(""IBEXPD"")|."
|
|---|
| 30 | S ^IBE(354.6,IBLET,1,9,0)=" "
|
|---|
| 31 | S ^IBE(354.6,IBLET,1,10,0)="<enter a third paragraph which provides instructions to the veteran>"
|
|---|
| 32 | S ^IBE(354.6,IBLET,1,11,0)=" "
|
|---|
| 33 | S ^IBE(354.6,IBLET,1,12,0)=" "
|
|---|
| 34 | S ^IBE(354.6,IBLET,1,13,0)="<enter a signature title if desired>"
|
|---|
| 35 | ;
|
|---|
| 36 | ; - build letter header
|
|---|
| 37 | S ^IBE(354.6,IBLET,2,0)="^^6^6^"_DT_"^^^^"
|
|---|
| 38 | S ^IBE(354.6,IBLET,2,1,0)="Department of Veterans Affairs Medical Center"
|
|---|
| 39 | S ^IBE(354.6,IBLET,2,2,0)="<enter the facility street here>"
|
|---|
| 40 | S ^IBE(354.6,IBLET,2,3,0)="<enter the facility city/state/zip here>"
|
|---|
| 41 | S ^IBE(354.6,IBLET,2,4,0)=" "
|
|---|
| 42 | S ^IBE(354.6,IBLET,2,5,0)=" "
|
|---|
| 43 | S ^IBE(354.6,IBLET,2,6,0)=" "
|
|---|
| 44 | ;
|
|---|
| 45 | LTRQ K DIC,IBLET,X,Y
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | OPT ; Add the option to reprint a reminder to the Copay Exemption menu.
|
|---|
| 49 | S Y=$O(^DIC(19,"B","IB RX EXEMPTION MENU",0)) I Y="" G OPTQ
|
|---|
| 50 | S X=$O(^DIC(19,"B","IB RX REPRINT REMINDER",0)) I X="" G OPTQ
|
|---|
| 51 | W !!,">>> Adding IB RX REPRINT REMINDER option to the IB RX EXEMPTION MENU..."
|
|---|
| 52 | I '$D(^DIC(19,+Y,10,0)) S ^DIC(19,+Y,10,0)="^19.01IP^0^0"
|
|---|
| 53 | S (DA,D0)=+Y,DIC="^DIC(19,"_+Y_",10,",DIC(0)="L",DA(1)=+Y,DLAYGO=19.01,X="IB RX REPRINT REMINDER" D ^DIC
|
|---|
| 54 | S DA=+Y,DIE="^DIC(19,"_DA(1)_",10,",DR="2///^S X=""REPR""" D ^DIE
|
|---|
| 55 | OPTQ K DIC,DIE,DA,DR,X,Y
|
|---|
| 56 | Q
|
|---|
