Routine: RMPRFO4

Entry Points

Name	Comments	DBIA/ICR reference
EST	;PRINT VENDOR'S ESTIMATE SECTION OF FL 10-90
QWIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?IOM-$L(HEADING)\2,HEADING Line Location: EST+1
Function Call: WRITE	Prompt: !,?IOM-$L(HEADING)\2,HEADING Line Location: EST+2
Function Call: WRITE	Prompt: !,?5,$$REPEAT^XLFSTR("-",70) Line Location: EST+3
Function Call: WRITE	Prompt: !,?5,"\|",?12,"Article or Service",?37,"\|Quantity\| Unit \|Unit Cost\|Total Cost\|" Line Location: EST+4
Function Call: WRITE	Prompt: !,?5,$$REPEAT^XLFSTR("-",70) Line Location: EST+5
Function Call: WRITE	Prompt: !,?5,"\|",?37,"\|",?46,"\|",?53,"\|",?63,"\|",?74,"\|" Line Location: EST+6
Function Call: WRITE	Prompt: @IOF Line Location: EST+6
Function Call: WRITE	Prompt: !,?5,$$REPEAT^XLFSTR("-",70) Line Location: EST+7
Function Call: WRITE	Prompt: !,?5,"\| Vendor:",?42,"Contract number (if applicable) \|" Line Location: EST+8
Function Call: WRITE	Prompt: !,?5,"\| Address:",?74,"\|" Line Location: EST+9
Function Call: WRITE	Prompt: !,?5,"\| City:",?74,"\|",!,?5,"\| State:",?26,"Zip:",?74,"\|" Line Location: EST+10
Function Call: WRITE	Prompt: !,?5,"\| Telephone:",?74,"\|",!,?5,"\| Date:",?37,"Signature & Title of Company Official\|" Line Location: EST+11
Function Call: WRITE	Prompt: !,?5,"\| Note:List Terms/Discounts if Applicable",?74,"\|" Line Location: EST+12
Function Call: WRITE	Prompt: !,?5,$$REPEAT^XLFSTR("-",70) Line Location: EST+13
Function Call: WRITE	Prompt: !,?59,"FL 10-90 ADP" Line Location: EST+14
Function Call: WRITE	Prompt: @IOF Line Location: EST+15
Routine Call	DIR Line Location: EST+6 EST+15

Name	Line Occurrences
EST	EST+16
QWIT	EST+6, EST+15