Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA FileMan 4 FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Prosthetics 2 MORE^RMPRFO6  DIV4^RMPRSIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Prosthetics 10 RMPR FL 10-90 ADP  RMPR FL 10-90 CONT HEAD  RMPR FL 10-90 CONT TRLR  RMPR ITEM  RMPR JOB LST  RMPR LIST  RMPRFO  RMPRFO1  
RMPRFO2  RMPRFO4  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PRNT1+1
^%ZISC EST+18
^%ZTLOAD PRNT1+7
FILE^DICN VEN+3
^DIE VEN+11
IX1^DIK VEN+8
^DIR DNE1+22, EST+8, EST+17
MORE^RMPRFO6 EST+18
DIV4^RMPRSIT VEN+1, ENT+2
$$FMTE^XLFDT ENTR+4
$$REPEAT^XLFSTR EST+3, EST+6, EST+9, EST+15

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
Routine Call
  • DIE
  • Line Location:
    • VEN+11
Routine Call
  • DIR
  • Line Location:
    • DNE1+22
    • EST+8
    • EST+17
Routine Call
  • %ZIS
  • Line Location:
    • PRNT1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665.4 - [#665.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] ENTR+17
^DPT - [#2] DNE1+2
^PRC(440 - [#440] ENTR+7, ENTR+14, DNE1+1
^RMPR(665.4 - [#665.4] VEN+4*, VEN+5*, VEN+6*, VEN+7*, ENTR+7, ENTR+14, ENTR+16, DNE1+1, DNE1+2, DNE1+7
, DNE1+9, DNE1+10, DNE1+11, DNE1+12

Label References

Name Line Occurrences
DNE ENTR+21
ENT PRNT1+2
EST EST+18
EXIT VEN+11, PRNT1+1, PRNT1+3, EST+18
PRNT1 VEN+11
QWIT EST+8

Naked Globals

Name Field # of Occurrence
^(4 VEN+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRNT1+1*
DA VEN+4*, VEN+5, VEN+6, VEN+7, EXIT+3!, ENT+2, ENTR+7, ENTR+14, ENTR+15, ENTR+16
, DNE+3, DNE1+1, DNE1+2, DNE1+7, DNE1+9, DNE1+10, DNE1+11, DNE1+12
>> DFN VEN+2
DIC VEN+2!*, EXIT+3!
DIC(0 VEN+2*
DIE VEN+10*, EXIT+1!
DIK VEN+8!*
DIR EXIT+3!, EST+8!
DIR(0 DNE1+22*, EST+8*, EST+17*
>> DLAYGO VEN+2*
DR VEN+10*, EXIT+3!
DT VEN+7, ENTR+4
>> DTOUT EST+8
DUZ VEN+5
>> FL DNE1+22*
HEADING EXIT+1!, ENTR+2*, ENTR+3, ENTR+4*, ENTR+5, EST+1*, EST+2*
IO ENTR+1
IO("Q" PRNT1+3
IOF DNE1+22, EST+8, EST+18
IOM ENTR+3, ENTR+5, ENTR+13, ENTR+19, ENTR+20, ENTR+21, ENTR+23, ENTR+26, ENTR+27, ENTR+28
, DNE1+4, EST+1, EST+2
ION PRNT1+6
IOP PRNT1+2!
IOST PRNT1+2, DNE1+22, EST+8, EST+17
ITEM EXIT+1!, DNE1+13*
ITM VEN+4*, EXIT+3!, DNE1+6*, DNE1+7*, DNE1+9, DNE1+10, DNE1+11, DNE1+12, DNE1+13
ITMFLG VEN+9*, EXIT+3!
LAPS EXIT+1!, EST+7*, EST+8
LEN EXIT+1!, DNE1+6*, DNE1+8, DNE1+9, DNE1+10*, DNE1+12*
LINES EXIT+1!, DNE1+6*, DNE1+7, DNE1+8*, DNE1+10*, DNE1+11, DNE1+13, EST+1*
LP EXIT+1!, EST+8*
MORE EXIT+1!, ENTR+2*, DNE1+13*, EST+18
NAME EXIT+3!, DNE*, DNE+3*, DNE1+2*, DNE1+4
NOIT EXIT+3!
>> POP PRNT1+1
RDN ENTR+23*, ENTR+26*, ENTR+27*, ENTR+28, DNE!
>> RMPR ENT+2
>> RMPR("ADD" ENTR+9, ENTR+11, ENTR+20
>> RMPR("CITY" ENTR+8, ENTR+21, ENTR+23, ENTR+26, ENTR+27, ENTR+28
>> RMPR("NAME" ENTR+12, ENTR+19
>> RMPR("SBT" VEN+6, DNE1+23
>> RMPR("SIG" VEN+1, VEN+6, DNE1+23
RMPR1 EXIT+3!
RMPR2 EXIT+3!
RMPRADD EXIT+2!, ENTR+9*, ENTR+10
RMPRCIT EXIT+2!, ENTR+8*, ENTR+10
RMPRDATE EXIT+3!
RMPRDEL EXIT+4!
RMPRFA VEN+4, EXIT+4!
RMPRIN EXIT+4!
RMPRL EXIT+4!
RMPRLNG EXIT+2!, ENTR+10*, ENTR+11*, ENTR+12*, ENTR+13, ENTR+19, ENTR+20, ENTR+21, ENTR+23, ENTR+26
, ENTR+27, ENTR+28
RMPRTMP1 EXIT+1!, ENTR+14*
RMPRTMP2 EXIT+1!, ENTR+14*, ENTR+15*, ENTR+16*, ENTR+17*, ENTR+18, ENTR+20, ENTR+21, ENTR+22, ENTR+23
, ENTR+24, ENTR+25, ENTR+27
RMPRTY EXIT+4!
RMPRU EXIT+4!
>> SSN DNE*
U VEN+4, VEN+5, VEN+6, VEN+7, ENTR+7, ENTR+14, ENTR+17, ENTR+18, ENTR+20, ENTR+21
, ENTR+22, ENTR+23, ENTR+24, ENTR+25, ENTR+27, DNE1+1, DNE1+2, DNE1+9, DNE1+10, DNE1+12
>> X VEN+1, VEN+2*, ENT+2, EST+8
>> Y VEN+4, DNE1+22
ZTDESC PRNT1+6*, PRNT1+7!
ZTIO PRNT1+6*, PRNT1+7!
ZTRTN PRNT1+6*, PRNT1+7!
ZTSAVE PRNT1+7!
ZTSAVE("DA" PRNT1+4*
ZTSAVE("DATE(" PRNT1+5*
ZTSAVE("DFN" PRNT1+4*
ZTSAVE("RMPR(" PRNT1+4*
ZTSAVE("RMPRSITE" PRNT1+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All