©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
INHDIPZ3 ;JSH; 8 Apr 94 17:02;Modify FileMan generated code.
Source file <INHDIPZ3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;Set new info in place
|
|
| ENDW(%L,%P,%TERM) | ;Find end of a statement and return it
|
|
| WP | ;Word Processing
|
|
| DO(%L,%P) | ;Convert a DO statement
|
|
| LFIX | ;Reset lines
|
|
| CONDSET | ;Check for $X and $Y in COND
|
|
| W(%L,%P,%I) | ;Convert Write statements
; %L = Line of code ; %P = Starting position of ' W ' ; %I = condition present (0:default = NO, 1 = YES) |
|
| MOD(G,%WRT,%YS,%DREF,%START,%END) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences |
|---|---|
| $$ENDW | DO+5, DO+7, W+6, W+7 |
| CONDSET | DO+7, W+8 |
| DO | MOD+15 |
| LFIX | MOD+15, MOD+18, MOD+19 |
| SET | DO+8, DO+10, DO+11, W+14, W+15, W+16, W+17, WP+1, WP+2 |
| W | MOD+18, MOD+19 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MOD+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DREF | MOD~, DO+9, DO+10 |
| %END | MOD~, MOD+7*, MOD+10 |
| %I | W~, W+4*, W+6 |
| %L | DO~, DO+4, DO+5, DO+12, W~, W+5, W+6, W+7, W+18, WP+3 , ENDW~, ENDW+3, ENDW+4, ENDW+6, ENDW+7 |
| %L( | DO+4*, DO+12*, W+18*, SET+1*, SET+2*, WP+2*, WP+3* |
| %L(0 | W+5* |
| %P | DO~, DO+4, DO+5, DO+12*, W~, W+5, W+6*, W+7, W+18*, SET+1* , SET+2*, WP+3*, ENDW~, ENDW+3 |
| %START | MOD~, MOD+10 |
| %TERM | ENDW~, ENDW+6 |
| %WRT | MOD~, MOD+7*, MOD+11 |
| %YS | MOD~, MOD+7*, MOD+16, CONDSET+3 |
| C | MOD+8~, DO+3~, DO+7*, DO+8, DO+10, DO+11 |
| CL | MOD+8~, W+4~, W+9*, W+12*, W+14, W+15, W+16, W+17, SET+1*, SET+3* |
| CL1 | MOD+8~, W+16* |
| COND | MOD+8~, DO+7*, DO+10, DO+11, CONDSET+2, CONDSET+3*, W+4~*, W+6*, W+8, W+14 , W+15, W+16, W+17 |
| DE | MOD+8~, DO+5*, DO+6, DO+7 |
| F | MOD+8~, DO+9*, DO+10* |
| FP | MOD+8~, ENDW+1~, ENDW+2*, ENDW+3, ENDW+6*, ENDW+7 |
| G | MOD~, MOD+10, LFIX+1 |
| I | MOD+8~, MOD+10*, LFIX+1, LFIX+2*, DO+3~, DO+10* |
| J | MOD+8~, LFIX+1*, LFIX+2 |
| L | MOD+8~, MOD+10*, MOD+12, MOD+13, MOD+15!*, MOD+16*, MOD+17*, MOD+18!*, MOD+19!*, LFIX+1* |
| L( | LFIX+1 |
| LZ | MOD+8~, DO+3~, DO+4*, DO+12*, W+4~, W+9*, W+18*, SET+1, SET+2*, WP+2* , WP+3* |
| NL | MOD+8~, DO+8*, DO+10*, DO+11*, W+4~, W+14*, W+15*, W+16*, W+17*, SET+1 , SET+2, WP+1*, WP+2* |
| P | MOD+8~, MOD+11*, MOD+12*, MOD+13, MOD+15, MOD+16*, MOD+17*, MOD+18, MOD+19, CONDSET+1~* , CONDSET+2, CONDSET+3*, ENDW+1~, ENDW+3*, ENDW+4, ENDW+6 |
| P1 | MOD+8~, CONDSET+1~, CONDSET+2*, CONDSET+3, W+4~, W+6* |
| P2 | MOD+8~, DO+3~, DO+5*, DO+12, W+4~, W+7*, W+18, WP+3 |
| P3 | MOD+8~, DO+7* |
| PAR | MOD+8~, W+9*, W+11*, W+12, W+13 |
| PC | MOD+8~, DO+6*, DO+7, W+4~, W+9*, W+10, W+11, W+12 |
| Q | MOD+8~, MOD+9*, MOD+13, W+4~, W+9*, W+10, ENDW+1~, ENDW+2*, ENDW+4 |
| QS | MOD+8~, MOD+11*, MOD+13*, MOD+14, W+4~, W+9*, W+10*, W+11, W+12, W+13 , ENDW+1~, ENDW+2*, ENDW+4*, ENDW+5 |
| U | CONDSET+3, W+11 |
| WE | MOD+8~, W+4~, W+7*, W+9, W+10, W+11, W+12 |
| Z | MOD+8~, MOD+15*, MOD+18*, MOD+19* |