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 |  Caller 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: RMPRPIYL

Package: Prosthetics

Routine: RMPRPIYL


Information

RMPRPIYL ;HINES OIFO/ODJ - PIP - DL - DEACTIVATE LOCATION ;9/19/02 08:22

Source Information

Source file <RMPRPIYL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Prosthetics 6 $$GETUSR^RMPRPIU0  $$REC^RMPRPIU9  $$STOCK^RMPRPIUE  $$UPD^RMPRPIX5  $$STN^RMPRPIY1  LOCNM^RMPRPIY7  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Kernel 2 KILL^XUSCLEAN  SIG^XUSESIG  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPR INV DEACTIVATE  

Entry Points

Name Comments DBIA/ICR reference
DL
STN
LOCN
CHK
OSIG
ESIG
DEL ;delete a location
ZERO ;***** zeroed all item in a location.
TRANS
DLX
STOCK(RMPRSTN,RMPRLCN) ;
GETO(RMPRDUZ) ;
GETOKX
GETUSR2(RMPRUSR2,RMPRKEYS,RMPRUSR1) ;
USR2E
USR2X

External References

Name Field # of Occurrence
NOW^%DTC TRANS+3
^DIC USR2E+4
^DIR DEL+4
$$GETUSR^RMPRPIU0 ESIG+4
$$REC^RMPRPIU9 ZERO+17
$$STOCK^RMPRPIUE STOCK+15
$$UPD^RMPRPIX5 TRANS+5
$$STN^RMPRPIY1 STN
LOCNM^RMPRPIY7 LOCN+5
KILL^XUSCLEAN DLX
SIG^XUSESIG ESIG+6, GETO+10

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: RMPRERR
  • Timeout: 3
  • Line Location: DL+1
Function Call: WRITE
  • Prompt: !,"VISTA User parameter (DUZ) does not exist, can't continue with this option"
  • Line Location: DL+1
Function Call: WRITE
  • Prompt: @IOF,!!,"Deactivate an Inventory Location.....",!
  • Line Location: LOCN+0
Function Call: WRITE
  • Prompt: !,"This option requires the electronic signatures of 2 users"
  • Line Location: LOCN+1
Function Call: WRITE
  • Prompt: !,"holding the RMPRMANAGER key to be entered before a location"
  • Line Location: LOCN+2
Function Call: WRITE
  • Prompt: !,"will be deactivated.",!
  • Line Location: LOCN+3
Function Call: WRITE
  • Prompt: !!,XQUSER," please..."
  • Line Location: ESIG+1
Function Call: WRITE
  • Prompt: !!,$$GETUSR^RMPRPIU0(DUZ)," please..."
  • Line Location: ESIG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"Nothing Deactivated.."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"*** ERROR IN API RMPRPIU9 ***",!
  • Line Location: ZERO+18
Function Call: WRITE
  • Prompt: !,"Location is deactivated"
  • Line Location: TRANS+7
Function Call: WRITE
  • Prompt: !,"There was a problem deactivating the location"
  • Line Location: TRANS+10
Function Call: WRITE
  • Prompt: !,"The above location contains "_RMPRIC_" types of items"
  • Line Location: STOCK+21
Function Call: WRITE
  • Prompt: "."
  • Line Location: STOCK+23
Function Call: WRITE
  • Prompt: ", ",!,"with a total quantity of ",RMPRTQ
  • Line Location: STOCK+26
Function Call: WRITE
  • Prompt: " and cost of $",RMPRTC,"."
  • Line Location: STOCK+27
