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