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

Package: Prosthetics

Routine: RMPR5NTU


Information

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

Source Information

Source file <RMPR5NTU.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call