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

Package: Prosthetics

Routine: RMPRPAT1


Information

RMPRPAT1 ;PHX/HNB/RFM/JLT-DISPLAY PATIENT INFO ;8/29/1994

Source Information

Source file <RMPRPAT1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 DD^%DT  %XY^%RCR  YN^DICN  ^DIR  
Prosthetics 1 ASK2^RMPRPAT  
Registration 1 (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: 2

Package Total Caller Graph
Prosthetics 2 RMPRPAT  RMPRPRT1  

Entry Points

Name Comments DBIA/ICR reference
WRIL ;ASK TO SEE MORE RETURNED ITEMS
OLD ;DISPLAY OLD RETURNED ITEMS
OLD1
RTNSTA ;DISPLAYS STATUS OF TRACKED ITEM ON PATIENT'S 10-2319
HELP ;DISPLAY HELP FOR SCREENS
ASK1 ;SET DIR AND FOR SCREEN NUMBER DISPLAY

External References

Name Field # of Occurrence
DD^%DT RMPRPAT1+13, RMPRPAT1+17, RMPRPAT1+24, WRIL+5, OLD1+2
%XY^%RCR RMPRPAT1+5
YN^DICN WRIL+1, OLD1
^DIR RMPRPAT1+31
ASK2^RMPRPAT RMPRPAT1+32
DEM^VADPT RMPRPAT1+3
ELIG^VADPT RMPRPAT1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPAT1+2
Function Call: WRITE
  • Prompt: !,"<<<HOME OXYGEN PATIENT>>>>"
  • Line Location: RMPRPAT1+6
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2)
  • Line Location: RMPRPAT1+7
Function Call: WRITE
  • Prompt: ?42,"DOB: ",$P(VADM(3),U,2)
  • Line Location: RMPRPAT1+8
Function Call: WRITE
  • Prompt: ?61,"CLAIM# ",VAEL(7)
  • Line Location: RMPRPAT1+9
Function Call: WRITE
  • Prompt: !!,"PSC Issue Card: ",?17,"Appliance",?30,"Ht ",$P(R5(10),U,1),?37,"Wt ",$P(R5(10),U,2),?45,"Eyes ",$P(R5(10),U,3),?54,"Hair ",$P(R5(10),U,4),?66,"Serial Number"
  • Line Location: RMPRPAT1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRPAT1+12
Function Call: WRITE
  • Prompt: Y,?17,$S($P(R5(5,J,0),U,2)]"":$E($P(R5(5,J,0),U,2),1,47),1:$E($P(^PRC(441,$P(^RMPR(661,$P(R5(5,J,0),U,4),0),U,1),0),U,2),1,47)),?66,$E($P(R5(5,J,0),U,3),1,12)
  • Line Location: RMPRPAT1+13
Function Call: WRITE
  • Prompt: !!,"Clothing Allowance: "
  • Line Location: RMPRPAT1+14
Function Call: WRITE
  • Prompt: !,?22,"Date of Exam: ",Y
  • Line Location: RMPRPAT1+17
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: RMPRPAT1+17
Function Call: WRITE
  • Prompt: "NONE LISTED",!
  • Line Location: RMPRPAT1+20
Function Call: WRITE
  • Prompt: ?64,Y
  • Line Location: RMPRPAT1+24
Function Call: WRITE
  • Prompt: !!,"Items Returned: ",?16,"Date",?29,"Item",?56
  • Line Location: RMPRPAT1+26
Function Call: WRITE
  • Prompt: "Serial",?68,"Status"
  • Line Location: RMPRPAT1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPRPAT1+30
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: WRIL+1
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: WRIL+2
Function Call: WRITE
  • Prompt: !?16,Y
  • Line Location: WRIL+5
Function Call: WRITE
  • Prompt: ?56,$E($P(^RMPR(660.1,RO,0),U,6),1,10)
  • Line Location: WRIL+7
Function Call: WRITE
  • Prompt: !,"Would you like to see more returned items"
  • Line Location: OLD1+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: OLD1+1
Function Call: WRITE
  • Prompt: !?16,$E(Y,1,12),?29,$E($P(^RMPR(665,RMPRDFN,7,RO,0),U,4),1,20)
  • Line Location: OLD1+2
Function Call: WRITE
  • Prompt: ?68,$S(R0=1:"RETURNED",R0=2:"CONDENMED",R0=3:"TURNED-IN",R0=4:"LOST",R0=5:"BROKEN",1:"UNKNOWN")
  • Line Location: RTNSTA+1
Function Call: WRITE
  • Prompt: !,"Select One of the Following: ",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,?5,$P($P(RMPR90DP,";",RMPR90I),":",1),?14,$P($P(RMPR90DP,";",RMPR90I),":",2)
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+2
Routine Call
  • DIR
  • Line Location:
    • RMPRPAT1+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] RMPRPAT1+13, WRIL+6
