Routine: IBDFOSG1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFOSG

Entry Points

Name	Comments	DBIA/ICR reference
SET	; -- Set counters in temp arrays ; Piece 1 := Number bills entered ; Piece 2 := Number bills generated ; Piece 3 := Number of forms scanned for patients with INS ; Piece 4 := Number of forms scanned ; Piece 5 := Number of days from encounter date to bill printed ; Piece 6 := amount billed (for unique bill) ; Piece 7 := amount received (for unique bills) ; Piece 8 := number of unique bills ; Piece 9 := Number of visit dates on bills in 8
INC(PIECE,VALUE)	; ; -- increment counters,
START	; -- Loop thru clinics
CK1	; -- Check scheduling nodes, forms tracking, if scanned, ; patient insured, bill entered, bill printed, ; avg time from encounter to printed bill.
CHECK(CLIN)	; ; -- Check to see if clinic has a form and its one that ; is not for future use only.
CK(XCL)	; -- Check clinic, division, form
BLD	; -- scan appts

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CK+5
^DGCR(399 - [#399]	CK1+12, CK1+13, CK1+14, CK1+15, CK1+24, CK1+27
^DPT - [#2]	CK1+4, CK1+7
^IBD(357.96 - [#357.96]	CK1+9, SET+11
^SC - [#44]	START+4, CK+1, CK+3, BLD+1, BLD+2
^SD(409.95 - [#409.95]	CHECK+5, CHECK+6, CHECK+7
^TMP("CTOT"	CK+8, SET+13, SET+27
^TMP("DTOT"	CK+9, SET+14, SET+28
^TMP("GTOT"	START+3, SET+15, SET+29
^TMP("IBD-BILL"	CK1+22, CK1+23*
^TMP("IBD-ENTERED"	CK1+18*
^TMP("IBD-PRINTED"	CK1+19*
^TMP("MCCR"	SET+11*

Name	Line Occurrences
$$CHECK	CK+7
BLD	START+4
CK	START+4
CK1	BLD+2
INC	SET+17, SET+18, SET+19, SET+20, SET+21, SET+22, SET+23, SET+24, SET+25
SET	CK1+12, CK1+32

Name	Field # of Occurrence
^(0	BLD+2, CK1+9

Name	Field # of Occurrence
CLIN	CHECK~, CHECK+5, CHECK+6
>> DFN	BLD+2*, CK1+4, CK1+7, CK1+9, CK1+11, CK1+12, CK1+13, CK1+18, SET+11
HASFORM	CHECK+3~, CHECK+4*, CHECK+8
>> IBDFBEG	BLD+1
IBDFCL	CHECK+3~, CHECK+6*, CHECK+7
IBDFCLIN	START+1~, START+4*, BLD+1, BLD+2, SET+11
>> IBDFDA	BLD+2*
>> IBDFEND	BLD+1
>> IBDFIFN	CK1+9*, SET+11
>> IBDFMUL	CK+5
IBDFNODE	CHECK+3~, CHECK+7, CK+3, CK+4, CK+5, CK+6, CK+8, CK1+6, SET+13, SET+27
>> IBDFNUM	CK1+13*, CK1+14, CK1+15, CK1+18, CK1+19, CK1+22, CK1+23, CK1+24, CK1+25, CK1+27
>> IBDFSA	BLD+2*
>> IBDFT	BLD+1*, BLD+2, CK1+4, CK1+9, CK1+11, CK1+12, CK1+13, CK1+31, SET+11
>> IBDFTMP	SET+13, SET+27, INC+2
>> IBDFTMP1	SET+14, SET+28, INC+3
>> IBDFTMP2	SET+15, SET+29, INC+4
IBDFXPC	CK1+5~, CK1+6*, SET+11
IBDFYPC	CK1+5~, CK1+7*, SET+11
>> IBDIVNM	CK+5*, CK+8, CK+9, CK1+18, SET+11, SET+13, SET+14, SET+27, SET+28
>> IBFLG1	CK1+10, CK1+17, CK1+18, SET+17
>> IBFLG2	CK1+10, CK1+13, CK1+19, CK1+22, SET+18
>> IBFLG3	CK1+10, CK1+11, SET+19
>> IBFLG5	CK1+10, CK1+31, SET+21
>> IBFLG6	CK1+10, CK1+24, SET+22
>> IBFLG7	CK1+10, CK1+25, SET+23
>> IBFLG8	CK1+10, CK1+26, SET+24
>> IBFLG9	CK1+10, CK1+27, SET+25
>> IBMCNODE	CK1+14*
>> IBMCSND	CK1+15*, CK1+16, CK1+17, CK1+19, CK1+31
IBQUIT	START+1~, START+2, START+4, CK+2, CK+7*
PIECE	INC~, INC+2, INC+3, INC+4
>> VADAT("W"	CK1+31
VALUE	INC~, INC+2, INC+3, INC+4
>> VAUTD	CK+6
>> VAUTD(	CK+6
>> X	CK1+25*, CK1+31
>> X1	CK1+31*
>> X2	CK1+31*
XCL	CK~, CK+1, CK+3, CK+7