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

Package Total Caller Graph
Prosthetics 5 RMPROP  RMPRPIYE  RMPRPIYI  RMPRPIYJ  ^RMPR(661.11  

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.

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