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 |