©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
IBDFPCE ;ALB/AAS - AICS UPDATE FROM PCE ; 12-DEC-95
Source file <IBDFPCE.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | $$FINDID^IBDF18C |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDATE(IBD) | ; -- procedure to update manual data entry detected
|
|
| MAN | ; -- called from IBDF PCE EVENT (invoked by the PXK VISIT DATA EVENT)
; if aics starts event, quit ; else ; find appointment date from visit node ; find entry in forms tracking for visit ; update manual data entry field to yes if new or old visit edited ; update manual data entry field to no if entry deleted |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBD(357.96 - [#357.96] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBD(357.96 - [#357.96] | UPDATE+9, UPDATE+10, UPDATE+11 |
| ^TMP("PXKCO" | MAN+12, MAN+13 |
| Name | Line Occurrences |
|---|---|
| UPDATE | MAN+16, MAN+19 |
| Name | Field # of Occurrence |
|---|---|
| ^("BEFORE" | MAN+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | UPDATE+2~, UPDATE+8*, UPDATE+9, UPDATE+10, UPDATE+11 |
| DIC | UPDATE+2~ |
| DIE | UPDATE+2~, UPDATE+12* |
| DR | UPDATE+2~, UPDATE+12* |
| IBD | MAN+9~, MAN+16, MAN+19, UPDATE~ |
| IBD("AICS" | MAN+8 |
| IBD("APPT" | MAN+16*, MAN+19*, UPDATE+3, UPDATE+4, UPDATE+11 |
| IBD("FORM ID" | , UPDATE+4*, UPDATE+8 |
| IBD("VALUE" | MAN+16*, MAN+19*, UPDATE+3, UPDATE+12 |
| IBDC | UPDATE+2~, UPDATE+13*, UPDATE+14 |
| IBDFN | MAN+9~, MAN+10*, MAN+16*, MAN+19*, UPDATE+3, UPDATE+4, UPDATE+10 |
| IBDVST | MAN+9~, MAN+10*, MAN+12*, MAN+13 |
| IBDVST("AFTER" | MAN+13*, MAN+16, MAN+19 |
| IBDVST("BEFORE" | MAN+13*, MAN+16, MAN+19 |
| IBDX | UPDATE+2~, UPDATE+8* |
| X | UPDATE+2~ |
| Y | UPDATE+2~ |
| >> ZTQUEUED | UPDATE+14 |