©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
PSSXRF1 ;BIR/TTH-Re-Index "AOC" x-ref on DRUG file (#50) ;05 MAY 99
Source file <PSSXRF1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDT | ; check date/time for job to run
|
|
| CON(X) | ;
|
|
| DONE | ;
|
|
| ENNV | ; Begin
|
|
| ENQN | ; Loop thru VA Drug file (#50).
|
|
| SENDMSG | ;Send mail message when check is complete.
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | SENDMSG+1 |
| Name | Line Occurrences |
|---|---|
| $$CON | ENNV+1 |
| SENDMSG | ENQN+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ENQN+1, SENDMSG+1 |
| %DT | GETDT+1~*, CON+1~* |
| DA | DONE+1! |
| DFN | ENQN+1~ |
| DIK | ENQN+2*!, DONE+1! |
| DIK(1 | ENQN+2* |
| DUZ | SENDMSG+1 |
| PSS | SENDMSG+1! |
| PSS(1 | SENDMSG+2* |
| PSSSTART | ENQN+1*, DONE+1! |
| X | DONE+1!, GETDT+2!, GETDT+3*, CON~ |
| XMDUZ | SENDMSG+1*, DONE+1! |
| XMSUB | SENDMSG+1*, DONE+1! |
| XMTEXT | SENDMSG+1*, DONE+1! |
| XMY | SENDMSG+1!, DONE+1! |
| XMY( | SENDMSG+1* |
| >> XPDQUES("POS | ONE" , ENNV+1, ENNV+2 |
| Y | SENDMSG+1*, SENDMSG+2, DONE+1!, GETDT+1~, GETDT+2, GETDT+3, CON+2 |
| ZTDESC | ENNV+1*, DONE+1! |
| ZTDTH | ENNV+1*, DONE+1! |
| ZTIO | ENNV+1*, DONE+1! |
| ZTREQ | DONE+1!* |
| ZTRTN | ENNV+1*, DONE+1! |
| ZTSAVE | ENNV+1!, DONE+1! |
| ZTSK | ENNV+1!, ENNV+2, ENNV+3, DONE+1! |