Routine: IB20P512

Information

IB20P512 ;ALB/RRA - IB*2.0*512; DSS CLINIC STOP CODES ; 6/18/12 5:08pm

Package	Total	Call Graph
Kernel	1	BMES^XPDUTL
VA FileMan	1	UPDATE^DIE

Name	Comments	DBIA/ICR reference
EN	;
START
FINISH
ADD	;add a new code
UPDATE	;update an old code
ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER)	;
NCODE	;;code^billable type^description^override flag^effective date
OCODE	;;code^billable type^description^override flag^effective date

Name	Field # of Occurrence
UPDATE^DIE	ADD3525+11
BMES^XPDUTL	START, FINISH, ADD+2, ADD+11, ADD+13, UPDATE+3, UPDATE+8, UPDATE+11, UPDATE+18, ADD3525+2 , ADD3525+12

Name	Line Occurrences (* Changed, ! Killed)
^IBE(352.5 - [#352.5]	ADD+10, UPDATE+7, UPDATE+9, UPDATE+12, UPDATE+13

Name	Field # of Occurrence
IB1	UPDATE+1~, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15
IBC	ADD+1~, ADD+3, ADD+12, ADD+13, UPDATE+1~, UPDATE+2, UPDATE+17, UPDATE+18
IBCODE	ADD+1~, ADD+5, ADD+10, ADD+11, ADD+12, UPDATE+1~, UPDATE+5, UPDATE+7, UPDATE+8, UPDATE+9 , UPDATE+11, UPDATE+12, UPDATE+17, ADD3525~, ADD3525+2, ADD3525+6
IBDES	ADD+1~, ADD+7, ADD+12, UPDATE+1~, UPDATE+15, UPDATE+17, ADD3525~, ADD3525+2, ADD3525+9
IBEFFDT	EN+1~, ADD3525~, ADD3525+7
IBER	ADD3525+3~, ADD3525+12
IBER("DIERR"	ADD3525+12
IBFDA	ADD3525+3~
IBFDA(	ADD3525+6, ADD3525+7, ADD3525+8, ADD3525+9, ADD3525+10*
IBIENS	ADD3525+3~, ADD3525+5*, ADD3525+6, ADD3525+7, ADD3525+8, ADD3525+9, ADD3525+10
IBLSTDT	UPDATE+1~, UPDATE+9*, UPDATE+10, UPDATE+12
IBMSG	UPDATE+1~
IBMSG(1	UPDATE+2*
IBMSG(2	UPDATE+2*
IBMSG(3	UPDATE+2*
IBOVER	ADD+1~, ADD+8, ADD+12, UPDATE+1~, UPDATE+16, UPDATE+17, ADD3525~, ADD3525+10
IBRET	ADD3525+3~, ADD3525+4*
IBRET(1	ADD3525+13
IBT	ADD+1~, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, UPDATE+1~, UPDATE+4, UPDATE+5 , UPDATE+6, UPDATE+14, UPDATE+15, UPDATE+16
IBTYPE	ADD+1~, ADD+6, ADD+12, UPDATE+1~, UPDATE+14, UPDATE+17, ADD3525~, ADD3525+8
IBX	ADD+1~, ADD+4, UPDATE+1~, UPDATE+4
IBY	ADD+1~, ADD+9, ADD+10, ADD+12, UPDATE+6, UPDATE+7, UPDATE+17
U	ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, UPDATE+5, UPDATE+6, UPDATE+14, UPDATE+15, UPDATE+16
Y	ADD+1~, ADD+12, UPDATE+1~, UPDATE+17

Name	Field # of Occurrence
$T(NCODE+IBX	ADD+4
$T(OCODE+IBX	UPDATE+4