©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
XDRDPRG2 ;SF-IRMFO/REM - PURGE MERGE PROCESS FILE; 9/26/96 [ 04/02/2003 8:47 AM ]
Source file <XDRDPRG2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUEUE | ;Queues the process.
|
|
| QUEUEX | ||
| ASK | ;Ask user for entries to purge then purge.
|
|
| EN | ;
|
|
| CHK(XDRFL) | ;Checks if data in file.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(15.2 - [#15.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | CHK+2 |
| Name | Line Occurrences |
|---|---|
| $$CHK | EN+2 |
| ASK | EN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ASK+1~, ASK+5* |
| DIC | ASK+1~, ASK+3* |
| DIC("A" | ASK+3* |
| DIC("S" | ASK+4* |
| DIC(0 | ASK+3* |
| DIK | ASK+1~, ASK+8* |
| DIR | ASK+1~ |
| DIR("A" | ASK+6* |
| DIR("B" | ASK+6* |
| DIR(0 | ASK+6* |
| >> DIRUT | ASK+7 |
| NAME | ASK+1~, ASK+5*, ASK+6, ASK+9 |
| XDRFL | CHK~, CHK+2 |
| XDRGL | CHK+1~, CHK+2*, CHK+3 |
| Y | EN+1~, ASK+1~, ASK+2, ASK+5, ASK+7 |
| Y(0 | ASK+5 |
| >> ZTDESC | QUEUE+1* |
| >> ZTIO | QUEUE+1* |
| >> ZTRTN | QUEUE+1* |