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
Print Page as PDF
Routine: RMPRPIY6

Package: Prosthetics

Routine: RMPRPIY6


Information

RMPRPIY6 ;HINES OIFO/ODJ - EI - Edit Locations and Items ;10/7/02 14:46

Source Information

Source file <RMPRPIY6.m>

Entry Points

Name Comments DBIA/ICR reference
EI
STN
HCPCS
HCPCS3
HCPCS4
HCPCS4A
HCPCS5
CURSTL
CURST
RLOC
LOCN
LOCN1
REO
REO1 ;
SRC
QTY
UCST
TVAL
VEND ;D VEND^RMPRPIY5(.RMPRVEND,.RMPREXC)
UNIT
TRANS
TRANSX
HAL
EIU
EIX
UNLOCK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STN+1
Function Call: WRITE
  • Prompt: !!,"Editing Inventory Items.",!
  • Line Location: HCPCS+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected."
  • Line Location: HCPCS+7
Function Call: WRITE
  • Prompt: !!,"HCPCS: "_RMPR1("HCPCS")_" "_RMPR1("SHORT DESC")
  • Line Location: HCPCS4+0
Function Call: WRITE
  • Prompt: !,"PROSTHETIC CURRENT STOCK record for HCPCS item open by someone else"
  • Line Location: CURSTL+0
Function Call: WRITE
  • Prompt: !,"Location: "_RMPR5("NAME")
  • Line Location: LOCN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCN1+0
Function Call: WRITE
  • Prompt: !,"TOTAL COST OF QUANTITY: "_RMPRTVAL
  • Line Location: TVAL+2
Function Call: WRITE
  • Prompt: !,"The quantity cannot be allowed because it would cause a",!
  • Line Location: TRANS+60
Function Call: WRITE
  • Prompt: "negative on hand quantity.",!
  • Line Location: TRANS+61
Function Call: WRITE
  • Prompt: "Please check your inventory and use the reconciliation option",!
  • Line Location: TRANS+62
Function Call: WRITE
  • Prompt: "as needed.",!
  • Line Location: TRANS+63
Function Call: WRITE
  • Prompt: !!,"** Item "
  • Line Location: TRANSX+1
Function Call: WRITE
  • Prompt: RMPR11("HCPCS-ITEM")
  • Line Location: TRANSX+2
Function Call: WRITE
  • Prompt: " was "
  • Line Location: TRANSX+3
Function Call: WRITE
  • Prompt: "Edited by "
  • Line Location: TRANSX+4
Function Call: WRITE
  • Prompt: $$GETUSR^RMPRPIU0(DUZ)
  • Line Location: TRANSX+5
Function Call: WRITE
  • Prompt: " @ Location ",RMPR5("NAME")
  • Line Location: TRANSX+7
Function Call: WRITE
  • Prompt: !!,"** The Item could not be modified due to a problem - please contact support"
  • Line Location: TRANSX+10
Info |  Source |  Entry Points |  Interaction Calls