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 |