Routine: BDMCOD1

Select the objects that you wish to see in the downloaded PDF

Info
Source
Caller Graph
Entry Points
Global Variables Directly Accessed
Label References
Local Variables

Package	Total	Caller Graph
Diabetes Registry	1	BDMCOD0

Package

Total

Caller Graph

Entry Points

Name	Comments	DBIA/ICR reference
ADD7	;;
ADD6	;;
ADD5	;;
ADD4	;;
ADD3	;;
ADD2	;;
ADD1	;;
SET11	;;
EOJ	;
NUMBER	;
ADD9	;;
ADD8	;;
DEL	; SECTION FOR DELETING CODES FROM TABLE
SET12	;;
DELPROC	;CASE SPECIFIC DEL PROCESSING
SET13	;;
DEL1	;;
DEL11	;;
DEL10	;;
DEL13	;;
DEL12	;;
DEL3	;;
ADD13	;;
ADD12	;;
ADD11	;;
ADD10	;;
DEL5	;;
DEL4	;;
DEL7	;;
DEL6	;;
X2
DEL8	;;
X1
DEL2	;;
SETRANGE	;
SET5	;;
ADD	; SECTION FOR ADDING CODES TO TABLE
DEL9	;;
CASEB	;
SET1	;;
LETTER	;
SET8	;;
GETCASE	; SUBROUTINE TO DETERMINE BDMCASE # FROM INPUT CODE RANGE
CASEA	;
CASEC	;
ADDPROC	; CASE SPECIFIC ADD PROCESSING

Name	Line Occurrences (* Changed, ! Killed)
^ICD9("BA"	ADD1+1, ADD13+1, DEL2+2, DEL6+1, DEL9+2, NUMBER+1, NUMBER+2, LETTER+1

Name	Field # of Occurrence
>> BDM("CODE"	NUMBER+1, NUMBER+2
>> BDM("HI"	ADD+1, ADD1+1, SET13+1, DEL2+1, DEL2+2, DEL6+1, DEL9+2, CASEA+1, CASEA+2, CASEB+1 , CASEC+1
>> BDM("LET"	LETTER+1*
>> BDM("LOW"	ADD+1, ADD4+1, ADD12+1, ADD1+1, ADD13+1, SET13+1, GETCASE+2, CASEC+1, CASEC+2, NUMBER+1 , NUMBER+2, LETTER+1
>> BDM("NEWHI"	DEL12+2, DEL9+3, NUMBER+2, LETTER+1
>> BDM("THI"	GETCASE+1*, GETCASE+3!, CASEA+1, CASEB+1, CASEC+1, CASEC+2
>> BDM("TLOW"	GETCASE+1*, GETCASE+2, GETCASE+3!, CASEA+1, CASEA+2
BDMCASE	ADD+5!, ADDPROC+1, DELPROC+1, DEL8+2, DEL12+3, CASEA+1, CASEA+2, CASEB+1, CASEC+1, CASEC+2* , EOJ+1!
BDMDONE	ADD+2, ADD+3, ADD+4, ADD+5!, ADD10+1, ADD1+1, DEL+2, DEL+3, DEL2+3, DEL6+2 , DEL8+2, DEL12+3, DEL9+4*, EOJ+1!
BDMNEXT	EOJ+1!
BDMONE	EOJ+1!
>> BDMSUB	BDMCOD1+3
>> BDMTBLE	ADD+1, DEL+1
>> BDMTBLE(	ADD+1, ADD+3, ADD4+1, ADD4+2!, ADD8+1!, ADD1+1!, ADD13+1!, SET13+1, DEL+3, DEL2+1! , DEL2+2!, DEL6+1!, DEL8+1!, DEL12+1, DEL12+2, DEL9+1, DEL9+2, DEL9+3*, GETCASE+1
BDMVAL	ADD+3, ADD+5!, ADD4+1, ADD4+2, ADD12+1, ADD8+1, ADD1+1, ADD13+1, DEL+3, DEL2+1 , DEL2+2, DEL6+1, DEL8+1, DEL12+1, DEL12+2, DEL9+1, DEL9+2, DEL9+3, GETCASE+1, EOJ+1!