source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRFO4.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1RMPRFO4 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ;11/01/1994
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3EST ;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
20QWIT Q
Note: See TracBrowser for help on using the repository browser.