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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Prosthetics 2 (ASK1,ASK2)^RMPRPAT  ^RMPRPAT3  

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

Package Total Caller Graph
Prosthetics 1 RMPRPAT  

Entry Points

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

External References

Name Field # of Occurrence
ASK1^RMPRPAT EXIT+5
ASK2^RMPRPAT EXIT+6
^RMPRPAT3 OVER+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+6
^DIC(4 - [#4] PRT+34
^PRC(440 - [#440] PRT+17
^RMPO(665.72 - [#665.72] RMPRPAT2+38
^RMPR(660 - [#660] RMPRPAT2+5, RMPRPAT2+10, RMPRPAT2+15, RMPRPAT2+16, RMPRPAT2+17, RMPRPAT2+28, RMPRPAT2+31, DIS+2, PRT+3, PRT+5
, PRT+15, PRT+25, PRT+33
^RMPR(660.1 - [#660.1] PRT+18
^RMPR(661.1 - [#661.1] RMPRPAT2+18, PRT+23
^TMP($J RMPRPAT2+4!, RMPRPAT2+5*, RMPRPAT2+10*, RMPRPAT2+12, RMPRPAT2+14, RMPRPAT2+21*, RMPRPAT2+25, RMPRPAT2+26, RMPRPAT2+27, RMPRPAT2+30*
, RMPRPAT2+31*, RMPRPAT2+32*!, RMPRPAT2+33!, RMPRPAT2+35, RMPRPAT2+37, RMPRPAT2+40, RMPRPAT2+43!, EXIT+2!
^XDRM - [#15.4] RMPRPAT2+9
^XDRM("B" RMPRPAT2+7, RMPRPAT2+8

Label References

Name Line Occurrences
DIS DIS+2, END+2
END RMPRPAT2+45
EXIT DIS+2, END, EXITD+1
EXITD DIS+2
HDR RMPRPAT2+3, OVER+5
OVER DIS+2, END+2, OVER+7
PRT DIS+2

Naked Globals

Name Field # of Occurrence
^("HST" PRT+25, PRT+33
^("LB" PRT+5
^(0 PRT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMIS EXIT!, PRT+17*, PRT+18*, PRT+23
AN RMPRPAT2+4*, DIS+2*, EXIT!, PRT+3, PRT+5, PRT+15, PRT+18, OVER+8*
ANS RMPRPAT2+4*, DIS+2, OVER+1~, OVER+2*, OVER+3*, OVER+4, OVER+5, OVER+6, OVER+7, OVER+8
, OVER+9
B RMPRPAT2+11*, RMPRPAT2+12*, RMPRPAT2+14, RMPRPAT2+21, RMPRPAT2+24*, RMPRPAT2+25*, RMPRPAT2+26, RMPRPAT2+27, RMPRPAT2+30, RMPRPAT2+32
, RMPRPAT2+34*, RMPRPAT2+35*, RMPRPAT2+37, RMPRPAT2+40, RMPRPAT2+43!
>> BC RMPRPAT2+13*, RMPRPAT2+14*, RMPRPAT2+15, RMPRPAT2+16, RMPRPAT2+17, RMPRPAT2+20, RMPRPAT2+21, RMPRPAT2+26*, RMPRPAT2+27*, RMPRPAT2+29
, RMPRPAT2+30, RMPRPAT2+32
BDAT RMPRPAT2+2~, RMPRPAT2+30*, RMPRPAT2+31, RMPRPAT2+32
BDC RMPRPAT2+33!
CST EXIT!, PRT+3*, PRT+36*, PRT+37
>> DATE PRT*, PRT+14*, PRT+21
DEL EXIT!, PRT+2*, PRT+20*, PRT+35
DTIME OVER+2
>> DTOUT DIS+2, EXIT+5
>> DUOUT DIS+2, EXIT+5, OVER+3*, OVER+4*
FL EXIT!, EXIT+6*
FRM EXIT!, PRT+13*
>> GN RMPRPAT2+16*, RMPRPAT2+20*, RMPRPAT2+21
HITM RMPRPAT2+2~, RMPRPAT2+25*, RMPRPAT2+29, RMPRPAT2+30*, RMPRPAT2+31, RMPRPAT2+32
I EXIT!
IOF HDR+1
IOSL DIS+2
IT RMPRPAT2+4!, RMPRPAT2+45, EXIT!
IT( RMPRPAT2+39*, RMPRPAT2+40*, DIS+2, END+2, PRT+25, PRT+33, PRT+36, PRT+39*, OVER+5, OVER+9
ITM RMPRPAT2+25*, RMPRPAT2+26*, RMPRPAT2+27, RMPRPAT2+28, RMPRPAT2+30, RMPRPAT2+31, RMPRPAT2+32, EXIT!
J EXIT!
L EXIT!
>> ND RMPRPAT2+17*, RMPRPAT2+18*, RMPRPAT2+19*, RMPRPAT2+21
PAGE EXIT!, HDR+2*
QTY EXIT!, PRT*, PRT+21
R0 EXIT!
RA RMPRPAT2+4*, EXIT!
RC RMPRPAT2+34*, RMPRPAT2+39, RMPRPAT2+40, RMPRPAT2+41*, DIS+1*, DIS+2, END, END+2, EXIT!, OVER+5
REM EXIT!, PRT+13*, PRT+38
RK RMPRPAT2+4*, RMPRPAT2+36*, RMPRPAT2+37*, RMPRPAT2+38, RMPRPAT2+39, RMPRPAT2+40, RMPRPAT2+42*, DIS+1*, DIS+2*, END+2
, EXIT!, PRT+21, PRT+25, PRT+33, PRT+36, PRT+39, OVER+2, OVER+5, OVER+7, OVER+8
, OVER+9*
>> RMPR("STA" RMPRPAT2+15
RMPRCNUM EXIT+1!, HDR+7
>> RMPRDFN RMPRPAT2+5, RMPRPAT2+7, RMPRPAT2+8, EXIT+3
>> RMPRDOB HDR+6
RMPRLPRO PRT+5*, PRT+6*, PRT+7*, PRT+8*, PRT+9*, PRT+10*, PRT+11*, PRT+28, PRT+31!
RMPRMERG RMPRPAT2+3~*, RMPRPAT2+8*, RMPRPAT2+9*, RMPRPAT2+10
>> RMPRNAM HDR+3
>> RMPRSSN HDR+4
RZ RMPRPAT2+4*, RMPRPAT2+42*, EXIT+1!, PRT+39, OVER+2*, OVER+8*
SN EXIT+1!, PRT+1*, PRT+35
>> STA PRT+1*, PRT+34
TRANS EXIT+1!, PRT+1*, PRT+19*, PRT+26
TRANS1 EXIT+1!, PRT+19*, PRT+26
TYPE EXIT+1!, EXITD*, PRT*, PRT+15*, PRT+23, PRT+25
U RMPRPAT2+15, RMPRPAT2+16, RMPRPAT2+17, RMPRPAT2+18, RMPRPAT2+28, RMPRPAT2+31, RMPRPAT2+40, DIS+2, PRT, PRT+1
, PRT+2, PRT+3, PRT+5, PRT+13, PRT+15, PRT+17, PRT+18, PRT+23, PRT+25, PRT+33
, PRT+34, PRT+36, PRT+37, PRT+39, OVER+9
VEN EXIT+1!, PRT+1*, PRT+17*, PRT+30
Y DIS+2*, PRT, PRT+1, PRT+2, PRT+3, PRT+13, PRT+17, PRT+23, PRT+37, HDR+6*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All