^RMPR(660.1 - [#660.1] RMPRPAT1+29, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8
^RMPR(661 - [#661] RMPRPAT1+13, WRIL+6
^RMPR(664 - [#664] RMPRPAT1+6
^RMPR(665 - [#665] RMPRPAT1+15, RMPRPAT1+28, OLD+1, OLD1+2, RTNSTA+1
^RMPR(667 - [#667] RMPRPAT1+21, RMPRPAT1+22, RMPRPAT1+24
^RMPR(667.1 - [#667.1] WRIL+7
^RMPR(667.2 - [#667.2] RMPRPAT1+24
^VA(200 - [#200] RMPRPAT1+17

Label References

Name Line Occurrences
OLD RMPRPAT1+28
OLD1 OLD+1, OLD1+1
WRIL RMPRPAT1+29, WRIL+2

Naked Globals

Name Field # of Occurrence
^(0 WRIL+6, WRIL+7, WRIL+8, OLD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% WRIL+1*, WRIL+2, OLD1*, OLD1+1, ASK1+3~
%X RMPRPAT1+5*!
%Y RMPRPAT1+5*!
>> DFN RMPRPAT1+3*, RMPRPAT1+4*, RMPRPAT1+5*
DIR RMPRPAT1+31~, ASK1+2!
DIR("?" ASK1+5*, ASK1+6!
DIR("A" ASK1+2*, ASK1+6*
DIR(0 RMPRPAT1+31*, HELP+1, ASK1+3*, ASK1+4*, ASK1+6*
>> FL RMPRPAT1+32*
I RMPRPAT1+29*, RMPRPAT1+30!, WRIL+1, WRIL+2, OLD+1*, OLD1, OLD1+1
IOF RMPRPAT1+2
IOST WRIL+1, WRIL+2, OLD1, OLD1+1
J RMPRPAT1+11*, RMPRPAT1+12*, RMPRPAT1+13, RMPRPAT1+30!
KILL RMPRPAT1+25!, RMPRPAT1+29, WRIL+1*, OLD+1, OLD1*
L RMPRPAT1+30!
>> PAGE RMPRPAT1+2*
R0 RMPRPAT1+14*, RMPRPAT1+30!, RTNSTA+1*
R5 RMPRPAT1+5!
R5(0 RMPRPAT1+14
R5(10 RMPRPAT1+10*, RMPRPAT1+11
R5(5 RMPRPAT1+12, RMPRPAT1+13
R5(6 RMPRPAT1+15, RMPRPAT1+19, RMPRPAT1+20
>> RA RMPRPAT1+15*, RMPRPAT1+19
>> RCNT HELP+1, ASK1+2, ASK1+4, ASK1+5
>> RFLG ASK1+6, ASK1+7*
>> RI RMPRPAT1+15*
RMPR90DP HELP+1~*
RMPR90I HELP+1~*
>> RMPRDFN RMPRPAT1+3, RMPRPAT1+4, RMPRPAT1+5, RMPRPAT1+6, RMPRPAT1+15, RMPRPAT1+21, RMPRPAT1+28, RMPRPAT1+29, OLD+1, OLD1+2
, RTNSTA+1
RMPRFLG RMPRPAT1+23, RMPRPAT1+24*, RMPRPAT1+25!
>> RMPRNAM RMPRPAT1+7
>> RO RMPRPAT1+21*, RMPRPAT1+22, RMPRPAT1+24, RMPRPAT1+29*, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD+1*
, OLD1+2, RTNSTA+1
>> RR5 RMPRPAT1+15*, RMPRPAT1+16, RMPRPAT1+17
U RMPRPAT1+7, RMPRPAT1+8, RMPRPAT1+11, RMPRPAT1+12, RMPRPAT1+13, RMPRPAT1+14, RMPRPAT1+16, RMPRPAT1+17, RMPRPAT1+19, RMPRPAT1+22
, RMPRPAT1+24, WRIL+3, WRIL+4, WRIL+6, WRIL+7, WRIL+8, OLD1+2, RTNSTA+1, HELP+1, ASK1+6
VADM RMPRPAT1+3!
VADM(2 RMPRPAT1+7
VADM(3 RMPRPAT1+8
VAEL RMPRPAT1+4!
VAEL(7 RMPRPAT1+9
VAHOW RMPRPAT1+3~, RMPRPAT1+4~
>> Y RMPRPAT1+12*, RMPRPAT1+13, RMPRPAT1+17*, RMPRPAT1+24*, WRIL+4*, WRIL+5, OLD1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All