©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
INHSGZ22 ;JSH; 16 Nov 95 17:05;Script generator - audit code
Source file <INHSGZ22.m>
| Package | Total | Call Graph |
|---|---|---|
| Uncategorized | 2 | $$DT^UTDT $$REPLACE^UTIL |
| VA Fileman | 1 | ^DICOMP |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 2 | INHSGZ2 INHSGZ21 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWROU | ;Make new routine
|
|
| FIELD(%F) | ;Process a field
|
|
| SEGINIT | ;Start a new segment
|
|
| SEGEND | ;End a segment
|
|
| L(%X) | ;Add line to routine
|
|
| INIT | ;Start to build audit routine
|
|
| FILE | ;File at end
|
|
| VEXP(V) | ;Expand variable
|
|
| K | ;Kill vars
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | SEGINIT+5, SEGINIT+8, FIELD+6 |
| ^DD("DD" | NEWROU+1 |
| ^DD("OS" - [#.7] | FILE+4 |
| ^DD("ROU" | INIT+1 |
| ^INTHL7FT - [#4012.1] | FIELD+11 |
| ^UTILITY("INAUD" | K+1!, NEWROU+1!, NEWROU+2*, NEWROU+3*, NEWROU+4*, L+2*, L+3*, FILE+1, FILE+2, FILE+3 |
| ^UTILITY($J | FILE+3!*, FILE+4 |
| Name | Line Occurrences |
|---|---|
| $$VEXP | FIELD+10 |
| K | INIT+1, FILE+1, FILE+5 |
| L | SEGINIT+1, SEGINIT+2, SEGINIT+4, SEGINIT+5, SEGINIT+7, SEGINIT+8, SEGEND+1, FIELD+5, FIELD+7, FIELD+9 , FIELD+10, FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+15 |
| NEWROU | INIT+2, L+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(2.6 | NEWROU+4* |
| ^(3 | NEWROU+5* |
| ^(4 | NEWROU+5* |
| ^(5 | NEWROU+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %F | FIELD~, FIELD+3 |
| %X | L~, L+1, L+3 |
| A | FIELD+2~, FIELD+7*, FIELD+8* |
| ADL | K+1! |
| AMULT | K+1! |
| ANOBRK | L+3! |
| ARDC | INIT+1*, K+1! |
| ARDL | K+1! |
| >> ARLINE | NEWROU+1*, NEWROU+6*, L+2, L+3* |
| ARMAX | INIT+1*, K+1!, L+1 |
| ARNAME | INIT+1*, K+1!, NEWROU+2, L+2 |
| ARNOBRK | K+1!, L+1 |
| ARNUM | INIT+1*, K+1!, NEWROU+1*, NEWROU+2, NEWROU+3, NEWROU+4, L+2, L+3, SEGINIT+1 |
| ARSEG | K+1! |
| ARSEG( | SEGINIT+1* |
| >> ARSIZE | NEWROU+6*, L+1, L+3* |
| B | FIELD+2~, FIELD+8* |
| C | FIELD+2~, FIELD+6*, FIELD+7 |
| DA | FIELD+2~, FIELD+3* |
| DICMX | FIELD+2~ |
| DICOMP | FIELD+2~ |
| DICOMPX | FIELD+2~, FIELD+3*, FIELD+6 |
| >> DL | FIELD+3 |
| DQI | FIELD+2~, FIELD+3* |
| >> DTY | FIELD+11 |
| >> DTY(0 | FIELD+11, FIELD+12, FIELD+13 |
| >> FILE( | SEGINIT+5, SEGINIT+8 |
| >> FLVL | SEGINIT+5, SEGINIT+8 |
| I | FIELD+2~, FIELD+5*, FIELD+6*, FIELD+15, VEXP+1~, VEXP+3* |
| I(0 | FIELD+3* |
| >> INF | FIELD+6 |
| INI | FILE+2~*, FILE+3 |
| J | FIELD+2~ |
| J(0 | FIELD+3* |
| >> MAP | FIELD+12 |
| >> MESS(0 | NEWROU+2 |
| N | FIELD+2~, FIELD+6*, FIELD+15 |
| >> REPEAT | SEGINIT+3, SEGINIT+6 |
| >> SCR | INIT+1 |
| >> SEG(0 | SEGINIT+1, SEGINIT+4, SEGINIT+7 |
| >> SLVL | FIELD+7, FIELD+8, VEXP+3 |
| >> SVAR | FIELD+10 |
| U | NEWROU+2, SEGINIT+1, SEGINIT+4, SEGINIT+7, FIELD+6, FIELD+11, FIELD+12, FIELD+13 |
| V | VEXP~, VEXP+2 |
| X | FILE+2~, FILE+4*, FIELD+2~, FIELD+3*, FIELD+4*, FIELD+5, FIELD+7*, FIELD+9, VEXP+1~, VEXP+2* , VEXP+3*, VEXP+4 |
| X( | FIELD+5 |
| >> Y | NEWROU+1*, NEWROU+2, FIELD+4 |
| Z | FIELD+2~, FIELD+6* |