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

Package: Prosthetics

Routine: RMPRSTK


Information

RMPRSTK ;PHX/RFM,RVD-ISSUE FROM STOCK ;8/29/1994

Source Information

Source file <RMPRSTK.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Prosthetics 9 ITEMLOC^RMPR5NU1  CPT^RMPRCPTU  CHK^RMPRED5  ^RMPRPAT  LINK^RMPRS  DIV4^RMPRSIT  ^RMPRSTK  (,EXIT,LIST)^RMPRSTL  
GETPAT^RMPRUTIL  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 HOME^%ZIS  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Prosthetics 3 RMPR GIP STOCK  RMPRSTK  RMPRSTL  

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
LOCDIC
GI
VEN
VEN0 ;set HCPCS when PSAS required fields are set
INV
INDIC
INVITEM
ITDIC
GIP ;gip on
V
DEF
HCPCG ;HCPCS code with GIP
CAUTION(SELSITE,NAME) ; issue a caution message only once during the option
; if GIP flag is not set for this division
DYNAMED() ; If this system is flagged as using DYNAMED for inventory,
; then inform user and then quit.
; DBIA 6394--Lookup DynaMed flag in IFCAP Sys param. Sites using
; DynaMed will continue to use Prosthetics Inventory Package (PIP)
; until a better solution is devised.
ASK(HOLD) ;ask user 2 continue function

External References

Name Field # of Occurrence
HOME^%ZIS RMPRSTK+9
^DIC 2+1, HCPCS+2, VEN+1, VEN0+5, INDIC, ITDIC, V+2, DEF, HCPCG+2
^DIR 1+3, TRAN+1, PCAT, SPE, HCPCS+12, GIP+7, ASK+11
ITEMLOC^RMPR5NU1 LOCDIC+1, HCPCG+7
CPT^RMPRCPTU HCPCS+10, HCPCS+13
CHK^RMPRED5 HCPCS+8
^RMPRPAT VIEW+1
LINK^RMPRS RMPRSTK+16
DIV4^RMPRSIT RMPRSTK+10
^RMPRSTK 1+5
^RMPRSTL VEN0+10
EXIT^RMPRSTL RMPRSTK+10, RMPRSTK+14, RMPRSTK+17, VIEW+2, GI
LIST^RMPRSTL 1+3, TRAN+1, PCAT, 2+2, HCPCS+2, HCPCS+10, LOCDIC+2, VEN0+2, VEN0+5, INDIC
, ITDIC
GETPAT^RMPRUTIL RMPRSTK+17
$$GET^XPAR DYNAMED+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRSTK+9
Function Call: WRITE
  • Prompt: $C(7),!,"Deleted..."
  • Line Location: VIEW+2
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: !,"HCPCS CODE IS MANDATORY!"
  • Line Location: HCPCS+5
Function Call: WRITE
  • Prompt: !,"NEW CPT MODIFIER: ",$G(RMCPT)
  • Line Location: HCPCS+13
Function Call: WRITE
  • Prompt: !,"PSAS Item was not selected!!"
  • Line Location: LOCDIC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCDIC+7
Function Call: WRITE
  • Prompt: $C(7),!,"You are not an authorized user of any Inventory Point, please see your ADPAC."
  • Line Location: GI+0
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: VEN0+8
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: INDIC+3
Function Call: WRITE
  • Prompt: !!,"*** ITEM IS NOT IN GIP......."
  • Line Location: INVITEM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INVITEM+2
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"This is a required response. Enter '^' to exit",!
  • Line Location: ITDIC+3
Function Call: WRITE
  • Prompt: !,"HCPCS CODE IS MANDATORY!"
  • Line Location: HCPCG+5
Function Call: WRITE
  • Prompt: !!,"CAUTION: This option is intended for use with GIP Inventory."
  • Line Location: CAUTION+6
Function Call: WRITE
  • Prompt: !," The Prosthetics Site Parameter [AUTOMATED INVENTORY (GIP)]"
  • Line Location: CAUTION+7
Function Call: WRITE
  • Prompt: !," is not set to 'YES' for the selected site, ",NAME,".",!
  • Line Location: CAUTION+8
Function Call: WRITE
  • Prompt: !!,"This system is flagged as using DYNAMED Inventory."
  • Line Location: DYNAMED+9
Function Call: WRITE
  • Prompt: !,"You can not use GIP for Prosthetics."
  • Line Location: DYNAMED+10
Function Call: WRITE
  • Prompt: !,"Please contact your Application Coordinator.",!
  • Line Location: DYNAMED+11
Routine Call
  • %ZIS
  • Line Location:
    • RMPRSTK+9
Routine Call
  • DIC
  • Line Location:
    • 2+1
    • HCPCS+2
    • VEN+1
    • VEN0+5
    • INDIC
    • ITDIC
    • V+2
    • DEF
    • HCPCG+2
