©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
XDRDUP ;SF-IRMFO/IHS/OHPRD/JCM - COMPARES TWO RECORDS TO SEE IF DUP OF EACH OTHER; [ 04/02/2003 8:47 AM ]
Source file <XDRDUP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAINX | ||
| EN | ; EP - Called by XDRDADJ,XDRDPDTI
|
|
| END | ||
| TESTX | ||
| ENX | ||
| VALUE | ;
|
|
| DIQ1 | ;
|
|
| START | ;
|
|
| EOJ | ;
|
|
| TEST | ;
|
|
| MAIN | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | TEST+2 |
| ^TMP("XDRDUPS1" | MAIN+14* |
| ^TMP("XDRDUPSC" | MAIN+13 |
| ^VA(15 - [#15] | EN+5, EN+6, EN+7 |
| ^VA(15.1 - [#15.1] | EN+7, EN+9 |
| ^XTMP("XDRERR" | MAIN+3* |
| Name | Line Occurrences |
|---|---|
| @( | TEST+4 |
| DIQ1 | MAIN+1 |
| END | START+2, START+3 |
| ENX | EN+8 |
| EOJ | END |
| MAIN | START+9 |
| START | EN+10 |
| TEST | MAIN+5 |
| TESTX | TEST+2 |
| VALUE | START+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MAIN+13* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | START+1!, START+4*, MAIN+6*, MAIN+7! |
| D0 | DIQ1+2!, DIQ1+3! |
| DA | DIQ1+2*!, DIQ1+3*!, VALUE+1*, VALUE+3*, VALUE+6! |
| DIC | DIQ1+1*, DIQ1+3!, VALUE+3*, VALUE+6! |
| DIQ | DIQ1+2*, DIQ1+3*!, VALUE+3*, VALUE+6! |
| DIQ(0 | DIQ1+1*, VALUE+3* |
| DR | DIQ1+1*, DIQ1+3!, VALUE+3*, VALUE+6! |
| J1 | MAIN+11~, MAIN+12*, MAIN+13, MAIN+14 |
| J2 | MAIN+11~, MAIN+13*, MAIN+14 |
| U | MAIN+14, TEST+1, TEST+2, TEST+7, EN+5, EN+6, EN+7 |
| X | TEST+2*! |
| XDRCD | START+2, MAIN+14, DIQ1+2, EN+4!, EN+5*, EOJ+1! |
| XDRCD( | DIQ1+2 |
| XDRCD2 | START+2, START+6, MAIN+3, MAIN+14, DIQ1+3, EN+4!, EN+6*, EOJ+1!, VALUE+1!*, VALUE+3 , VALUE+6* |
| XDRCD2( | MAIN+6! |
| XDRD | EOJ+1! |
| XDRD("DUPSCORE" | MAIN+4*, MAIN+12, MAIN+15, TEST+6* |
| XDRD("NOADD" | MAIN+15 |
| XDRD("TEST RO | UTINE" , TEST+1*, TEST+2, TEST+4, TESTX! |
| XDRD("TEST SC | ORE" , TEST+3*, TEST+5, TEST+6, TEST+7 |
| XDRD(0 | EN+9* |
| >> XDRDCOMP | MAIN+15 |
| >> XDRDPDA | EN+5, EN+6, EN+7, EOJ+1 |
| >> XDRDPDTI | EOJ+1 |
| XDRDSCOR | START+3, EOJ+1! |
| XDRDSCOR( | START+4* |
| XDRDSCOR("DR" | MAIN+1, DIQ1+1, VALUE+2, VALUE+3 |
| XDRDSCOR("MAX" | MAIN+8, MAIN+9, MAIN+10, MAIN+12, TEST+7* |
| XDRDSCOR("PDT" | MAIN+8*, MAIN+15 |
| XDRDSCOR("PDT%" | MAIN+8 |
| XDRDSCOR("VDT" | START+5*, MAIN+9* |
| XDRDSCOR("VDT%" | START+5, MAIN+9 |
| XDRDTEST | EOJ+1! |
| XDRDTEST( | MAIN+5, TEST+1, TEST+7 |
| XDRDTO | MAIN+5*, MAIN+6!, TEST+1, TEST+5, TEST+7 |
| XDRDTYPE | MAIN+3, MAIN+13, MAIN+14, EN+2~, EN+3* |
| >> XDRDUP("TEST | SCORE" , TEST+5* |
| XDRDUPFL | MAIN+1*, MAIN+2!, DIQ1+1, DIQ1+2 |
| >> XDRERR | START+2*, TEST+2*, EN+8* |
| XDRFL | MAIN+13, MAIN+14, EN+7*, EN+8, EN+9, EOJ+1! |
| >> XDRI | VALUE+2*, VALUE+3 |
| XDRQFLG | START+1*, START+3, MAIN+5, EOJ+1! |
| XX | VALUE+4!, VALUE+6! |