Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  MIX^DIC1  ^DIK  ^DIR  
Kernel 2 KILL^XUSCLEAN  SIG^XUSESIG  
Prosthetics 1 DIV4^RMPRSIT  

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) ;

External References

Name Field # of Occurrence
^%DT RMPR5NDL+8
^DIC USR2E+4
MIX^DIC1 LOC+8
^DIK DEL+7
^DIR DEL+4
DIV4^RMPRSIT RMPR5NDL+7
KILL^XUSCLEAN EXIT+1
SIG^XUSESIG ESIG+6, GETO+10

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
Routine Call
  • DIC
  • Line Location:
    • USR2E+4
Routine Call
  • DIR
  • Line Location:
    • DEL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^RMPR(661.3 - [#661.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.3 - [#661.3] DEL+5, DEL+7, STOCK+4, STOCK+6, STOCK+8
^VA(200 - [#200] ESIG+4
^XUSEC( USR2E+15

Label References

Name Line Occurrences
$$GETO OSIG
$$GETUSR2 GETO+7
EXIT LOC+9, OSIG, ESIG+6, DEL+4, DEL+6
GETOKX GETO+7, GETO+10
STOCK CHK
USR2E USR2E+9, USR2E+16
USR2X USR2E+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D LOC+6*, LOC+8*
>> DA LOC+9*, DEL+7*
DIC LOC+7*, GETUSR2+1~, USR2E+1*
DIC("A" LOC+8*, USR2E+3*
DIC("B" RMPR5NDL+7!, LOC+5!
DIC("S" LOC+6*
DIC(0 LOC+7*, USR2E+2*
>> DIK DEL+7*
>> DIR("A" DEL+3*
>> DIR("B" DEL+1*
>> DIR(0 DEL+1*
DLAYGO GETUSR2+1~
DTOUT LOC+5!, LOC+9, DEL+4, GETUSR2+1~
DUOUT LOC+5!, LOC+9, DEL+4, GETUSR2+1~
DUZ OSIG, ESIG+4, GETO+1~, GETO+8*, GETUSR2+1~, GETUSR2+2*
>> DZ LOC+6*
IEN1 STOCK+1~, STOCK+3*, STOCK+4*, STOCK+6, STOCK+8
IEN2 STOCK+1~, STOCK+5*, STOCK+6*, STOCK+8
IOF LOC+1
>> RMLODA LOC+9*, CHK, DEL+5, DEL+7
RMPR EXIT+1~
RMPRDUZ GETO~, GETO+6
RMPREXC GETUSR2+1~, USR2E+5*, USR2E+22*, USR2X
RMPRILOC STOCK~, STOCK+4, STOCK+6, STOCK+8
RMPRKEY GETUSR2+1~, USR2E+14*, USR2E+15*, USR2E+16
RMPRKEYS GETO+1~, GETO+7, GETUSR2~
RMPRKEYS( USR2E+15
RMPRKEYS("RMPRMANAGER" GETO+5*
RMPRMGR GETO+1~
RMPROK GETO+1~, GETO+4*, GETO+11*, GETOKX
RMPRSITE EXIT+1~
RMPRSTK STOCK+1~, STOCK+2!
RMPRSTK("COST" STOCK+10*, STOCK+20
RMPRSTK("ITEMS" STOCK+2*, STOCK+7*, STOCK+14, STOCK+15
RMPRSTK("QOH" STOCK+9*, STOCK+19
RMPRUSR1 GETO+1~, GETO+7, GETUSR2~
RMPRUSR1("DUZ" GETO+6*, GETUSR2+2, USR2E+9
RMPRUSR2 GETO+1~, GETO+7, GETUSR2~, USR2E!
RMPRUSR2("DUZ" GETO+8, USR2E+6*, USR2E+9, USR2E+15
RMPRUSR2("NAME" GETO+9, USR2E+21*
S STOCK+1~, STOCK+8*, STOCK+9, STOCK+10
U USR2E+6, USR2E+21
X RMPR5NDL+8*, GETO+1~, GETUSR2+1~
X1 ESIG+6, GETO+1~, GETO+10
>> XQUSER ESIG, ESIG+1
Y RMPR5NDL+7, LOC+9, DEL+4, DEL+7, GETUSR2+1~, USR2E+5, USR2E+6, USR2E+21
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All