source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRP24.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1RMPRP24 ;PHX/HPL-Print patient notification letter ; 1/2/04 11:30am
2 ;;3.0;PROSTHETICS;**55,82**;Feb 09, 1996
3 ;
4 ; ODJ - patch 55 - 1/29/01 - replace 121 hard coded mail symbol with
5 ; call to site param. extrinsic.
6 ; see nois AUG-1097-32118
7 ;
8 ; KAM - patch 82 - 1/02/04 - remove SSN from letter
9 ;
10EN(RDA) ;SETUP VARIABLES AND PRINT PATIENT NOTIFICATION LETTER
11 ;VARIABLE REQUIRED:RDA - ENTRY # IN FILE 664
12 N VAHOW
13 S NAME=$P(^RMPR(664,RDA,0),U,9),RMPRINIT=NAME,RMPREMP=$$SIG^RMPR31U(NAME)
14 I $D(^VA(200,RMPRINIT,.13)) S RMPRPHON=$P(^VA(200,RMPRINIT,.13),U,2)
15 I '$D(^VA(200,$P(^RMPR(664,RDA,0),U,9),.13)) S RMPRPHON=RMPR("PHONE")
16 S DFN=$P(^RMPR(664,RDA,0),U,2) D ADD^VADPT,DEM^VADPT
17 S RMPRITEM=""
18 S RMPRITM=0 F LP=1:1 S RMPRITM=$O(^RMPR(664,RDA,1,RMPRITM)) Q:RMPRITM="B" S RMPRITEM(LP)=$P(^RMPR(664,RDA,1,RMPRITM,0),U,2),RMPRITM(LP)=$P(^RMPR(664,RDA,1,RMPRITM,0),U,1)
19 S HEADING="Department of Veterans Affairs"
20 W !!!!!,?IOM-$L(HEADING)\2,HEADING
21 S RMPRTAB=IOM-$L(RMPR("NAME"))\2 W !,?RMPRTAB,RMPR("NAME")
22 S RMPRTAB=IOM-$L(RMPR("ADD"))\2 W !,?RMPRTAB,RMPR("ADD")
23 S RMPRTAB=IOM-$L(RMPR("CITY"))\2 W !,?RMPRTAB,RMPR("CITY")
24 S RMPRTAB=7 S NAME=VADM(1) S FIXDNAME=$$PARS^RMPRUTL1(NAME)
25 W !!,?44,$$FMTE^XLFDT(DT,"D")
26 S FIXDNAME=$E(FIXDNAME,2,$L(FIXDNAME)-2)
27 W !!,?RMPRTAB,$S($P(VADM(5),U,1)["M":"MR. ",$P(VADM(5),U,1)["F":"MS. ",1:"")_$$UP^XLFSTR(FIXDNAME),?44,"In reply refer to: ",$P(^DIC(4,RMPR("STA"),99),U,1)_"/"_$$ROU^RMPRUTIL(RMPRSITE),!
28 W:VAPA(1)'="" ?RMPRTAB,VAPA(1),?44,"Veteran: ",VADM(1),!
29 ; *82 removed SSN from the next line
30 W:VAPA(2)'="" ?RMPRTAB,VAPA(2),!
31 W:VAPA(3)'="" ?RMPRTAB,VAPA(3)
32 W:VAPA(4)'="" ?RMPRTAB,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_VAPA(6)
33 W !!!,?RMPRTAB,"Dear ",$S($P(VADM(5),"^",1)["M":"Mr. ",$P(VADM(5),"^",1)["F":"Ms. ",1:"")_FIXDNAME_","
34 W !!,?RMPRTAB+0
35 W "This is to notify you that the items listed below were ordered"
36 W !,?RMPRTAB,"for you on "
37 W $$FMTE^XLFDT($P(^RMPR(664,RDA,0),U,1),"D")_". Delivery of this equipment is expected"
38 W !,?RMPRTAB,$S($P($G(^RMPR(664,RDA,3)),U,2)'="":"on or about "_$$FMTE^XLFDT($P(^RMPR(664,RDA,3),U,2),"D")_".",1:"in 30 days from the order date.")
39 W !!,?RMPRTAB,"If you do not receive it within 5 days of the expected date,"
40 S LINE="please contact "_RMPREMP_", of my staff, at "_RMPRPHON_"."
41 W $$RAP^RMPRUTL1(LINE,RMPRTAB)
42ITEMS NEW DA
43 W !
44 S RMPRLAST=$P(^RMPR(664,RDA,1,0),U,4) F LP=1:1:RMPRLAST D
45 .I $D(RMPRITEM(LP)) W !,?RMPRTAB+3,RMPRITEM(LP)
46 .E S RMPRITM=RMPRITM(LP) W !,?RMPRTAB+3,$$ITM^RMPR31U(RMPRITM)
47 W !!,?RMPRTAB,"Sincerely,"
48 W !!!!!,?RMPRTAB,RMPR("SIG")
49 W !,?RMPRTAB,RMPR("SBT")
50 W @IOF
51 K RMPREMP,RMPRNAME,LINE Q " "
Note: See TracBrowser for help on using the repository browser.