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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPRPIYT

Package: Prosthetics

Routine: RMPRPIYT


Information

RMPRPIYT ;HINCIO/ODJ - TR - Transfer Items ;3/8/01

Source Information

Source file <RMPRPIYT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Prosthetics 9 $$TRNF^RMPRPIUT  $$GET^RMPRPIX5  $$VNDIEN^RMPRPIX6  $$ETOI^RMPRPIX7  $$STN^RMPRPIY1  HCPCS^RMPRPIY7  ITEM^RMPRPIYP  PVEN^RMPRPIYR  
($$QTY,LOCNM)^RMPRPIYU  
Kernel 1 KILL^XUSCLEAN  

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 TRAN  

Entry Points

Name Comments DBIA/ICR reference
TR
STN
HCPCS
HCPCS2
HCPCS3
HCPCS4
CURST
QTY
TLOCN
TRANS
TRX

External References

Name Field # of Occurrence
$$TRNF^RMPRPIUT TRANS+10
$$GET^RMPRPIX5 CURST+6
$$VNDIEN^RMPRPIX6 TRANS+5
$$ETOI^RMPRPIX7 TRANS+4
$$STN^RMPRPIY1 STN+1
HCPCS^RMPRPIY7 HCPCS2
ITEM^RMPRPIYP HCPCS3
PVEN^RMPRPIYR CURST+1
$$QTY^RMPRPIYU QTY
LOCNM^RMPRPIYU TLOCN
KILL^XUSCLEAN TRX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STN+1
Function Call: WRITE
  • Prompt: !!,"Transfer item quantity to another location.",!
  • Line Location: HCPCS+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected."
  • Line Location: HCPCS2+4
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: CURST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CURST+10
Function Call: WRITE
  • Prompt: !,"*** Nothing transferred."
  • Line Location: TLOCN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TLOCN+9
Function Call: WRITE
  • Prompt: "*** Forwarding and Receiving Location is the same!!!!"
  • Line Location: TLOCN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: TRANS+12
Function Call: WRITE
  • Prompt: "Quantity to transfer is greater than current balance: "
  • Line Location: TRANS+13
Function Call: WRITE
  • Prompt: RMPR("QOH")
  • Line Location: TRANS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: TRANS+17
Function Call: WRITE
  • Prompt: "There were problems with the transfer, please contact support"
  • Line Location: TRANS+18
Function Call: WRITE
  • Prompt: !
  • Line Location: TRANS+21
Function Call: WRITE
  • Prompt: "QTY "_RMPRQTY_" transferred from "_RMPR5F("NAME")_" to "_RMPR5T("NAME")
  • Line Location: TRANS+22

Label References

Name Line Occurrences
CURST QTY+3
HCPCS HCPCS3+2, CURST+4, QTY+2, TLOCN+1, TRANS+6, TRANS+25
HCPCS2 CURST+3
QTY TLOCN+6, TRANS+11
STN HCPCS2+2
TLOCN TLOCN+8
TRX STN+2, STN+3, HCPCS2+1, HCPCS2+3, HCPCS3+1, CURST+2, QTY+1, TLOCN+2, TRANS+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ TRANS+2
IOF STN+1
RMPR TR~, TRANS+10, TRANS+24!
RMPR("IEN" TRANS+3*
RMPR("QOH" TRANS+14
RMPR("QUANTITY" TRANS+1*
RMPR("USER" TRANS+2*
RMPR("VENDOR IEN" , TRANS+7*
RMPR1 TR~, STN+4!, HCPCS2
RMPR1("HCPCS" HCPCS2, HCPCS3, HCPCS4
RMPR1("SHORT DESC" , HCPCS4
RMPR11 TR~, STN+4!, HCPCS2, HCPCS3, QTY, TRANS+10
RMPR11("DESCRIPTION" HCPCS4+2
RMPR11("HCPCS" CURST+1
RMPR11("ITEM MASTER" , HCPCS4+1
RMPR11("ITEM" CURST+1
RMPR11("STATI ON IEN" , HCPCS3+4*
RMPR11("STATION" HCPCS3+3*, TRANS*
RMPR5F TR~, CURST+6, QTY, TRANS+10, TRANS+24!
RMPR5F("IEN" CURST+5*, TLOCN+8
RMPR5F("NAME" TRANS+22
RMPR5F("STATI ON IEN" , CURST+7*
RMPR5F("STATION" CURST+9*
RMPR5F("UNIT" TRANS+8*
RMPR5T TR~, TLOCN, TRANS+10, TRANS+24!
RMPR5T("IEN" TLOCN+8, TRANS+3
RMPR5T("NAME" TRANS+22
RMPR5T("STATI ON IEN" , CURST+8*
RMPR5T("STATION" TLOCN+7*
RMPR5T("UNIT" TRANS+9*
RMPR6 TR+1~, CURST+1, TRANS+5, TRANS+24!
RMPR6("VENDOR IEN" , TRANS+7
RMPR7 TR+1~, CURST+1, TRANS+4, TRANS+24!
>> RMPR7I TRANS+4
>> RMPR7I("UNIT" TRANS+8, TRANS+9
RMPRERR TR~, STN+1*, STN+2, CURST+6*, QTY*, TRANS+4*, TRANS+5*, TRANS+6, TRANS+10*, TRANS+11
, TRANS+16
RMPREXC TR~, STN+1, STN+3, HCPCS2, HCPCS2+1, HCPCS2+2, HCPCS2+3, HCPCS3, HCPCS3+1, HCPCS3+2
, CURST+1, CURST+2, CURST+3, CURST+4, QTY, QTY+1, QTY+2, QTY+3, TLOCN, TLOCN+1
, TLOCN+2, TLOCN+6
RMPRLCN TR+1~, CURST*, CURST+1, CURST+5
RMPROVAL TR+1~, STN*, STN+4
RMPRQTY TR~, QTY, TRANS+1, TRANS+22, TRANS+24!
RMPRSTN TR~, STN+1
RMPRSTN("IEN" STN, STN+4, HCPCS2, HCPCS3, HCPCS3+3, HCPCS3+4, CURST+1, CURST+7, CURST+8, CURST+9
, TLOCN, TLOCN+7, TRANS
RMPRVI TR+1~
RMPRVNDR TR+1~
RMPRVO TR+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All