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

Package: Prosthetics

Routine: RMPR4P21


Information

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

Source Information

Source file <RMPR4P21.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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