©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
DIE17 ;SFISC/GFT-COMPILED TMPLT UTIL ;9:08 AM 22 Oct 1999 [ 04/02/2003 8:25 AM ]
Source file <DIE17.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DE | ||
| DA | ||
| DOWN | ||
| FILE | ;
|
|
| DR | ;
|
|
| IENS(DA) | ;Return IENS from DA array
|
|
| 0 | ;
|
|
| JMP | ||
| 1 | ;
|
|
| PC | ||
| UNIQUE(X,DA,DIUIR,DISETX,DIMAXL) | ;
|
|
| E1 | ||
| TRIG | ;Save info for record level indexes on a triggered field.
|
|
| OUT | ;
|
|
| IX | ||
| B | ||
| E | ||
| F | ;
|
|
| FIREREC | ;Fire the record level xrefs
|
|
| K | ||
| M | ;
|
|
| N | ;
|
|
| UNIQFERR | ;The field is part of a key and is not unique
|
|
| R | ||
| U | ||
| Y | ||
| X | ||
| Z | ;
|
|
| OJ | ||
| UP | ||
| ABORT | ||
| D1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | DR+2 |
| ^DIE - [#.402] | OUT+2, OUT+6, OUT+7 |
| ^DIE("AF" | OJ, OJ+1, TRIG+10 |
| ^DISV( | N+1* |
| Name | Line Occurrences |
|---|---|
| $$IENS | UNIQUE+4, UNIQUE+11 |
| @( | DIE17+5, JMP, IX, R, B, D1, M+6, FIREREC+9, UNIQUE+15, UNIQFERR+7 |
| ABORT | OUT+1 |
| D1 | M+5 |
| DA | DA |
| DE | Y |
| DIE17 | DIE17+8 |
| DOWN | N+1, M+1 |
| DR | OUT+3 |
| E | ABORT |
| E1 | Y+2 |
| FILE | OUT+1, JMP, F+1, 1+1, DOWN, 0+1 |
| FIREREC | E |
| IX | E1 |
| JMP | OUT+2, OJ+2 |
| K | E1 |
| OJ | OUT+2 |
| OUT | DIE17+4, DIE17+9 |
| R | OUT+1 |
| U | UP |
| UP | R, M+6 |
| X | DIE17+5, DIE17+6, DIE17+7, OUT+7, OJ+1 |
| Y | DE, PC |
| Z | X, UNIQFERR+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | OUT+2, OJ, Y+1*, Y+2 |
| ^("AB" | OUT+2 |
| ^("F" | TRIG+20* |
| ^("N" | UNIQFERR+4* |
| ^(0 | M+1*, DR+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DE*, UP+1*, DA*, M+2*, DOWN+1* |
| >> %X | DR+1* |
| >> %Y | DR+1* |
| A0 | OUT+7! |
| A1 | OUT+7! |
| >> D | DIE17+6*, DIE17+7*, OUT+5*, JMP*, N+1*, M+4*, M+5* |
| >> D( | DR+2* |
| DA | FILE+1, UP+1*, N+1*, D1, M+5*, DOWN+2, DR+1~, FIREREC+2~, FIREREC+7, FIREREC+14 , FIREREC+15, UNIQUE~, UNIQUE+3, UNIQUE+4, UNIQUE+10*, UNIQUE+11, UNIQUE+19!*, IENS~, IENS+2 |
| DA( | DA*!, DOWN+1*, UNIQUE+10*, IENS+2 |
| DA(" " | IENS+2 |
| DA(1 | UP+1!, DOWN+2* |
| DB | E+1! |
| DB( | X, M+1, UNIQFERR+3, UNIQFERR+5 |
| DC | F+1*, N+1, M+1, DOWN+2, E+1! |
| >> DD | M+1*, M+4 |
| DDBK | OUT+3*, OUT+5, OUT+6, OUT+7! |
| >> DDS | UNIQFERR+1 |
| DDW | DR+2*, DR+3! |
| DDW1 | DR+2*, DR+3! |
| DE | DE*, E1+1!, E+1! |
| DE( | IX, K! |
| DE(" " | E1 |
| DG | FILE+1*, Y+2, E1+1! |
| DG( | Y, DE, PC, E1 |
| DGO | D1, E+1! |
| DH | E+1! |
| >> DI | OUT+6, DR+2 |
| DIC | OUT+2*, OUT+5*, OUT+7!, OJ+1!*, N+1, M+1, DOWN+2* |
| DIC("PTRIX" | M+3!*, M+4! |
| DIC("S" | OUT+3*, OUT+4*, OJ+1* |
| DIC("W" | M+2* |
| DIC(0 | DIE17+9*, M+1* |
| DICR | M+4! |
| >> DICRIENS | TRIG+16, TRIG+17, TRIG+20 |
| DICRREC | E+1! |
| DIDASV | UNIQUE+1~, UNIQUE+3*, UNIQUE+19 |
| DIE | OUT+5, OJ+1, FILE+1, DOWN+2, FIREREC+2~, FIREREC+6*, TRIG+2~, TRIG+9*, TRIG+16, TRIG+17 |
| DIE("NO^" | DIE17+6, DIE17+7, OUT+3 |
| DIE("PTRIX" | M+3 |
| DIE17RXR | TRIG+2~, TRIG+17 |
| >> DIEC( | UP |
| DIEFIRE | FIREREC+20! |
| DIEFXREF | UNIQFERR+4! |
| DIEL | UP+1*, D1, DOWN+2*, E+1! |
| DIEXEC | FIREREC+9~* |
| DIEZ | OUT+2, OUT+6, OUT+7, OJ, OJ+1, E+1!, TRIG+10 |
| DIEZAB | OUT+2*, OUT+7, JMP! |
| >> DIEZAR( | FIREREC+9 |
| DIEZRXR | FIREREC+1, FIREREC+20! |
| DIEZRXR( | FIREREC+4, FIREREC+5, FIREREC+6, FIREREC+8, TRIG+14*, TRIG+16* |
| >> DIEZTMP | E, FIREREC+1, FIREREC+12, FIREREC+13, FIREREC+15, FIREREC+18, FIREREC+20, UNIQFERR+4, TRIG+6, TRIG+17 , TRIG+20 |
| DIEZXR | FIREREC+2~, FIREREC+8*, FIREREC+9 |
| DIFLD | E1+1!, UNIQFERR+4 |
| >> DIG | TRIG+6, TRIG+10, TRIG+20 |
| >> DIH | TRIG+6, TRIG+9, TRIG+10, TRIG+14, TRIG+16, TRIG+17, TRIG+20 |
| DIIENS | DA+1*, N+1*, M+5*, DOWN+2*, FIREREC+2~, FIREREC+5*, FIREREC+6, FIREREC+7, FIREREC+13*, FIREREC+14 , UNIQUE+1~, UNIQUE+9*, UNIQUE+10, UNIQUE+11*, UNIQFERR+4 |
| DIIENSC | UNIQUE+1~, UNIQUE+4*, UNIQUE+11 |
| DIKEY | FIREREC+2~, FIREREC+15, FIREREC+18 |
| DIL | E+1! |
| DIMAXL | UNIQUE~, UNIQUE+12 |
| DIMAXL( | UNIQUE+16 |
| DINDX | UNIQUE+1~, UNIQUE+6*, UNIQUE+7*, UNIQUE+9 |
| DINS | UNIQUE+1~, UNIQUE+6*, UNIQUE+7 |
| >> DIOPER | FIREREC+15 |
| DIP | E+1! |
| DISETX | UNIQUE~, UNIQUE+15 |
| >> DIU | TRIG+3 |
| DIUIR | UNIQUE~, UNIQUE+6, UNIQUE+7, UNIQUE+9 |
| DIUNIQ | UNIQUE+1~, UNIQUE+6*, UNIQUE+7, UNIQUE+12*, UNIQUE+17*, UNIQUE+20 |
| DIXSV | UNIQUE+1~, UNIQUE+3*, UNIQUE+19 |
| DIXSV( | UNIQUE+16 |
| >> DL | Z+1*, OUT+1, OUT+2, UP, U*, M+1, DOWN*, DOWN+1, DR+1 |
| >> DLAYGO | M+4* |
| DLB | E+1! |
| >> DM | OUT+1*, ABORT |
| DNM | DIE17+5, OUT+2*, OUT+7*, JMP*, OJ*, OJ+1*, R, UP*, B, M+6 , DOWN, E+1!, UNIQFERR+7 |
| DNM( | OUT+2, UP!, M+1, DOWN* |
| >> DO | M+1* |
| >> DO(2 | M+1*, M+2 |
| DOW | M+1, E+1! |
| DP | OUT+2, OUT+5, OUT+6, OJ+1, M+4, E+1!, DR+1, FIREREC+2~, FIREREC+4*, FIREREC+5 , FIREREC+6, FIREREC+8, FIREREC+9, FIREREC+12*, FIREREC+13, FIREREC+15, UNIQFERR+4 |
| DQ | JMP*, FILE+1!*, Y*, Y+2, DE, PC, IX, K, E1*, E1+1* , R, UP*, X, B, M+6, DOWN, UNIQFERR+3, UNIQFERR+5 |
| DR | OUT+6!*, DR+1*, DR+2 |
| DR( | DR+1 |
| DR(1 | OUT+6* |
| DTOUT | DIE17+4, OUT+7!, UP! |
| DU | FILE+1*, Y, Y+1*, Y+2*, E+1! |
| DUZ | N+1 |
| DV | Y+1, Y+2*, DE*, PC*, E+1! |
| DW | DIE17+5, OUT+1, Y*, DE*, PC, E+1! |
| F | DR+1~, DR+2* |
| I | UNIQUE+1~, UNIQUE+10*, IENS+1~, IENS+2* |
| IENS | IENS+1~, IENS+2*, IENS+3 |
| >> L | UNIQUE+9*, UNIQUE+10 |
| N | TRIG+11~, TRIG+15* |
| O | UNIQUE+1~, UNIQUE+16*, UNIQUE+17 |
| OLD | TRIG+2~, TRIG+3*, TRIG+20 |
| PC | TRIG+11~, TRIG+14* |
| RL | TRIG+11~, TRIG+12*, TRIG+13, TRIG+14, TRIG+15* |
| >> RLIST | TRIG+6, TRIG+7, TRIG+12 |
| >> RLIST( | TRIG+15 |
| U | DIE17+6, DIE17+9, OUT+2, JMP, PC, R, B, N+1, M+5, M+6 , DOWN+2, DR+2, TRIG+14 |
| X | DIE17+4*, DIE17+5, DIE17+6, DIE17+7, DIE17+8*, DIE17+9*, Z+1*, OUT+1, OUT+2, OJ , F+1*, DE*, X, M+1, M+4*, M+5*, DR+2*, UNIQUE~, UNIQUE+3, UNIQUE+19!* , UNIQFERR+6* |
| X( | UNIQUE+16 |
| XR | TRIG+2~, TRIG+11~, TRIG+14* |
| Y | OUT+5, OUT+7, JMP*, OJ+1, M+5, E+1! |
| Y( | ABORT* |
| >> ZTQUEUED | X, UNIQFERR+1 |