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: RMPR4P21

Package: Prosthetics

Routine: RMPR4P21


Information

RMPR4P21 ;PHX/HNC,RVD -PRINT PURCHASE CARD ORDER ;3/1/1996

Source Information

Source file <RMPR4P21.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Prosthetics 6 PR^RMPR421A  (,CON)^RMPR4P22  ^RMPR4P23  $$EN^RMPR4P24  DIV4^RMPRSIT  ($$ROU,$$STA)^RMPRUTIL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  %XY^%RCR  ^DIC  
Registration 1 (ADD,DEM,ELIG)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Prosthetics 4 RMPR121B  RMPR4 RPC  RMPR421B  RMPR4P22  

Entry Points

Name Comments DBIA/ICR reference
EN1(RMPRPTR) ;
EN ;ENTRY POINT FOR REPRINTING- Modified in patch 90 HNC
ZIS
PT
PRT ;ENTRY POINT TO PRINT
HDR ;PRINT HEADER FOR 2421 ADDRESS INFO
HDR1 ;HEADER FOR 10-2421
EX ;Common Exit Point

External References

Name Field # of Occurrence
DD^%DT HDR+21, HDR+24
%XY^%RCR PRT+1
^%ZIS RMPR4P21+8, EN1+1, ZIS
HOME^%ZIS PT+1
^%ZISC EX+2
^%ZTLOAD PT+1
^DIC EN+5
PR^RMPR421A EN+8
^RMPR4P22 HDR1+2
CON^RMPR4P22 HDR1+2
^RMPR4P23 HDR1+4
$$EN^RMPR4P24 HDR1+5
DIV4^RMPRSIT RMPR4P21+7, EN+1
$$ROU^RMPRUTIL HDR+12
$$STA^RMPRUTIL HDR+12
ADD^VADPT PRT+3
DEM^VADPT PRT+3
ELIG^VADPT PRT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"<REQUEST QUEUED>",1:"<REQUEST NOT QUEUED>")
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?20,"OMB Number 2900-0188",?50,"PO#: ",$P($G(^RMPR(664,RMPRA,4)),U,5)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,"By receiving this purchase order you agree to take appropriate measures to"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"secure the information and ensure the confidentiality of the patient information"
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !,"is maintained. ORIGINAL PO AND INVOICE MUST BE SUBMITTED TO THE VAMC BELOW"
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,RMPRT,!,"Department of Veterans Affairs"_"|"_"Prosthetic Authorization for Items or Services",!,RMPRB
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"1. Name and Address of Vendor",?40,"2. Name and Address of VA Facility"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,$E($P(RMPRV,U,1),1,30),?40
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: $E(RMPR("NAME"),1,28)," ","(",$$STA^RMPRUTIL,"/",$$ROU^RMPRUTIL(RMPRSITE),")"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,?5,$E(RMPRAD1,1,35),?40,$E(RMPR("ADD"),1,39)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,?5,$E(RMPRAD2,1,35),?40,RMPR("CITY")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?5,RMPRCITY_","_RMPRST_" "_RMPR90IP,?40,RMPR("CITY")
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?5,RMPRCITY_","_RMPRST_" "_RMPR90IP
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,?5,RMPRPHON
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: ?40,$P(^RMPR(669.9,RMPRSITE,0),U,4),!,RMPRB
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"3. Veterans Name (Last, First, MI)",?40,"4. Date of Authorization"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,?5,VADM(1)
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?45,Y
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,"5. Veterans Address",?40,"6. Date Required",!,?5,VAPA(1),?45,RMPRDELD,!
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: ?5,VAPA(4)_","_$P(VAPA(5),U,2)_" "_VAPA(6),?40,$E(RMPRB,1,40),!,?40,"9. Authority For Issuance CFR 17.115",!,?5,VAPA(8),?43,"CHARGE MEDICAL APPROPRIATION"
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: ?5,VAPA(2),?40,$E(RMPRB,1,40),!,?5,VAPA(4)_","_$P(VAPA(5),U,2)_" "_VAPA(6),?40,"9. Authority For Issuance CFR 17.115",!,?5,VAPA(8),?43,"CHARGE MEDICAL APPROPRIATION"
  • Line Location: HDR+27
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: !,"7. Claim Number",?40,"8. ID #:",!,RMPRB,!,"10. Statistical Data",?30,"11. FOB Point",?46,"12. Discount",?61,"13. Delivery Time"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: !,RMPRCAT_" "_RMPRSCAT
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: ?34,$S($D(RMPRFOB):"ORIGIN",1:"DEST"),?49,"% "
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: ?34,$S($D(RMPRFOB):"ORIGIN",1:"DEST"),?49,"% "
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: ?66,$P(R664(3),U,3)_" Days"
  • Line Location: HDR+37