Function Call: WRITE
  • Prompt: !
  • Line Location: STOCK+29
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
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.6 - [#661.6] ZERO+11, ZERO+12
^RMPR(661.7 - [#661.7] ZERO+6, STOCK+6, STOCK+8
^XUSEC( USR2E+15

Label References

Name Line Occurrences
$$GETO OSIG
$$GETUSR2 GETO+7
DLX DL+1, STN+1, STN+2, LOCN+6, OSIG, ESIG+6, DEL+5
GETOKX GETO+7, GETO+10
STN LOCN+7
STOCK CHK
USR2E USR2E+9, USR2E+16
USR2X USR2E+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TRANS+4
DA DL~
DIC GETUSR2+1~, USR2E+1*
DIC("A" USR2E+3*
DIC(0 USR2E+2*
DIR DL~
DIR("A" DEL+3*
DIR("B" DEL+1*
DIR(0 DEL+1*
DLAYGO GETUSR2+1~
DTOUT DEL+5, GETUSR2+1~
DUOUT DEL+5, GETUSR2+1~
DUZ DL+1, OSIG, ESIG+4, GETO+1~, GETO+8*, GETUSR2+1~, GETUSR2+2*
IOF LOCN
R6 ZERO+2~, ZERO+12*, ZERO+19!
RD ZERO+2~, ZERO+6*, ZERO+10, ZERO+11, ZERO+12
RH ZERO+2~, ZERO+5*, ZERO+6*, ZERO+16
RI ZERO+2~, ZERO+6*, ZERO+16
>> RL ZERO+4*, ZERO+6, ZERO+11, ZERO+12, ZERO+16
>> RMPR11 ZERO+17
>> RMPR11("HCPCS" ZERO+16*
>> RMPR11("ITEM" ZERO+16*
>> RMPR11("STATI ON IEN" , ZERO+8*
>> RMPR11("STATION" ZERO+7*
RMPR5 DL~, LOCN+5, ZERO+17
RMPR5("IEN" CHK, ZERO+4, ZERO+16*, TRANS+1
RMPR5U DL~, TRANS!, TRANS+5
RMPR5U("IEN" TRANS+1*
RMPR5U("STATU S DATE" , TRANS+4*
RMPR5U("STATUS" TRANS+2*
>> RMPR6 ZERO+17
>> RMPR6("QUANTITY" ZERO+9*
>> RMPR6("VENDOR IEN" , ZERO+15*
>> RMPR6("VENDOR" ZERO+14*
RMPRDUZ GETO~, GETO+6
RMPRERR DL~, DL+1*, STN*, STN+1, ZERO+17*, ZERO+18, TRANS+5*, TRANS+6, STOCK+1~, STOCK+15*
RMPREXC DL~, STN, STN+2, LOCN+5, LOCN+6, LOCN+7, GETUSR2+1~, USR2E+5*, USR2E+22*, USR2X
RMPRH STOCK+1~, STOCK+5*, STOCK+6*, STOCK+8, STOCK+12
RMPRI STOCK+1~, STOCK+7*, STOCK+8*, STOCK+13
RMPRIC STOCK+1~, STOCK+2*, STOCK+16*, STOCK+21, STOCK+22
RMPRKEY GETUSR2+1~, USR2E+14*, USR2E+15*, USR2E+16
RMPRKEYS GETO+1~, GETO+7, GETUSR2~
RMPRKEYS( USR2E+15
RMPRKEYS("RMPRMANAGER" GETO+5*
RMPRLCN DL~, STOCK~, STOCK+6, STOCK+8, STOCK+11
RMPRMGR GETO+1~
RMPROK GETO+1~, GETO+4*, GETO+11*, GETOKX
RMPRQ STOCK+1~, STOCK+9!, STOCK+15
RMPRQ("HCPCS" STOCK+12*
RMPRQ("ITEM" STOCK+13*
RMPRQ("LOCATI ON IEN" , STOCK+11*
RMPRQ("QOH" STOCK+17, STOCK+18
RMPRQ("STATIO N IEN" , STOCK+10*
RMPRQ("UNIT C OST" , STOCK+18
RMPRQ("VENDOR IEN" , STOCK+14*
RMPRSTN DL~, STN, STOCK~, STOCK+6, STOCK+8, STOCK+10
RMPRSTN("IEN" LOCN+5, CHK, ZERO+3
RMPRTC STOCK+1~, STOCK+3*, STOCK+18*, STOCK+27
RMPRTQ STOCK+1~, STOCK+4*, STOCK+17*, STOCK+26
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*
>> RS ZERO+3*, ZERO+6, ZERO+7, ZERO+8, ZERO+11, ZERO+12
RV ZERO+2~, ZERO+12*, ZERO+13, ZERO+14, ZERO+15, ZERO+19!
U ZERO+12, USR2E+6, USR2E+21
X DL~, GETO+1~, GETUSR2+1~
X1 ESIG+6, GETO+1~, GETO+10
>> XQUSER ESIG, ESIG+1
Y DL~, DEL+5, GETUSR2+1~, USR2E+5, USR2E+6, USR2E+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All