Routine: RMPV0RMPRPIYF

Package	Total	Call Graph
Prosthetics	8	DEL1^RMPRPIFD $$FIFO^RMPRPIUB $$UPD^RMPRPIX2 ($$CRE,$$UPALL,$$UPD)^RMPRPIX3 ($$CRE,$$UPD)^RMPRPIX6 ($$CRE,$$UPD)^RMPRPIX7 $$UPCR^RMPRPIXJ SET60^RMPRPIYE
Prosthetics Vision 4 Sight II	3	CO^RMPV0RMPRPIYE %DIR^RMPVFM (WRITE,WRITECTL)^RMPVIO
VA FileMan	2	DD^%DT NOW^%DTC
Kernel	1	KILL^XUSCLEAN

Package	Total	Caller Graph
Prosthetics Vision 4 Sight II	1	RMPV0RMPRPIYE

Name	Comments	DBIA/ICR reference
RMPRPIYF	;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;8/2/02 07:27
COST	;
DATE
REQ
LOT
REMA
CC
POST	;POSTS EDITED TRANSACTION TO 660
API	;call API for 660, 661.7, 661.6, 661.63, 661.9
PCE	;update PCE data
DEL1	;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
EXIT	;KILL VARIABLES AND EXIT ROUTINE
UP660	;update 660
UPDATE	;update the new entries AND delete old data
BACK	; Bring back ITEM into current stock.
UP6	;now update file 661.6
UP63	;update file 661.63
UP7	;file #661.7,deduct quantity
UP9	;file 661.9
QUAN	;only update quantity
ERR

