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

Package: Prosthetics

Routine: RMPRPCE1


Information

RMPRPCE1 ;HCIOFO/RVD - Prosthetics/PCE UPDATE UTILITY ;5/7/03 09:12

Source Information

Source file <RMPRPCE1.m>

Entry Points

Name Comments DBIA/ICR reference
UP60(RMIE60,RMIE68,RMSUSTAT) ; update file #660.
UP60X ; exit point
UP68(RMIE60,RMIE68,RMAMIS) ; update file #668.
UNL68 ;L -^RMPR(668,RMIE68)
UP68X ; exit point
ERR0 ;error updating file #660
ERR8 ;error updating file #668
LINK ;link 2319 to suspense
EXIT ;quit
SCRS ;set consult request service.
NEWVAR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Someone else is Editing this entry!!!",!
  • Line Location: UP60+5
Function Call: WRITE
  • Prompt: !,"Someone else is Editing this entry!!!",!
  • Line Location: UP68+6
Function Call: WRITE
  • Prompt: !,"*** Error updating file #660 in PCE module!!!",!
  • Line Location: ERR0+1
Function Call: WRITE
  • Prompt: !,"*** Error updating file #668 in PCE module!!!",!
  • Line Location: ERR8+1
Function Call: READ
  • Variable: CTR
  • Timeout: 15
  • Line Location: LINK+10
Function Call: WRITE
  • Prompt: !,?2,$C(7),">> NO patient unlinked items available to be posted to Suspense, hit return"
  • Line Location: LINK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LINK+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LINK+14
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Someone else is Editing this entry!"
  • Line Location: LINK+16
Function Call: WRITE
  • Prompt: !!,"Setting Consult Request Service in file #660....."
  • Line Location: SCRS+2
Function Call: WRITE
  • Prompt: !!,"Done setting Consult Request Service!!",!
  • Line Location: SCRS+9

FileMan Files Accessed Via FileMan Db Call

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