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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPRDIS

Package: Prosthetics

Routine: RMPRDIS


Information

RMPRDIS ;PHX/JLT-DISPLAY/EDIT DISABILITY CODES

Source Information

Source file <RMPRDIS.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call