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

Package: Prosthetics

Routine: RMPRPAT5


Information

RMPRPAT5 ;PHX/RFM-DISPLAY/PRINT CRITICAL COMMENTS ;8/29/1994

Source Information

Source file <RMPRPAT5.m>

Entry Points

Name Comments DBIA/ICR reference
CRI
WRI
EDIT
DIS
DISP ;DISPLAY DISABILITY CODES
WRI1
NPC ;CHECK ALL DISABILITY CODES MARKED DELETED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$P(^DPT(RMPRDFN,0),U),?60,"CRITICAL COMMENTS",!!,"No Patient Critical Comments Recorded for this patient!",!!
  • Line Location: RMPRPAT5+3
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$P(^DPT(RMPRDFN,0),U),?60,"CRITICAL COMMENTS",!!
  • Line Location: RMPRPAT5+4
Function Call: WRITE
  • Prompt: !!,"Would you like to Add/Edit Patient Critical Comments"
  • Line Location: CRI+0
Function Call: WRITE
  • Prompt: !,"Enter `YES or `NO`"
  • Condition for execution: %=0
  • Line Location: CRI+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CRI+0
Function Call: WRITE
  • Prompt: !,^RMPR(665,RMPRDFN,8,RO,0)
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"Disability Code has not been entered for this Patient! You must enter a"
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!,"Current Disability Codes are: "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !!,"*More Disability Codes on File, See Screen 1"
  • Line Location: WRI1+0
Function Call: WRITE
  • Prompt: !,$P(^(0),U,1)
  • Line Location: WRI1+1
Function Call: WRITE
  • Prompt: ?50,"Deleted..."
  • Line Location: WRI1+7
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"The Patient's Disability Codes have been Marked as Deleted.",!,?5,"No Purchasing may be done for this patient"
  • Line Location: NPC+2

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