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

Package: Prosthetics

Routine: RMPRP21


Information

RMPRP21 ;PHX/RFM-PRINT 10-2421 ;8/29/1994

Source Information

Source file <RMPRP21.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Prosthetics 7 PR^RMPR21A  M2^RMPRM  (,CON)^RMPRP22  ^RMPRP23  $$EN^RMPRP24  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: 3

Package Total Caller Graph
Prosthetics 3 RMPR REPRINT 2421  RMPR21B  RMPRP22  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT FOR REPRINTING A 10-2421 FORM
ZIS
PT
PRT ;ENTRY POINT TO PRINT 2421S
HDR ;PRINT HEADER FOR 2421 ADDRESS INFO
HDR1 ;HEADER FOR 10-2421
EX ;KILL VARIABLES AND EXIT ROUTINE

External References

Name Field # of Occurrence
DD^%DT HDR+22, HDR+25
%XY^%RCR PRT+1
^%ZIS RMPRP21+8, EN+6, ZIS
HOME^%ZIS PT+1
^%ZISC EX+2
^%ZTLOAD PT+1
^DIC EN+4
PR^RMPR21A EN+5
M2^RMPRM EN+4
^RMPRP22 HDR1+2
CON^RMPRP22 HDR1+2
^RMPRP23 HDR1+4
$$EN^RMPRP24 HDR1+5
DIV4^RMPRSIT RMPRP21+7, EN+1
$$ROU^RMPRUTIL HDR+13
$$STA^RMPRUTIL HDR+13
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#: "
  • 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: !,?30,"***WORKING COPY***"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,RMPRT,!,"Department of Veterans Affairs"_"|"_"Prosthetic Authorization for Items or Services",!,RMPRB
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"1. Name and Address of Vendor",?40,"2. Name and Address of VA Facility"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?5,$E($P(RMPRV,U,1),1,30),?40
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: $E(RMPR("NAME"),1,28)," ","(",$$STA^RMPRUTIL,"/",$$ROU^RMPRUTIL(RMPRSITE),")"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,?5,$E(RMPRAD1,1,35),?40,$E(RMPR("ADD"),1,39)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,?5,$E(RMPRAD2,1,35),?40,RMPR("CITY")
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?5,RMPRCITY_","_RMPRST_" "_RMPR90IP,?40,RMPR("CITY")
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !?5,RMPRCITY_","_RMPRST_" "_RMPR90IP
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,?5,RMPRPHON
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?40,$P(^RMPR(669.9,RMPRSITE,0),U,4),!,RMPRB
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"3. Veterans Name (Last, First, MI)",?40,"4. Date of Authorization"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,?5,VADM(1)
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: ?45,Y
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !,"5. Veterans Address",?40,"6. Date Required",!,?5,VAPA(1),?45,RMPRDELD,!
  • Line Location: HDR+26
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+27
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+28
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: !,"7. Claim Number",?40,"8. SSN",!,RMPRB,!,"10. Statistical Data",?30,"11. FOB Point",?46,"12. Discount",?61,"13. Delivery Time"
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: !,RMPRCAT_" "_RMPRSCAT
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: ?34,$S($D(RMPRFOB):"ORIGIN",1:"DEST"),?49,"% "
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: ?34,$S($D(RMPRFOB):"ORIGIN",1:"DEST"),?49,"% "
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: ?66,$P(R664(3),U,3)_" Days"
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: !,?30,$E(RMPRB,1,50),!,?30,"14. Delivery To: "
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: $P(R664(3),U)
  • Condition for execution: $D(R664(3))
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !,RMPRB
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !?17,"15. DESCRIPTION OF ITEMS OR SERVICES AUTHORIZED",!,RMPRB,!,"ITEM NUMBER",?23,"DESCRIPTION/NOMENCLATURE",?50,"QUANTITY",?60,"UNIT",?66,"UNIT",?73,"AMOUNT",!,?50,"ORDERED",?66,"PRICE",!,RMPRB
  • Line Location: HDR1+1
Routine Call
  • DIC
  • Line Location:
    • EN+4
Routine Call
  • %ZIS
  • Line Location:
    • RMPRP21+8
    • EN+6
    • 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] RMPRP21+8, EN+6
