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

Package: Prosthetics

Routine: RMPR5NOR


Information

RMPR5NOR ;HIN/RVD-PROS INVENTORY ORDER/RECEIVE UTILITY ;2/11/98

Source Information

Source file <RMPR5NOR.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;ask for location
LIST ;list current HCPCS @ this Location
L ;list current ITEM for this HCPCS
ORDER ;order item from vendor or supply.
REC ;receive item from supply, Vendor or Returned Item.
REC1
LITEM ;list current HCPCS @ this Location
UPDLOC ;W ! S DIC("A")="Receiving LOCATION: ",DIC="^RMPR(661.3,",DLAYGO=661.3
UPDQ
UPDC ;ask for total Item cost
STAT
MESS
EXIT ;MAIN EXIT POINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPR5NOR+5
Function Call: WRITE
  • Prompt: !!,"Ordering ITEM from Supply or Vendor....",!
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"*** Item was not ordered...."
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter quantity 1 to 99999.."
  • Line Location: ORDER+3
Function Call: WRITE
  • Prompt: !,"*** Item ",RMITEM," was ordered...."
  • Line Location: ORDER+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !!,"*** Receiving Item from Supply, Vendor or Veteran...",!
  • Line Location: REC1+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: LITEM+7
Function Call: WRITE
  • Prompt: $C(7),!,"Enter quantity 1 to 999.."
  • Line Location: UPDQ+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter Cost 0 to 999999.."
  • Line Location: UPDC+3
Function Call: WRITE
  • Prompt: !,"****Current Balance @ Location ",$P(^RMPR(661.3,RMLODA,0),U,1)," is now: ",RMQUA
  • Line Location: STAT+5
Function Call: WRITE
  • Prompt: !,"Nothing Received....."
  • Line Location: MESS+0

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