©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
DIE ;SFISC/GFT,XAK-PROC.DR-STR ;28MAR2006
Source file <DIE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIE1N | ||
| DIWE | ||
| DE | ||
| DC | ||
| GO | ||
| MUL | ||
| HELP(DIEHF,DIEHIEN,DIEHFLD,DIEHFLG,DIEHOUT) | ;
|
|
| NX | ||
| TEM | ||
| JMP | ;from ^DIE0
|
|
| PB | ||
| SPC | ||
| KEYVAL(DIVKFLAG,DIVKFDA,DIVKOUT) | ;
|
|
| B | ||
| E | ||
| D | ||
| H | ||
| K | ||
| J | ||
| M | ||
| Q | ||
| S | ||
| UPDATE(DIFLAGS,DIFDA,DIEN,DIMSGA) | ;SEA/TOAD
; ENTRY POINT--update database ; procedure, all passed by value |
|
| Y | ||
| VAL(DIEVF,DIEVIEN,DIEVFLD,DIEVFLG,DIEVAL,DIEVANS,DIEVFAR,DIOUTAR) | ;
|
|
| EQ | ||
| FILE(DIEFFLAG,DIEFAR,DIEFOUT) | ;
|
|
| CHK(DIEVF,DIEVFLD,DIEVFLG,DIEVAL,DIEVANS,DIOUTAR) | ;
|
|
| VALS(DIVSFLAG,DIVSEFDA,DIVSIFDA,DIVSMSG) | ;
|
|
| WP(DIEFF,DIEFIEN,DIEFFLD,DIEFWPFL,DIEFTSRC,DIEFOUT) | ;
|
|
| INI | ||
| MR | ||
| D1 | ||
| MORE | ;from ^DIE1
|
| Name | Field # of Occurrence |
|---|---|
| %XY^%RCR | TEM+3 |
| $$EZBLD^DIALOG | MUL |
| ADDX^DICA | UPDATE+3 |
| O^DIE0 | PB+1 |
| QY^DIE1 | DIWE |
| DR^DIE17 | GO+7 |
| DQ^DIED | D |
| FILEX^DIEF | FILE+1 |
| WPX^DIEFW | WP+1 |
| GETX^DIEH | HELP+1 |
| CHKX^DIEV | CHK+1 |
| VALX^DIEV | VAL+1 |
| KEYVALX^DIEVK | KEYVAL+1 |
| VALSX^DIEVS | VALS+1 |
| $$GETTMP^DIKC1 | GO+5 |
| $$IENS^DIKCU | GO+6 |
| $$FNO^DILIBF | DIE+4 |
| $$ROUEXIST^DILIBF | TEM+2 |
| DIEN^DIWE | DIWE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | DIE+4, MR, J+1, SPC+2, K, NX, Y+3, Y+5, MORE+1, DC , MUL+5 |
| ^DD("IX" - [#.11] | Y+2 |
| ^DIC - [#1] | DIE+3 |
| ^DIE - [#.402] | TEM+1, TEM+2, TEM+4 |
| ^DIE("B" | TEM+1 |
| Name | Line Occurrences |
|---|---|
| @( | TEM+2 |
| B | Y+6 |
| D | EQ, PB, H, MUL |
| D1 | M+1, D1 |
| DC | M |
| DE | M+1 |
| DIE | TEM+4 |
| DIE1N | PB+1, MUL |
| E | MUL+1 |
| EQ | Y+6, B |
| H | S, MUL+1 |
| INI | GO+7, MORE+1, JMP+1 |
| J | JMP+1 |
| K | MR+1, J+1 |
| M | Y+6 |
| MORE | DIWE |
| MR | MR, J+1, NX, EQ, MORE+1, PB, PB+1 |
| NX | EQ, MORE+1 |
| PB | MR+1 |
| Q | TEM+1 |
| S | MR, K, MORE+1 |
| TEM | PB+1 |
| Y | SPC+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SPC+2, S+1, Y+3, Y+6, M+1, M+2, DE, DC, MUL+5 |
| ^("DR" | TEM+4 |
| ^("ROU" | TEM+2 |
| ^("W" | TEM+3 |
| ^(0 | DIE+4, J+1, M+1, M+2*, M+3, DE, TEM+1, TEM+2* |
| ^(2 | Y+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GO+1~, GO+2*, SPC*, MORE+1*, DC*, MUL+5, DIWE |
| >> %X | TEM+3* |
| >> %Y | TEM+3* |
| >> D | Y+6*, Y+7, Y+8, M+1*, M+2*, M+3*, DE, D1* |
| >> D0 | GO+7*, GO+8 |
| >> DA | DIE+4, GO, GO+3, GO+6, GO+7, GO+8*, INI |
| >> DA( | GO+2 |
| DB | DIE+3!, Y+3*, EQ! |
| >> DC | Y+6, INI*, PB+1*, M+1*, DC* |
| DE | GO!, Y+3*, Y+4*, DIWE! |
| DE( | J*, S, Y+3*, Y+5*, Y+7*, Y+8*, DE*, MUL+1 |
| DG | DIE+3~, Y*, Y+6, M, M+1, M+2, DIWE! |
| >> DH | MR*, MR+1, J*, SPC+4*, K, PB, PB+1, MUL+3, MUL+4 |
| >> DI | GO+7*, GO+8, MR*, MR+1*, J*, J+1*, SPC+2, K, NX*, S+1 , Y+2, Y+3, Y+5, EQ, MORE+1*, E*, H* |
| >> DIC | INI* |
| >> DIC("S" | GO+8!, INI! |
| DICRREC | DIE+3~ |
| >> DIE | DIE+3*, DIE+4, GO, INI |
| >> DIE( | TEM+4 |
| >> DIE("W" | TEM+3* |
| >> DIE("^" | TEM+4* |
| DIE1 | GO+6~, GO+7*, PB |
| DIE1N | GO+6~, DIE1N* |
| DIEA | MUL+4~*, MUL+5, MUL+6 |
| DIEBADK | GO+6! |
| DIEC | GO! |
| DIEDA | GO~, GO+3* |
| DIEDA( | GO+2* |
| DIEFAR | FILE~ |
| DIEFF | WP~ |
| DIEFFLAG | FILE~ |
| DIEFFLD | WP~ |
| DIEFIEN | WP~ |
| DIEFIRE | GO+6! |
| DIEFOUT | FILE~, WP~ |
| DIEFTSRC | WP~ |
| DIEFWPFL | WP~ |
| DIEFXREF | GO+6~ |
| DIEHF | HELP~ |
| DIEHFLD | HELP~ |
| DIEHFLG | HELP~ |
| DIEHIEN | HELP~ |
| DIEHOUT | HELP~ |
| >> DIEL | GO+8*, M+1 |
| DIEN | UPDATE~ |
| DIESP | GO+6!, SPC*, SPC+1, SPC+2, SPC+3 |
| DIETMP | GO+5~*, TEM! |
| DIEVAL | VAL~, CHK~ |
| DIEVANS | VAL~, CHK~ |
| DIEVF | VAL~, CHK~ |
| DIEVFAR | VAL~ |
| DIEVFLD | VAL~, CHK~ |
| DIEVFLG | VAL~, CHK~ |
| DIEVIEN | VAL~ |
| DIEXREF | Y+2*, Y+3! |
| DIFDA | UPDATE~ |
| DIFLAGS | UPDATE~ |
| >> DIFLD( | J+1*, S+1* |
| >> DIFROM | DIE+4 |
| DIIENS | GO+6~* |
| DIMSGA | UPDATE~ |
| DIOUTAR | VAL~, CHK~ |
| DIOV | GO! |
| >> DIOVRD | DIE+4 |
| DIVKFDA | KEYVAL~ |
| DIVKFLAG | KEYVAL~ |
| DIVKOUT | KEYVAL~ |
| DIVSEFDA | VALS~ |
| DIVSFLAG | VALS~ |
| DIVSIFDA | VALS~ |
| DIVSMSG | VALS~ |
| >> DK | GO+8*, MR*, PB*, E*, DE, DIE1N* |
| >> DL | GO+7* |
| >> DM | MR*, J+1*, K*, NX, Y+3*, EQ*, MORE+1, E* |
| DNM | DIE+3~ |
| DOV | GO!, PB* |
| >> DP | DIE+4*, GO+6, GO+7, GO+8*, MR, J+1, SPC+2, K, NX, Y+2 , Y+3, Y+5, MORE+1, PB, TEM+1, TEM+4 |
| >> DP(0 | GO+8*, DE |
| DQ | GO+8*, J, J+1*, SPC+3, SPC+4, S, S+1*, Y, Y+3, Y+5 , Y+7, Y+8, MORE+1, PB+1*, M, DE, DC, MUL, MUL+1, MUL+5 , MUL+6, DIWE!*, B* |
| DQ( | J+1*, SPC+3*, SPC+4*, S+1*, Y, Y+3, Y+5, MORE+1*, M, DC , MUL*, MUL+1!, MUL+5*, MUL+6*, DIWE, B! |
| DQ(0 | PB+1* |
| DR | GO+7, MR, PB*, DIE1N, TEM+1, TEM+4*! |
| DR( | PB* |
| DR(1 | GO+7*, TEM+4 |
| >> DSC( | M+1 |
| DT | TEM+2 |
| DTOUT | GO!, DIWE |
| >> DU | Y+6*, INI*, B* |
| >> DW | Y+3*, Y+5, Y+6, M |
| DZ | J+1*, SPC+1*, SPC+2*, SPC+3*, SPC+4! |
| I | DIE1N~* |
| M | DIE1N~* |
| U | DIE+4*, SPC+1, SPC+2, SPC+3, Y+2, Y+3, Y+5, MORE+1, PB+1, H , M, M+2, DE, DC, MUL, MUL+5, DIWE, DIE1N, TEM+1, TEM+2 , TEM+4 |
| >> Y | J+1*, SPC, Y*, Y+3, Y+5, Y+6*, Y+7, Y+8*, M*, M+1 , M+2, DE*, DC*, MUL, DIWE*, TEM+1*, TEM+2, TEM+4 |