Routine: APCDFOA5

Information

APCDFOA5 ; IHS/CMI/LAB - MAINTAIN CODE RANGES IN TABLE ; 24 Jul 2012 5:04 PM

Source file <APCDFOA5.m>

Package	Total	Caller Graph
Patient Care Component	2	APCDFOA3 APCDFOA4

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 APCDCASE # FROM INPUT CODE RANGE
CASEA	;
CASEC	;
ADDPROC	; CASE SPECIFIC ADD PROCESSING

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

Name	Field # of Occurrence
>> APCD("CODE"	NUMBER+1, NUMBER+2
>> APCD("HI"	ADD+1, ADD1+1, SET13+1, DEL2+1, DEL2+2, DEL6+1, DEL9+2, CASEA+1, CASEA+2, CASEB+1 , CASEC+1
>> APCD("LET"	LETTER+1*
>> APCD("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
>> APCD("NEWHI"	DEL12+2, DEL9+3, NUMBER+2, LETTER+1
>> APCD("THI"	GETCASE+1*, GETCASE+3!, CASEA+1, CASEB+1, CASEC+1, CASEC+2
>> APCD("TLOW"	GETCASE+1*, GETCASE+2, GETCASE+3!, CASEA+1, CASEA+2
APCDCASE	ADD+5!, ADDPROC+1, DELPROC+1, DEL8+2, DEL12+3, CASEA+1, CASEA+2, CASEB+1, CASEC+1, CASEC+2* , EOJ+1!
APCDDONE	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!
APCDNEXT	EOJ+1!
APCDONE	EOJ+1!
>> APCDSUB	APCDFOA5+3
>> APCDSYS	ADD+1, ADD+3, SET13+1, DEL+3, DEL2+2, DEL6+1, DEL12+2, DEL9+2, DEL9+3
>> APCDTABL	ADD+1, DEL+1
>> APCDTABL(	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
APCDVAL	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!
U	ADD+1, ADD+3, SET13+1, DEL+3, DEL2+2, DEL6+1, DEL12+2, DEL9+2, DEL9+3, GETCASE+1