Routine: IBTRCD1

Information

IBTRCD1 ;ALB/AAS - CLAIMS TRACKING INS ACTION EDIT ; 06-JUL-93

Source file <IBTRCD1.m>

Package	Total	Caller Graph
Integrated Billing	20	IBCNSA2 IBCNSC1 IBCNSD1 IBCNSM3 IBCNSP01 IBCNSP02 IBCNSP1 IBCNSP3 IBTRC1 IBTRD1 IBTRDD1 IBTRE3 IBTRE4 IBTRE5 IBTRED1 IBTRED2 IBTRP IBTRPR1 IBTRV2 IBTRVD1

Name	Comments	DBIA/ICR reference
10	;;1.07///@;.2///@;.21///@
30	;;.14///@;1.07///@;1.08///@;.2///@;21///@;.28///@
LOCKED	; -- write locked message
COMP	; -- Compare before editing with globals
NX(IBTMPNM,BLD)	; -- edit next template
UPDATE	; -- enter date and user if editing has taken place
40	;;.14///@;1.07///@;1.08///@;21///@;.28///@
20	;;.14///@;1.08///@;.2///@;21///@;.28///@
EDITQ
EDIT(DR,BLD)	; -- edit entry point for claims tracking reviews
QE	; -- Quick edit
50	;;.14///@;1.07///@;1.08///@;.2///@;.28///@
99	;;.14///@;1.07///@;1.08///@;.2///@;21///@;.28///@
ASKDEL	; -- ask if okay to delete next review dates
SAVE	; -- Save the global before editing
NXRV	; -- check Next Review Dates
CON	; -- consistency checker for insurance reviews

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EDIT+6
Function Call: WRITE	Prompt: !,"Warning: There are other reviews with Next Review Dates specified.",!,"Generally only the last review date should have a Next Review Date." Line Location: NXRV+7
Function Call: WRITE	Prompt: !,"Warning: More that one review has a Next Review Date Specified.",!,"Generally only the last review date should have a Next Review Date." Line Location: NXRV+8
Routine Call	VALM Line Location: NX+2
Routine Call	DIE Line Location: EDIT+10 UPDATE+4

Name	Line Occurrences (* Changed, ! Killed)
^IBE(356.7 - [#356.7]	CON+3
^IBT(356.2 - [#356.2]	EDIT+9, EDIT+14, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, COMP+2, COMP+3, COMP+4 , COMP+5, COMP+6, CON+3, CON+7, CON+11, CON+14, CON+15, CON+19, CON+20, CON+23 , CON+24, NXRV+1, NXRV+3, NXRV+4, NXRV+7
^TMP($J	EDITQ!, SAVE+1!, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6*, COMP+2, COMP+3, COMP+4 , COMP+5, COMP+6, CON+7, CON+10, CON+11

Name	Field # of Occurrence
BLD	NX~, NX+3, EDIT~, EDIT+15
DA	QE+1~, EDIT+5~, EDIT+8, EDIT+10!, UPDATE+2, UPDATE+4!, CON+1~, CON+20, CON+24
DA(1	CON+20, CON+24
DIC	QE+1~, EDIT+5~, EDIT+10!, UPDATE+4!, CON+1~
DIE	QE+1~, EDIT+5~, EDIT+8, EDIT+10!, UPDATE+2, UPDATE+4!, CON+1~
>> DIK	CON+20, CON+24
DIR	EDIT+5~
DR	QE+1~, EDIT~, EDIT+10!, UPDATE+3, UPDATE+4!, CON+1~, CON+12, CON+13
DUZ	UPDATE+3
I	CON+1~
IBACTION	CON+1~, CON+3, CON+4, CON+14, CON+15, CON+19, CON+23
IBCON	EDIT+11!, CON+2*
IBDEL	CON+1~, NXRV+6, ASKDEL+1*
IBDIF	EDIT+5~, EDIT+13, COMP+1, COMP+2, COMP+3, COMP+4, COMP+5, COMP+6
>> IBFASTXT	NX+3
IBI	CON+1~, CON+20, CON+24, NXRV+3*, NXRV+4
IBI(	NXRV+4*, NXRV+8
IBI(0	NXRV+6, NXRV+8
IBTLST	EDIT+5~
IBTMPNM	NX~, NX+2
>> IBTRC	EDIT+8, EDIT+9, EDIT+14, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, COMP+2, COMP+3 , COMP+4, COMP+5, COMP+6, UPDATE+2, CON+3, CON+7, CON+10, CON+11, CON+14, CON+15 , CON+19, CON+20, CON+23, CON+24, NXRV+1, NXRV+3, NXRV+7
IBTRN	NXRV+1~*, NXRV+2, NXRV+3
IBXX	QE+1~, NX+1~
J	CON+1~
U	NXRV+7
>> VALMBCK	QE+4, NX+4, EDITQ+1*
VALMY	QE+1~, NX+1~
X	EDIT+5~, CON+1~
Y	EDIT+5~, CON+1~
>> ZTQUEUED	LOCKED+1