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

Package: Prosthetics

Routine: RMPR5NTU


Information

RMPR5NTU ;HIN/RVD-PROS INVENTORY TRANS/UPDATE UTILITY ;2/11/98

Source Information

Source file <RMPR5NTU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 (,DD)^%DT  ^DIC  MIX^DIC1  FILE^DICN  ^DIE  IX1^DIK  
Prosthetics 2 BAL^RMPR5NU1  DIV4^RMPRSIT  
Kernel 1 KILL^XUSCLEAN  

Entry Points

Name Comments DBIA/ICR reference
TRAN ;ask for Location.
THCPCS ;ask for HCPCS to transfer.
LIST ;ask for PSAS Item to transfer.
TRANQ ;ask for Quantity to transfer.
TRANT ;ask for forwarding Location.
TRANI
STAT ;create transfer stat for an item
UPD ;update current inventory item balance.
UPD1
HCPC
ITEM ;
STATUPD ;create UPDATE stat for an item
EXIT ;MAIN EXIT POINT

External References

Name Field # of Occurrence
^%DT TRAN+1, UPD1+2
DD^%DT TRAN+1, UPD1+2
^DIC THCPCS+3, LIST+3, TRANI+5, HCPC+4, ITEM+6
MIX^DIC1 TRAN+7, TRANT+5, UPD1+7
FILE^DICN STAT+5, STAT+12, STATUPD+4
^DIE ITEM+17, ITEM+20
IX1^DIK STAT+8, STAT+16, STATUPD+8
BAL^RMPR5NU1 STAT+1, STAT+10, STATUPD+1
DIV4^RMPRSIT RMPR5NTU+2, UPD1+1
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPR5NTU+3
Function Call: WRITE
  • Prompt: !!,"Transferring Item Quantity to Another LOCATION....."
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: THCPCS+4
Function Call: WRITE
  • Prompt: !,"Record in use. Try again later..."
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !,"*** Nothing transferred ..."
  • Line Location: TRANQ+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Current balance is = ",RMBA
  • Line Location: TRANQ+3
Function Call: WRITE
  • Prompt: !,"Enter quantity 1 to ",RMBA," or"
  • Condition for execution: RMBA>0
  • Line Location: TRANQ+3
Function Call: WRITE
  • Prompt: " enter '^' to QUIT? "
  • Line Location: TRANQ+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Quantity to transfer is greater than current balance.."
  • Line Location: TRANQ+4
Function Call: WRITE
  • Prompt: !,"*** Nothing transferred ..."
  • Line Location: TRANT+6
Function Call: WRITE
  • Prompt: !,$C(7),"***Forwarding and Receiving Location is the same!!!!"
  • Line Location: TRANT+9
Function Call: WRITE
  • Prompt: !,"Record in use. Try again later..."
  • Line Location: TRANI+8
Function Call: WRITE
  • Prompt: !,"Quantity ",RMQTY," was transferred from ",RMLOF," to ",RMLOR
  • Line Location: TRANI+16
Function Call: WRITE
  • Prompt: !,"*** Item was transferred..."
  • Line Location: STAT+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: !!,"Updating Item in a Location.....",!
  • Line Location: UPD1+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: HCPC+5
Function Call: WRITE
  • Prompt: !,"Record in use. Try again later..."
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: !,"*** Nothing updated...."
  • Line Location: ITEM+26
Function Call: WRITE
  • Prompt: !,"*** Item was updated..."
  • Line Location: STATUPD+7
Routine Call
  • DIC
  • Line Location:
    • THCPCS+3
    • LIST+3
    • TRANI+5
    • HCPC+4
    • ITEM+6
