RMPRFO4 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ;11/01/1994
;;3.0;PROSTHETICS;;Feb 09, 1996
EST ;PRINT VENDOR'S ESTIMATE SECTION OF FL 10-90
S LINES=0,HEADING="VENDOR'S ESTIMATE" W !!,?IOM-$L(HEADING)\2,HEADING
S HEADING="(To be completed by Vendor)" W !,?IOM-$L(HEADING)\2,HEADING
W !,?5,$$REPEAT^XLFSTR("-",70)
W !,?5,"|",?12,"Article or Service",?37,"|Quantity| Unit |Unit Cost|Total Cost|"
W !,?5,$$REPEAT^XLFSTR("-",70)
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
W !,?5,$$REPEAT^XLFSTR("-",70)
W !,?5,"| Vendor:",?42,"Contract number (if applicable) |"
W !,?5,"| Address:",?74,"|"
W !,?5,"| City:",?74,"|",!,?5,"| State:",?26,"Zip:",?74,"|"
W !,?5,"| Telephone:",?74,"|",!,?5,"| Date:",?37,"Signature & Title of Company Official|"
W !,?5,"| Note:List Terms/Discounts if Applicable",?74,"|"
W !,?5,$$REPEAT^XLFSTR("-",70)
W !,?59,"FL 10-90 ADP"
I IOST["C-" K DIR S DIR(0)="FO^ :",DIR("A")="Push return to continue" D ^DIR G:(X="^")!($D(DTOUT)) QWIT W @IOF
D:$G(MORE)=1 MORE^RMPRFO6,EST D EXIT^RMPRFO3,^%ZISC
QWIT Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRFO4 1210 printed Nov 22, 2024@17:44:46 Page 2
RMPRFO4 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ;11/01/1994
+1 ;;3.0;PROSTHETICS;;Feb 09, 1996
EST ;PRINT VENDOR'S ESTIMATE SECTION OF FL 10-90
+1 SET LINES=0
SET HEADING="VENDOR'S ESTIMATE"
WRITE !!,?IOM-$LENGTH(HEADING)\2,HEADING
+2 SET HEADING="(To be completed by Vendor)"
WRITE !,?IOM-$LENGTH(HEADING)\2,HEADING
+3 WRITE !,?5,$$REPEAT^XLFSTR("-",70)
+4 WRITE !,?5,"|",?12,"Article or Service",?37,"|Quantity| Unit |Unit Cost|Total Cost|"
+5 WRITE !,?5,$$REPEAT^XLFSTR("-",70)
+6 SET LAPS=$Y
FOR LP=LAPS:1:47
WRITE !,?5,"|",?37,"|",?46,"|",?53,"|",?63,"|",?74,"|"
IF $Y>20&(IOST["C-")
KILL DIR
SET DIR(0)="FO^ :"
SET DIR("A")="Push return to continue"
DO ^DIR
if (X="^")!($DATA(DTOUT))
GOTO QWIT
WRITE @IOF
+7 WRITE !,?5,$$REPEAT^XLFSTR("-",70)
+8 WRITE !,?5,"| Vendor:",?42,"Contract number (if applicable) |"
+9 WRITE !,?5,"| Address:",?74,"|"
+10 WRITE !,?5,"| City:",?74,"|",!,?5,"| State:",?26,"Zip:",?74,"|"
+11 WRITE !,?5,"| Telephone:",?74,"|",!,?5,"| Date:",?37,"Signature & Title of Company Official|"
+12 WRITE !,?5,"| Note:List Terms/Discounts if Applicable",?74,"|"
+13 WRITE !,?5,$$REPEAT^XLFSTR("-",70)
+14 WRITE !,?59,"FL 10-90 ADP"
+15 IF IOST["C-"
KILL DIR
SET DIR(0)="FO^ :"
SET DIR("A")="Push return to continue"
DO ^DIR
if (X="^")!($DATA(DTOUT))
GOTO QWIT
WRITE @IOF
+16 if $GET(MORE)=1
DO MORE^RMPRFO6
DO EST
DO EXIT^RMPRFO3
DO ^%ZISC
QWIT QUIT
