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

Package: Prosthetics

Routine: RMPRPIYO


Information

RMPRPIYO ;HIN/RVD-PROS INVENTORY ORDER/RE-ORDER ;5/7/01

Source Information

Source file <RMPRPIYO.m>

Entry Points

Name Comments DBIA/ICR reference
HCPC ;ask for HCPCS
VEN ;order item from vendor.
ORDER ;order QUANTITY from vendor or supply.
COM ;comments
SET6 ;set-up 661.6 data
UP6 ;create file 661.6
UPD ;update file 661.41
OKADD(RMPR11,RMPRYN,RMPREXC) ;
ADDNMX
LIKE(RMPRSTN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11) ;
LIKEA1
LIKEA
LIKEB
LIKEX
LKP ;print a message if PSAS HCPCS not in PIP or invalid HCPCS.
EXIT ;MAIN EXIT POINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPIYO+5
Function Call: WRITE
  • Prompt: !!,"Ordering ITEM from Supply or Vendor....",!
  • Line Location: RMPRPIYO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HCPC+8
Function Call: WRITE
  • Prompt: !,"*** Item was not ordered...."
  • Line Location: VEN+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter Vendor from the Vendor file.."
  • Line Location: VEN+3
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: !,"*** Error in file 661.6 update!!!",!
  • Line Location: UP6+2
Function Call: WRITE
  • Prompt: !,"*** Error in file 661.41 update!!!",!
  • Line Location: UPD+17
Function Call: WRITE
  • Prompt: !,"*** Item was ordered...."
  • Line Location: UPD+18
Function Call: WRITE
  • Prompt: !?5,1,?9,$P(^RMPR(661.11,RMPRA(1),0),"^",2)
  • Line Location: LIKE+7
Function Call: WRITE
  • Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5)
  • Line Location: LIKEA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LIKEB+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661.11 - [#661.11] Classic Fileman Calls
^RMPR(661.41 - [#661.41] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call