Routine Call
  • DIR
  • Line Location:
    • 1+3
    • TRAN+1
    • PCAT
    • SPE
    • HCPCS+12
    • GIP+7
    • ASK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445 - [#445] Classic Fileman Calls
^RMPR(661 - [#661] Classic Fileman Calls
^RMPR(661.1 - [#661.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] VEN+1, V, V+3, DEF
^PRC(441 - [#441] VEN+2, V+4
^PRCP(445 - [#445] GI, INVITEM, GIP+1, V, V+1, V+2, V+3
^RMPR(661 - [#661] 2
^RMPR(661.1 - [#661.1] HCPCS+6, LOCDIC, LOCDIC+1, VEN0+1, HCPCG+6, HCPCG+7
^RMPR(669.9 - [#669.9] GI, GI+1, CAUTION+4
^TMP($J CAUTION+3, CAUTION+10*

Label References

Name Line Occurrences
$$ASK CAUTION+9, DYNAMED+12
$$DYNAMED RMPRSTK+14
2 PCAT+4, SPE+1, 2+5
CAUTION RMPRSTK+15
GI LOCDIC+6
GIP INVITEM
HCPCG HCPCG+5
HCPCS HCPCS+5, HCPCS+6, HCPCG+6
INDIC INDIC+3
INV GI+1
ITDIC ITDIC+3
LOCDIC LOCDIC+4
VEN VEN0+8, DEF+1
VEN0 LOCDIC+7

Naked Globals

Name Field # of Occurrence
^(0 V

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CK VIEW+3*, 1+5, TRAN+3, PCAT+2, 2+3, HCPCS+4, LOCDIC+3, VEN0+3, VEN0+7, INDIC+1
, ITDIC+2, HCPCG+4, HCPCG+7
>> CK1 VIEW+4*, 1+4, TRAN+2, PCAT+1, SPE, 2+4, HCPCS+3, VEN0+6, INDIC+2, ITDIC+1
, HCPCG+3
DA RES+3!
DD RES+3!
DIC RES+3!, 2*, 2+6!, HCPCS+1!, HCPCS+2*, LOCDIC+5!, VEN+1*, VEN0+5*, VEN0+9!, INV*
, INVITEM+2!*, V+2!*, DEF*, HCPCG+1!, HCPCG+2*
DIC("A" 2*, HCPCS+2*, VEN0+5*, INVITEM+4*, HCPCG+2*
DIC("B" 2*, HCPCS+2*, VEN!, VEN+1*, VEN+2*, VEN0+4*, VEN0+5*, INV*, DEF*, HCPCG+2*
DIC("S" 2+1!, VEN!, INV*, INVITEM+3*, ITDIC+6!
DIC(0 2*, HCPCS+2*, VEN+1*, VEN0+5*, INV*, INVITEM+4*, V+2*, DEF*, HCPCG+2*
DIR 1+6!, TRAN+4!, PCAT+3!, GIP+4!, GIP+8!, ASK+8~
DIR("?" RES+6*
DIR("A" 1+2*, HCPCS+12*, GIP+6*, ASK+9*
DIR("B" 1+2*, TRAN+1*, PCAT*, SPE*, HCPCS+12*
DIR(0 1+2*, TRAN+1*, PCAT*, SPE*, HCPCS+12*, GIP+5*, ASK+9*, ASK+10*
>> DIRUT 1+5, TRAN+3, PCAT+2, SPE+1, ASK+12
DT RES+4
>> DTOUT VIEW+2, 1+4, TRAN+2, PCAT+1, SPE, 2+4, HCPCS+3, HCPCS+10, HCPCS+12, HCPCS+13
, VEN0+6, INDIC+2, ITDIC+1, GIP+9, HCPCG+3
>> DUOUT 1+3, 1+5, TRAN+1, PCAT, 2+2, 2+3, HCPCS+2, HCPCS+4, HCPCS+10, HCPCS+12
, HCPCS+13, LOCDIC+2, LOCDIC+3, VEN0+5, VEN0+7, INDIC, INDIC+1, ITDIC, ITDIC+2, GIP+9
, HCPCG+4
DUZ RES+4, GI
HOLD ASK~, ASK+9
IOF RMPRSTK+9, 1+3
IOST DYNAMED+8, ASK+6
NAME CAUTION~, CAUTION+8
PRC RES+3!
>> PRCP("I" INDIC+4*, INVITEM, GIP+1, V, V+1, V+2, V+3
>> PRCP("ITEM" RES+3!, 1+1!, INDIC+4*, INVITEM, ITDIC+6*, GIP+1, V, V+2, V+3, V+4
>> PRCPPRIV GI+1*
>> R1("AM" RES+5*, PCAT, PCAT+3*, PCAT+4*, SPE, SPE+2*
>> R1("D" RES+5*
>> R1(0 RES+4*, 1+6*, TRAN+1, TRAN+4*, 2, 2+6*, HCPCS+7, GI+1*, VEN+2, VEN0+1*
, VEN0+5, VEN0+9*, ITDIC+5*, GIP+1*, V*, V+2, V+3*, HCPCG+6*
>> R1(1 RES+5*, 1+1, HCPCS+2, HCPCS+9, HCPCS+10*, HCPCS+13*, LOCDIC+2, LOCDIC+3, VEN0+1*, V+4*
, HCPCG+2, HCPCG+6*
>> R3("D" VIEW+5*, RES+5*, 1+2, 1+3, 1+7*, TRAN+1, TRAN+5*, 2+2, 2+6*, VEN+2
, VEN0+2, VEN0+5, VEN0+9*, INDIC+4, ITDIC+5*, ITDIC+6
>> R4("D" RES+5*, PCAT, PCAT+3*, PCAT+4*, SPE, SPE+2*
>> RDA HCPCS+7*, HCPCS+10, HCPCS+13
>> REDIT HCPCS+9, HCPCS+10, HCPCS+11, INDIC, ITDIC
RESP ASK+8~*
>> RMCPT HCPCS+8, HCPCS+10, HCPCS+13
RMDES VIEW~
>> RMHCDA LOCDIC+4
RMHCPC RES+3!, HCPCS+6*, HCPCS+7, HCPCS+10, HCPCS+11, LOCDIC, LOCDIC+1, VEN0+1, HCPCG+7*
RMINVF RES+3!, RES+7*, LOCDIC*, GIP+11*
RMITDA RES+3!, LOCDIC!, LOCDIC+4
RMITFLG 1+1!, LOCDIC+2, VEN0+2, VEN0+3
RMLACO RES+3!
RMLOC RES+3!, LOCDIC!, LOCDIC+4, LOCDIC+6, LOCDIC+7, VEN0+4, HCPCG+7
>> RMPR RMPRSTK+10
>> RMPR("NAME" RMPRSTK+15
>> RMPR("STA" RES+4
RMPRBAC1 VIEW~, VIEW+1*!
>> RMPRDFN RMPRSTK+16, RMPRSTK+17, RES+2, RES+4
>> RMPREVHC 1+1*, HCPCS+10, HCPCS+11
>> RMPRF RMPRSTK+8*, GI+1*
>> RMPRG RMPRSTK+8*
RMPRGIP 1+1!, LOCDIC+7*, GI+1*
>> RMPRI("AMS" RES+5*
RMPRIP 1+1!, INV, INDIC+4*
>> RMPRKILL VIEW+2
>> RMPRNAM 1+3
>> RMPRSITE RMPRSTK+15, GI, GI+1
>> RMPRUCST GIP+1*, GIP+3, GIP+10*
>> RMPRVEN V+3*
RMQTY RES+3!
RMSAL RES+3!
RMSO RES+3!, 1+6*
>> RMVEN VEN0+4
>> RO VEN+2*
SELSITE CAUTION~, CAUTION+2, CAUTION+4
STOP ASK+5~*, ASK+11*, ASK+12*, ASK+13
SYSINV DYNAMED+6~, DYNAMED+7*, DYNAMED+8, DYNAMED+13
U RES+4, 1+1, 1+2, 1+3, 1+6, 1+7, TRAN+1, TRAN+4, TRAN+5, PCAT
, PCAT+3, PCAT+4, SPE, SPE+2, 2, 2+2, 2+6, HCPCS+2, HCPCS+6, HCPCS+7
, HCPCS+9, HCPCS+10, HCPCS+13, LOCDIC, LOCDIC+1, LOCDIC+2, LOCDIC+3, GI, GI+1, VEN+1
, VEN+2, VEN0+1, VEN0+2, VEN0+5, VEN0+9, INDIC+4, ITDIC+5, ITDIC+6, GIP+1, V
, V+1, V+2, V+3, V+4, DEF, HCPCG+2, HCPCG+6, HCPCG+7, CAUTION+4
X RMPRSTK+10, RES+3!, 1+5, 2+6!, VEN+1*, VEN0+9!, V+2*, DEF*, CAUTION+9~*, DYNAMED+12~*
Y RES+3!, 1+6, 1+7, TRAN+4, TRAN+5, PCAT+3, PCAT+4, SPE, SPE+2, 2+5
, 2+6!, HCPCS+5, HCPCS+6, HCPCS+13, VEN+1, VEN0+8, VEN0+9!, INDIC+3, INDIC+4, ITDIC+3
, ITDIC+5, GIP+10, V+2, DEF, HCPCG+5, HCPCG+6, HCPCG+7, ASK+11
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