XTLKTICD ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC- DRIVER ROUTINE FOR ICD LOOKUP UTILITY ;04/06/95 14:19
Source file <XTLKTICD.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| A | ||
| CODE | ;;;S DIC=$S($E(XTLKTTYP)="D":80,1:80.1),DIC(0)="EQMZ" D ^DIC W ! Q | |
| NARR | ;;;W ! G ICDDX^XTLKKWLD:$E(XTLKTTYP)="D",ICDOP^XTLKKWLD | |
| LOOKUP | ; | |
| COMMON | ||
| KL | 
| Name | Line Occurrences | 
|---|---|
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: READ | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Name | Line Occurrences | 
|---|---|
| KL | A+1, A+3 | 
| LOOKUP | COMMON | 
| NARR | LOOKUP+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DIC | KL!, LOOKUP+2! | 
| DIC("S" | LOOKUP+2*, LOOKUP+3*, LOOKUP+4* | 
| DTIME | A+2, COMMON | 
| Q | COMMON*, COMMON+2! | 
| >> X | COMMON*, LOOKUP+5 | 
| XTLKPF | KL! | 
| XTLKTTYP | COMMON+2!, LOOKUP+2, LOOKUP+3, LOOKUP+4 | 
| XTLKUT | KL! | 
| XTLKWD2 | KL! | 
| XTLKX | KL!, A+2* | 
| XTLKY | KL!, A+1, A+2 |