Routine: RMPRPIYA

Package	Total	Call Graph
Prosthetics	7	$$REC^RMPRPIU9 $$STOCK^RMPRPIUV $$GET^RMPRPIX5 ($$STN,HCPCS)^RMPRPIY1 (QTY,VEND)^RMPRPIY5 LOCNM^RMPRPIY7 $$LOC1^RMPRPIYB
Kernel	1	KILL^XUSCLEAN
VA FileMan	1	GETS^DIQ

Package	Total	Caller Graph
Prosthetics	1	RMPR INV RECONCILE

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: STN+1
Function Call: WRITE	Prompt: !!,"Reconcile Inventory item quantities on hand...",! Line Location: HCPCS+0
Function Call: WRITE	Prompt: ! Line Location: LOCN+0
Function Call: WRITE	Prompt: !,"Location: "_RMPR5("NAME") Line Location: LOCN+5
Function Call: WRITE	Prompt: !,"The following Vendors of the selected Item exist in this location..." Line Location: VEND0+12
Function Call: WRITE	Prompt: !,$E($$GETVEN(RMPRI),1,20) Line Location: VEND0+15
Function Call: WRITE	Prompt: ?22,$P(RMPRV(RMPRI),"^",1)_" units on hand" Line Location: VEND0+16
Function Call: WRITE	Prompt: !,"*** There were problems with the reconciliation, please contact support." Line Location: TRANS+7
Function Call: WRITE	Prompt: !,"*** Item was reconciled..." Line Location: TRANS+10

FileNo	Call Tags
^PRC(440 - [#440]	GETS^DIQ

Name	Line Occurrences
$$GETVEN	VEND0+15
HCPCS	LOCN+9, LOCN+10, VEND+2, VEND+3, QTY+2, TRANS+14
STN	HCPCS+3
UPX	STN+2, STN+3, HCPCS+4, HCPCS+5, LOCN+8, VEND+1, QTY+1
VEND	VEND0+7, QTY+3
VEND0	LOCN+1

Name	Field # of Occurrence
DA	GETVEN+1~
IOF	STN+1
RMPR	UP~, VEND0!, VEND0+6
RMPR("HCPCS"	VEND0+3*
RMPR("ITEM"	VEND0+4*
RMPR("LOCATIO	N IEN" , VEND0+2*
RMPR("STATION	IEN" , VEND0+1*
RMPR1	UP+1~, STN+4!, HCPCS+1!, HCPCS+2, TRANS+13!
RMPR1("HCPCS"	HCPCS+2
RMPR11	UP~, STN+4!, HCPCS+1!, HCPCS+2, TRANS+5, TRANS+13!
RMPR11("HCPCS"	VEND0+3
RMPR11("ITEM"	VEND0+4
RMPR11("STATI	ON IEN" , HCPCS+6, TRANS+1
RMPR11("STATION"	HCPCS+6, TRANS
RMPR5	UP~, HCPCS+1!, LOCN+2!, LOCN+4, LOCN+7, TRANS+5, TRANS+13!
RMPR5("IEN"	LOCN+3*, VEND0+2
RMPR5("NAME"	LOCN+5
RMPR6	UP~, HCPCS+1!, TRANS+5, TRANS+13!
RMPR6("QUANTITY"	TRANS+2*
RMPR6("VENDOR	IEN" , TRANS+4*
RMPR6("VENDOR"	TRANS+3*
RMPRERR	UP~, STN+1, STN+2, LOCN+4, VEND0+6, TRANS+5, TRANS+6
RMPREXC	UP~, STN+1, STN+3, HCPCS+2, HCPCS+3, HCPCS+4, HCPCS+5, LOCN+7, LOCN+8, LOCN+9 , LOCN+10, VEND, VEND+1, VEND+2, VEND+3, QTY, QTY+1, QTY+2, QTY+3
RMPRFDA	GETVEN+1~
RMPRI	UP~, VEND0+13, VEND0+14, VEND0+15, VEND0+16, GETVEN+1~, GETVEN+2*, GETVEN+3, GETVEN+4
RMPRIEN	GETVEN~, GETVEN+2
RMPRLCN	UP+1~, LOCN*, LOCN+1, LOCN+3
RMPRO	GETVEN+1~
RMPRO(440	GETVEN+4
RMPROVAL	UP~, STN*, STN+4
RMPRQTY	HCPCS+1!, VEND0+10*, QTY, TRANS+2, TRANS+13!
RMPRSTN	UP~, STN+1
RMPRSTN("IEN"	STN, STN+4, HCPCS+2, HCPCS+6, LOCN, LOCN+7, VEND0+1, TRANS, TRANS+1
RMPRV	UP~, VEND0+5!, VEND0+6, VEND0+7, VEND0+11
RMPRV(	VEND0+9, VEND0+10, VEND0+14, VEND0+16
RMPRV(""	VEND0+8
RMPRVEND	HCPCS+1!, VEND, TRANS+13!
RMPRVEND("IEN"	VEND0+8*, VEND0+9, VEND0+10, TRANS+3, TRANS+4
RMPRVEND("NAME"	VEND0+9*
X	GETVEN+1~
Y	GETVEN+1~