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

Package: Prosthetics

Routine: RMPRPIYI


Information

RMPRPIYI ;HINCIO/RVD-ISSUE FROM STOCK ;6/16/04 08:18

Source Information

Source file <RMPRPIYI.m>

Entry Points

Name Comments DBIA/ICR reference
VIEW ;
RES ;ENTRY POINT TO ADD ADDITIONAL ITEMS FOR ISSUE FROM STOCK
1 ;ENTRY POINT TO EDIT ITEM ON ISSUE FROM STOCK
TRAN ;TYPE OF TRANSACTION
PCAT ;
SPE
2
HCPCS ;HCPCS code
ASKLOC ;ask for location
ITEM ;PSAS Item details.
CPT ;ask for CPT Modifier
VEN ;vendor
MESSI ;print message if COST is not defined in the inventory (661.5)
MESSO ;print message if SOURCE is not defined in the inventory (661.11)
INACT ;print message if HCPCS is inactive.
LOWBA ;print message if inventory balance is low.
LKP ;print a message if PSAS HCPCS not in PIP or invalid HCPCS.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPIYI+5
Function Call: WRITE
  • Prompt: $C(7),!,"Deleted..."
  • Line Location: VIEW+3
Function Call: WRITE
  • Prompt: @IOF,!?30,RMPRNAM,!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TRAN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HCPCS+8
Function Call: WRITE
  • Prompt: !,"This item is not associated with an IFCAP Item.",!
  • Line Location: HCPCS+16
Function Call: WRITE
  • Prompt: "Please use the Edit Inventory option before trying to issue this item."
  • Line Location: HCPCS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HCPCS+18
Function Call: WRITE
  • Prompt: !,"This HCPCS-ITEM is not associated with any Location."
  • Line Location: HCPCS+21
Function Call: WRITE
  • Prompt: !,"Please update your inventory!!.",!
  • Line Location: HCPCS+22
Function Call: WRITE
  • Prompt: !
  • Line Location: HCPCS+23
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: ASKLOC+10
Function Call: WRITE
  • Prompt: !,"*** ERROR IN API RMPRPIX1 !!!!",!
  • Line Location: ITEM+3
Function Call: WRITE
  • Prompt: !,"*** ERROR IN API RMPRPIUE !!!!",!
  • Line Location: ITEM+15
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: ITEM+25
Function Call: WRITE
  • Prompt: !,"*** ERROR IN API RMPRPIUV !!!!",!
  • Line Location: VEN+6
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: VEN+14
Function Call: WRITE
  • Prompt: !!,"***ITEM COST is not define @:"
  • Line Location: MESSI+2
Function Call: WRITE
  • Prompt: !," PSAS Item = ",RMIT
  • Line Location: MESSI+3
Function Call: WRITE
  • Prompt: !," Location = ",$P($G(^RMPR(661.5,RMLOC,0)),U,1)
  • Line Location: MESSI+4
Function Call: WRITE
  • Prompt: !,"***Fix your inventory or use a different PSAS ITEM!!",!!
  • Line Location: MESSI+5
Function Call: WRITE
  • Prompt: !!,"***PSAS ITEM has no SOURCE at this location..."
  • Line Location: MESSO+1
Function Call: WRITE
  • Prompt: !,"***Fix your inventory or use a different PSAS ITEM!!",!!
  • Line Location: MESSO+2
Function Call: WRITE
  • Prompt: !!,"*** You have selected an INACTIVE HCPCS..."
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: !,"*** Please REMOVE this HCPCS from inventory..."
  • Line Location: INACT+2
Function Call: WRITE
  • Prompt: !,"*** And use a different HCPCS!!!",!
  • Line Location: INACT+3
Function Call: WRITE
  • Prompt: !!,"*** PSAS Item ",RMIT," balance is = ",RMUBA
  • Line Location: LOWBA+2
Function Call: WRITE
  • Prompt: !,"*** You are unable to use this PSAS ITEM..."
  • Line Location: LOWBA+3
Function Call: WRITE
  • Prompt: !,"*** Please use a different HCPCS or PSAS Item !!!!",!
  • Line Location: LOWBA+4

FileMan Files Accessed Via FileMan Db Call

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