Routine: APCLCOD1

Information

APCLCOD1 ; IHS/CMI/LAB - CODE RANGES IN TABLE ;

Source file <APCLCOD1.m>

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLCOD0

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 APCLCASE # 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
>> APCL("CODE"	NUMBER+1, NUMBER+2
>> APCL("HI"	ADD+1, ADD1+1, SET13+1, DEL2+1, DEL2+2, DEL6+1, DEL9+2, CASEA+1, CASEA+2, CASEB+1 , CASEC+1
>> APCL("LET"	LETTER+1*
>> APCL("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
>> APCL("NEWHI"	DEL12+2, DEL9+3, NUMBER+2, LETTER+1
>> APCL("THI"	GETCASE+1*, GETCASE+3!, CASEA+1, CASEB+1, CASEC+1, CASEC+2
>> APCL("TLOW"	GETCASE+1*, GETCASE+2, GETCASE+3!, CASEA+1, CASEA+2
APCLCASE	ADD+5!, ADDPROC+1, DELPROC+1, DEL8+2, DEL12+3, CASEA+1, CASEA+2, CASEB+1, CASEC+1, CASEC+2* , EOJ+1!
APCLDONE	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!
APCLNEXT	EOJ+1!
APCLONE	EOJ+1!
>> APCLSUB	APCLCOD1+3
>> APCLTBLE	ADD+1, DEL+1
>> APCLTBLE(	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
APCLVAL	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!