Routine: IBTRED1

Name	Comments	DBIA/ICR reference
COMPUT	; -- add up the numbers
COMP	; -- Compare before editing with globals
BILLDQ
UPDATE	; -- enter date and user if editing has taken place
EDITQ
DICSQ
BILLD(IBTRN)	; -- compute total amount billed and received for this visit
DICS(Y)	; -- called by input transform and screen logic for type of diagnois
EDIT(IBTEMP,BLD)	; -- edit entry point for claims tracking
NX(IBTMPNM)	; -- edit next template
SAVE	; -- Save the global before editing

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EDIT+5
Routine Call	VALM Line Location: NX+2
Routine Call	DIE Line Location: EDIT+10 UPDATE+4

FileNo	Call Tags
^IBT(356 - [#356]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BILLD+13, BILLD+18, COMPUT+1, COMPUT+2
^IBE(356.6 - [#356.6]	BILLD+16
^IBT(356 - [#356]	EDIT+6, EDIT+13, SAVE+2, SAVE+3, COMP+2, COMP+3, BILLD+10, BILLD+12, BILLD+16, BILLD+17 , BILLDQ
^IBT(356.399 - [#356.399]	BILLD+6
^IBT(356.9 - [#356.9]	DICS+4, DICS+5
^TMP($J	EDITQ!, SAVE+1!, SAVE+2, SAVE+3, COMP+2, COMP+3

Name	Field # of Occurrence
^("U1"	COMPUT+2

Name	Field # of Occurrence
BLD	EDIT~, EDIT+12
DA	EDIT+8, EDIT+10!, UPDATE+2, UPDATE+4!, DICS+4, DICS+5
>> DFN	BILLD+17*, BILLD+18
DGPM	BILLD+9~, BILLD+12*
DIC	EDIT+10!, UPDATE+4!
DIE	EDIT+8, EDIT+10!, UPDATE+2, UPDATE+4!
DR	EDIT+9, EDIT+10!, UPDATE+3, UPDATE+4!
DUZ	UPDATE+3
>> IBDIF	EDIT+12, COMP+1, COMP+2, COMP+3*
IBEVDT	BILLD+9~, BILLD+10, BILLD+13, BILLD+17, BILLD+18
>> IBFASTXT	NX+3
IBTEMP	EDIT~, EDIT+9
IBTMPNM	NX~, NX+2
IBTRC	NX+1~
IBTRN	EDIT+6, EDIT+8, EDIT+13, SAVE+2, SAVE+3, COMP+2, COMP+3, UPDATE+2, BILLD~, BILLD+4 , BILLD+6, BILLD+10, BILLD+12, BILLD+16, BILLD+17, BILLDQ
IBTRV	NX+1~
IBXX	NX+1~
IBY	DICS+1~, DICS+2, DICS+3, DICS+4, DICS+5, DICSQ, BILLD+2~, BILLD+3, BILLD+8, BILLDQ , BILLDQ+1, COMPUT+3*
IBZ	BILLD+2~, BILLD+3, BILLD+8, BILLDQ+1, COMPUT+5
U	DICS+4, DICS+5
>> VALMBCK	NX+4, EDITQ+1
VALMY	NX+1~
X	BILLD+2~, BILLD+6, BILLD+13, BILLD+18*, COMPUT+1, COMPUT+2, COMPUT+4
Y	DICS~, DICS+3, DICS+4, DICS+5, BILLD+2~, BILLD+6, BILLD+13, BILLD+18, COMPUT+2, COMPUT+3 , COMPUT+5
Z	BILLD+2~, BILLD+6, BILLD+13, BILLD+18, COMPUT+4, COMPUT+5

Information