Routine: IBDFUTL1

Package	Total	Call Graph
Automated Information Collection System	1	(CLINICS,ENDV,HEADER)^IBDFUTL2
DRG Grouper	1	$$CPT^ICPTCOD
Registration	1	($$LOWER,$$SETSTR)^VALM1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFUTL2

Entry Points

Name	Comments	DBIA/ICR reference
TMP	; -- Set up TMP Array
CLIN1	; -- Sort Display by clinic
SET	; -- Loop thru to see if codes are valid
SETARR	; -- Set up Listman array
SETSTR(S,V,X,L)	; -- insert text(S) into variable(V) ; S := string ; V := destination ; X := @ col X ; L := # of chars
FORM1	; -- Sort Display by form
GROUP1	; -- Sort Display by clinic group
SETARR1	; -- Set up Listman array
TMP1	; -- Set up TMP Array
SET1

External References

Name	Field # of Occurrence
CLINICS^IBDFUTL2	SET1+1
ENDV^IBDFUTL2	GROUP1+8
HEADER^IBDFUTL2	SET1+4
$$CPT^ICPTCOD	SET+12
$$LOWER^VALM1	TMP+1, TMP1+1
$$SETSTR^VALM1	SETARR+5, SETARR+7, SETARR+9, SETARR+11, SETARR+13, SETARR+14, SETARR1+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(357.99 - [#357.99]	GROUP1+2, GROUP1+6, GROUP1+7
^IBE(357 - [#357]	SETARR+12, SET+17, SET+21, FORM1+2
^IBE(357.1 - [#357.1]	SETARR+10, SET+1, SET+17, SET+21
^IBE(357.2 - [#357.2]	SET+2
^IBE(357.3 - [#357.3]	SETARR1+4, SET+3, SET+4
^IBE(357.6 - [#357.6]	SET+8, SET+20
^IBE(357.69 - [#357.69]	SET+15
^ICD9 - [#80]	SET+14
^SC - [#44]	CLIN1+2, GROUP1+6
^SD(409.95 - [#409.95]	CLIN1+6, GROUP1+10
^TMP("CLN"	CLIN1+2, CLIN1+3!, CLIN1+5
^TMP("CLN1"	CLIN1+4!, CLIN1+5*, CLIN1+6
^TMP("CPT"	TMP+1, TMP1+1
^TMP("CPTIDX"	TMP+2*
^TMP("FRM1"	FORM1+3!, FORM1+4*, FORM1+5
^TMP("GRP1"	GROUP1+2, GROUP1+3!, GROUP1+4, GROUP1+5
^TMP("IBDF"	GROUP1+6, GROUP1+7, GROUP1+8, GROUP1+9, GROUP1+10
^TMP("UTIL"	SET+17, SET+21, SET1+1, SET1+2, SET1+3, SET1+4

Label References

Name	Line Occurrences
SET	CLIN1+7, FORM1+2, FORM1+5, GROUP1+10
SET1	CLIN1+8, FORM1+6, GROUP1+11
SETARR	SET1+4
SETARR1	SET1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> IBCLN	GROUP1+6*
>> IBDBLK	SET1, SET1+2, SET1+3, SET1+4
>> IBDCLN	CLIN1+6*
>> IBDCLNM	CLIN1+6*
>> IBDCNODE	CLIN1+6, CLIN1+7, GROUP1+10
>> IBDCNT	SETARR+2, TMP+1, SETARR1+7, TMP1+1
>> IBDCNT1	SETARR+1*, SETARR+4, TMP+1, TMP+2, TMP1+1
>> IBDF(	SET1+4
>> IBDFACT	SET+6, SET+18
>> IBDFBK	SET1+2*
IBDFBLK	SETARR+10, SET+1, SET+2, SET+17, SET+21, SET1, SET1+4*, CLIN1+1~, FORM1+1~, GROUP1+1~
>> IBDFCIFN	CLIN1+6, GROUP1+10
>> IBDFCLIN	CLIN1+3, CLIN1+5, CLIN1+6, GROUP1+10
>> IBDFCLN	GROUP1+9*
>> IBDFCLNM	SET+17, SET+21, GROUP1+9*, GROUP1+10
>> IBDFCODE	SET+11, SET+14, SET+15
>> IBDFGIFN	GROUP1+2, GROUP1+4, GROUP1+5*, GROUP1+6, GROUP1+7
>> IBDFGN	GROUP1+2, GROUP1+5, GROUP1+9*
>> IBDFGNM	GROUP1+2, GROUP1+5, GROUP1+6, GROUP1+7, GROUP1+9*, GROUP1+10
>> IBDFINT	SET+2, SET+8, SET+20
>> IBDFLG	SET1*
IBDFLST	SET+2*, SET+3, SET+17, SET+21, CLIN1+1~, FORM1+1~, GROUP1+1~
>> IBDFN	CLIN1+7, GROUP1+10
>> IBDFNAME	SET+17, SET+21, SET1, SET1+1, SET1+2, SET1+3, SET1+4, CLIN1+6, FORM1+2, FORM1+5* , GROUP1+10*
>> IBDFNCNG	CLIN1+4, FORM1+3, GROUP1+3
>> IBDFNM	SET1+1*
>> IBDFNODE	SET+2*
IBDFORM	SET+1, SET+17, SET+21, CLIN1+1~, CLIN1+7, FORM1+1~, FORM1+2, FORM1+4, FORM1+5, GROUP1+1~ , GROUP1+10*
>> IBDFORM1	SETARR+12, SET1, SET1+4
>> IBDFRM	SET1+2, FORM1+2, FORM1+5*
>> IBDFRNM	FORM1+2, FORM1+5
>> IBDFSEL	SET+3, SET+4, SET+17, SET+21, SET1+3, SET1+4
>> IBDFTMP	SETARR+8, SETARR+14, TMP+2, SETARR1+2, SET1+4*
>> IBDFVAL	SETARR+4, SETARR+5, SETARR+6, SETARR+7, SETARR+8, SETARR+9, SETARR+10, SETARR+11, SETARR+12, SETARR+13 , SETARR+14, SETARR1+9*, SETARR1+10
>> IBDFX	SETARR+6, TMP+2, SETARR1+5, SET+3, SET+4, SET+7, SET+17, SET+19, SET+21, SET1 , SET1+1*, SET1+2, SET1+3, SET1+4
>> IBDFX1	SET+4*, SET+5
>> IBDFX2	SET+4*, SET+5
>> IBDFX3	SET+4*, SET+5
>> IBDIV	GROUP1+7*
>> IBDORM	SET1, SET1+2, SET1+3, SET1+4
IBDPRIM	SETARR1+1~, SETARR1+4*, SETARR1+5, SETARR1+9
IBDSELP	SETARR1+1~, SETARR1+2*, SETARR1+3, SETARR1+4
>> IBI	SET+5*, SET+7, SET+19
IBY	SET+11~, SET+13, SET+14~, SET+15~*, SET+17
>> IEN	GROUP1+6, GROUP1+7
L	SETSTR~, SETSTR+6
S	SETSTR~, SETSTR+6
V	SETSTR~, SETSTR+6
>> VALMCNT	SETARR+2, TMP+1, TMP+2, SETARR1+7, TMP1+1
>> VAUTC	SETARR+14, SET+17, SET+21, CLIN1+2, CLIN1+3
>> VAUTC(	CLIN1+3
VAUTF	SET1+1, CLIN1+1~, FORM1+2, FORM1+4, FORM1+5, GROUP1+1~
VAUTF(	FORM1+4
>> VAUTG	SETARR+14, SET+17, SET+21, GROUP1+2, GROUP1+3, GROUP1+4
>> VAUTG(	GROUP1+4
>> VAUTJ(	SET+16
X	SETSTR~, SETSTR+6, SETARR+3, SETARR+5, SETARR+7, SETARR+9, SETARR+11, SETARR+13, SETARR+14, TMP+1 , SETARR1+8, SETARR1+10, TMP1+1, SET+7, SET+9, SET+12, SET+14, SET+15, SET+16, SET+19* , SET+21, CLIN1+2, CLIN1+3, CLIN1+5, FORM1+4
XX	SET+11~, SET+12*, SET+13
>> Y	SET+21

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFUTL1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: