APCDALV ; IHS/CMI/LAB - VISIT CREATION ;
Source file <APCDALV.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^%DT FILE^DICN ^DIE |
| IHS Patient | 2 | ^AUPNPAT ($$UID,VSIT01)^AUPNVSIT |
| Patient Care Component | 2 | (INIT,MRG,OPTION)^APCDALV1 EN1^APCDEKL |
| PCE Patient Care Encounter | 1 | ($$GETVID,GETVID)^VSITVID |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;PEP - Called to create PCC Visits
|
|
| OPTION | ; LET USER SELECT OPTION
|
|
| AUTO | ; NON-INTERACTIVE MODE
|
|
| INTERACT | ; INTERACTIVE MODE
|
|
| GATHER | ; GATHER VISITS FOR USER TO SELECT
|
|
| INIT | ; INITIALIZATION/EDIT INPUT VARIABLES
|
|
| GENVISIT | ; GENERATE NEW VISIT
|
|
| EOJ | ; CLEAN UP
|
|
| CHECK | ; CHECK VISIT AUTO MODE
|
|
| SELECT | ; ALLOW USER TO SELECT, EXIT, OR ADD
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | GENVISIT+3 |
| INIT^APCDALV1 | INIT+1 |
| MRG^APCDALV1 | SELECT+6 |
| OPTION^APCDALV1 | OPTION+1 |
| EN1^APCDEKL | EOJ+11 |
| ^AUPNPAT | SELECT+7, GENVISIT+1 |
| $$UID^AUPNVSIT | EOJ+6 |
| VSIT01^AUPNVSIT | GENVISIT+4 |
| FILE^DICN | GENVISIT+6 |
| ^DIE | GENVISIT+10 |
| $$GETVID^VSITVID | GENVISIT+10 |
| GETVID^VSITVID | GENVISIT+10 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | GATHER+1, SELECT+7, CHECK+1, EOJ+5*, EOJ+6* |
| ^AUPNVSIT("AA" | INTERACT+4, AUTO+2 |
| ^DIC(150.9 - [#150.9] | GENVISIT+10 |
| ^TMP("APCDALV" | EN+4, EOJ+1 |
| ^XUSEC("APCDZVMRG" | INTERACT+6 |
| Name | Line Occurrences |
|---|---|
| AUTO | EN+6 |
| CHECK | AUTO+2 |
| EOJ | EN+3, EN+5, EN+6, EN+7 |
| GATHER | INTERACT+4 |
| GENVISIT | EN+5, INTERACT+5, SELECT+5, AUTO+4 |
| INIT | EN+2 |
| INTERACT | EN+7, INTERACT+14, SELECT+6 |
| OPTION | SELECT+3 |
| SELECT | INTERACT+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | INTERACT+7*, INTERACT+9*, INTERACT+11! |
| >> %DT | GENVISIT+3* |
| APCDA11 | EOJ+10! |
| APCDAC | INTERACT+3*, INTERACT+10*, GATHER+7*, SELECT+1, EOJ+10! |
| APCDADD | EN+5, EOJ+9! |
| APCDADF | SELECT+1*, EOJ+9! |
| >> APCDAFLG | EN+3, SELECT+4*, GENVISIT+3*, GENVISIT+5*, GENVISIT+7*, EOJ+11 |
| >> APCDAFLG("ERR" | GENVISIT+3*, GENVISIT+5*, GENVISIT+7* |
| APCDAI | INTERACT+4*, GATHER+1, GATHER+7, AUTO+2*, CHECK+1, CHECK+8, EOJ+10! |
| APCDAL | INTERACT+4*, EOJ+10! |
| APCDALV | INTERACT+1!, INTERACT+5, INTERACT+8!, EOJ+10! |
| APCDALV( | INTERACT+7, INTERACT+9*, GATHER+7* |
| APCDALV(4 | INTERACT+14, SELECT+6 |
| APCDALV(5 | INTERACT+6 |
| >> APCDALVR | EOJ+11 |
| >> APCDALVR("APCDAFLG" | EOJ+11* |
| >> APCDALVR("APCDPAT" | EOJ+11* |
| >> APCDALVR("APCDVSIT" | EOJ+11* |
| APCDALVX | INTERACT+7!, INTERACT+11! |
| APCDALVX( | INTERACT+7*, INTERACT+9 |
| APCDAO | INTERACT+14, SELECT+2*, SELECT+4, SELECT+5, SELECT+6, EOJ+10! |
| APCDAUTO | EN+6, EOJ+9! |
| APCDAVD | INTERACT+2*, INTERACT+4*, EOJ+10! |
| APCDAVDC | INTERACT+2*, INTERACT+4, AUTO+1*, AUTO+2, EOJ+10! |
| APCDAX | GATHER+1*, GATHER+2, GATHER+4, GATHER+5, GATHER+6, CHECK+1*, CHECK+2, CHECK+3, CHECK+4, CHECK+5 , CHECK+6, CHECK+7, EOJ+10! |
| >> APCDCAT | GATHER+5, CHECK+7 |
| >> APCDCLN | GATHER+6, CHECK+3, CHECK+4, EOJ+5 |
| >> APCDDATE | INTERACT+2, AUTO+1, GENVISIT+3, GENVISIT+5, GENVISIT+7 |
| >> APCDDOB | GENVISIT+2* |
| >> APCDDOD | GENVISIT+2* |
| >> APCDLOC | GATHER+4, CHECK+6 |
| APCDLOOK | GENVISIT+6! |
| >> APCDNOK | EOJ+11 |
| >> APCDPAT | EN+4, INTERACT+4, AUTO+2, GENVISIT+1, EOJ+1, EOJ+11 |
| >> APCDSEX | GENVISIT+2* |
| >> APCDTYPE | CHECK+5 |
| >> APCDVSIT | SELECT+7, AUTO+2, AUTO+3, CHECK+8*, GENVISIT+8*, GENVISIT+10, EOJ+5, EOJ+6, EOJ+11 |
| >> APCDVSIT("NEW" | GENVISIT+11*, EOJ+11 |
| >> AUPNDOB | GENVISIT+2 |
| >> AUPNDOD | GENVISIT+2 |
| >> AUPNSEX | GENVISIT+2 |
| D0 | EN+1~ |
| DA | EN+1~, GENVISIT+10*! |
| DD | GENVISIT+6! |
| DIC | EN+1~, GENVISIT+6*! |
| DIC("DR" | GENVISIT+6* |
| DIC(0 | GENVISIT+6* |
| DIE | EN+1~, GENVISIT+10*! |
| DIRUT | EOJ+8! |
| DLAYGO | GENVISIT+6*! |
| DO | GENVISIT+6! |
| DR | EN+1~, GENVISIT+10*! |
| DTOUT | EOJ+8! |
| DUOUT | EOJ+8! |
| DUZ | INTERACT+6 |
| U | GATHER+2, GATHER+4, GATHER+5, GATHER+6, SELECT+7, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+6 , CHECK+7, GENVISIT+10, EOJ+5, EOJ+6 |
| VID | GENVISIT+10*! |
| X | GENVISIT+3*, GENVISIT+5, EOJ+7! |
| Y | SELECT+7*!, GENVISIT+1*!, GENVISIT+3, GENVISIT+7, GENVISIT+8, EOJ+7! |
| >> ZTQUEUED | GENVISIT+6 |
| >> ZTSK | GENVISIT+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(GETVID^VSITVID | GENVISIT+10 |