©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
XDRMAIN ;SF-IRMFO/IHS/OHPRD/JCM - MAIN DRIVER FOR DUPLICATE MERGE SOFTWARE; [ 04/02/2003 8:47 AM ]
Source file <XDRMAIN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAINX | ||
| EN | ||
| END | ||
| EN1 | ||
| EOJ | ;
|
|
| EN1X | ||
| EN3X | ||
| ASKX | ||
| ASK | ;
|
|
| START | ;
|
|
| EN2 | ||
| EN3 | ||
| ENX | ||
| MAIN | ;
|
|
| EN2X |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(15 - [#15] | Classic Fileman Calls |
| ^VA(15.1 - [#15.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(15 - [#15] | MAIN+4, MAIN+7, MAIN+8, EN+2, EN1+6, EN2+8, EN3+5 |
| ^VA(15.1 - [#15.1] | EN1+6 |
| Name | Line Occurrences |
|---|---|
| ASK | START+2, EN1+6 |
| ASKX | ASK+2, ASK+6 |
| EN1X | EN1+2 |
| EN2X | EN2+2, EN2+7 |
| EN3X | EN3+1, EN3+4 |
| END | START+1 |
| ENX | EN+1, EN+3 |
| EOJ | END, ENX, EN1X, EN2X, EN3X |
| MAIN | START+2, EN+4, EN1+6, EN2+9, EN3+6 |
| MAINX | MAIN+2, MAIN+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EN+2, EN2+8, EN3+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN1+3*!, ASKX!, EN2+7!, EN3+4! |
| DIC | EN2+6*, EN2+7!, EN3+3*, EN3+4! |
| DIC("S" | EN2+5*, EN3+2* |
| DIC(0 | EN2+6*, EN3+3* |
| DIE | EN1+3*! |
| DIR | ASKX! |
| DIR("A" | ASK+4* |
| DIR("B" | ASK+4* |
| DIR(0 | ASK+4* |
| DR | EN1+3*! |
| >> DTOUT | ASK+6 |
| >> DUOUT | ASK+6 |
| U | START+2, MAIN+1, MAIN+4, MAIN+7, MAIN+8, EN+2, EN1+5, EN1+6, EN2+4, EN2+7 , EN2+8, EN3+4, EN3+5 |
| >> X | EN2+7, EN3+4 |
| XDRD | EOJ+1! |
| >> XDRDADD | EOJ+1 |
| XDRFL | EN1+3, EN1+6, EOJ+1! |
| XDRGL | START+2, EN1+5, EOJ+1! |
| XDRM | EOJ+2! |
| XDRM("DEVICE" | EOJ+2! |
| XDRM("GL" | START+2, EN1+5*, EN1+6 |
| XDRM("MERGEMSG" | EOJ+3! |
| XDRM("NON-INTERACTIVE" | EN1+3, EN1+6, EN2+3, EN2+4* |
| XDRM("NOTALK" | START+2, EN1+6, EN2+3*, EN2+4* |
| XDRM("NOVERIFY" | MAIN+3, MAIN+7, EN1+1*, EN2+1* |
| XDRM("POST-MERGE" | EOJ+3! |
| XDRM("PRE-MERGE" | EOJ+3! |
| XDRM("VERIFYMSG" | EOJ+3! |
| XDRM(0 | EN2+4 |
| XDRMAIN | EOJ+2! |
| XDRMAIN("FR" | MAIN+4* |
| XDRMAIN("TO" | MAIN+5* |
| >> XDRMAINI | START+1*, EN+3*, EN1+2*, EN2+2*, EN3+1* |
| XDRMCD | MAIN+1*, MAIN+4, MAIN+5, EOJ+2! |
| XDRMCD2 | MAIN+1*, MAIN+4, MAIN+5, EOJ+2! |
| XDRMI1 | START+2*, EN1+6*, EOJ+2! |
| XDRMLOCK | MAIN+2, MAINX!, ASK+2, ASKX!, EN2+10!, EN3+7! |
| XDRMPAIR | START+2*, MAIN+1, EN+2*, EN1+6*, EN2+8*, EN3+5*, EOJ+2! |
| XDRMPDA | START+2*, MAIN+4, MAIN+7, MAIN+8, EN+1, EN+2, EN1+4*, EN1+6*, EN2+8*, EN3+5* , EOJ+3! |
| XDRMRG | MAIN+3*, EOJ+3! |
| XDRMRG("FR" | MAIN+4*, MAIN+5 |
| XDRMRG("LCK" | MAIN+2*!, MAINX*! |
| XDRMRG("TO" | MAIN+5* |
| >> XDRMSG | MAIN+7*, MAIN+8* |
| XDRQFLG | START+1, START+2, MAIN+3, EN+3, EN1+2, EN1+6, ASK+1*, ASK+6*, ASK+7*, EN2+2 , EN2+7*, EN3+1, EN3+4*, EOJ+3! |
| Y | ASK+7, ASKX!, EN2+8, EN3+5 |