Routine: IB20P799

Information

IB20P799 ;MNTVBB/AJR - IB YEAR 2025 STOP CODES UPDATE ; January 29, 2024 @13:20

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT BMES^XPDUTL
VA FileMan	1	UPDATE^DIE

Name	Comments	DBIA/ICR reference
EN	; Update IB Stop Code Billable Types for Year 2025 in #352.5 ; Call the Global Backup Tag (Backs up entire file to XTMP and sets the GLBRSTR node ; used to prevent a rerun of the backup and update, that would result in ; overwriting the backup file unintentionally) ; Initiate Update
START
FINISH
ADD	;add a new code
UPDATE	;update an old code
ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER)	;
GLBBKUP
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
$$FMADD^XLFDT	GLBBKUP+2
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(	GLBBKUP+3
^IBE(352.5 - [#352.5]	ADD+10, UPDATE+7, UPDATE+9, UPDATE+12, UPDATE+13
^XTMP("IB20P799"	GLBBKUP+2, GLBBKUP+3

Name	Field # of Occurrence
DT	GLBBKUP+2
IB1	UPDATE+1~, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15
>> IB799FILE	EN+7, EN+11, GLBBKUP+3
IB799FILES	EN+6~, EN+8*, EN+10, EN+11
>> IBBKUPNDE	GLBBKUP+1*, GLBBKUP+2
IBC	ADD+1~, ADD+3, ADD+12, ADD+13, UPDATE+1~, UPDATE+2, UPDATE+17, UPDATE+18
>> IBCNT	EN+9, EN+10, EN+11
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+14~, 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