| 1 | RMPRFO4 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ;11/01/1994
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | EST ;PRINT VENDOR'S ESTIMATE SECTION OF FL 10-90
|
|---|
| 4 | S LINES=0,HEADING="VENDOR'S ESTIMATE" W !!,?IOM-$L(HEADING)\2,HEADING
|
|---|
| 5 | S HEADING="(To be completed by Vendor)" W !,?IOM-$L(HEADING)\2,HEADING
|
|---|
| 6 | W !,?5,$$REPEAT^XLFSTR("-",70)
|
|---|
| 7 | W !,?5,"|",?12,"Article or Service",?37,"|Quantity| Unit |Unit Cost|Total Cost|"
|
|---|
| 8 | W !,?5,$$REPEAT^XLFSTR("-",70)
|
|---|
| 9 | S LAPS=$Y F LP=LAPS:1:47 W !,?5,"|",?37,"|",?46,"|",?53,"|",?63,"|",?74,"|" I $Y>20&(IOST["C-") K DIR S DIR(0)="FO^ :",DIR("A")="Push return to continue" D ^DIR G:(X="^")!($D(DTOUT)) QWIT W @IOF
|
|---|
| 10 | W !,?5,$$REPEAT^XLFSTR("-",70)
|
|---|
| 11 | W !,?5,"| Vendor:",?42,"Contract number (if applicable) |"
|
|---|
| 12 | W !,?5,"| Address:",?74,"|"
|
|---|
| 13 | W !,?5,"| City:",?74,"|",!,?5,"| State:",?26,"Zip:",?74,"|"
|
|---|
| 14 | W !,?5,"| Telephone:",?74,"|",!,?5,"| Date:",?37,"Signature & Title of Company Official|"
|
|---|
| 15 | W !,?5,"| Note:List Terms/Discounts if Applicable",?74,"|"
|
|---|
| 16 | W !,?5,$$REPEAT^XLFSTR("-",70)
|
|---|
| 17 | W !,?59,"FL 10-90 ADP"
|
|---|
| 18 | I IOST["C-" K DIR S DIR(0)="FO^ :",DIR("A")="Push return to continue" D ^DIR G:(X="^")!($D(DTOUT)) QWIT W @IOF
|
|---|
| 19 | D:$G(MORE)=1 MORE^RMPRFO6,EST D EXIT^RMPRFO3,^%ZISC
|
|---|
| 20 | QWIT Q
|
|---|
