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

Package: Prosthetics

Routine: RMPRDIS


Information

RMPRDIS ;PHX/JLT-DISPLAY/EDIT DISABILITY CODES

Source Information

Source file <RMPRDIS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  (,IX1)^DIK  ^DIR  
Prosthetics 2 ASK1^RMPRPAT  GETPAT^RMPRUTIL  

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

Package Total Caller Graph
Prosthetics 5 RMPR DEL CODE  RMPR DIS ENTRY  RMPR29W  RMPRPAT  RMPRPAT5  

Entry Points

Name Comments DBIA/ICR reference
EN ;ADD DISABILITY CODE, CALLED FROM RMPRAP
AMP
EDIT
DEND
DEA ;DEACTIVATE PATIENT PROSTHETICS DISABILITY CODES
END
SEL
LP ;DISPLAY DISABILITY CODES
DIR
FILE
DSP
SDR
CHK

External References

Name Field # of Occurrence
^DIC AMPSEL+2
FILE^DICN FILE
^DIE AMP+2, EDIT+1, DEA+13, SEL+4
^DIK EDIT+2
IX1^DIK EN+4
^DIR EN+3, AMP+2, DEA+6, DEA+11, DIR
ASK1^RMPRPAT END+1
GETPAT^RMPRUTIL RMPRDIS+2, DEA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Someone else is Editing this entry"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Deleted..."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"Patient has no Prosthetics Disability codes",$C(7)
  • Line Location: DEA+4
Function Call: WRITE
  • Prompt: !,?5,$P(^RMPR(662,$P(RA,U,1),0),U,1)
  • Line Location: DEA+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEA+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEA+9
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Someone else is Editing this entry!"
  • Line Location: DEA+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,$C(7),?5,"Someone else is Editing this entry!"
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !,?5,"**CODE MARKED AS DELETED**"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !,?5,$P(^RMPR(662,$P(RA,U),0),U)
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: ?15
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: $S($P(RA,U,3)=1:"SC ",1:"NSC ")
  • Line Location: DSP+0
Function Call: WRITE
  • Prompt: ?21,$P($P(RT,":",$P(RA,U,4)+1),";",1)_" "
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: ?41,$P($P(RT,":",$P(RA,U,5)+1),";",1)
  • Line Location: DSP+2
Function Call: WRITE
  • Prompt: ?65,"Deleted..."
  • Line Location: DSP+3
Routine Call
  • DIC
  • Line Location:
    • AMP
    • SEL+2
Routine Call
  • DIE
  • Line Location:
    • AMP+2
    • EDIT+1
    • DEA+13
    • SEL+4
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • AMP+2
    • DEA+6
    • DEA+11
    • DIR

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(665.01 DSP+1, DSP+2
^DPT - [#2] DEA+5, LP+2
^RMPR(660.5 EN+4
^RMPR(662 - [#662] DEA+5, LP+2
^RMPR(665 - [#665] EN+4*, EN+5*, EN+6, AMP+1, AMP+3, EDIT+1, EDIT+2, DENDDEA+4, DEA+5
DEA+7, DEA+12, DEA+13, DEA+14, SEL+3, SEL+4, LP+1, CHKCHK+1

Label References

Name Line Occurrences
AMP AMP+4, EDIT+3
DEA EN+3, SEL+2
DEND AMPAMP+2
DIR AMP+4
DSP DEA+5, LP+2
END EN+3, EN+6, DEA+2, DEA+4, DEA+6, DEA+11, DEA+12, SEL+2, SEL+3
FILE DIR
LP EN+6
SDR EDIT
SEL DEA+8, DEA+11, SEL+4

Naked Globals

Name Field # of Occurrence
^( DEA+5, DEA+13, LP+1
^(0 EDIT+1*, EDIT+2, LP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 FILE!
DA EN+4*, AMP+2*, EDIT*, EDIT+1, EDIT+2, DEA+13*, END+2!, SEL+4*, CHKCHK+1
DA(1 AMP*, EDIT*, EDIT+1, EDIT+2*, DEA+13*, SEL+4*, FILE*, CHKCHK+1
DD FILE!
>> DFN EN+4*
DIC EN+1~, AMP*, AMP+2, DEND+1!, END+2!, SEL*, SEL+4, FILE*
DIC("W" AMP*, SEL+1*
DIC(0 AMP*, SEL+1*, FILE*
DIE AMP+2*, EDIT*, DEND+1!, DEA+13*, END+2!, SEL+4*
DIK EN+4*, EDIT+2*, END+2!
DIR EN+1~, AMP+2!, EDIT!, DEA+9!, END+2!, DIR!
DIR("?" EN+2*, AMP+1*, DEA+6*, DEA+10*
DIR("A" EN+2*, AMP+1*, DEA+6*, DEA+10*
DIR("B" EN+2*, AMP+1*, DEA+6*, DEA+10*, DIR*
DIR(0 EN+2*, AMP+1*, DEA+6*, DEA+9*, DIR*
DIRUT EN+3, AMP+2, AMP+4!, DEA+6, DEA+11, END+2!, DIR
DLAYGO AMP*!, FILE*!
DO FILE!
DR AMP+2*, DEND+1!, DEA+13*, END+2!, SEL+4*, SDR*
>> DUOUT EN+3, AMP+2, DEA+6, DEA+11
RA DEND!, DEA+5*, DEA+7*, END!, LP+2*, DSPDSP+1, DSP+2, DSP+3
RC AMP+3*, AMP+4, END!
RCC DEND!
RDA CHK*!, CHK+1
RI AMP+3*, DEND!, DEA+5*, DEA+7*, DEA+8, DEA+13*, END!, LP+1*, LP+2*, CHK+1*
>> RMPR("STA" EN+4
>> RMPRBACK EN+6, DEND+1, DEA+2, END+2, SEL+2
RMPRD DEND+1!, END+2!, LP+1!, LP+2
RMPRD( LP+1*, LP+2
>> RMPRDA EN+4
RMPRDFN RMPRDIS+2, EN+5, EN+6, AMPAMP+1, AMP+3, EDITEDIT+2, DENDDEA+2!
DEA+3, DEA+4, DEA+5, DEA+7, DEA+12, DEA+13, DEA+14, END+2!, SELSEL+3
SEL+4, LP+1, LP+2, FILE
>> RMPRDIR3 DEA+2, END
RMPRDIR7 EN+2, DEA+6, END+1!
RMPRDOB END+2!
RMPRNAM END+2!
RMPRSSN END+2!
RMPRT DEND!, END!
RMPRX AMP*, AMP+3, DEND!, END!, FILE
RMPRY AMP*, AMP+2, EDIT, DEND!, END!, DIR, FILE*
RT DEND!, END!, DSP+1*, DSP+2*
>> RV CHK+1*
U EN+4, AMPAMP+1, EDIT+1, EDIT+2, DEA+5, LP+2, DIRDSPDSP+1
DSP+2, DSP+3, CHKCHK+1
X FILE*, CHK+1!
Y EN+3, AMPAMP+1, AMP+2, DEND+1!, DEA+6, DEA+11, SEL+2, SEL+4, DIR
FILE
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