RMPRFO4.m

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 ---RMPRFO4   1210     printed  Apr 09, 2024@21:40:38                                                                                                                                                                                                     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