Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Prosthetics 11 ^RMPRPAT  $$STOCK^RMPRPIUE  $$STOCK^RMPRPIUV  $$ETOI^RMPRPIX1  (HCPCS,HCPCS3)^RMPRPIY1  (,2)^RMPRPIYI  (,EXIT,LIST)^RMPRPIYJ  (CPT,SCAN)^RMPRPIYS  
LINK^RMPRS  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
VA FileMan 4 EN^DDIOL  ^DIC  MIX^DIC1  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Prosthetics 5 RMPROP  RMPRPIYE  RMPRPIYI  RMPRPIYJ  ^RMPR(661.11  
Prosthetics Vision 4 Sight II 2 RMPV0RMPRPIYE  RMPV0RMPRPIYJ  

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.

    External References

    Name Field # of Occurrence
    HOME^%ZIS RMPRPIYI+5
    EN^DDIOL LKP+6
    ^DIC VEN+11
    MIX^DIC1 ASKLOC+6
    ^DIR TRAN+7, PCAT+2, SPE
    ^RMPRPAT VIEW+2
    $$STOCK^RMPRPIUE ITEM+14
    $$STOCK^RMPRPIUV VEN+5
    $$ETOI^RMPRPIX1 HCPCS+14, ITEM+2
    HCPCS^RMPRPIY1 HCPCS+3
    HCPCS3^RMPRPIY1 2+9
    ^RMPRPIYI TRAN+8, TRAN+11, PCAT+4, SPE+2, 2+4, HCPCS+7
    2^RMPRPIYI ASKLOC+8
    ^RMPRPIYJ 2+7, 2+10, VEN+16
    EXIT^RMPRPIYJ RMPRPIYI+6, RMPRPIYI+8, RMPRPIYI+10, VIEW+3
    LIST^RMPRPIYJ TRAN+9, PCAT+2, SPE+1, 2+2, 2+3, HCPCS+6, ASKLOC+7, ITEM+24, VEN+11
    CPT^RMPRPIYS CPT+1
    SCAN^RMPRPIYS 2+1
    LINK^RMPRS RMPRPIYI+7
    DIV4^RMPRSIT RMPRPIYI+6
    GETPAT^RMPRUTIL RMPRPIYI+10

    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
    Routine Call
    • %ZIS
    • Line Location:
      • RMPRPIYI+5
    Routine Call
    • DIC
    • Line Location:
      • VEN+11
    Routine Call
    • DIR
    • Line Location:
      • TRAN+7
      • PCAT+2
      • SPE

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^RMPR(661.5 - [#661.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(661.1 - [#661.1] VEN+2, LKP+6
    ^RMPR(661.11 - [#661.11] LKP+5
    ^RMPR(661.5 - [#661.5] ASKLOC+13, MESSI+4
    ^RMPR(661.7 - [#661.7] HCPCS+20, HCPCS+30, LKP+4
    ^TMP($J RMPRPIYI+7, RMPRPIYI+8, RMPRPIYI+9!

    Label References

    Name Line Occurrences
    2 PCAT+6, 2+8, HCPCS+5, HCPCS+15, HCPCS+20, ITEM+18, ITEM+21, ITEM+27, CPT+3, CPT+4
    , VEN+13
    ASKLOC ASKLOC+10, ASKLOC+13
    ITEM HCPCS+31
    LOWBA ITEM+18
    MESSI ITEM+27
    MESSO ITEM+21
    PCAT 2+5
    VEN VEN+14

    Naked Globals

    Name Field # of Occurrence
    ^( HCPCS+30

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> CK VIEW+4*
    >> CK1 VIEW+6*, TRAN+10, PCAT+3, SPE, 2+6, HCPCS+4, ASKLOC+9, ITEM+3, ITEM+15, CPT+2
    , VEN+6, VEN+12
    >> CK2 VIEW+5*, PCAT+4, SPE+2, 2+4, HCPCS+7
    >> D ASKLOC+2*
    DA RES+2!
    DD RES+2!
    DIC RES+2!, ASKLOC+1!, ASKLOC+5*, ITEM+29!, VEN+10*, VEN+15!
    DIC("A" ASKLOC+6*, VEN+10*
    DIC("B" ASKLOC+4*, ITEM+16!, VEN+7*, VEN+8*
    DIC("S" ASKLOC+3*, ITEM+16!, VEN+10*
    DIC(0 ASKLOC+5*, VEN+9*
    DIR TRAN+3!, TRAN+12!, PCAT+5!
    DIR("A" TRAN+6*
    DIR("B" TRAN+4*, PCAT+1*, SPE*, ITEM+6*
    DIR(0 TRAN+5*, PCAT+1*, SPE*
    DT RES+7
    >> DTOUT VIEW+3, TRAN+10, PCAT+3, SPE, ASKLOC+9, VEN+12
    >> DUOUT TRAN+9, TRAN+11, PCAT+2, PCAT+4, SPE+1, SPE+2, ASKLOC+7, ASKLOC+8, ITEM+24, VEN+11
    , VEN+13
    DUZ RES+7
    >> DZ ASKLOC+2*
    >> I HCPCS+30*
    IOF RMPRPIYI+5, 1+3
    PRC RES+2!
    >> R1 RES+6*
    >> R1("AM" RES+4*, PCAT+1, PCAT+2, PCAT+5*, PCAT+6*, SPE, SPE+3*
    >> R1("D" RES+4*
    >> R1(0 RES+4*, RES+7*, TRAN+4, TRAN+12*, HCPCS+25*, HCPCS+26*, ITEM+13, ITEM+22*, ITEM+28*, CPT+1
    , VEN+2*, VEN+8, VEN+15*
    >> R1(1 RES+4*, 1+1, ITEM+24, VEN+2*
    >> R1(2 RES+6*, ITEM+5*
    >> R3("D" VIEW+7*, RES+4*, TRAN+4, TRAN+8, TRAN+9, TRAN+13*, 2+2, HCPCS+27*, ITEM+23*, ITEM+28*
    , VEN+11, VEN+15*
    >> R4("D" RES+4*, PCAT+1, PCAT+5*, PCAT+6*, SPE, SPE+3*
    >> RDESC HCPCS+12*
    >> REDIT RES+6*, 1+4, 1+5, SPE+1, 2, 2+3, 2+7, HCPCS+6, ASKLOC+7, ITEM+28
    , VEN+8
    >> RMAV HCPCS+1*
    >> RMAVA HCPCS+1*
    >> RMBAL HCPCS+1*
    >> RMCHCK ITEM+2*, ITEM+3, ITEM+14*, ITEM+15
    >> RMCO HCPCS+1*
    RMDAHC RES+2!, HCPCS+11*, ITEM+6, CPT+1, VEN+2
    RMDES VIEW+1~, ITEM+16*
    >> RMERR VEN+5*, VEN+6
    >> RMF LKP+1
    >> RMHCDA HCPCS+1*, HCPCS+11*, ITEM+20, ITEM+26
    >> RMHCFLG 1+2*, HCPCS+1*
    >> RMHCNEW RES+6*, 1+1*, HCPCS+11*
    RMHCOLD RES+2!, RES+6*, 1+1*, ITEM+6
    >> RMHCPC HCPCS+2, HCPCS+10*, HCPCS+20, HCPCS+30, ITEM+11
    >> RMIT RES+6*, 1+1, ITEM+4*, ITEM+5, ITEM+6, ITEM+16, MESSI+1*, MESSI+3, LOWBA+1*, LOWBA+2
    RMITDA RES+2!, HCPCS+1*
    >> RMITDES ITEM+16*
    >> RMITDESC RES+6*
    >> RMITFLG HCPCS+1*
    >> RMITIEN RES+6*
    >> RMITNO HCPCS+9*, HCPCS+20
    >> RMITOLD 1+1*
    RMITQTY VIEW+1~
    RMLACO RES+2!
    >> RMLCNT HCPCS+29*, HCPCS+30*, HCPCS+31
    >> RMLOC RES+4*, 1+1, HCPCS+30*, ASKLOC+11*, ASKLOC+12, ASKLOC+13, ITEM+10, ITEM+20, ITEM+26, MESSI+4
    >> RMLOCOLD RES+6*, 1+1*, ASKLOC+4
    >> RMLODES RES+5*
    >> RMPR RMPRPIYI+6
    >> RMPR("STA" RES+7, HCPCS+3, HCPCS+20, HCPCS+30, ITEM+9, LKP+4, LKP+5
    >> RMPR1 HCPCS+3
    >> RMPR1("HCPCS" HCPCS+10
    >> RMPR1("IEN" HCPCS+11
    >> RMPR1("SHORT DESC" , HCPCS+12
    >> RMPR11 HCPCS+3, HCPCS+14, ITEM+2
    >> RMPR11("DESCRIPTION" ITEM+5
    >> RMPR11("HCPCS-ITEM" ITEM+4
    >> RMPR11("ITEM MASTER" , HCPCS+27
    >> RMPR11("ITEM" HCPCS+9, ITEM+12
    >> RMPR11("UNIT" HCPCS+26
    RMPR11I 2, 2+7*, HCPCS+13!, HCPCS+14, ITEM+1!, ITEM+2
    RMPR11I("ITEM MASTER IEN" , HCPCS+15, HCPCS+25
    RMPR11I("SOURCE" ITEM+20
    RMPR11IS RES+3!, 2*, 2+7
    RMPR5 2, 2+7*, ASKLOC+1!
    RMPR5("IEN" HCPCS+30*, ASKLOC+12*
    RMPR5SA RES+3!, 2*, 2+7
    >> RMPR6 2, 2+7*
    >> RMPR699("AMIS GROUPER" , RMPRPIYI+4*
    RMPR6SA RES+3!, 2*, 2+7
    RMPRBAC1 VIEW+1~, VIEW+2*!
    >> RMPRBARC 2+7, 2+8
    >> RMPRDFN RMPRPIYI+7, RMPRPIYI+8, RMPRPIYI+10, RES+1, RES+7
    >> RMPRERR HCPCS+14*
    >> RMPREXC 2+2, 2+3, 2+4, 2+5, 2+6, HCPCS+3, HCPCS+4, HCPCS+5, HCPCS+6, HCPCS+7
    , CPT+2, CPT+3, CPT+4
    >> RMPRF RMPRPIYI+5*
    >> RMPRG RMPRPIYI+5*
    >> RMPRHCPC HCPCS+2*, HCPCS+3
    >> RMPRI("AMS" RES+4*
    >> RMPRKILL VIEW+3
    >> RMPRNAM 1+3
    >> RMPRUCST ITEM+26*, ITEM+27, ITEM+28
    RMPRVEN RES+2!, VEN+4!, VEN+5, VEN+7
    RMPRVEN(0 VEN+7
    RMQTY RES+2!
    >> RMR ITEM+14, VEN+5
    >> RMR("HCPCS" ITEM+11*
    >> RMR("ITEM" ITEM+12*
    >> RMR("LOCATION IEN" , ITEM+10*
    >> RMR("QOH" ITEM+17
    >> RMR("STATION IEN" , ITEM+9*
    >> RMR("UNIT COS T" , ITEM+26
    >> RMR("VENDOR I EN" , ITEM+13*
    RMSO RES+2!, ITEM+20*, ITEM+21, ITEM+22, ITEM+23
    >> RMUBA ITEM+17*, ITEM+18, LOWBA+1*, LOWBA+2
    RQUIT 1+2!, ASKLOC+1!
    >> RSTCK VIEW+2*, LKP+4, LKP+5
    RX LKP+3!, LKP+4*, LKP+5*, LKP+6, LKP+7!
    U RES+7, 1+1, TRAN+4, TRAN+8, TRAN+9, TRAN+12, TRAN+13, PCAT+1, PCAT+2, PCAT+5
    , PCAT+6, SPE, SPE+3, 2+2, HCPCS+25, HCPCS+26, HCPCS+27, ITEM+5, ITEM+13, ITEM+22
    , ITEM+23, ITEM+24, ITEM+28, CPT+1, VEN+2, VEN+8, VEN+11, VEN+15, MESSI+4
    X RMPRPIYI+6, RES+2!, ASKLOC+1!, ASKLOC+10, VEN+15!, LKP+1, LKP+2*, LKP+4, LKP+5, LKP+6
    Y RES+2!, TRAN+8, TRAN+12, TRAN+13, PCAT+5, PCAT+6, SPE, SPE+3, ASKLOC+1!, ASKLOC+11
    , VEN+14, VEN+15!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All