Routine: ICDTBL0

Information

ICDTBL0 ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS ; 10/30/07 3:36pm

Source file <ICDTBL0.m>

Name	Comments	DBIA/ICR reference
DRG1	;line tag for 001,002
DRG2	;
DRG3	;S ICDRG=3 Q
DRG4
DRG5	;line tag for 005,006
DRG6
DRG7
DRG8
DRG9
DRG10
DRG11	;line tag for 011,012,013
DRG12	;
DRG13	;
DRG20	;line tag for 020,021,022
DRG21	;
DRG22	;
DRG23	;line tag for 023,024
DRG24	;
DRG25	;line tag for 025,026,027
DRG26	;
DRG27	;
DRG28	;line tag for 028,029,030
DRG29	;
DRG30	;S ICDRG=$S((ICDMAJ["B")&ICDMCC=2:28,(ICDMAJ["B")&ICDMCC=1:29,ICDMAJ["B":30,1:ICDRG) D Q
DRG31	;line tag for 031,032,033
DRG32	;
DRG33	;
DRG34	;line tag for 034,035,036
DRG35	;
DRG36	;
DRG37	;line tag for 037,038,039
DRG38	;
DRG39	;
DRG40	;line tag for 040,041,042
DRG41	;
DRG42	;
DRG52	;line tag for 052,053
DRG53	;
DRG54	;line tag for 054,055
DRG55	;
DRG56	;line taf for 056,057
DRG57	;
DRG58	;line tag for 058,059,060
DRG59	;
DRG60	;
DRG61	;line tag for 061,062,063
DRG62	;
DRG63	;
DRG64	;line tag for 064,065,066
DRG65	;
DRG66	;
DRG67	;line tag for 067,068
DRG68	;
DRG69
DRG70	;line tag for 070,071,072
DRG71	;
DRG72	;
DRG73	;line tag for 073,074
DRG74	;
DRG75	;line tag for 075,076
DRG76	;
DRG77	;line tag for 077,078,079
DRG78	;
DRG79	;
DRG80	;line tag for 080,081
DRG81	;
DRG82	;line tag for 082,083,084
DRG83	;
DRG84	;
DRG85	;line tag for 085,086,087
DRG86	;
DRG87	;
DRG88	;line tag for 088,089,090
DRG89	;
DRG90	;
DRG91	;line tag for 091,092,093
DRG92	;
DRG93	;
DRG94	;line tag for 094,095,096
DRG95	;
DRG96	;
DRG97	;line tag for 097,098,099
DRG98	;
DRG99	;

Name	Field # of Occurrence
>> ICDMAJ	DRG27+1
>> ICDMCC	DRG2+1, DRG4+1, DRG6, DRG13+1, DRG22+1, DRG24+2, DRG24+3, DRG27+3, DRG30+1, DRG33+1 , DRG36+1, DRG39+1, DRG39+2, DRG39+3, DRG42+1, DRG53+1, DRG55+1, DRG57+1, DRG60+1, DRG63+1 , DRG66+1, DRG68+1, DRG72+1, DRG74+1, DRG76+1, DRG79+1, DRG81+1, DRG84+1, DRG87+1, DRG90+1 , DRG93+1, DRG96+1, DRG99+1
>> ICDOP(" 00.10	" , DRG24+1
>> ICDOP(" 00.61	" , DRG39+2, DRG39+3, DRG39+4
>> ICDOP(" 00.62	" , DRG27+4
>> ICDOP(" 00.63	" , DRG39+2, DRG39+3, DRG39+4
>> ICDOP(" 00.65	" , DRG27+4
>> ICDOP(" 02.93	" , DRG24+3
>> ICDOP(" 03.93	" , DRG30+2, DRG30+3, DRG30+4, DRG30+5
>> ICDOP(" 04.92	" , DRG42+2, DRG42+3, DRG42+4, DRG42+5
>> ICDOP(" 46.97	" , DRG6+1
>> ICDOP(" 86.94	" , DRG30+2
>> ICDOP(" 86.95	" , DRG24+3, DRG30+3
>> ICDOP(" 86.97	" , DRG30+4
>> ICDOP(" 86.98	" , DRG30+5
>> ICDOR	DRG4, DRG22+1, DRG24+2, DRG33+1
>> ICDPD	DRG22+1, DRG24+2
>> ICDRG	DRG2+1, DRG4, DRG4+1, DRG6, DRG6+1, DRG7, DRG8, DRG9, DRG10, DRG13+1 , DRG22+1, DRG24+1, DRG24+2, DRG24+3, DRG27+2, DRG27+3, DRG27+4, DRG30+1, DRG30+2, DRG30+3* , DRG30+4, DRG30+5, DRG33+1, DRG36+1, DRG39+1, DRG39+2, DRG39+3, DRG39+4, DRG42+1, DRG42+2 , DRG42+3, DRG42+4, DRG42+5, DRG53+1, DRG55+1, DRG57+1, DRG60+1, DRG63+1, DRG66+1, DRG68+1 , DRG69, DRG72+1, DRG74+1, DRG76+1, DRG79+1, DRG81+1, DRG84+1, DRG87+1, DRG90+1, DRG93+1 , DRG96+1, DRG99+1
>> ICOP(" 86.94"	, DRG42+2
>> ICOP(" 86.95"	, DRG42+3
>> ICOP(" 86.97"	, DRG42+4
>> ICOP(" 86.98"	, DRG42+5