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

Package: Prosthetics

Routine: RMPRPRT1


Information

RMPRPRT1 ;PHX/HNB-CONTINUATION OF PRINT 2319 ;10/19/1993

Source Information

Source file <RMPRPRT1.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
HDRH
PRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+9
Function Call: WRITE
  • Prompt: !!,"PSC Issue Card: "
  • Line Location: RMPRPRT1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRPRT1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+12
Function Call: WRITE
  • Prompt: "NONE LISTED",!
  • Line Location: RMPRPRT1+16
Function Call: WRITE
  • Prompt: !,"Clothing Allowance: ",!
  • Line Location: RMPRPRT1+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+22
Function Call: WRITE
  • Prompt: !,?22,"Date of Exam: ",Y
  • Line Location: RMPRPRT1+26
Function Call: WRITE
  • Prompt: " Examiner: ",$E($P(^VA(200,$P(RR5,U,6),0),U,1),1,30)
  • Condition for execution: $P(RR5,U,6)
  • Line Location: RMPRPRT1+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+29
Function Call: WRITE
  • Prompt: "NONE LISTED",!
  • Line Location: RMPRPRT1+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+32
Function Call: WRITE
  • Prompt: ?64,Y
  • Line Location: RMPRPRT1+35
Function Call: WRITE
  • Prompt: !,"Automobile(s): NONE LISTED"
  • Line Location: RMPRPRT1+36
Function Call: WRITE
  • Prompt: !,"Items Returned: "
  • Line Location: RMPRPRT1+37
Function Call: WRITE
  • Prompt: "NONE LISTED"
  • Line Location: RMPRPRT1+40
Function Call: WRITE
  • Prompt: !!,"Other Data: "
  • Line Location: RMPRPRT1+42
Function Call: WRITE
  • Prompt: !?5,R5(4,J,0)
  • Line Location: RMPRPRT1+42
Function Call: WRITE
  • Prompt: !?5,R5(4,J,0)
  • Line Location: RMPRPRT1+42
Function Call: WRITE
  • Prompt: "NONE LISTED"
  • Line Location: RMPRPRT1+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+44
Function Call: WRITE
  • Prompt: !,"RECORD OF APPLIANCES/REPAIRS: "
  • Line Location: RMPRPRT1+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+47
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPRT1+50
Function Call: WRITE
  • Prompt: !,"No Appliances or Repairs exist for this veteran!",!!
  • Line Location: RMPRPRT1+51
Function Call: WRITE
  • Prompt: !!,"End of Appliance/Repair records for this veteran!",!!," *Historical Item"
  • Line Location: RMPRPRT1+52
Function Call: WRITE
  • Prompt: !!?4,"DATE",?13,"QTY",?17," HCPCS DESC",?29,"N R ",?33,"VENDOR",?45,"STA",?50,"SERIAL NBR",?62,"DELIVERED",?72,"COST",!
  • Line Location: HDRH+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDRH+1
Function Call: WRITE
  • Prompt: !,RC,". ",DATE,?13,QTY,?17
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: $E($P(^("HST"),U,1),1,10)
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: ?29,TRANS,?31,TRANS1
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?33,RMPRLPRO
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: ?33,$E(VEN,1,10)
  • Line Location: PRT+25
Info |  Source |  Entry Points |  Interaction Calls