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

Package: Prosthetics

Routine: RMPR5NDL


Information

RMPR5NDL ;HIN/RVD-PROS INVENTORY DELETE UTILITY ;9/03/99

Source Information

Source file <RMPR5NDL.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;ask for Location.
CHK
OSIG
ESIG
DEL ;delete a location
EXIT ;MAIN EXIT POINT
GETO(RMPRDUZ) ;
GETOKX
GETUSR2(RMPRUSR2,RMPRKEYS,RMPRUSR1) ;
USR2E
USR2X
STOCK(RMPRILOC) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Delete an Inventory Location.....",!
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !,"This option now requires the electronic signatures of 2 users"
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !,"holding the RMPRMANAGER key to be entered before a location"
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !,"will be deleted.",!
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: !!,XQUSER," please..."
  • Line Location: ESIG+1
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",1)," please..."
  • Line Location: ESIG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"Nothing Deleted.."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !,"Record in use. Try again later..."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !!,"Pease ask another user with the RMPRMANAGER key to"
  • Line Location: GETO+2
Function Call: WRITE
  • Prompt: !,"enter their user name and electronic signature.",!
  • Line Location: GETO+3
Function Call: WRITE
  • Prompt: !,RMPRUSR2("NAME")," please..."
  • Line Location: GETO+9
Function Call: WRITE
  • Prompt: !,"The 2nd manager must be different to the manager logged on."
  • Line Location: USR2E+10
Function Call: WRITE
  • Prompt: !,"The 2nd manager does not have the correct security key set up."
  • Line Location: USR2E+17
Function Call: WRITE
  • Prompt: !,"The above location contains "
  • Line Location: STOCK+13
Function Call: WRITE
  • Prompt: RMPRSTK("ITEMS")," types of items"
  • Line Location: STOCK+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: STOCK+16
Function Call: WRITE
  • Prompt: ", ",!,"with a total quantity of ",RMPRSTK("QOH")
  • Line Location: STOCK+19
Function Call: WRITE
  • Prompt: " and cost of $",RMPRSTK("COST"),"."
  • Line Location: STOCK+20
Function Call: WRITE
  • Prompt: !
  • Line Location: STOCK+22

FileMan Files Accessed Via FileMan Db Call

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