Function Call: WRITE
  • Prompt: !,?30,$E(RMPRB,1,50),!,?30,"14. Delivery To: "
  • Line Location: HDR+38
Function Call: WRITE
  • Prompt: $P(R664(3),U)
  • Condition for execution: $D(R664(3))
  • Line Location: HDR+38
Function Call: WRITE
  • Prompt: !,?36,"Attention: "_$P(R664(3),U,4)
  • Line Location: HDR+39
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+39
Function Call: WRITE
  • Prompt: !?17,"15. DESCRIPTION OF ITEMS OR SERVICES AUTHORIZED",!,RMPRB,!,"ITEM NUMBER",?23,"DESCRIPTION",?50,"QUANTITY",?60,"UNIT",?66,"UNIT",?73,"AMOUNT",!,?50,"ORDERED",?66,"PRICE",!,RMPRB
  • Line Location: HDR1+1
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • %ZIS
  • Line Location:
    • RMPR4P21+8
    • EN1+1
    • ZIS
Routine Call
  • %ZIS
  • Line Location:
    • PT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] RMPR4P21+8, EN1+1
^DIC(5 - [#5] HDR+9
^PRC(440 - [#440] HDR+4, HDR+8
^RMPR(664 - [#664] PRT+4
^RMPR(669.9 - [#669.9] RMPR4P21+8, RMPR4P21+9, HDR+19
^VA(200 - [#200] PRT+2

Label References

Name Line Occurrences
EN RMPR4P21+7
EX RMPR4P21+7, RMPR4P21+8, EN1+1, EN+1, EN+5, EN+8, ZISPT+1
HDR1 HDR+22
PRT ZIS+1
PT RMPR4P21+8, EN1+1
ZIS RMPR4P21+9

Naked Globals

Name Field # of Occurrence
^(0 RMPR4P21+8, EN1+1, HDR+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8
%X PRT+1*!
%Y PRT+1*!
>> %ZIS RMPR4P21+8*, EN1+1*, ZIS*
CAT HDR+32*, HDR+33, EX+1!
CP PRT+2*, EX+1!
DFN PRT+2*, EX+1!
DIC EN+2*, EX+1!
DIC("A" EN+2*
DIC("S" EN+3*
DIC("W" EN+4*
DIC(0 EN+2*
DIR EX+2!
DIRUT EX+2!
IO ZIS+1
IO("Q" ZIS+1
IOF PRT+4, HDR1+5
IOM HDR+1
ION RMPR4P21+8, EN1+1, ZIS+2
>> IOP RMPR4P21+8*, EN1+1*
J EX+2!
J1 EX+1!
K EX+2!
N EX+2!
>> POP RMPR4P21+8, EN1+1, ZIS
R664 EX+1!
R664("E" HDR+32*, HDR+34
R664(0 PRT+2, HDR+3, HDR+8, HDR+21, HDR+36
R664(1 HDR+32, HDR+34
R664(2 HDR+36
R664(3 HDR+24, HDR+37, HDR+38, HDR+39
RC EX+2!
RDUZ PRT+2*, EX+2!
RMPACT EX+1!
>> RMPR RMPR4P21+7, EN+1
>> RMPR("ADD" HDR+13
>> RMPR("CITY" HDR+14, HDR+15
>> RMPR("NAME" HDR+12
RMPR90 EX+2!
RMPR90IP HDR+7*, HDR+15, HDR+16, EX+1!
RMPRA RMPR4P21+7, RMPR4P21+8, RMPR4P21+9, EN1+1, EN+6*, PRT+4, HDR1+3, EX+1!
RMPRACT EN+2*, EX+2!
RMPRAD1 HDR+6*, HDR+13, EX+1!
RMPRAD2 HDR+6*, HDR+14, HDR+15, HDR+16, EX+1!
RMPRAMT EX+1!
RMPRAMT1 EX+1!
RMPRAMT2 EX+2!
RMPRAMTN EX+2!
RMPRB HDR+1*, HDR+19, HDR+22, HDR+23, HDR+26, HDR+27, HDR+28, HDR+31, HDR+38, HDR+39
HDR1+1, EX+1!
RMPRCAT HDR+33*, HDR+36, EX+1!
RMPRCH EX+1!
RMPRCITY HDR+7*, HDR+15, HDR+16, EX+1!
RMPRDA EX+2!
RMPRDELD HDR+24*, HDR+25, EX+1!
RMPRDISC EX+2!
>> RMPRF EN+2*
RMPRFOB HDR+36*, EX+2!
RMPRI EX+1!
RMPRI1 EX+1!
RMPRIT EX+1!
>> RMPRK HDR1+3*, HDR1+5
RMPRMOR HDR+22, HDR1+1, EX+2!
RMPRMOR1 HDR1+2, EX+1!
RMPRN EX+1!
RMPRODTE HDR+23*, EX+1!
RMPRPAGE PRT+2*, EX+2!
RMPRPHON HDR+5*, HDR+17, EX+1!
>> RMPRPN HDR1+5
RMPRPRIV PT+1, HDR1+4, EX+1!, EX+2!
RMPRPTR EN1~, EN1+1
RMPRSCAT HDR+35*, HDR+36, EX+2!
>> RMPRSITE RMPR4P21+7, RMPR4P21+8, RMPR4P21+9, EN+1, HDR+12, HDR+19
RMPRST HDR+3*, HDR+5*, HDR+9*, HDR+10*, HDR+15, HDR+16, EX+1!
RMPRT HDR+1*, EX+1!
RMPRTOT EX+1!
RMPRUT EX+1!
RMPRV HDR+3*, HDR+4*, HDR+5, HDR+6, HDR+7, HDR+11, EX+1!
>> RMPRVACN HDR+8*
RMPRX EX+2!
RO EX+1!
RP EX+1!
RTN PRT+2*, EX+1!
RX EX+2!
RX1 EX+2!
RZZZ EX+2!
SPE HDR+34*, HDR+35, EX+2!
U RMPR4P21+8, RMPR4P21+9, EN1+1, PRT+2, PRT+4, HDR+3, HDR+5, HDR+6, HDR+7, HDR+8
HDR+9, HDR+11, HDR+19, HDR+21, HDR+24, HDR+26, HDR+27, HDR+32, HDR+34, HDR+36
HDR+37, HDR+38, HDR+39
VA EX+2!
VADM EX+1!
VADM(1 HDR+21
VAEL EX+2!
VAERR EX+2!
VAPA EX+2!
VAPA(1 HDR+25
VAPA(2 HDR+26, HDR+27
VAPA(4 HDR+26, HDR+27
VAPA(5 HDR+26, HDR+27
VAPA(6 HDR+26, HDR+27
VAPA(8 HDR+26, HDR+27
>> X RMPR4P21+7, EN+1
>> Y EN+5, EN+6, HDR+21*, HDR+23, HDR+24*
>> ZTDESC PT*
>> ZTDTH PT*
>> ZTIO RMPR4P21+8*, EN1+1*, ZIS+2*
>> ZTRTN PT*
>> ZTSAVE("RMPR(" PT*
>> ZTSAVE("RMPRA" PT*
>> ZTSAVE("RMPRPN" PT*
>> ZTSAVE("RMPRPRIV" PT+1*
>> ZTSAVE("RMPRSITE" PT*
>> ZTSK PT+1
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