Routine Call
  • DIE
  • Line Location:
    • ITEM+17
    • ITEM+20

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.1 - [#661.1] THCPCS+5, HCPC+6
^RMPR(661.2 - [#661.2] STAT+7*, STAT+14*, STATUPD+6*
^RMPR(661.3 - [#661.3] TRAN+9, THCPCS+5, LIST+5, LIST+7, LIST+9, TRANI, TRANI+1, TRANI+7, TRANI+9, TRANI+11
, TRANI+13, TRANI+14, TRANI+17*, TRANI+18*, TRANI+19*, TRANI+20*, TRANI+21, STAT+2, STAT+3, UPD1+8
, HCPC+6, ITEM+3, ITEM+5, ITEM+8, ITEM+10, ITEM+12, ITEM+18, ITEM+22, ITEM+28*, STATUPD+2
^VA(200 - [#200] STATUPD+5

Label References

Name Line Occurrences
EXIT TRAN+8, TRANQ+2, TRANT+6, TRANI+6, UPD1+7
HCPC ITEM+3, ITEM+7
ITEM ITEM+9
TRAN THCPCS+4, LIST+4, LIST+6, STAT+5, STAT+12, STAT+18
TRANI TRANI+8
TRANQ TRANQ+3, TRANQ+4
TRANT TRANT+7, TRANT+9
UPD1 HCPC+5, ITEM+26, STATUPD+4, STATUPD+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D TRAN+4*, TRAN+7*, TRANT+2*, TRANT+5*, UPD1+3*
>> DA STAT+5*, STAT+7, STAT+12*, STAT+14, ITEM+15*, STATUPD+4*, STATUPD+6
>> DA(1 TRAN+10*, THCPCS+3*, THCPCS+6*, THCPCS+7, TRANI+3*, TRANI+4, HCPC*, ITEM+1*, ITEM+2, ITEM+15*
, ITEM+16
>> DA(2 THCPCS+6*, THCPCS+7, TRANI+3*, TRANI+4, ITEM+1*, ITEM+2, ITEM+15*, ITEM+16
DD STAT+4!, STAT+11!, STATUPD+3!
>> DIC TRAN+5*, TRAN+10*, THCPCS+3*, THCPCS+7*, TRANT+3*, TRANT+4*, TRANI+4*, STAT+4*, STAT+8, STAT+11*
, STAT+16, UPD1+4*, HCPC*, HCPC+4*, ITEM+2*, STATUPD+3*, STATUPD+8
>> DIC("A" TRAN+7*, THCPCS+1*, LIST+3*, TRANT+4*, TRANI+5*, UPD1+6*, HCPC+2*, ITEM+6*
>> DIC("B" RMPR5NTU+2!, TRAN+2!, TRAN+9!, THCPCS+1!, TRANT+4!, UPD1+1!, UPD1+2!, ITEM+5*, ITEM+6!
>> DIC("S" TRAN+4*, TRAN+9!, THCPCS+1!, TRANT+1*, TRANI+3!, UPD1+3*, HCPC+1!
>> DIC("W" THCPCS+2*, HCPC+3*
>> DIC(0 TRAN+5*, THCPCS+2*, THCPCS+6*, TRANT+3*, TRANT+5*, TRANI+3*, STAT+4*, STAT+11*, UPD1+4*, HCPC+3*
, ITEM+1*, STATUPD+3*
>> DIE ITEM+16*
>> DIK STAT+8*, STAT+16*, STATUPD+8*
DIR HCPC+1!
>> DLAYGO STAT+4*, STAT+11*, STATUPD+3*
DO STAT+4!, STAT+11!, STATUPD+3!
>> DR ITEM+17*, ITEM+18*, ITEM+19*
DTIME TRANQ+1
DTOUT TRAN+2!, TRAN+8, THCPCS+1!, THCPCS+4, LIST+4, TRANQ+2, TRANT+6, TRANI+6, UPD1+2!, UPD1+7
, HCPC!, HCPC+1!, HCPC+5, ITEM+7
DUOUT TRAN+2!, TRAN+8, THCPCS+1!, THCPCS+4, LIST+4, TRANQ+2, TRANT+6, TRANI+6, UPD1+2!, UPD1+7
, HCPC!, HCPC+1!, HCPC+5, ITEM+7
DUZ STAT+7, STAT+14, STATUPD+5, STATUPD+6
>> DZ TRAN+4*, TRANT+2*, UPD1+3*
IOF RMPR5NTU+3, UPD+1
>> RM3 LIST+9*, LIST+10, ITEM+12*, ITEM+13, ITEM+14, ITEM+22*, ITEM+23, ITEM+24, ITEM+25
>> RMAV LIST+10*, TRANI+12, TRANI+15
>> RMAVA STAT+7, STAT+14, ITEM+23*, ITEM+27, STATUPD+6
>> RMAVD ITEM+21*
>> RMBA LIST+10*, TRANQ+3, TRANQ+4, ITEM+13*, ITEM+26, ITEM+27
>> RMBAA ITEM+23*, ITEM+26, ITEM+27
>> RMBAD ITEM+21*, ITEM+27*, STATUPD+6
>> RMBAF TRANI+15*, TRANI+17
>> RMBAR TRANI+12*, TRANI+18
>> RMCO LIST+10*, ITEM+13*
>> RMCOA ITEM+27*, ITEM+28
>> RMCOD ITEM+21*
>> RMCOF TRANI+15*, TRANI+19
>> RMCOR TRANI+12*, TRANI+20
>> RMDAFIT LIST+8*
>> RMDAHC THCPCS+5*, TRANI, STAT+7, STAT+14, HCPC+6*, STATUPD+6
>> RMDAIT ITEM+11*
>> RMDARHC TRANI+1*
>> RMDAT TRAN+1*, UPD1+2*
>> RMDAT1 TRAN+1*, STAT+4, STAT+7, STAT+11, STAT+14, UPD1+2*, STATUPD+3, STATUPD+6
>> RMDIIA ITEM+14*, ITEM+26
>> RMDIIAA ITEM+24*, ITEM+26
>> RMFR TRANI+14*, TRANI+15
>> RMFSTA STAT+10*, STAT+15
>> RMHCDA HCPC+6*, ITEM+1, ITEM+3, ITEM+5, ITEM+8, ITEM+10, ITEM+12, ITEM+15, ITEM+18, ITEM+22
, ITEM+28, STATUPD+2
>> RMHCFDA THCPCS+5*, THCPCS+6, LIST+5, LIST+7, LIST+9, TRANI+14, TRANI+17, TRANI+19, STAT+3
>> RMHCPC THCPCS+5*, HCPC+6*, ITEM+11*
>> RMHCRDA TRANI*, TRANI+1, TRANI+3, TRANI+7, TRANI+9, TRANI+11, TRANI+18, TRANI+20, STAT+2
>> RMIT LIST+7*, LIST+8, TRANI+9*, STAT+7, STAT+14, ITEM+10*, ITEM+11, STATUPD+6
>> RMITDA ITEM+7*, ITEM+10, ITEM+12, ITEM+15, ITEM+18, ITEM+22, ITEM+28, STATUPD+2
>> RMITFDA LIST+7*, LIST+9, TRANI+14, TRANI+17, TRANI+19, STAT+3
>> RMITRDA TRANI+9*, TRANI+11, TRANI+18, TRANI+20, STAT+2
>> RMLOC TRAN+9*, UPD1+8*
>> RMLODA TRAN+9*, THCPCS+3, THCPCS+5, UPD1+7*, HCPC, HCPC+4, HCPC+6, ITEM+1, ITEM+3, ITEM+5
, ITEM+8, ITEM+10, ITEM+12, ITEM+15, ITEM+18, ITEM+22, ITEM+28, STATUPD+2, STATUPD+6
>> RMLOF TRAN+9*, TRANI+16, STAT+6, STAT+13
>> RMLOFDA TRAN+9*, TRAN+10, THCPCS+6, LIST+5, LIST+7, LIST+9, TRANT+9, TRANI+14, TRANI+17, TRANI+19
, STAT+3
>> RMLOR TRANI+13*, TRANI+16, STAT+6, STAT+13
>> RMLORDA TRANT+8*, TRANT+9, TRANI, TRANI+1, TRANI+3, TRANI+7, TRANI+9, TRANI+11, TRANI+13, TRANI+18
, TRANI+20, TRANI+21, STAT+2, STAT+7, STAT+14
>> RMMES STAT+6*, STAT+7, STAT+13*, STAT+14
>> RMMESF STATUPD+5*, STATUPD+6
RMPR EXIT+1~
RMPR("STA" STAT+7, STAT+9, STAT+10*, STAT+15*, STATUPD+6
RMPRSITE EXIT+1~
>> RMQTY TRANQ+1*, TRANQ+2, TRANQ+3, TRANQ+4, TRANI+12, TRANI+15, TRANI+16, STAT+6, STAT+13
>> RMRORA ITEM+14*, ITEM+26
>> RMRORAA ITEM+24*, ITEM+26
>> RMRSTA TRANI+21*, STAT+9, STAT+10, STAT+14
>> RMSO LIST+10*, ITEM+23*, ITEM+26
>> RMSOB ITEM+13*, ITEM+26
>> RMTO TRANI+11*, TRANI+12
>> RMTOBA STAT+7, STAT+14, STATUPD+6
>> RMTOCO STAT+7, STAT+14, STATUPD+6
>> RMUNI ITEM+13*, ITEM+26
>> RMUNIA ITEM+25*, ITEM+26
>> RMVENA ITEM+14*, ITEM+26
>> RMVENAA ITEM+24*, ITEM+26
U TRAN+9, THCPCS+5, LIST+7, LIST+10, TRANI+1, TRANI+9, TRANI+12, TRANI+13, TRANI+15, TRANI+17
, TRANI+18, TRANI+19, TRANI+20, TRANI+21, UPD1+8, HCPC+6, ITEM+10, ITEM+13, ITEM+14, ITEM+18
, ITEM+23, ITEM+24, ITEM+25, ITEM+28, STATUPD+5
>> X TRAN+1*, STAT+4*, STAT+11*, UPD1+2*, STATUPD+3*
>> Y RMPR5NTU+2, TRAN+1, TRAN+8, TRAN+9, THCPCS+4, THCPCS+5, LIST+4, LIST+5, LIST+7, TRANT+7
, TRANT+8, TRANI+6, TRANI+7, TRANI+9, STAT+5, STAT+12, UPD1+1, UPD1+2, UPD1+7, UPD1+8
, HCPC+5, HCPC+6, ITEM+7, ITEM+8, STATUPD+4
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