©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |