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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRPIYG

Package: Prosthetics

Routine: RMPRPIYG


Information

RMPRPIYG ;HINCIO/ODJ - RC - PIP Receive Stock ;3/8/01

Source Information

Source file <RMPRPIYG.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Prosthetics 10 $$REC^RMPRPIU8  $$CRE^RMPRPIX4  $$GET^RMPRPIX5  $$STN^RMPRPIY1  (QTY,TVAL,UCST,UNIT,VEND)^RMPRPIY5  (HCPCS,LOCNM)^RMPRPIY7  $$LOC1^RMPRPIYB  ITEM^RMPRPIYP  
(NLABP,PRINT)^RMPRPIYS  PORD^RMPRPIYY  
Kernel 1 KILL^XUSCLEAN  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Prosthetics 1 RMPR INV RECEIVE  

Entry Points

Name Comments DBIA/ICR reference
RC
STN
HCPCS
HCPCS2
HCPCS3
HCPCS4
PORD
QTY
QTYA
UCST
TVAL
VEND
UNIT
LOCN
TRANS
NLAB
SELP ;W ! D SELP^RMPRPI11(.RMPRBCP,.RMPREXC,.RMPRQ,.RMPRIOP)
RCNX
RCX
MESS
YNQTY(RMPRYN,RMPREXC) ;
YNQTYX
YNVND(RMPRYN,RMPREXC) ;
YNVNDX

External References

Name Field # of Occurrence
^DIR YNQTY+8, YNVND+7
$$REC^RMPRPIU8 TRANS+14
$$CRE^RMPRPIX4 TRANS+4
$$GET^RMPRPIX5 LOCN+4
$$STN^RMPRPIY1 STN+1
QTY^RMPRPIY5 QTY+1
TVAL^RMPRPIY5 TVAL+4
UCST^RMPRPIY5 UCST
UNIT^RMPRPIY5 UNIT
VEND^RMPRPIY5 VEND+1
HCPCS^RMPRPIY7 HCPCS2
LOCNM^RMPRPIY7 LOCN+7
$$LOC1^RMPRPIYB LOCN
ITEM^RMPRPIYP HCPCS3
NLABP^RMPRPIYS NLAB+1
PRINT^RMPRPIYS SELP+10
PORD^RMPRPIYY PORD
KILL^XUSCLEAN RCX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STN+1
Function Call: WRITE
  • Prompt: !!,"Receive an Item from Supply, Vendor or Veteran.",!
  • Line Location: HCPCS+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected."
  • Line Location: HCPCS2+3
Function Call: WRITE
  • Prompt: !!,"HCPCS: "_$G(RMPR1("HCPCS"))_" "_$G(RMPR1("SHORT DESC"))
  • Line Location: HCPCS4+0
Function Call: WRITE
  • Prompt: !!,"IFCAP Item: ",$G(RMPR11("ITEM MASTER"))
  • Line Location: HCPCS4+1
Function Call: WRITE
  • Prompt: !!,"PIP Item desc.: ",$G(RMPR11("DESCRIPTION"))
  • Line Location: HCPCS4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !,"No quantity entered!"
  • Line Location: QTY+7
Function Call: WRITE
  • Prompt: !,"TOTAL COST OF QUANTITY: "_RMPRTVAL
  • Line Location: TVAL+2
Function Call: WRITE
  • Prompt: !,"Location: "_RMPR5("NAME")
  • Line Location: LOCN+5
Function Call: WRITE
  • Prompt: !!,"** Item could not be received, please contact support."
  • Line Location: TRANS+16
Function Call: WRITE
  • Prompt: !!,"** Item has been received and inventory updated."
  • Line Location: TRANS+20
Function Call: WRITE
  • Prompt: !," If you are using barcoding you should now print labels"
  • Line Location: TRANS+21
Function Call: WRITE
  • Prompt: !," for the items received.",!
  • Line Location: TRANS+22
Function Call: WRITE
  • Prompt: !
  • Line Location: NLAB+1
Function Call: WRITE
  • Prompt: !!,"*** NOTHING RECEIVE !!!",!
  • Line Location: MESS+0
