Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRFO3

Package: Prosthetics

Routine: RMPRFO3


Information

RMPRFO3 ;PHX/HPL-PRINT FL 10-90 ADP LETTER ; 12/2/03 1:14pm

Source Information

Source file <RMPRFO3.m>

Entry Points

Name Comments DBIA/ICR reference
VEN ;Enter the Vendor and items
EXIT ;KILL VARIABLES AND EXIT ROUTINE
PRNT1 ;
ENT ;ENTRY POINT FOR ACTUAL PRINTING
ENTR ;
DNE
DNE1
EST ;PRINT VENDOR'S ESTIMATE SECTION OF FL 10-90
QWIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?IOM-$L(HEADING)\2,HEADING
  • Line Location: ENTR+3
Function Call: WRITE
  • Prompt: !,?IOM-$L(HEADING)\2,HEADING
  • Line Location: ENTR+5
Function Call: WRITE
  • Prompt: !!,?5,"TO: "
  • Line Location: ENTR+6
Function Call: WRITE
  • Prompt: ?IOM-5-RMPRLNG-6,"FROM: Prosthetics Service"
  • Line Location: ENTR+13
Function Call: WRITE
  • Prompt: ?IOM-5-RMPRLNG,RMPR("NAME")
  • Line Location: ENTR+19
Function Call: WRITE
  • Prompt: ?IOM-5-RMPRLNG,RMPR("ADD")
  • Line Location: ENTR+20
Function Call: WRITE
  • Prompt: !,?IOM-5-RMPRLNG,RMPR("CITY")
  • Line Location: ENTR+21
Function Call: WRITE
  • Prompt: !,?9,$P(RMPRTMP2,U,4),?IOM-5-RMPRLNG,RMPR("CITY")
  • Line Location: ENTR+23
Function Call: WRITE
  • Prompt: ?IOM-5-RMPRLNG,RMPR("CITY")
  • Line Location: ENTR+26
Function Call: WRITE
  • Prompt: !,?9,$P(RMPRTMP2,U,6)_", "_$P(RMPRTMP2,U,7)_" "_$P(RMPRTMP2,U,8)
  • Condition for execution: $P(RMPRTMP2,U,6)'=""&($P(RMPRTMP2,U,7)'="")
  • Line Location: ENTR+27
Function Call: WRITE
  • Prompt: ?IOM-5-RMPRLNG,RMPR("CITY")
  • Line Location: ENTR+27
Function Call: WRITE
  • Prompt: !,?IOM-5-RMPRLNG,RMPR("CITY")
  • Line Location: ENTR+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: DNE+2
Function Call: WRITE
  • Prompt: ?9,"Vendor Phone #: "
  • Line Location: DNE1+0
Function Call: WRITE
  • Prompt: $P(^PRC(440,$P(^RMPR(665.4,DA,2),U,1),0),U,10)
  • Line Location: DNE1+1
Function Call: WRITE
  • Prompt: ?IOM-5-$L(NAME)-9,"Veteran: ",NAME,!
  • Line Location: DNE1+4
Function Call: WRITE
  • Prompt: !!,?5,"Your firm is being considered for the following:"
  • Line Location: DNE1+5
Function Call: WRITE
  • Prompt: !,?6," "
  • Line Location: DNE1+8
Function Call: WRITE
  • Prompt: ", "
  • Line Location: DNE1+9
Function Call: WRITE
  • Prompt: !,?6," "
  • Line Location: DNE1+10
Function Call: WRITE
  • Prompt: !!,?5,"An estimate on the above-listed item(s) is requested. "
  • Line Location: DNE1+14
Function Call: WRITE
  • Prompt: "YOUR QUOTATION "
  • Line Location: DNE1+15
Function Call: WRITE
  • Prompt: !,?5,"DOES NOT CONSTITUTE A PURCHASE ORDER."
  • Line Location: DNE1+16
Function Call: WRITE
  • Prompt: " Upon completion of the esti-"
  • Line Location: DNE1+17
Function Call: WRITE
  • Prompt: !,?5,"mate, return the original to the Veterans Affairs facility indicated"
  • Line Location: DNE1+18
Function Call: WRITE
  • Prompt: !,?5,"above and retain a copy for your files."
  • Line Location: DNE1+19
Function Call: WRITE
  • Prompt: !!,?5,"If approved, a purchase order will be prepared and forwarded to you."
  • Line Location: DNE1+20
Function Call: WRITE
  • Prompt: !!,?5,"Sincerely,"
  • Line Location: DNE1+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: DNE1+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DNE1+22
Function Call: WRITE
  • Prompt: !!!!,?5,RMPR("SIG"),!,?5,RMPR("SBT")
  • Line Location: DNE1+23
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"
  • Line Location: EST+4
Function Call: WRITE
  • Prompt: ?37,"|Quantity| Unit |Unit Cost|Total Cost|"
  • Line Location: EST+5
Function Call: WRITE
  • Prompt: !,?5,$$REPEAT^XLFSTR("-",70)
  • Line Location: EST+6
Function Call: WRITE
  • Prompt: !,?5,"|",?37,"|",?46,"|",?53,"|",?63,"|",?74,"|"
  • Line Location: EST+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EST+8
Function Call: WRITE
  • Prompt: !,?5,$$REPEAT^XLFSTR("-",70)
  • Line Location: EST+9
Function Call: WRITE
  • Prompt: !,?5,"| Vendor:",?42,"Contract number (if applicable) |"
  • Line Location: EST+10
Function Call: WRITE
  • Prompt: !,?5,"| Address:",?74,"|"
  • Line Location: EST+11
Function Call: WRITE
  • Prompt: !,?5,"| City:",?74,"|",!,?5,"| State:",?26,"Zip:",?74,"|"
  • Line Location: EST+12
Function Call: WRITE
  • Prompt: !,?5,"| Telephone:",?74,"|",!,?5,"| Date:",?37,"Signature & Title of Company Official|"
  • Line Location: EST+13
Function Call: WRITE
  • Prompt: !,?5,"| Note:List Terms/Discounts if Applicable",?74,"|"
  • Line Location: EST+14
Function Call: WRITE
  • Prompt: !,?5,$$REPEAT^XLFSTR("-",70)
  • Line Location: EST+15
Function Call: WRITE
  • Prompt: !,?59,"FL 10-90 ADP"
  • Line Location: EST+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EST+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665.4 - [#665.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call