Routine: IB20P389

Information

IB20P389 ;ALB/ARH - IB*2.0*389 POST INIT: PROSTHETICS ITEM REPLACEMENT ; 20-FEB-2008

Package	Total	Call Graph
VA FileMan	2	^DIE ^DIK
Kernel	1	MES^XPDUTL

Name	Comments	DBIA/ICR reference
PRE	; Clean up DD, remove fields exported so installs clean ; TRANSFER PRICING INPT PROSTHETIC ITEMS (#351.67), ITEM (.01) Output Transform not deleted by install
POST	;
PIDEL	; Delete all entries from TRANSFER PRICING INPT PROSTHETIC ITEMS (#361.67)
RBILL	; Replace Bill Prosthetics Item pointer with name (#362.5)
NAME(IP661,IP660,IDDT)	; Return free text name description for item
MESG	;

Name	Line Occurrences (* Changed, ! Killed)
^IBA(362.5 - [#362.5]	RBILL+3, RBILL+4
^IBAT(351.67 - [#351.67]	PIDEL+3
^PRC(441 - [#441]	NAME+7, NAME+8, NAME+9
^RMPR(660 - [#660]	NAME+3
^RMPR(661 - [#661]	NAME+6

Name	Field # of Occurrence
DA	PRE+2!, PRE+3!, PRE+4!, PIDEL+1~, PIDEL+5!, RBILL+1~, RBILL+9*!
DA(1	PRE+2, PRE+3, PRE+4*
DIC	PIDEL+1~, RBILL+1~, RBILL+9!
DIE	PIDEL+1~, RBILL+1~, RBILL+9*!
DIK	PRE+2!, PRE+3!, PRE+4!, PIDEL+1~, PIDEL+5!
DO	RBILL+1~, RBILL+9!
DR	RBILL+1~, RBILL+9*!
IB441	NAME+1~, NAME+6*, NAME+7, NAME+8, NAME+9
IB660	RBILL+1~, RBILL+5*, RBILL+7
IB661	RBILL+1~, RBILL+5*, RBILL+7
IBA	POST+1~, POST+2!, POST+7!, PIDEL+7!, RBILL+11!, MESG+1
IBA(1	POST+2, POST+7, PIDEL+7, RBILL+11
IBA(2	POST+2, POST+7
IBA(3	POST+2, POST+7
IBCNT	PIDEL+1~, PIDEL+5, PIDEL+7, RBILL+1~, RBILL+9, RBILL+11
IBDATE	NAME+1~, NAME+9*, NAME+11
IBDDT	RBILL+1~, RBILL+4*, RBILL+7
IBNAME	RBILL+1~, RBILL+7, NAME+1~, NAME+3, NAME+5, NAME+11, NAME+13, NAME+14, NAME+16
IBNEW	NAME+1~, NAME+8*, NAME+11
IBOLD	NAME+1~, NAME+7*, NAME+11
IBPI0	RBILL+1~, RBILL+4*, RBILL+5
IBPIFN	PIDEL+1~, PIDEL+3*, PIDEL+5
IBPIN	RBILL+1~, RBILL+3*, RBILL+4, RBILL+9
IDDT	NAME~, NAME+1*, NAME+11
IP660	NAME~, NAME+3
IP661	NAME~, NAME+5, NAME+6
U	RBILL+4, RBILL+5, NAME+3, NAME+7, NAME+8, NAME+9
X	PIDEL+1~, RBILL+1~
Y	PIDEL+1~, RBILL+1~