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 |