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

Package: Prosthetics

Routine: RMPRED4


Information

RMPRED4 ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;8/29/1994

Source Information

Source file <RMPRED4.m>

Entry Points

Name Comments DBIA/ICR reference
QTY ;
DATE
REQ
LOT
REMA
CC
POST ;POSTS EDITED TRANSACTION TO 660
DEL1 ;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
DEL2
ERR
EXIT ;KILL VARIABLES AND EXIT ROUTINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Deleted..."
  • Condition for execution: $P(R1(0),U,12)&(X="@")
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: ?16,"??"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Jumping not allowed!"
  • Line Location: REQ+1
Function Call: WRITE
  • Prompt: !?5,"Deleted..."
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed!"
  • Line Location: LOT+1
Function Call: WRITE
  • Prompt: !?5,"Deleted..."
  • Line Location: LOT+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed!"
  • Line Location: REMA+1
Function Call: WRITE
  • Prompt: !?5,"Deleted..."
  • Line Location: REMA+2
Function Call: WRITE
  • Prompt: !,"Posting...."
  • Line Location: POST+1
Function Call: WRITE
  • Prompt: $C(7),!?10,"Deleted..."
  • Line Location: DEL2+39
Function Call: WRITE
  • Prompt: !!,"Error encountered while posting to GIP. Patient 10-2319 not deleted!! Please check with your Application Coordinator."
  • Line Location: ERR+0

FileMan Files Accessed Via FileMan Db Call

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