XDRPTDOB ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES DATE OF BIRTHS; ;1/27/97 15:11
Source file <XDRPTDOB.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| >> | 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 |