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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RMPRAUT

Package: Prosthetics

Routine: RMPRAUT


Information

RMPRAUT ;PHX/JLT-AUTO ADAPTIVE EQUIPMENT ;8/29/1994

Source Information

Source file <RMPRAUT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  ^DIE  (,IX1)^DIK  ^DIR  
Prosthetics 4 ENT^RMPRAVR  LINK^RMPRS  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
Kernel 1 HOME^%ZIS  
Registration 1 ^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 1 ^DIC(19  
Prosthetics 1 RMPR AUTO NEW  

Entry Points

Name Comments DBIA/ICR reference
END
DPR
LP
EXP
CHK
FILE
DSP
ANK
DEL
EDT
ASK
MAK
ROV
LOOK

External References

Name Field # of Occurrence
DD^%DT LOOK, DSP
HOME^%ZIS LOOK
^DIC MAK, DPR+4
^DIE ASK+5
^DIK DEL
IX1^DIK FILE+7
^DIR LOOK+3, ANK, EDT, EDT+1, MAK+1, DPR, EXP, ASK+2, FILE, FILE+1
, FILE+2, FILE+3, FILE+9, FILE+10
ENT^RMPRAVR FILE+10
LINK^RMPRS END
DIV4^RMPRSIT LOOK
GETPAT^RMPRUTIL LOOK
^VADPT DPR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?20,"VAF21-4502 DATE: ",Y
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit.",!
  • Line Location: ANK+0
Function Call: WRITE
  • Prompt: !!,"Patient: ",$E(VADM(1),1,30),?40,VA("PID"),!!,"Has Vehicle ID#: ",$P(RI,U,1)," As an active Vehicle of Record"
  • Line Location: DPR+1
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"There are currently two V.O.R in the last 4 yrs.",!,?5,"Are you going to apply the exception rule?"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"INACTIVE RECORD"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"Someone else is Editing this entry"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"This Patient Currently has two Vehicles of Record.",!,?5,"Would you like to drop a Vehicle?"
  • Line Location: ROV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FILE+10
Function Call: WRITE
  • Prompt: !!,$C(7),"Deleted..."
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !,RK
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?3,$E($P(^DPT($P(RA,U,3),0),U),1,20)," ",$P(RA,U,2)
  • Condition for execution: $P(RA,U,3)
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?45,$E(^RMPR(667.2,$P(RA,U,7),0),1,10)
  • Condition for execution: $P(RA,U,7)
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?50,$E($P(RA,U,8),1,5)
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?50,$E($P(RA,U,8),1,5)
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?69
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: $S(+^(2)=1:"ACTIVE",1:"INACTIVE")
  • Line Location: DSP+1
Routine Call
  • %ZIS
  • Line Location:
    • LOOK
Routine Call
  • DIE
  • Line Location:
    • ASK+5
Routine Call
  • DIC
  • Line Location:
    • MAK
    • DPR+4
Routine Call
  • DIR
  • Line Location:
    • LOOK+3
    • ANK
    • EDT
    • EDT+1
    • MAK+1
    • DPR
    • EXP
    • ASK+2
    • FILE
    • FILE+1
    • FILE+2
    • FILE+3
    • FILE+9
    • FILE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(667 - [#667] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DSP
^RMPR(667 - [#667] LOOK, DPR, CHK, ASK+3, ASK+4, ASK+5*, FILE+4*, FILE+5*, FILE+6*, DEL*
, DSP+1, LP, LP+1
^RMPR(667.2 - [#667.2] DSP

Label References

Name Line Occurrences
ANK ANK
ASK ASK+2, ASK+3
DEL EXP, ASK+2, FILE, FILE+1, FILE+2
DSP ASK, DSP+2
EDT LOOK+1
END LOOK, LOOK+3, ANK, EDT, EDT+1, MAK, MAK+1, DPR, DPR+3, DPR+4
, ASK+4, FILE+9, FILE+10, DEL
EXP ROV
FILE ASK+5
LP CHK+1, LP+2
MAK MAK
ROV CHK, CHK+2

Naked Globals

Name Field # of Occurrence
^(0 FILE+4*, FILE+5*, LP+1
^(2 DPR, ASK+3, DSP+1, LP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LOOK+2!, ANK+1!, MAK+1!, CHK!, ASK+5*!, FILE+7*!, END+1!, DEL*
>> DFN DPR+1*
DIC MAK*, MAK+1!, DPR+4!*, ASK+5!, END+1!
DIC("A" MAK*
DIC(0 MAK*, DPR+4*
DIE ASK+5*!
DIK FILE+7*, END+1!, DEL*
DIR ANK!, DPR!, CHK+2!, ASK+1!, FILE!, FILE+1!, FILE+2!, FILE+3!, FILE+8!, FILE+10!
, END+1!
DIR("?" ASK+1*
DIR("A" ANK*, DPR*, ASK+1*, FILE+8*, FILE+10*
DIR("B" CHK+2*, ROV*
DIR(0 LOOK+3*, ANK*, EDT*, EDT+1*, MAK+1*, DPR*, CHK+2*, ASK+1*, ROV*, FILE*
, FILE+1*, FILE+2*, FILE+3*, FILE+8*, FILE+10*
DIRUT ANK, EDT, EDT+1, MAK+1, DPR, EXP, ASK+2, FILE, FILE+1, FILE+2
, FILE+9, FILE+10, END+1!
DLAYGO DPR+4*!
>> DR ASK+5*
DT LP+1
>> DTOUT LOOK+3, EDT, EDT+1, MAK, MAK+1, DPR, EXP, ASK+2, FILE, FILE+1
, FILE+2, FILE+9, FILE+10, END
DUOUT ANK, END+1!
FL ASK+5*, FILE+7!, END+1!, DEL
FLG DPR+2*, DPR+3, END+1!
J END+1!
RA DPR*, CHK*, END+1!, DSP*
RAC ROV, END+1!
RAC( ASK+2, ASK+3, ASK+4, ASK+5, DSP, DSP+1, LP+1*
RB CHK*, END+1!, LP*, LP+1
RC CHK*, CHK+2, END+1!, LP+1*
RD END+1!, LP+1*
RE END+1!
REX END+1!, LP*, LP+1
RF CHK*, ROV, END+1!, LP+1*
RFL ASK+5!, END+1!
>> RI DPR*, DPR+1
RK ASK*, END+1!, DSP*, DSP+1
RLP CHK*, END+1!, LP+1*
>> RMPR("STA" FILE+5
RMPR45 LOOK*, LOOK+3*, FILE+4, END+1!
RMPRAM FILE+10*, END+1!
RMPRC END+1!
RMPRC(1 EDT*, FILE+5
RMPRC(2 EDT+1*, FILE+5
RMPRC(3 MAK*, FILE+5
RMPRC(4 MAK+1*, FILE+5
RMPRC(5 FILE*, FILE+5
RMPRC(6 FILE+1*, FILE+6
RMPRC(7 FILE+2*, FILE+3, FILE+6
RMPRC(8 FILE+3*, FILE+6
RMPRDA CHK*, FILE+4, FILE+5, FILE+6, FILE+7, END+1!, DEL
RMPRDFN LOOK, CHK, FILE+4, END+1!, LP
RMPRDOB END+1!
RMPRDOD END+1!
RMPRNAM END+1!
RMPRR END+1!
RMPRSSN END+1!
>> RMPRX ANK*, FILE+4
>> RX DPR*, DPR+4
>> RY ASK+5*
RZ END+1!, LP+1*
U LOOK+3, DPR, DPR+1, ASK+3, ASK+5, FILE+4, FILE+5, DSP, LP, LP+1
>> VA("PID" DPR+1
>> VADM(1 DPR+1
X LOOK, ANK, ANK+1!, MAK, MAK+1, DPR+4*, END+1!
Y LOOK*, LOOK+1, LOOK+2!, LOOK+3, ANK+1!, EDT, EDT+1, MAK, MAK+1!, DPR
, DPR+4!, CHK!, EXP, ASK+2, ASK+3, ASK+4, ASK+5!, FILE!, FILE+1!, FILE+2!
, FILE+3!, FILE+7!, FILE+9, FILE+10!, DSP*
Y(0 FILE+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All