ICDTBL0B ;ALB/EG/MRY - GROUPER UTILITY FUNCTIONS;11/5/07 11:07am
Source file <ICDTBL0B.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 | ;
|
