©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
XDRPTDOB ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF BIRTHS; ;1/27/97 15:11 [ 04/02/2003 8:47 AM ]
Source file <XDRPTDOB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMPARE | ;
|
|
| EN | ; EP - Entry point for comparing dates
|
|
| END | ||
| EOJ | ;
|
|
| INIT | ;
|
|
| START | ;
|
|
| DATECOMP(DATE1,DATE2,MATCH,NOMATCH,VAL1,VAL2) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$NUMCOMP^XDRPTCLN | DATECOMP+2, DATECOMP+6 |
| Name | Line Occurrences |
|---|---|
| $$DATECOMP | COMPARE+1 |
| COMPARE | EN+1 |
| EOJ | END |
| INIT | START+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE1 | DATECOMP~, DATECOMP+2, DATECOMP+4*, DATECOMP+5*, DATECOMP+6 |
| DATE2 | DATECOMP~, DATECOMP+2, DATECOMP+4*, DATECOMP+5*, DATECOMP+6 |
| MATCH | DATECOMP~, DATECOMP+2, DATECOMP+4*, DATECOMP+5*, DATECOMP+6 |
| NOMATCH | DATECOMP~, DATECOMP+2, DATECOMP+3, DATECOMP+6 |
| U | INIT+3, INIT+4 |
| VAL1 | DATECOMP~, DATECOMP+2, DATECOMP+5 |
| VAL2 | DATECOMP~, DATECOMP+4 |
| >> XDRCD | INIT+2 |
| >> XDRCD( | INIT+2 |
| >> XDRCD2 | INIT+2 |
| >> XDRCD2( | INIT+2 |
| >> XDRD("TEST SC | ORE" , COMPARE+1* |
| XDRDOB | INIT+1!, INIT+2*, COMPARE+1, EOJ+1! |
| XDRDOB("MATCH" | INIT+3*, COMPARE+1 |
| XDRDOB("NO MA | TCH" , INIT+4*, COMPARE+1 |
| XDRDOB2 | INIT+1!, INIT+2*, COMPARE+1, EOJ+1! |
| >> XDRDTEST( | INIT+3, INIT+4 |
| >> XDRDTO | INIT+3, INIT+4 |
| >> XDRFL | INIT+2 |
| Y | DATECOMP+1~, DATECOMP+2*, DATECOMP+3, DATECOMP+6*, DATECOMP+7 |