©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
XDRDPRGE ;SF-IRMFO/IHS/OHPRD/JCM - PURGE DUPLICATE RECORD FILE; ;8/28/08 18:20
Source file <XDRDPRGE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BOTH | ;
|
|
| XREF | ;
|
|
| END | ||
| XREFX | ||
| EOJ | ;
|
|
| FILEX | ||
| ASKX | ||
| QUEUE | ;
|
|
| START | ;
|
|
| INIT | ;
|
|
| FILE | ;
|
|
| ASK | ;
|
|
| DQ | ; Entry point for Tasked job
|
|
| INITX |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| 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) |
|---|---|
| ^DIC - [#1] | INIT+4 |
| ^VA(15 - [#15] | XREF+1 |
| Name | Line Occurrences |
|---|---|
| ASK | START+2 |
| ASKX | ASK+7, ASK+12 |
| BOTH | DQ+1 |
| END | START+1, START+2 |
| EOJ | END |
| FILE | INIT+2 |
| FILEX | FILE+6 |
| INIT | START+1 |
| INITX | INIT+3 |
| QUEUE | ASK+13 |
| XREF | DQ+2, BOTH+1, BOTH+2 |
| XREFX | XREF+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | QUEUE+2* |
| DA | XREF+3*, XREFX! |
| DIC | FILE+5*! |
| DIC("A" | FILE+4* |
| DIC("S" | FILE+2* |
| DIC(0 | FILE+3* |
| DIK | XREF+3*, XREFX! |
| DIR | ASK+6!, ASK+11! |
| DIR("?" | ASK+3*, ASK+4*, ASK+5* |
| DIR("A" | ASK+2*, ASK+10* |
| DIR(0 | ASK+1*, ASK+9* |
| >> DIRUT | ASK+7, ASK+12 |
| U | FILE+7, XREF+2 |
| X | FILE+5! |
| XDRDI1 | XREF+3*, XREFX! |
| XDRDPRGE | EOJ+1! |
| XDRDPRGE("CHOICE" | DQ+1, ASK+8* |
| XDRDPRGE("GL" | XREF+2*, XREF+3, XREFX! |
| XDRDPRGE("RCDS" | XREF+3* |
| XDRDPRGE("XREF" | ASK+8*, BOTH+1*, BOTH+2*, XREF+1, XREF+2 |
| XDRFL | INIT+4, FILE+7*, EOJ+1! |
| XDRGL | INIT+4*, XREF+2, EOJ+1! |
| >> XDRQFLG | START+1, START+2, INIT+1*, INIT+3, FILE+6*, ASK+7*, ASK+12*, QUEUE+4* |
| Y | FILE+6, FILE+7!, ASK+8!, ASK+13, ASKX! |
| Y(0 | FILE+7 |
| >> ZTDESC | QUEUE+1* |
| >> ZTIO | QUEUE+1* |
| >> ZTQUEUED | EOJ+2 |
| >> ZTREQ | EOJ+2* |
| >> ZTRTN | QUEUE+1* |
| >> ZTSAVE( | QUEUE+2* |
| ZTSK | QUEUE+3! |