Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOTPCLW

PSOTPCLW.m

Go to the documentation of this file. 
  1. PSOTPCLW ;BIRM/PDW-ROUTINE FOR STORE & PRINT LETTERS
  1.  ;;7.0;OUTPATIENT PHARMACY;**145**;DEC 1997
  1.  Q
  1. LOADTMP ;Load letter text into ^TMP($J,"TPCLW","Px")
  1.  ;This builds the patient letter for TIME NEW ROMAN 12 POINT (NOT 12 PITCH)
  1.  K ^TMP($J,"TPCLW"),INDENT
  1.  S $P(INDENT," ",5)=""
  1.  F LN=1:1 S XX=$T(MMLETTER+LN) Q:XX["*****"  S XX=$P(XX,";;",2),^TMP($J,"TPCLW","P1",LN)=INDENT_XX
  1.  S LN1=LN
  1.  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
  1.  S LN1=LN+LN1
  1.  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
  1.  S LN1=LN+LN1
  1.  Q
  1. TMP ; show TMP contents
  1.  S X=132 X ^%ZOSF("RM")
  1.  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
  1.  S X=80 X ^%ZOSF("RM")
  1.  Q
  1. SETUP ;pull text lines from mailman message and store into routine
  1. SETUPB D SELBSK Q:Y'>0
  1.  D SELMSG G:Y'>0 SETUPB
  1.  D MMLOAD
  1.  Q
  1. SELBSK ;SELECT BASKET,DA
  1.  K DIC,DA S BSKDA=0
  1.  S DA(1)=DUZ,DIC="^XMB(3.7,DA(1),2,",DIC(0)="AEQM"
  1.  D ^DIC
  1.  S:+Y>0 BSKDA=+Y
  1.  Q
  1. SELMSG ;SELECT MESSAGE
  1.  K DIC,DA S MSGDA=0,IENS=BSKDA_","_DUZ
  1.  W !!,"Basket: ",$$GET1^DIQ(3.701,IENS,.01)
  1.  S DA(2)=DUZ,DA(1)=BSKDA,DIC="^XMB(3.7,DUZ,2,BSKDA,1,",DIC(0)="AEQM"
  1.  S DIC("W")="W $$GET1^DIQ(3.9,+Y,.01)"
  1.  D ^DIC K DIC,DR,DA
  1.  S:+Y>0 MSGDA=+Y
  1.  Q
  1. MMLOAD ; Load text into routine from a mail message.
  1.  S MMDA=$G(MSGDA) Q:+MMDA'>0
  1.  S X1="S XX=""MMLETTER ;;"" ZI XX"
  1.  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"
  1.  X X1,X2,"ZS"
  1.  Q
  1. MMLETTER ;;
  1.  ;;Dear Veteran:
  1.  ;; 
  1.  ;;I am pleased to tell you that you may be eligible for a new, temporary 
  1.  ;;prescription benefit, called the VA Transitional Pharmacy Benefit.  The 
  1.  ;;goal is to reduce the costs of your medication while you are waiting to 
  1.  ;;see a VA primary care doctor.
  1.  ;; 
  1.  ;;1.  AM I ELIGIBLE FOR THIS NEW BENEFIT?
  1.  ;; 
  1.  ;;You are eligible for this benefit if you meet all of the following 
  1.  ;;requirements.
  1.  ;; 
  1.  ;;        a.  You are enrolled in the VA health care system prior to July 
  1.  ;;25, 2003; and
  1.  ;;        b.  You have requested your first primary care appointment with 
  1.  ;;VA prior to July 25, 2003; and
  1.  ;;        c.  You have been waiting more than 30 days for the initial 
  1.  ;;primary care appointment as of September 22, 2003.
  1.  ;; 
  1.  ;;2.  WHAT IS THE NEW BENEFIT?
  1.  ;; 
  1.  ;;        The new benefit allows VA to fill your prescriptions written by a 
  1.  ;;non-VA doctor, until you have your first primary care appointment with 
  1.  ;;VA.  VA will only provide your medications by mail.  VA may also bill 
  1.  ;;your health insurance, and you may have to pay a co-payment based on your 
  1.  ;;eligibility and financial status.
  1.  ;; 
  1.  ;;        The medications provided by this benefit include many of the drugs 
  1.  ;;listed on the VA National Formulary List.  We have enclosed a shortened 
  1.  ;;version of that list for your doctor's use.  Under this program, VA will 
  1.  ;;not provide controlled substances (such as narcotics), intravenous
  1.  ;;medications, over-the-counter medications (except insulin and 
  1.  ;;syringes), medical supplies, and one-time medications for acute illnesses 
  1.  ;;(such as antibiotics).  Additionally, VA will not provide medications 
  1.  ;;required to be administered only by a medical professional.
  1.  ;; 
  1.  ;;3.  HOW DO I START?
  1.  ;; 
  1.  ;;        To obtain your medications, please do the following:
  1.  ;; 
  1.  ;;        a.  Fill out the top portion of the attached VA Form 10-0411, 
  1.  ;;VA Transitional Pharmacy Benefit (the Patient Information part).
  1.  ;;        b.  Take the attached letter ("Dear Doctor"), the enclosed 
  1.  ;;Transitional Pharmacy Benefit Drug Formulary Summary brochure, and VA 
  1.  ;;Form 10-0411, VA Transitional Pharmacy Benefit, to your private doctor. 
  1.  ;;        c.  Ask your doctor to:
  1.  ;; 
  1.  ;;        (1)  Complete the Doctor Information section of VA Form 10-0411.
  1.  ;;        (2)  Attach a prescription for each medication and include your 
  1.  ;;name and social security number; and
  1.  ;;        (3)  Mail these documents to the following address using the
  1.  ;;enclosed envelope.
  1.  ;; 
  1.  ;;*****
  1.  ;; 
  1.  ;;4.  HOW WILL I GET MY MEDICATIONS?
  1.  ;; 
  1.  ;;        Prescriptions from your non-VA doctor must be mailed in the 
  1.  ;;enclosed envelope to the address shown above.  Our goal is to mail your 
  1.  ;;medications to you within 7 to 10 days after receiving your 
  1.  ;;prescription.  If you have questions or concerns about your mailed 
  1.  ;;medications, you may contact 
  1.  ;;***** 
  1.  ;;VA will provide sufficient medication to meet your needs until your first 
  1.  ;;primary care appointment.  Please make sure your doctor mails the 
  1.  ;;enclosed form and prescriptions.  VA is not able to process these 
  1.  ;;prescriptions by fax, phone, or email.  If your doctor does not provide 
  1.  ;;all the requested information, VA cannot send your medication.
  1.  ;; 
  1.  ;;5.  WHERE CAN I GET MORE INFORMATION?
  1.  ;; 
  1.  ;;        More information about this benefit can be found on the VA's 
  1.  ;;Internet Web site, at http://www.va.gov/elig/tpb.htm.  If you still have
  1.  ;;questions, please call 1-999-999-9999.
  1.  ;; 
  1.  ;;6.  PLEASE KEEP YOUR FIRST PRIMARY CARE APPOINTMENT!
  1.  ;; 
  1.  ;;        Once VA has scheduled your first primary care appointment, please 
  1.  ;;remember that it is very important to keep that appointment.  If you must 
  1.  ;;cancel your appointment, please advise the appointment clerk that you are 
  1.  ;;a VA Transitional Pharmacy Benefits patient and explain why you are 
  1.  ;;canceling.  VA understands that there are occasions when you must cancel 
  1.  ;;your appointment.  However, if you cancel your appointment simply for 
  1.  ;;your own convenience, or if you fail to show up for your scheduled 
  1.  ;;appointment without an acceptable reason, you may no longer be eligible 
  1.  ;;for this benefit.
  1.  ;; 
  1.  ;;        During your first primary care appointment, your VA doctor will 
  1.  ;;review all treatments, including all your medications, and make changes 
  1.  ;;as appropriate and give you refills.
  1.  ;; 
  1.  ;;        VA is committed to serving you by providing this benefit to 
  1.  ;;reduce your medication costs while you wait for your first primary care 
  1.  ;;appointment.  Thank you for your patience.  We hope to see you soon.
  1.  ;;*****