Routine: RMPRPIYG

Information

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

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

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