Routine: IB20P785

Information

IB20P785 ;MNTVBB/DMR - IB MID YEAR 2024 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 Mid Year 2024 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)
START
FINISH
ADD	;add a new code
UPDATE	;update an old code
ADD3525(IBCODE,IBEFFDT,IBTYPE,IBDES,IBOVER)	;
GLBBKUP	; XTMP Backup of file(s)
GLBRSTR	; Restore of Prior version of file using XTMP
NCODE	;;code^billable type^description^override flag^effective date
OCODE	;;code^billable type^description^override flag

Name	Field # of Occurrence
UPDATE^DIE	ADD3525+11
$$FMADD^XLFDT	GLBBKUP+3
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
Function Call: WRITE	Prompt: !!,"CANNOT RERUN WITHOUT A RESTORE" Line Location: GLBBKUP+1
Routine Call	DIE Line Location: ADD3525+11

Name	Line Occurrences (* Changed, ! Killed)
^IBE(352.5 - [#352.5]	ADD+10, UPDATE+7, UPDATE+9, UPDATE+12, UPDATE+13, GLBBKUP+4, GLBRSTR+2!, GLBRSTR+3*
^XTMP("IB20P785"	GLBBKUP+1, GLBBKUP+2!, GLBBKUP+3, GLBBKUP+4, GLBBKUP+5*, GLBRSTR+1!, GLBRSTR+3

Name	Field # of Occurrence
DT	GLBBKUP+3
GLBKUP	EN+4~, EN+6, GLBBKUP+1*
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+8~, 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