PSOTPCLW ;BIRM/PDW-ROUTINE FOR STORE & PRINT LETTERS
;;7.0;OUTPATIENT PHARMACY;**145**;DEC 1997
Q
LOADTMP ;Load letter text into ^TMP($J,"TPCLW","Px")
;This builds the patient letter for TIME NEW ROMAN 12 POINT (NOT 12 PITCH)
K ^TMP($J,"TPCLW"),INDENT
S $P(INDENT," ",5)=""
F LN=1:1 S XX=$T(MMLETTER+LN) Q:XX["*****" S XX=$P(XX,";;",2),^TMP($J,"TPCLW","P1",LN)=INDENT_XX
S LN1=LN
F LN=1:1 S YY=LN1+LN,XX=$T(MMLETTER+YY) Q:XX["*****" S XX=$P(XX,";;",2),^TMP($J,"TPCLW","P2",LN)=INDENT_XX
S LN1=LN+LN1
F LN=1:1 S YY=LN1+LN,XX=$T(MMLETTER+YY) Q:XX["*****" S XX=$P(XX,";;",2),^TMP($J,"TPCLW","P3",LN)=INDENT_XX
S LN1=LN+LN1
Q
TMP ; show TMP contents
S X=132 X ^%ZOSF("RM")
F XX="P1","P2","P3" W !!,XX,! S LN=0 F S LN=$O(^TMP($J,"TPCLW",XX,LN)) Q:LN'>0 S X=^(LN) W !,X
S X=80 X ^%ZOSF("RM")
Q
SETUP ;pull text lines from mailman message and store into routine
SETUPB D SELBSK Q:Y'>0
D SELMSG G:Y'>0 SETUPB
D MMLOAD
Q
SELBSK ;SELECT BASKET,DA
K DIC,DA S BSKDA=0
S DA(1)=DUZ,DIC="^XMB(3.7,DA(1),2,",DIC(0)="AEQM"
D ^DIC
S:+Y>0 BSKDA=+Y
Q
SELMSG ;SELECT MESSAGE
K DIC,DA S MSGDA=0,IENS=BSKDA_","_DUZ
W !!,"Basket: ",$$GET1^DIQ(3.701,IENS,.01)
S DA(2)=DUZ,DA(1)=BSKDA,DIC="^XMB(3.7,DUZ,2,BSKDA,1,",DIC(0)="AEQM"
S DIC("W")="W $$GET1^DIQ(3.9,+Y,.01)"
D ^DIC K DIC,DR,DA
S:+Y>0 MSGDA=+Y
Q
MMLOAD ; Load text into routine from a mail message.
S MMDA=$G(MSGDA) Q:+MMDA'>0
S X1="S XX=""MMLETTER ;;"" ZI XX"
S X2="S LN=0 F S LN=$O(^XMB(3.9,MMDA,2,LN)) Q:LN'>0 S XX="" ;;""_^XMB(3.9,MMDA,2,LN,0) ZI XX"
X X1,X2,"ZS"
Q
MMLETTER ;;
;;Dear Veteran:
;;
;;I am pleased to tell you that you may be eligible for a new, temporary
;;prescription benefit, called the VA Transitional Pharmacy Benefit. The
;;goal is to reduce the costs of your medication while you are waiting to
;;see a VA primary care doctor.
;;
;;1. AM I ELIGIBLE FOR THIS NEW BENEFIT?
;;
;;You are eligible for this benefit if you meet all of the following
;;requirements.
;;
;; a. You are enrolled in the VA health care system prior to July
;;25, 2003; and
;; b. You have requested your first primary care appointment with
;;VA prior to July 25, 2003; and
;; c. You have been waiting more than 30 days for the initial
;;primary care appointment as of September 22, 2003.
;;
;;2. WHAT IS THE NEW BENEFIT?
;;
;; The new benefit allows VA to fill your prescriptions written by a
;;non-VA doctor, until you have your first primary care appointment with
;;VA. VA will only provide your medications by mail. VA may also bill
;;your health insurance, and you may have to pay a co-payment based on your
;;eligibility and financial status.
;;
;; The medications provided by this benefit include many of the drugs
;;listed on the VA National Formulary List. We have enclosed a shortened
;;version of that list for your doctor's use. Under this program, VA will
;;not provide controlled substances (such as narcotics), intravenous
;;medications, over-the-counter medications (except insulin and
;;syringes), medical supplies, and one-time medications for acute illnesses
;;(such as antibiotics). Additionally, VA will not provide medications
;;required to be administered only by a medical professional.
;;
;;3. HOW DO I START?
;;
;; To obtain your medications, please do the following:
;;
;; a. Fill out the top portion of the attached VA Form 10-0411,
;;VA Transitional Pharmacy Benefit (the Patient Information part).
;; b. Take the attached letter ("Dear Doctor"), the enclosed
;;Transitional Pharmacy Benefit Drug Formulary Summary brochure, and VA
;;Form 10-0411, VA Transitional Pharmacy Benefit, to your private doctor.
;; c. Ask your doctor to:
;;
;; (1) Complete the Doctor Information section of VA Form 10-0411.
;; (2) Attach a prescription for each medication and include your
;;name and social security number; and
;; (3) Mail these documents to the following address using the
;;enclosed envelope.
;;
;;*****
;;
;;4. HOW WILL I GET MY MEDICATIONS?
;;
;; Prescriptions from your non-VA doctor must be mailed in the
;;enclosed envelope to the address shown above. Our goal is to mail your
;;medications to you within 7 to 10 days after receiving your
;;prescription. If you have questions or concerns about your mailed
;;medications, you may contact
;;*****
;;VA will provide sufficient medication to meet your needs until your first
;;primary care appointment. Please make sure your doctor mails the
;;enclosed form and prescriptions. VA is not able to process these
;;prescriptions by fax, phone, or email. If your doctor does not provide
;;all the requested information, VA cannot send your medication.
;;
;;5. WHERE CAN I GET MORE INFORMATION?
;;
;; More information about this benefit can be found on the VA's
;;Internet Web site, at http://www.va.gov/elig/tpb.htm. If you still have
;;questions, please call 1-999-999-9999.
;;
;;6. PLEASE KEEP YOUR FIRST PRIMARY CARE APPOINTMENT!
;;
;; Once VA has scheduled your first primary care appointment, please
;;remember that it is very important to keep that appointment. If you must
;;cancel your appointment, please advise the appointment clerk that you are
;;a VA Transitional Pharmacy Benefits patient and explain why you are
;;canceling. VA understands that there are occasions when you must cancel
;;your appointment. However, if you cancel your appointment simply for
;;your own convenience, or if you fail to show up for your scheduled
;;appointment without an acceptable reason, you may no longer be eligible
;;for this benefit.
;;
;; During your first primary care appointment, your VA doctor will
;;review all treatments, including all your medications, and make changes
;;as appropriate and give you refills.
;;
;; VA is committed to serving you by providing this benefit to
;;reduce your medication costs while you wait for your first primary care
;;appointment. Thank you for your patience. We hope to see you soon.
;;*****
PSOTPCLW ;BIRM/PDW-ROUTINE FOR STORE & PRINT LETTERS
+1 ;;7.0;OUTPATIENT PHARMACY;**145**;DEC 1997
+2 QUIT
LOADTMP ;Load letter text into ^TMP($J,"TPCLW","Px")
+1 ;This builds the patient letter for TIME NEW ROMAN 12 POINT (NOT 12 PITCH)
+2 KILL ^TMP($JOB,"TPCLW"),INDENT
+3 SET $PIECE(INDENT," ",5)=""
+4 FOR LN=1:1
SET XX=$TEXT(MMLETTER+LN)
IF XX["*****"
QUIT
SET XX=$PIECE(XX,";;",2)
SET ^TMP($JOB,"TPCLW","P1",LN)=INDENT_XX
+5 SET LN1=LN
+6 FOR LN=1:1
SET YY=LN1+LN
SET XX=$TEXT(MMLETTER+YY)
IF XX["*****"
QUIT
SET XX=$PIECE(XX,";;",2)
SET ^TMP($JOB,"TPCLW","P2",LN)=INDENT_XX
+7 SET LN1=LN+LN1
+8 FOR LN=1:1
SET YY=LN1+LN
SET XX=$TEXT(MMLETTER+YY)
IF XX["*****"
QUIT
SET XX=$PIECE(XX,";;",2)
SET ^TMP($JOB,"TPCLW","P3",LN)=INDENT_XX
+9 SET LN1=LN+LN1
+10 QUIT
TMP ; show TMP contents
+1 SET X=132
XECUTE ^%ZOSF("RM")
+2 FOR XX="P1","P2","P3"
WRITE !!,XX,!
SET LN=0
FOR
SET LN=$ORDER(^TMP($JOB,"TPCLW",XX,LN))
IF LN'>0
QUIT
SET X=^(LN)
WRITE !,X
+3 SET X=80
XECUTE ^%ZOSF("RM")
+4 QUIT
SETUP ;pull text lines from mailman message and store into routine
SETUPB DO SELBSK
IF Y'>0
QUIT
+1 DO SELMSG
IF Y'>0
GOTO SETUPB
+2 DO MMLOAD
+3 QUIT
SELBSK ;SELECT BASKET,DA
+1 KILL DIC,DA
SET BSKDA=0
+2 SET DA(1)=DUZ
SET DIC="^XMB(3.7,DA(1),2,"
SET DIC(0)="AEQM"
+3 DO ^DIC
+4 IF +Y>0
SET BSKDA=+Y
+5 QUIT
SELMSG ;SELECT MESSAGE
+1 KILL DIC,DA
SET MSGDA=0
SET IENS=BSKDA_","_DUZ
+2 WRITE !!,"Basket: ",$$GET1^DIQ(3.701,IENS,.01)
+3 SET DA(2)=DUZ
SET DA(1)=BSKDA
SET DIC="^XMB(3.7,DUZ,2,BSKDA,1,"
SET DIC(0)="AEQM"
+4 SET DIC("W")="W $$GET1^DIQ(3.9,+Y,.01)"
+5 DO ^DIC
KILL DIC,DR,DA
+6 IF +Y>0
SET MSGDA=+Y
+7 QUIT
MMLOAD ; Load text into routine from a mail message.
+1 SET MMDA=$GET(MSGDA)
IF +MMDA'>0
QUIT
+2 SET X1="S XX=""MMLETTER ;;"" ZI XX"
+3 SET X2="S LN=0 F S LN=$O(^XMB(3.9,MMDA,2,LN)) Q:LN'>0 S XX="" ;;""_^XMB(3.9,MMDA,2,LN,0) ZI XX"
+4 XECUTE X1
XECUTE X2
XECUTE "ZS"
+5 QUIT
MMLETTER ;;
+1 ;;Dear Veteran:
+2 ;;
+3 ;;I am pleased to tell you that you may be eligible for a new, temporary
+4 ;;prescription benefit, called the VA Transitional Pharmacy Benefit. The
+5 ;;goal is to reduce the costs of your medication while you are waiting to
+6 ;;see a VA primary care doctor.
+7 ;;
+8 ;;1. AM I ELIGIBLE FOR THIS NEW BENEFIT?
+9 ;;
+10 ;;You are eligible for this benefit if you meet all of the following
+11 ;;requirements.
+12 ;;
+13 ;; a. You are enrolled in the VA health care system prior to July
+14 ;;25, 2003; and
+15 ;; b. You have requested your first primary care appointment with
+16 ;;VA prior to July 25, 2003; and
+17 ;; c. You have been waiting more than 30 days for the initial
+18 ;;primary care appointment as of September 22, 2003.
+19 ;;
+20 ;;2. WHAT IS THE NEW BENEFIT?
+21 ;;
+22 ;; The new benefit allows VA to fill your prescriptions written by a
+23 ;;non-VA doctor, until you have your first primary care appointment with
+24 ;;VA. VA will only provide your medications by mail. VA may also bill
+25 ;;your health insurance, and you may have to pay a co-payment based on your
+26 ;;eligibility and financial status.
+27 ;;
+28 ;; The medications provided by this benefit include many of the drugs
+29 ;;listed on the VA National Formulary List. We have enclosed a shortened
+30 ;;version of that list for your doctor's use. Under this program, VA will
+31 ;;not provide controlled substances (such as narcotics), intravenous
+32 ;;medications, over-the-counter medications (except insulin and
+33 ;;syringes), medical supplies, and one-time medications for acute illnesses
+34 ;;(such as antibiotics). Additionally, VA will not provide medications
+35 ;;required to be administered only by a medical professional.
+36 ;;
+37 ;;3. HOW DO I START?
+38 ;;
+39 ;; To obtain your medications, please do the following:
+40 ;;
+41 ;; a. Fill out the top portion of the attached VA Form 10-0411,
+42 ;;VA Transitional Pharmacy Benefit (the Patient Information part).
+43 ;; b. Take the attached letter ("Dear Doctor"), the enclosed
+44 ;;Transitional Pharmacy Benefit Drug Formulary Summary brochure, and VA
+45 ;;Form 10-0411, VA Transitional Pharmacy Benefit, to your private doctor.
+46 ;; c. Ask your doctor to:
+47 ;;
+48 ;; (1) Complete the Doctor Information section of VA Form 10-0411.
+49 ;; (2) Attach a prescription for each medication and include your
+50 ;;name and social security number; and
+51 ;; (3) Mail these documents to the following address using the
+52 ;;enclosed envelope.
+53 ;;
+54 ;;*****
+55 ;;
+56 ;;4. HOW WILL I GET MY MEDICATIONS?
+57 ;;
+58 ;; Prescriptions from your non-VA doctor must be mailed in the
+59 ;;enclosed envelope to the address shown above. Our goal is to mail your
+60 ;;medications to you within 7 to 10 days after receiving your
+61 ;;prescription. If you have questions or concerns about your mailed
+62 ;;medications, you may contact
+63 ;;*****
+64 ;;VA will provide sufficient medication to meet your needs until your first
+65 ;;primary care appointment. Please make sure your doctor mails the
+66 ;;enclosed form and prescriptions. VA is not able to process these
+67 ;;prescriptions by fax, phone, or email. If your doctor does not provide
+68 ;;all the requested information, VA cannot send your medication.
+69 ;;
+70 ;;5. WHERE CAN I GET MORE INFORMATION?
+71 ;;
+72 ;; More information about this benefit can be found on the VA's
+73 ;;Internet Web site, at http://www.va.gov/elig/tpb.htm. If you still have
+74 ;;questions, please call 1-999-999-9999.
+75 ;;
+76 ;;6. PLEASE KEEP YOUR FIRST PRIMARY CARE APPOINTMENT!
+77 ;;
+78 ;; Once VA has scheduled your first primary care appointment, please
+79 ;;remember that it is very important to keep that appointment. If you must
+80 ;;cancel your appointment, please advise the appointment clerk that you are
+81 ;;a VA Transitional Pharmacy Benefits patient and explain why you are
+82 ;;canceling. VA understands that there are occasions when you must cancel
+83 ;;your appointment. However, if you cancel your appointment simply for
+84 ;;your own convenience, or if you fail to show up for your scheduled
+85 ;;appointment without an acceptable reason, you may no longer be eligible
+86 ;;for this benefit.
+87 ;;
+88 ;; During your first primary care appointment, your VA doctor will
+89 ;;review all treatments, including all your medications, and make changes
+90 ;;as appropriate and give you refills.
+91 ;;
+92 ;; VA is committed to serving you by providing this benefit to
+93 ;;reduce your medication costs while you wait for your first primary care
+94 ;;appointment. Thank you for your patience. We hope to see you soon.
+95 ;;*****
