INHSZ5 ;JSH; 16 Mar 92 08:35;Script compiler LOOKUP section handler ; 11 Nov 91 6:42 AM
Source file <INHSZ5.m>
Package | Total | Call Graph |
---|---|---|
IHS Generic Interface System | 4 | ($$SYNTAX,ERROR,QCHK,WARN)^INHSZ0 ($$CMD,DOWN,L,UP)^INHSZ1 (ENDIF,ERROR,IF)^INHSZ21 ($$VEXP,LAYGO)^INHSZ51 |
Uncategorized | 1 | ($$CASECONV,$$LBTB,$$REPLACE)^UTIL |
VA Fileman | 1 | ^DICOMP |
Package | Total | Caller Graph |
---|---|---|
IHS Generic Interface System | 3 | INHSZ1 INHSZ51 INHSZ7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
IDENT | ;
|
|
LOOK | ;command used in REPEAT block to perform lookup
|
|
ENDIF | ||
L | ||
ERROR | ||
DOIT | ;Perform the lookup
|
|
LOOKUP | ;Handle lines in LOOKUP section
|
|
PARAM | ;Set Lookup parameter
|
|
IN | ;Enter code
|
|
IF | ||
MATCH | ;Match other fields
|
|
OUT | ;Exit code
|
Name | Field # of Occurrence |
---|---|
^DICOMP | MATCH+12 |
$$SYNTAX^INHSZ0 | IDENT+1, MATCH+3 |
ERROR^INHSZ0 | DOIT+2, LOOKUP+3, IDENT+4, IDENT+5, MATCH+7, MATCH+8, MATCH+14, LOOK+1, PARAM+1 |
QCHK^INHSZ0 | IN+1, DOIT+27 |
WARN^INHSZ0 | MATCH+6 |
$$CMD^INHSZ1 | LOOKUP+3 |
DOWN^INHSZ1 | DOIT+3 |
L^INHSZ1 | L |
UP^INHSZ1 | DOIT+25 |
ENDIF^INHSZ21 | ENDIF |
ERROR^INHSZ21 | ERROR |
IF^INHSZ21 | IF |
$$VEXP^INHSZ51 | MATCH+17 |
LAYGO^INHSZ51 | DOIT+17, DOIT+22 |
$$CASECONV^UTIL | LOOKUP+4, MATCH+5, PARAM+1 |
$$LBTB^UTIL | LOOKUP+3, IDENT+3, MATCH+2, MATCH+5, PARAM+1 |
$$REPLACE^UTIL | DOIT+6, MATCH+15, MATCH+16, MATCH+17, MATCH+18 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | DOIT+12, DOIT+14, DOIT+19, DOIT+24 |
^DIC - [#1] | DOIT+12, DOIT+14, DOIT+18, DOIT+19, DOIT+23, DOIT+24 |
Name | Line Occurrences |
---|---|
@( | LOOKUP+4, LOOKUP+5 |
DOIT | OUT+2, LOOK+2 |
L | DOIT+3, DOIT+7, DOIT+8, DOIT+9, DOIT+11, DOIT+12, DOIT+14, DOIT+16, DOIT+18, DOIT+19 , DOIT+21, DOIT+23, DOIT+24, DOIT+26, IDENT+6, MATCH+15, MATCH+16, MATCH+17, MATCH+18 |
MATCH | DOIT+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%1 | MATCH+1~, MATCH+2*, MATCH+3, MATCH+4*, MATCH+5 |
>> A | DOIT+3*, DOIT+7*, DOIT+8*, DOIT+9*, DOIT+11*, DOIT+12*, DOIT+14*, DOIT+16*, DOIT+18*, DOIT+19* , DOIT+21*, DOIT+23*, DOIT+24*, DOIT+26*, IDENT+6*, MATCH+15*, MATCH+16*, MATCH+17*, MATCH+18* |
A1 | MATCH+1~, MATCH+17*, MATCH+18 |
COMM | LOOKUP+2~, LOOKUP+3*, LOOKUP+4, IDENT+1 |
>> DA | MATCH+10* |
DE | MATCH+12~ |
>> DICOMP | MATCH+10* |
DICOMPX | DOIT+10~, MATCH+12~ |
DICOMPX( | IDENT+4, MATCH+6* |
DICOMPX("IDENT.001" | DOIT+10* |
DL | MATCH+12~ |
>> DQI | MATCH+10* |
DS | MATCH+12~ |
F | DOIT+6~*, DOIT+11, MATCH+1~, MATCH+5*, MATCH+9*, MATCH+10, MATCH+12~, MATCH+14, MATCH+18 |
>> FILE | DOIT+6, DOIT+12, DOIT+14, DOIT+18, DOIT+19, DOIT+23, DOIT+24, DOIT+26, MATCH+10 |
>> FILE1 | DOIT+12, DOIT+14, DOIT+19, DOIT+24 |
>> I | MATCH+16* |
>> I(0 | MATCH+10* |
>> IDENT | DOIT+2, IDENT+7* |
>> INDL( | DOIT+16*, DOIT+21* |
>> INRL | DOIT+16, DOIT+21 |
>> J(0 | MATCH+10* |
LINE | DOIT+10~*, LOOKUP+3, IDENT+1, IDENT+3, MATCH+2, PARAM+1 |
>> LOOKUP | OUT+1, DOIT+25* |
>> LPARAM | DOIT+1*, DOIT+5, DOIT+13, DOIT+15, DOIT+20, PARAM+1* |
>> LVARS( | IDENT+5, MATCH+7 |
M | MATCH+1~, MATCH+5*, MATCH+8, MATCH+12~, MATCH+18 |
>> MCNT | IDENT+7*, MATCH+18* |
>> MULT | DOIT+9, DOIT+12, DOIT+14, DOIT+18, DOIT+19, DOIT+23, DOIT+24, DOIT+27 |
>> MULT0 | DOIT+9 |
>> OTHER | DOIT+27 |
>> Q | DOIT+8* |
>> REPEAT | OUT+1, DOIT+27, IDENT+5, LOOK+1 |
>> REPEAT1 | OUT+1 |
>> SLVL | MATCH+7 |
U | DOIT+12, DOIT+14, DOIT+18, DOIT+19, DOIT+23, DOIT+24, MATCH+10 |
V | DOIT+10~*, IDENT+2~, IDENT+3*, IDENT+4, IDENT+5, IDENT+6, MATCH+1~, MATCH+5*, MATCH+6, MATCH+7 , MATCH+10, MATCH+12~, MATCH+15, MATCH+16, MATCH+17, MATCH+18 |
V1 | MATCH+1~, MATCH+17* |
>> X | LOOKUP+4*, LOOKUP+5, MATCH+10*, MATCH+13*, MATCH+14, MATCH+15 |
>> X( | MATCH+16 |
>> Y | MATCH+13 |
Name | Field # of Occurrence |
---|---|
$T(@X | LOOKUP+4 |