Name	Field # of Occurrence
DD^%DT	DATE+3
NOW^%DTC	BACK+1, UP9+1
DEL1^RMPRPIFD	DEL1+2
$$FIFO^RMPRPIUB	UP7+9
$$UPD^RMPRPIX2	UP660+3
$$CRE^RMPRPIX3	UPDATE+6, UPDATE+10
$$UPALL^RMPRPIX3	UPDATE+5
$$UPD^RMPRPIX3	UP63+5
$$CRE^RMPRPIX6	UPDATE+8, UPDATE+24
$$UPD^RMPRPIX6	UPDATE+4, UP6+4
$$CRE^RMPRPIX7	BACK+23, BACK+24
$$UPD^RMPRPIX7	BACK+20
$$UPCR^RMPRPIXJ	UP9+8
SET60^RMPRPIYE	POST+5
CO^RMPV0RMPRPIYE	DATE+1, REQ, LOT, REMA, CC
%DIR^RMPVFM	DATE, REQ, LOT, REMA
WRITE^RMPVIO	DATE+1, DATE+2, REQ+1, REQ+2, LOT+1, LOT+2, REMA+1, REMA+2, POST+1, API+6 , UP660+4, ERR
WRITECTL^RMPVIO	DATE+1, DATE+2, REQ+1, REQ+2, LOT+1, LOT+2, REMA+1, REMA+2, POST+1, API+6 , UP660+4, ERR
KILL^XUSCLEAN	EXIT+2

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	EXIT+1
^RMPR(661.6 - [#661.6]	POST+8, POST+9
^RMPR(661.63 - [#661.63]	POST+10, POST+11, POST+12
^RMPR(661.7 - [#661.7]	BACK+12, BACK+13, BACK+15, BACK+21
^TMP($J	EXIT+2!

Name	Line Occurrences
BACK	UPDATE+26, QUAN+13
CC	REMA+2
DATE	DATE+1, DATE+2
EXIT	DATE+1, REQ, REMA, PCE+3, ERR
LOT	REQ+2, LOT+1
PCE	POST+23
QUAN	API+4
REMA	LOT+2, REMA+1
REQ	REQ+1
UP6	QUAN+7
UP63	QUAN+7
UP660	POST+23, API+5
UP7	UPDATE+32, QUAN+8
UP9	UPDATE+36, UPDATE+46, QUAN+8, QUAN+13
UPDATE	API+3

Name	Field # of Occurrence
>> %	BACK+7, UP9+5
DIR	DATE!, LOT!, REMA!
DIR("A"	DATE*
DIR("B"	DATE, REQ, LOT, REMA
DIR(0	DATE, REQ, LOT, REMA
>> DTOUT	DATE+1, REQ, REMA
>> DUOUT	REQ, LOT, REMA
DUZ	UPDATE+17
>> R1("D"	DATE, DATE+3*
>> R1(0	COST+1, REQ, REQ+2, REQ+3, LOT, LOT+2, LOT+3, REMA, REMA+2, REMA+3*
>> R1(1	DATE, DATE+1, DATE+3*, POST+7
>> R1BCK(0	POST+23, POST+27, UPDATE+39, UPDATE+40, QUAN+8, QUAN+9, QUAN+10, QUAN+11, QUAN+12, QUAN+13 , QUAN+14, QUAN+15, QUAN+16, QUAN+17
>> R3("D"	COST+1*
>> RMACNT	COST+1*
>> RMDA7	BACK+15*, BACK+16
>> RMDAQUA	BACK+16*, BACK+17
>> RMDAT6	POST+9*
>> RMDAT63	POST+12*, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18, POST+19, POST+20, POST+21
>> RMDAVAL	BACK+16*, BACK+18
RMDTTIM	POST+2!, POST+13*, POST+25, POST+26, UPDATE+36, BACK+12, BACK+13, BACK+19, BACK+21, BACK+22 , BACK+24, QUAN+2
>> RMFLG	POST+3, POST+25, POST+26, POST+27, API+3, API+4
>> RMHC1	BACK+3*, BACK+12, BACK+13, BACK+21
>> RMIEN6	POST+7*, POST+8, POST+9, POST+10, UP6+1, UP63+1, QUAN+2
>> RMIEN63	POST+10*, POST+11, POST+12, UP63+4
>> RMIT1	BACK+4*, BACK+12, BACK+13, BACK+21
>> RMLO1	UPDATE+22, BACK+5*, BACK+12, BACK+13, BACK+21
>> RMNEWHC	UPDATE+1*, UPDATE+27, UPDATE+42
>> RMNEWIT	UPDATE+2*, UPDATE+28
>> RMPERR	UP9+8*
RMPR	EXIT+2~
>> RMPR11I	UP660+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+10, UPDATE+23, UPDATE+24, BACK+20, BACK+23 , BACK+24, UP6+4, UP63+5
>> RMPR11I("HCPCS"	UPDATE+1, UPDATE+12, UPDATE+27, UPDATE+37, UPDATE+42, BACK+3, UP7+4, UP9+3, QUAN+4*
>> RMPR11I("ITEM"	UPDATE+2, UPDATE+13, UPDATE+28, UPDATE+38, UPDATE+43, BACK+4, UP7+5, UP9+4, QUAN+5*
>> RMPR11I("STATION"	BACK+2, UP7+1, UP7+2, UP9+2, QUAN+3*
>> RMPR5("IEN"	UP63+2, UP7+3, QUAN+6*
>> RMPR6	UPDATE+6, UPDATE+10, UP6+4
>> RMPR6("IEN"	POST+7, UPDATE+3, UPDATE+7, UPDATE+9, UP6+1, UP63+1
>> RMPR6("LOCATION"	UP63+2*
>> RMPR6("QUANTITY"	UP6+2*
>> RMPR6("VALUE"	UP6+3*
>> RMPR6("VENDOR"	UP63+3*
RMPR60	POST+2!, UP660+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+10, UP63+5
RMPR60("COST"	UPDATE+19, UPDATE+30, UPDATE+34, UPDATE+45, UP6+3, QUAN+10, QUAN+12, QUAN+16, QUAN+17
RMPR60("IEN"	POST+3, API+6, UP660+1, UPDATE+3*, UPDATE+9
RMPR60("IEN6"	UPDATE+9*
RMPR60("ITEM"	UPDATE+43
RMPR60("QUANTITY"	POST+23, POST+27, UPDATE+18, UPDATE+29, UPDATE+33, UPDATE+44, UP6+2, QUAN+8, QUAN+9, QUAN+11 , QUAN+13, QUAN+14, QUAN+15
RMPR60("UNIT"	UPDATE+20
RMPR60("VENDO	R IEN" , UPDATE+21, UP63+3
RMPR63	POST+2!, UPDATE+5, UP63+5
RMPR63("IEN"	POST+12, UPDATE+5, UPDATE+6, UP63+4
>> RMPR7I	POST+23, UP7+9
>> RMPR7I("DATE&TIME"	POST+25, POST+26, UP7+6*
>> RMPR7I("HCPCS"	UP7+4*
>> RMPR7I("ISSUE	D QTY" , UP7+7, D VALUE" , UP7+8
>> RMPR7I("ITEM"	UP7+5*
>> RMPR7I("LOCAT	ION IEN" , UP7+3*
>> RMPR7I("QUANTITY"	UPDATE+29, UP7+7, QUAN+9
>> RMPR7I("STATI	ON IEN" , UP7+2*
>> RMPR7I("VALUE"	UPDATE+30, UP7+8, QUAN+10
>> RMPR7R	BACK+20, BACK+23, BACK+24
>> RMPR7R("DATE&TIME"	BACK+7, BACK+19, BACK+22*
>> RMPR7R("HCPCS"	BACK+3*
>> RMPR7R("IEN"	BACK+13*, BACK+14, BACK+15
>> RMPR7R("ITEM"	BACK+4*
>> RMPR7R("LOCATION"	BACK+5*
>> RMPR7R("QUANTITY"	BACK+9, BACK+17
>> RMPR7R("SEQUENCE"	BACK+8*
>> RMPR7R("STATION"	BACK+2*
>> RMPR7R("UNIT"	BACK+11*
>> RMPR7R("VALUE"	BACK+10, BACK+18
>> RMPR7R("VENDOR"	BACK+6*
>> RMPR9	UP9+8
>> RMPR9("HCP"	UP9+3*
>> RMPR9("ITE"	UP9+4*
>> RMPR9("QUANTITY"	UPDATE+33, UPDATE+39, UPDATE+44, UP9+6, QUAN+11, QUAN+14*
>> RMPR9("RDT"	UP9+5*
>> RMPR9("STA"	UP9+2*
>> RMPR9("TCST"	UP9+7*
>> RMPR9("TQTY"	UP9+6*
>> RMPR9("VALUE"	UPDATE+34, UPDATE+40, UPDATE+45, UP9+7, QUAN+12, QUAN+16*
>> RMPRCOST	COST+1
>> RMPRERR	API+6, UP660+2, UP660+3, UP660+4, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, UPDATE+10, UPDATE+23 , UPDATE+24, UPDATE+26, BACK+12, BACK+14, BACK+20, BACK+23, BACK+24, UP6+4, UP63+5, UP7+9
>> RMPRIEN	POST+3, EXIT+1, UP660+1
>> RMPRRET	UPDATE+24, QUAN+2
>> RMPRRET("COMMENT"	UPDATE+16*
>> RMPRRET("DATE&TIME"	POST+13*, BACK+7, UP7+6
>> RMPRRET("HCPCS"	POST+15*, UPDATE+12, UPDATE+37, QUAN+4
>> RMPRRET("ITEM"	POST+17*, UPDATE+13, UPDATE+38, QUAN+5
>> RMPRRET("LOCATION"	POST+21, UPDATE+22, BACK+5, QUAN+6
>> RMPRRET("QUANTITY"	POST+14, UPDATE+18, BACK+9, QUAN+15*
>> RMPRRET("SEQUENCE"	UPDATE+14*
>> RMPRRET("STATION"	POST+16*, QUAN+3
>> RMPRRET("TRAN	TYPE" , UPDATE+15*
>> RMPRRET("UNIT"	POST+19, UPDATE+20, BACK+11
>> RMPRRET("USER"	UPDATE+17*
>> RMPRRET("VALUE"	POST+18, UPDATE+19, BACK+10, QUAN+17*
>> RMPRRET("VENDOR"	POST+20, UPDATE+21, BACK+6
RMPRSITE	EXIT+2~
>> RMST1	BACK+2*, BACK+12, BACK+13, BACK+21
U	COST+1, DATE, DATE+1, DATE+3, REQ, REQ+2, REQ+3, LOT, LOT+2, LOT+3 , REMA, REMA+2, REMA+3, POST+7, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18 , POST+19, POST+20, POST+21, POST+23, POST+27, UPDATE+39, UPDATE+40, BACK+16, QUAN+8, QUAN+9 , QUAN+10, QUAN+11, QUAN+12, QUAN+13, QUAN+14, QUAN+15, QUAN+16, QUAN+17
>> X	DATE+1, DATE+2, REQ+1, REQ+2, REQ+3, LOT+1, LOT+2, LOT+3, REMA+1, REMA+2 , REMA+3
>> Y	DATE+3*

Name

Field # of Occurrence

>> %

BACK+7, UP9+5

DIR

DATE!, LOT!, REMA!

DIR("A"

DATE*

DIR("B"

DATE*, REQ*, LOT*, REMA*

DIR(0

DATE*, REQ*, LOT*, REMA*