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.
  • ICR #7544
    • Status: Active
    • Usage: Controlled Subscription
    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