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

Package: Prosthetics

Routine: RMPRAUT


Information

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

Source Information

Source file <RMPRAUT.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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