| 1 | RMPRFO6 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ;11/01/1994
|
|---|
| 2 | ;;3.0;PROSTHETICS;**82,130**;Feb 09, 1996;Build 7
|
|---|
| 3 | ; 07/21/2004 KAM RMPR*3*82 - Remove Patient SSN from Letter
|
|---|
| 4 | MORE ;PRINT ADDITIONAL PAGE(S) OF FL 10-90 ADP IF NEEDED
|
|---|
| 5 | Q:MORE=0&(ITEM'>0) S LINES=0,MORE=0,HEADING="CONTINUATION OF REQUEST FOR QUOTATION" W !!!,?IOM-$L(HEADING)\2,HEADING
|
|---|
| 6 | S HEADING="Date: "_$$FMTE^XLFDT(DT,"D") W !,?IOM-$L(HEADING)\2,HEADING
|
|---|
| 7 | W !!,?5,"TO: "
|
|---|
| 8 | I $G(DA)>0 I $D(^RMPR(665.4,DA,2)) W:($P(^RMPR(665.4,DA,2),U,1)'="") $P(^PRC(440,$P(^RMPR(665.4,DA,2),U,1),0),U,1)
|
|---|
| 9 | W ?IOM-5-RMPRLNG-6,"FROM: ",RMPR("NAME")
|
|---|
| 10 | W !,?IOM-5-RMPRLNG,RMPR("ADD"),!,?IOM-5-RMPRLNG,RMPR("CITY")
|
|---|
| 11 | ; *82 removed patient SSN from next line
|
|---|
| 12 | W !!,?IOM-5-$L(NAME)-9,"Veteran: ",NAME,!
|
|---|
| 13 | W !!,?5,"CONTINUATION OF ITEM LIST:"
|
|---|
| 14 | Q:$G(ITEM)'>0 S LINES=0,LEN=0 W !,?6," ",^RMPR(665.4,DA,3,ITEM,0) S LEN=$L($P(^RMPR(665.4,DA,3,ITEM,0),U,1))+2
|
|---|
| 15 | F S ITEM=$O(^RMPR(665.4,DA,3,ITEM)) Q:ITEM'>0!(LINES>11) D:LINES<12
|
|---|
| 16 | .I LEN=0 W !,?6," " S LINES=LINES+1
|
|---|
| 17 | .I LEN>0,LEN+$L($P(^RMPR(665.4,DA,3,ITEM,0),U,1))<71 W ", "
|
|---|
| 18 | .I LEN>0,LEN+$L($P(^RMPR(665.4,DA,3,ITEM,0),U,1))>70 S LEN=0 W !,?6," " S LINES=LINES+1
|
|---|
| 19 | .W:LINES<12 ^RMPR(665.4,DA,3,ITEM,0) S LEN=LEN+2+$L($P(^RMPR(665.4,DA,3,ITEM,0),U,1))
|
|---|
| 20 | .I LINES>11&(ITEM>0) S MORE=1 D MORE
|
|---|
| 21 | I LINES<12&(LINES>0&(MORE=0)) S MORE=0 Q
|
|---|
