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
Print Page as PDF
Routine: RMPRPAT2

Package: Prosthetics

Routine: RMPRPAT2


Information

RMPRPAT2 ;PHX/RFM/JLT/HNC-DISPLAY PATIENT ITEM ACTIVITY ;10/19/1993

Source Information

Source file <RMPRPAT2.m>

Entry Points

Name Comments DBIA/ICR reference
DIS ;DISPLAY APPLIANCES OR REPAIRS
END
EXIT
EXITD
PRT
OVER ;
HDR ;Print Header, Screen 4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Appliances or Repairs exist for this veteran!",!!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+4
Function Call: WRITE
  • Prompt: !!,"Appliance/Repair record was deleted during view for this veteran",!,"...Enter 'return' to continue."
  • Line Location: EXITD+0
Function Call: WRITE
  • Prompt: !,RK,". ",DATE,?13,QTY,?17
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: $E($P(^("HST"),U,1),1,10)
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: ?30,TRANS,?31,TRANS1
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: ?33,RMPRLPRO
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: ?33,$E(VEN,1,10)
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: ?33,$E(VEN,1,10)
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: ?50,$E(SN,1,9),?60,DEL
  • Line Location: PRT+35
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: OVER+2
Function Call: WRITE
  • Prompt: $C(7),!," Must be between 1 and ",RK," to be valid"
  • Line Location: OVER+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,10)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?42,"DOB: "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?61,"CLAIM# ",$G(RMPRCNUM)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?4,"Date",?12,"Qty",?19,"HCPCS",?28,"Type",?34,"Vendor",?45,"Sta",?50,"Serial",?58,"Delivery Date",?72,"Tot Cost"
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls