©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
INHSZ0 ;JSH; 29 Jan 92 09:47;Interface Script compiler (cont'd)
Source file <INHSZ0.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 1 | L^INHSZ1 |
| Uncategorized | 1 | ($$LB,$$LBTB)^UTIL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SYNTAX(%L,%P) | ;Check syntax of a line using pattern match
|
|
| GQ | ||
| QCHK | ;Add code to check for errors and quit
|
|
| L | ||
| WARN(%M,%L) | ;Report a warning
|
|
| EDISP | ||
| ERROR(%M,%L) | ;Report an error
|
|
| G1 | ||
| GETLINE | ;Returns next line of code in array LINE
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHS - [#4006] | GETLINE+2, GETLINE+3, G1 |
| Name | Line Occurrences |
|---|---|
| EDISP | WARN+3 |
| ERROR | SYNTAX+4 |
| G1 | G1 |
| GQ | G1 |
| L | QCHK+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | G1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %L | SYNTAX~, SYNTAX+3, ERROR~, ERROR+4, WARN~, WARN+3 |
| %M | ERROR~, ERROR+4, WARN~, WARN+2 |
| %P | SYNTAX~, SYNTAX+2, SYNTAX+3 |
| >> A | QCHK+1* |
| >> CALL | GETLINE+2, GETLINE+3, G1 |
| >> CALL( | GETLINE+2*, GETLINE+3, G1* |
| >> ER | ERROR+3* |
| I | GETLINE+1~, GETLINE+4*, G1*, GQ, ERROR+2~, EDISP* |
| LINE | GETLINE+1!, GETLINE+3*, GQ+1*, EDISP |
| LINE( | G1*, GQ*, EDISP |
| >> WARN | WARN+3* |