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

Package: Prosthetics

Routine: RMPRSTI


Information

RMPRSTI ;HINCIO/RVD-ISSUE FROM STOCK ;11/6/00

Source Information

Source file <RMPRSTI.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Prosthetics 9 ($$COST,$$SOURCE,$$VEND)^RMPR5NU1  CPT^RMPRCPTU  CHK^RMPRED5  ^RMPRPAT  LINK^RMPRS  DIV4^RMPRSIT  (,EXIT,LIST)^RMPRSTE  ^RMPRSTI  
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: 4

Package Total Caller Graph
Prosthetics 4 RMPRED4  RMPRED6  RMPRSTE  RMPRSTI  

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
LOC ;ask for location
HCPCS ;HCPCS code
CPT ;ask for CPT Modifier
ITEM ;ask for PSAS Item to edit.
VEN ;vendor
NODE2 ;set node2 of file #660
MESSI ;print message if COST is not defined in the inventory (661.3)
MESSO ;print message if SOURCE is not defined in the inventory (661.3)
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 RMPRSTI+5
EN^DDIOL LKP+5
^DIC 2+1, HCPCS+5, ITEM+5, VEN+6
MIX^DIC1 LOC+6
^DIR TRAN+7, PCAT+2, SPECPT+7
$$COST^RMPR5NU1 ITEM+22
$$SOURCE^RMPR5NU1 ITEM+16
$$VEND^RMPR5NU1 VEN+3
CPT^RMPRCPTU CPT+5, CPT+8
CHK^RMPRED5 CPT+3
^RMPRPAT VIEW+2
LINK^RMPRS RMPRSTI+7
DIV4^RMPRSIT RMPRSTI+6
^RMPRSTE VEN+11
EXIT^RMPRSTE RMPRSTI+6, RMPRSTI+9, VIEW+3
LIST^RMPRSTE TRAN+9, PCAT+2, SPE+1, 2+2, LOC+7, CPT+5, ITEM+20, VEN+6
^RMPRSTI TRAN+8, TRAN+11, PCAT+4, SPE+2, 2+3, LOC+8
GETPAT^RMPRUTIL RMPRSTI+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRSTI+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: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: LOC+10
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: HCPCS+8
Function Call: WRITE
  • Prompt: !,"NEW CPT MODIFIER: ",$G(RMCPT)
  • Line Location: CPT+8
Function Call: WRITE
  • Prompt: !,"This is a mandatory field!!!",!
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: ITEM+21
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: VEN+9
Function Call: WRITE
  • Prompt: !!,"***ITEM COST is not defined @:"
  • Line Location: MESSI+2
Function Call: WRITE
  • Prompt: !," PSAS Item = ",RMIT
  • Line Location: MESSI+3
