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 |