^DIC(5 - [#5] HDR+10
^PRC(440 - [#440] HDR+5, HDR+9
^PRCS(410 - [#410] PRT+2
^RMPR(664 - [#664] EN+4
^RMPR(669.9 - [#669.9] RMPRP21+8, RMPRP21+9, EN+6, HDR+20
^VA(200 - [#200] PRT+2

Label References

Name Line Occurrences
EX RMPRP21+8, EN+1, EN+4, EN+5, EN+6, ZISPT+1
HDR1 HDR+23
PRT ZIS+1
PT RMPRP21+8, EN+6
ZIS RMPRP21+9

Naked Globals

Name Field # of Occurrence
^(0 RMPRP21+8, EN+6, HDR+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5
%X PRT+1*!
%Y PRT+1*!
>> %ZIS RMPRP21+8*, EN+6*, ZIS*
CAT HDR+31*, HDR+32, 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+2
ION RMPRP21+8, EN+6, ZIS+2
>> IOP RMPRP21+8*, EN+6*
J EX+2!
J1 EX+1!
K EX+2!
N EX+2!
>> POP RMPRP21+8, EN+6, ZIS
R664 EX+1!
R664("E" HDR+31*, HDR+32
R664(0 PRT+2, HDR+4, HDR+9, HDR+22, HDR+34
R664(1 HDR+31, HDR+32
R664(2 HDR+34
R664(3 HDR+25, HDR+35, HDR+36
R664(4 HDR+1
RC EX+2!
RDUZ PRT+2*, EX+2!
RMPACT EX+1!
>> RMPR RMPRP21+7, EN+1
>> RMPR("ADD" HDR+14
>> RMPR("CITY" HDR+15, HDR+16
>> RMPR("NAME" HDR+13
RMPR90 EX+2!
RMPR90IP HDR+8*, HDR+16, HDR+17, EX+1!
RMPRA RMPRP21+8, RMPRP21+9, EN+4*, EN+6, HDR1+3, EX+1!
RMPRACT EN+2*, EX+2!
RMPRAD1 HDR+7*, HDR+14, EX+1!
RMPRAD2 HDR+7*, HDR+15, HDR+16, HDR+17, EX+1!
RMPRAMT EX+1!
RMPRAMT1 EX+1!
RMPRAMT2 EX+2!
RMPRAMTN EX+2!
RMPRB HDR+2*, HDR+20, HDR+23, HDR+24, HDR+27, HDR+28, HDR+29, HDR+30, HDR+36, HDR1+1
EX+1!
RMPRCAT HDR+32*, HDR+34, EX+1!
RMPRCH EX+1!
RMPRCITY HDR+8*, HDR+16, HDR+17, EX+1!
RMPRDA EX+2!
RMPRDELD HDR+25*, HDR+26, EX+1!
RMPRDISC EX+2!
>> RMPRF EN+2*
RMPRFOB HDR+34*, EX+2!
RMPRI EX+1!
RMPRI1 EX+1!
RMPRIT EX+1!
>> RMPRK HDR1+3*, HDR1+5
RMPRMOR HDR+23, HDR1+1, EX+2!
RMPRMOR1 HDR1+2, EX+1!
RMPRN EX+1!
RMPRODTE HDR+24*, EX+1!
RMPRPAGE PRT+2*, EX+2!
RMPRPHON HDR+6*, HDR+18, EX+1!
>> RMPRPN HDR1+5
RMPRPRIV PT+1, HDR1+4, EX+1!, EX+2!
RMPRSCAT HDR+33*, HDR+34, EX+2!
>> RMPRSITE RMPRP21+7, RMPRP21+8, RMPRP21+9, EN+6, HDR+13, HDR+20
RMPRST HDR+4*, HDR+6*, HDR+10*, HDR+11*, HDR+16, HDR+17, EX+1!
RMPRT HDR+2*, EX+1!
RMPRTOT EX+1!
RMPRUT EX+1!
RMPRV HDR+4*, HDR+5*, HDR+6, HDR+7, HDR+8, HDR+12, EX+1!
>> RMPRVACN HDR+9*
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+32*, HDR+33, EX+2!
U RMPRP21+8, RMPRP21+9, EN+4, EN+6, PRT+2, HDR+1, HDR+4, HDR+6, HDR+7, HDR+8
HDR+9, HDR+10, HDR+12, HDR+20, HDR+22, HDR+25, HDR+27, HDR+28, HDR+31, HDR+32
HDR+34, HDR+35, HDR+36
VA EX+2!
VADM EX+1!
VADM(1 HDR+22
VAEL EX+2!
VAERR EX+2!
VAPA EX+2!
VAPA(1 HDR+26
VAPA(2 HDR+27, HDR+28
VAPA(4 HDR+27, HDR+28
VAPA(5 HDR+27, HDR+28
VAPA(6 HDR+27, HDR+28
VAPA(8 HDR+27, HDR+28
>> X RMPRP21+7, EN+1
>> Y EN+4, HDR+22*, HDR+24, HDR+25*
>> ZTDESC PT*
>> ZTDTH PT*
>> ZTIO RMPRP21+8*, EN+6*, 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