Function Call: WRITE
  • Prompt: !," Location = ",$P($G(^RMPR(661.3,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 Location, HCPCS or PSAS Item !!!!",!
  • Line Location: LOWBA+4
Routine Call
  • %ZIS
  • Line Location:
    • RMPRSTI+5
Routine Call
  • DIC
  • Line Location:
    • 2+1
    • HCPCS+5
    • ITEM+5
    • VEN+6
Routine Call
  • DIR
  • Line Location:
    • TRAN+7
    • PCAT+2
    • SPE
    • CPT+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661 - [#661] 2
^RMPR(661.1 - [#661.1] HCPCS+10, HCPCS+11, HCPCS+12, VEN+1, NODE2+5, LKP+5
^RMPR(661.3 - [#661.3] LOC+12, HCPCS+9, ITEM+10, MESSI+4, LKP+4
^TMP($J RMPRSTI+7, RMPRSTI+8!

Label References

Name Line Occurrences
2 PCAT+6, 2+5
HCPCS HCPCS+8, HCPCS+10
INACT HCPCS+10
ITEM ITEM+8
LOC LOC+10, LOC+12, HCPCS+6, ITEM+6, ITEM+14, ITEM+17, ITEM+21, ITEM+23, VEN+8
LOWBA ITEM+14
MESSI ITEM+23
MESSO ITEM+17
NODE2 VEN+2
VEN VEN+9

Naked Globals

Name Field # of Occurrence
^(0 NODE2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CK VIEW+4*
>> CK1 VIEW+6*, TRAN+10, PCAT+3, SPE2+4, LOC+9, HCPCS+7, ITEM+7, VEN+7
>> CK2 VIEW+5*, PCAT+4, SPE+2, 2+3, LOC+8
>> D LOC+3*
DA RES+2!
DA(1 HCPCS+1*, HCPCS+3, ITEM+1*, ITEM+4
DA(2 ITEM+1*, ITEM+4
DD RES+2!
DIC RES+2!, 2*, LOC+2!, LOC+5*, HCPCS+1!, HCPCS+3*, CPT+1!, ITEM+1!, ITEM+4*, ITEM+25!
VEN+5*, VEN+10!
DIC("A" 2*, LOC+6*, HCPCS+1*, ITEM+2*, VEN+5*
DIC("B" 2*, LOC+4*, HCPCS+2*, ITEM+3*, ITEM+13!, VEN+3*, VEN+4
DIC("S" 2+1!, LOC+3*, ITEM+13!
DIC("W" HCPCS+4*
DIC(0 2*, LOC+5*, HCPCS+3*, ITEM+2*, VEN+5*
DIR TRAN+3!, TRAN+12!, PCAT+5!, CPT+9!
DIR("A" TRAN+6*, CPT+7*
DIR("B" TRAN+4*, PCAT+1*, SPE*, CPT+7*
DIR(0 TRAN+5*, PCAT+1*, SPE*, CPT+7*
DT RES+6
DTOUT VIEW+3, TRAN+10, PCAT+3, SPE2+4, LOC+2!, LOC+9, HCPCS+7, CPT+5, CPT+7
ITEM+7, VEN+7
DUOUT TRAN+9, TRAN+11, PCAT+2, PCAT+4, SPE+1, SPE+2, 2+2, 2+3, LOC+2!, LOC+7
LOC+8, HCPCS+6, CPT+5, CPT+7, CPT+8, ITEM+6, ITEM+20, VEN+6, VEN+8
DUZ RES+6
>> DZ LOC+3*
IOF RMPRSTI+5, 1+3
PRC RES+2!
>> R1("AM" RES+3*, PCAT+1, PCAT+2, PCAT+5*, PCAT+6*, SPESPE+3*
>> R1("D" RES+3*
>> R1(0 RES+3*, RES+6*, TRAN+4, TRAN+12*, 22+6*, CPT+2, ITEM+18*, ITEM+24*, VEN+1*
VEN+4*, VEN+10*
>> R1(1 RES+3*, 1+1, HCPCS+2, CPT+4, CPT+5*, CPT+8*, ITEM+20, VEN+1*, NODE2+2
>> R1(2 RES+5*, NODE2+6*
>> R3("D" VIEW+7*, RES+3*, TRAN+4, TRAN+8, TRAN+9, TRAN+13*, 2+2, 2+6*, ITEM+19*, ITEM+24*
VEN+6, VEN+10*
>> R4("D" RES+3*, PCAT+1, PCAT+5*, PCAT+6*, SPESPE+3*
>> RDA CPT+2*, CPT+5, CPT+8
>> RDESC HCPCS+12*
>> REDIT RES+5*, 1+4, 1+5, SPE+1, LOC+7, CPT+4, CPT+5, CPT+6, ITEM+24
>> RMAV LOC+1*
>> RMAVA LOC+1*
>> RMBAL LOC+1*
>> RMCO LOC+1*
>> RMCPT CPT+3, CPT+5, CPT+8
RMDAHC RES+2!, HCPCS+9*, HCPCS+10, HCPCS+11, HCPCS+12, CPT+2, CPT+5, CPT+6, ITEM+3, VEN+1
NODE2+1~, NODE2+2*, NODE2+3, NODE2+5
RMDES VIEW+1~, ITEM+13*
>> RMENTSUS RMPRSTI+5*
>> RMF HCPCS+1*, LKP+1
>> RMHCDA LOC+1*, HCPCS+11*, ITEM+1, ITEM+10, ITEM+16, ITEM+21, ITEM+22, VEN+3
>> RMHCFLG 1+2*, LOC+1*
>> RMHCNEW RES+5*, 1+1*, HCPCS+9*
RMHCOLD RES+2!, RES+5*, 1+1*, CPT+5, CPT+6, ITEM+3
>> RMHCPC HCPCS+11*
>> RMIT RES+5*, 1+1, ITEM+3, ITEM+12*, ITEM+13, VEN+2, NODE2+4, NODE2+6, MESSI+1*, MESSI+3
LOWBA+1*, LOWBA+2
RMITDA RES+2!, LOC+1*, ITEM+9*, ITEM+10, ITEM+16, ITEM+21, ITEM+22, VEN+3
>> RMITDES ITEM+12*
RMITDESC RES+5*, NODE2+1~, NODE2+5*, NODE2+6
>> RMITFLG LOC+1*
>> RMITIEN RES+5*, NODE2+4*, NODE2+5
>> RMITNEW VEN+2*
>> RMITOLD 1+1*
RMLACO RES+2!
>> RMLOC RES+3*, 1+1, LOC+11*, LOC+12, HCPCS+1, HCPCS+2, HCPCS+9, ITEM+1, ITEM+10, ITEM+16
ITEM+21, ITEM+22, VEN+3, MESSI+4, LKP+4
>> RMLOCOLD RES+5*, 1+1*, LOC+4, HCPCS+2
>> RMLODES RES+4*
>> RMPR RMPRSTI+6
>> RMPR("STA" RES+6
RMPRBAC1 VIEW+1~, VIEW+2*!
>> RMPRDFN RMPRSTI+7, RMPRSTI+9, RES+1, RES+6
>> RMPRF RMPRSTI+5*
>> RMPRG RMPRSTI+5*
>> RMPRI("AMS" RES+3*
>> RMPRKILL VIEW+3
>> RMPRNAM 1+3
>> RMPRUCST ITEM+22*, ITEM+23, ITEM+24
RMQTY RES+2!
RMR HCPCS+1!
RMSO RES+2!, ITEM+16*, ITEM+17, ITEM+18, ITEM+19
RMU3 ITEM+1!, ITEM+10*, ITEM+11, ITEM+12
RMUBA ITEM+1!, ITEM+11*, ITEM+14, LOWBA+1*, LOWBA+2
RMX HCPCS+1!
RQUIT 1+2!, LOC+2!, HCPCS+1!, CPT+1!, ITEM+1!
RX LKP+3!, LKP+4*, LKP+5, LKP+6!
U RES+6, 1+1, TRAN+4, TRAN+8, TRAN+9, TRAN+12, TRAN+13, PCAT+1, PCAT+2, PCAT+5
PCAT+6, SPESPE+3, 22+2, 2+6, HCPCS+2, HCPCS+9, HCPCS+10, HCPCS+11
HCPCS+12, CPT+2, CPT+4, CPT+5, CPT+8, ITEM+11, ITEM+12, ITEM+18, ITEM+19, ITEM+20
ITEM+24, VEN+1, VEN+4, VEN+6, VEN+10, NODE2+2, NODE2+5, NODE2+6, MESSI+4
X RMPRSTI+6, RES+2!, LOC+2!, LOC+10, HCPCS+8, ITEM+8, VEN+10!, LKP+1, LKP+2*, LKP+4
LKP+5
Y RES+2!, TRAN+8, TRAN+12, TRAN+13, PCAT+5, PCAT+6, SPESPE+3, 2+5, 2+6
LOC+2!, LOC+11, HCPCS+9, HCPCS+11, CPT+1!, CPT+8, ITEM+9, VEN+9, VEN+10!
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