Routine Call
  • DIR
  • Line Location:
    • YNQTY+8
    • YNVND+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.4 - [#661.4] TRANS+2

Label References

Name Line Occurrences
HCPCS HCPCS3+2, PORD+1, QTY+3, QTY+4, QTY+6, QTYA+2, UCST+2, TVAL+6, VEND+3, VEND+10
, UNIT+2, LOCN+9, RCNX+2
HCPCS4 HCPCS2+5
MESS QTY+3, QTYA+2, UCST+2, TVAL+6, VEND+3, VEND+10, UNIT+2, LOCN+9
QTY QTYA+3, QTYA+4, UCST+1
QTYA QTY+10
RCNX NLAB+3, NLAB+4, NLAB+5
RCX STN+2, STN+3, HCPCS2+1, HCPCS2+2, HCPCS3+1, PORD+2, QTY+2, QTYA+1, UCST+3, TVAL+7
, VEND+2, VEND+9, UNIT+3, LOCN+8, TRANS+15, NLAB+2
TRANS LOCN+1
UCST QTY+11, TVAL+5, VEND+4, UNIT+1, LOCN+10
UNIT VEND+5, VEND+12
VEND TVAL, VEND+11
YNQTY QTYA
YNQTYX YNQTY+9, YNQTY+10, YNQTY+11
YNVND VEND+8
YNVNDX YNVND+8, YNVND+9, YNVND+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA YNQTY+1~, YNVND+1~
DIR YNQTY+1~, YNVND+1~
DIR("A" YNQTY+5*, YNQTY+6*, YNQTY+7*, YNVND+5*, YNVND+6*
DIR(0 YNQTY+4*, YNVND+4*
DIROUT YNQTY+1~, YNQTY+10, YNVND+1~, YNVND+9
DIRUT YNQTY+1~, YNVND+1~
DTOUT YNQTY+1~, YNQTY+9, YNVND+1~, YNVND+8
DUOUT YNQTY+1~, YNQTY+11, YNVND+1~, YNVND+10
IOF STN+1
>> RMPR("NAME" STN+5*
RMPR1 RC~, STN+4!, HCPCS+2!, HCPCS2
RMPR1("HCPCS" HCPCS2, HCPCS3, HCPCS4, PORD
RMPR1("SHORT DESC" , HCPCS4
RMPR11 RC~, STN+4!, HCPCS+2!, HCPCS2, HCPCS3, TRANS+4, TRANS+14
RMPR11("DESCRIPTION" HCPCS4+2, SELP+5
RMPR11("HCPCS" TRANS+2, SELP+2
RMPR11("HCPCS-ITEM" SELP+4
RMPR11("IEN" HCPCS2+5
RMPR11("ITEM MASTER" , HCPCS4+1, SELP+6
RMPR11("ITEM" PORD, TRANS+2
RMPR11("STATI ON IEN" , HCPCS3+4*, TRANS+1*, TRANS+7*
RMPR11("STATION" HCPCS3+3*, TRANS*, TRANS+6*
RMPR4 RC+1~, TRANS+4
RMPR4("RE-ORD ER QTY" , TRANS+3*
RMPR41 RC+2~, HCPCS+2!, PORD, TRANS+14, RCNX+1!
RMPR41("BALAN CE QTY" , PORD+4, QTY+10, QTYA+5, YNQTY+5
RMPR41("IEN" PORD+3, QTY+10
RMPR41("ORDER QTY" , QTYA+5, TRANS+12*
RMPR41("VENDO R IEN" , PORD+6, VEND+5, TRANS+13*
RMPR41N RC+2~, HCPCS+2!, RCNX+1!
RMPR41N("ORDE R QTY" , QTY!, QTYA+5*, TRANS+12
RMPR41N("VEND OR IEN" , VEND!, VEND+13*, TRANS+13
RMPR5 RC~, LOCN+2!, LOCN+4, LOCN+7, TRANS+4, TRANS+14
RMPR5("IEN" LOCN+3*, TRANS+2
RMPR5("NAME" LOCN+5, SELP+9
RMPR6 HCPCS+1!, TRANS+14, RCNX!
RMPR6("DATE&TIME" SELP+2, SELP+3
RMPR6("QUANTITY" TRANS+8*, NLAB, NLAB+1
RMPR6("UNIT" TRANS+11*
RMPR6("VALUE" TRANS+9*
RMPR6("VENDOR" TRANS+10*
RMPRBARC RC+2~, HCPCS+2!, SELP+2*, RCNX+1!
RMPRBCP RC+2~, HCPCS+1!, RCNX!
RMPRERR RC~, STN+1*, STN+2, LOCN+4*, TRANS+4*, TRANS+14*, TRANS+15
RMPREXC RC~, STN+1, STN+3, HCPCS2, HCPCS2+1, HCPCS2+2, HCPCS3, HCPCS3+1, HCPCS3+2, PORD
, PORD+1, PORD+2, PORD+3, QTY+1, QTY+2, QTY+3, QTY+4, QTYA, QTYA+1, QTYA+2
, QTYA+3, UCST, UCST+1, UCST+2, UCST+3, TVAL+4, TVAL+5, TVAL+6, TVAL+7, VEND+1
, VEND+2, VEND+3, VEND+4, VEND+8, VEND+9, VEND+10, VEND+11, UNIT, UNIT+1, UNIT+2
, UNIT+3, LOCN+7, LOCN+8, LOCN+9, LOCN+10, NLAB+1, NLAB+2, NLAB+3, NLAB+4, YNQTY~
, YNQTY+3*, YNQTY+9*, YNQTY+10*, YNQTY+11*, YNVND~, YNVND+3*, YNVND+8*, YNVND+9*, YNVND+10*
RMPRIOP RC+1~, HCPCS+1!, RCNX!
RMPRITXT RC+2~, HCPCS+2!, RCNX+1!
RMPRITXT("DATE" SELP+3*
RMPRITXT("ITE M DESC" , SELP+5*
RMPRITXT("ITEM" SELP+4*
RMPRITXT("LOCATION" SELP+9*
RMPRITXT("MAS TER DESC" , SELP+6*
RMPRITXT("UNI T PRICE" , SELP+7*
RMPRITXT("VENDOR" SELP+8*
RMPRLCN RC~, LOCN*, LOCN+1, LOCN+3
RMPRNLAB RC+1~, HCPCS+1!, NLAB*, NLAB+1, NLAB+5, RCNX!
RMPROVAL RC~, STN*, STN+4
RMPRQ RC+1~, HCPCS+1!, RCNX!
RMPRQTY RC+1~, HCPCS+1!, PORD+4*, QTY+1, QTY+5*, QTY+6, QTY+10, QTYA+5, TVAL+1, TRANS+8
, RCNX!
RMPRSTN RC~, STN+1
RMPRSTN("IEN" STN, STN+4, HCPCS2, HCPCS3, HCPCS3+3, HCPCS3+4, PORD, LOCN, LOCN+7, TRANS
, TRANS+1, TRANS+2, TRANS+6, TRANS+7
RMPRSTN("SITE NAME" , STN+5
RMPRTVAL RC+1~, HCPCS+1!, TVAL+1*, TVAL+2, TVAL+4, TRANS+9, RCNX!
RMPRUCST RC+1~, HCPCS+1!, UCST, UCST+4*, TVAL, TVAL+1, SELP+7, RCNX!
RMPRUNI HCPCS+2!, UNIT
RMPRUNI("IEN" UNIT+4
RMPRUNI("UNIT" UNIT+4*, TRANS+11
RMPRVEND RC+1~, HCPCS+2!, PORD+5!, VEND+1, RCNX+1!
RMPRVEND("IEN" PORD+6*, VEND+5, VEND+13, TRANS+10
RMPRVEND("NAME" SELP+8
RMPRYN RC+2~, QTYA, QTYA+4, VEND+8, VEND+12, YNQTY~, YNQTY+2*, YNQTY+12*, YNVND~, YNVND+2*
, YNVND+11*
X YNQTY+1~, YNQTY+11, YNVND+1~, YNVND+10
Y YNQTY+1~, YNQTY+12, YNVND+1~, YNVND+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All