Routine: AMHCDBL

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
Mental Health Social Services	3	(IN,TD)^AMHCDBL1 PCCLINK^AMHLE2 ^AMHLEIN
Kernel	1	$$VERSION^XPDUTL
Patient Care Component Reports	1	$$CLINIC^APCLV

Package	Total	Caller Graph
Mental Health Social Services	1	AMHCDBL1

Entry Points

Name	Comments	DBIA/ICR reference
CONT	;
D	;date range
TOC(X)	;
CDVISIT	;
DE
CDPREV	;
START	;
XIT	;
PCCLINK	;EP
IN	;
VIS(P,D)	;
PCC	;
C1
PROC	;
EP	;
PROBCONV	;

External References

Name	Field # of Occurrence
^%DT	C1+6
IN^AMHCDBL1	IN+1
TD^AMHCDBL1	DE+14
PCCLINK^AMHLE2	PCCLINK+8
^AMHLEIN	CDVISIT+1
$$CLINIC^APCLV	VIS+4
^DIC	D+10, D+15, C1+10
FILE^DICN	EP+2, C1+20, C1+30, C1+35, C1+39
^DIE	C1+22, C1+23
^DIR	CONT+1, D+3, D+5, PCC+3
$$VAL^XBDIQ1	D+10, D+15, DE+1, DE+3, CDPREV+9, C1
^XBFMK	EP+4, PROC+10, C1+11, C1+32, C1+37, C1+41, XIT+3
EN^XBVK	PROC+9, XIT+2
$$VERSION^XPDUTL	START+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CDMIS IS NOT UP TO VERSION 4.1, CANNOT CONTINUE" Line Location: START+1
Function Call: WRITE	Prompt: !!,"This routine is used to backload CDMIS data into the BH package." Line Location: START+4
Function Call: WRITE	Prompt: !!,"This option should be only by those sites that have discontinued" Line Location: START+5
Function Call: WRITE	Prompt: !,"the use of the CDMIS module.",! Line Location: START+6
Function Call: WRITE	Prompt: !,"Only visits in a date range you specify will be transferred." Line Location: START+7
Function Call: WRITE	Prompt: !,"You should decide ahead of time how far back you want to go" Line Location: START+8
Function Call: WRITE	Prompt: !,"in backloading data. It might be wise to just backload the past" Line Location: START+9
Function Call: WRITE	Prompt: !,"1 or 2 years worth of data first and then decide if older data" Line Location: START+10
Function Call: WRITE	Prompt: !,"should be moved.",!! Line Location: START+11
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: D+8
Function Call: WRITE	Prompt: !,"Please enter the location to be used as a default for Prevention Activities." Line Location: D+9
Function Call: WRITE	Prompt: !,"Please enter the community to be used as a default for all records created." Line Location: D+14
Function Call: WRITE	Prompt: !!,"These CDMIS visits do not need to pass to PCC because they are old visits." Line Location: PCC+1
Function Call: WRITE	Prompt: !!,"Please be patient while the conversion process takes place..." Line Location: PROC+1
Function Call: WRITE	Prompt: !,"Moving CDMIS Prevention Activities" Line Location: PROC+2
Function Call: WRITE	Prompt: !,"Moving CDMIS visits" Line Location: PROC+4
Function Call: WRITE	Prompt: !!,"all done" Line Location: PROC+6
Function Call: WRITE	Prompt: !,"Cannot map component: ",AMHCOMP," ",AMHIEN," Using Other" Line Location: DE+2
Function Call: WRITE	Prompt: !,"moved ",AMHCDVS," cdmis visits" Line Location: DE+16
Function Call: WRITE	Prompt: !,AMHCIN," initial" Line Location: DE+17
Function Call: WRITE	Prompt: !,AMHCRE," reopen" Line Location: DE+18
Function Call: WRITE	Prompt: !,AMHCFU," follow up" Line Location: DE+19
Function Call: WRITE	Prompt: !,AMHCIR," info/referral" Line Location: DE+20
Function Call: WRITE	Prompt: !,AMHCOT," other" Line Location: DE+21
Function Call: WRITE	Prompt: !,AMHCTD," trans/disc" Line Location: DE+22
Function Call: WRITE	Prompt: !,"Cannot map component: ",AMHCOMP," ",AMHIEN," Using Other" Line Location: CDPREV+11
Function Call: WRITE	Prompt: !,"NO prevention activity, skipping" Line Location: C1+8
Function Call: WRITE	Prompt: !,"Could not map prevention activity: ",AMHPRA Line Location: C1+10
Function Call: WRITE	Prompt: !,"no time on prevention.. skipping ",AMHIEN," ",AMHMIEN Line Location: C1+16
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Error creating Behavioral Health Record!! Deleting Record.",! Line Location: C1+21
Function Call: WRITE	Prompt: !!,"error editing MHSS Record entry ",AMHIEN," ",AMHMIEN Line Location: C1+24
Function Call: WRITE	Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7) Line Location: C1+31
Function Call: WRITE	Prompt: !!,"Creating POV entry failed!!!",$C(7),$C(7) Line Location: C1+36
Function Call: WRITE	Prompt: !!,"Creating PREVENTION ACTIVITY entry failed!!!",$C(7),$C(7) Line Location: C1+40
Function Call: WRITE	Prompt: !!,"A total of ",AMHCDPRC," CDMIS prevention activities moved to BH." Line Location: C1+44
Function Call: WRITE	Prompt: !!,"ALL DONE",! Line Location: XIT+1
Routine Call	DIE Line Location: C1+22 C1+23
Routine Call	DIC Line Location: D+10 D+15 C1+10
Routine Call	DIR Line Location: CONT+1 D+3 D+5 PCC+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPRO - [#9002011.01]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls
^AMHRPA - [#9002011.09]	Classic Fileman Calls
^AMHTCOMP - [#9002013.7]	Classic Fileman Calls
^AMHTPA - [#9002014.8]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACDLOT - [#9002170.8]	C1+14
^ACDPD - [#9002170.7]	CDPREV+4, CDPREV+6, C1+2, C1+3, C1+4, C1+26, C1+27, C1+42*
^ACDPREV(9002170.9 - [#9002170.9]	C1+9
^ACDVIS - [#9002172.1]	CDVISIT+4, CDVISIT+5, CDVISIT+6, CDVISIT+7*, DE+8
^AMHPROB("B"	C1+34
^AMHREC - [#9002011]	PCCLINK+3, PCCLINK+9
^AMHTACT - [#9002012]	PCCLINK+3
^AMHTCOMP("B"	EP+1, DE+2, CDPREV+10, CDPREV+11
^AUPNVSIT("AA"	VIS+3, VIS+4
^AUPNVSIT("ABILL"	PCCLINK+10!
^AUPNVSIT("ADWO"	PCCLINK+10!
^TMP($J	START+2!, PROC+8!

Label References

Name	Line Occurrences
$$TOC	C1+15
$$VIS	PCCLINK+7
C1	CDPREV+10
CDPREV	PROC+3
CDVISIT	PROC+5
D	D+5, D+7
IN	DE+9, DE+10, DE+11, DE+12, DE+13
START	D+3
XIT	START+1, CONT+2, CONT+3, D+12, D+17, PCC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	C1+6*
>> AMHACT	DE+9, DE+10, DE+11, DE+12, DE+13, DE+14
>> AMHACTN	PCCLINK+5*
AMHBD	D+1!, D+3*, D+7, CDVISIT+11, C1+7
>> AMHBL	CDVISIT+2*
>> AMHC	C1+26, C1+28, C1+29
>> AMHCAT	C1+14, C1+15, C1+23
>> AMHCDPRC	CDPREV+3, C1+43, C1+44
>> AMHCDVS	CDVISIT+3*, DE+16
>> AMHCFU	CDVISIT+2, DE+11, DE+19
>> AMHCIN	CDVISIT+2, DE+9, DE+17
>> AMHCIR	CDVISIT+2, DE+12, DE+20
>> AMHCOMP	DE+1, DE+2, CDPREV+9, CDPREV+10, CDPREV+11*, C1+23
>> AMHCOMPB	DE+2, CDPREV+10, CDPREV+11*
>> AMHCOMPI	DE+1*
>> AMHCOMT	DE+3, C1, C1+23
>> AMHCOMTI	DE+3*
>> AMHCOT	CDVISIT+2, DE+13, DE+21
>> AMHCRE	CDVISIT+2, DE+10, DE+18
>> AMHCTD	CDVISIT+2, DE+14, DE+22
>> AMHDATE	CDVISIT+10, CDVISIT+11, CDVISIT+12, C1+6, C1+7, C1+19, PCCLINK+7, VIS+3
>> AMHDAY	C1+5*, C1+6
>> AMHDCOM	D+18*, C1+23
>> AMHDLOC	D+13*
AMHED	D+1!, D+5*, D+7, CDVISIT+12, C1+7
>> AMHIEN	CDVISIT+4, CDVISIT+5, CDVISIT+6, CDVISIT+7, DE+1, DE+2, DE+3, DE+8, CDPREV+4, CDPREV+6 , CDPREV+9, CDPREV+11, C1, C1+2, C1+3, C1+4, C1+16, C1+24, C1+26, C1+27 , C1+42
>> AMHIENP	C1+26*, C1+27
>> AMHLOC	DE+8, C1+1, C1+23
>> AMHLPCC	PCC+2, PCC+5
>> AMHMIEN	C1+2*, C1+3, C1+4, C1+16, C1+24, C1+26, C1+27, C1+42
>> AMHMR0	C1+4*, C1+5, C1+8, C1+12, C1+13, C1+14, C1+16
>> AMHMY	CDPREV+8*, C1+6
>> AMHNS	C1+13*, C1+23
>> AMHPAT	DE+6*, PCCLINK+1, PCCLINK+4, PCCLINK+7
>> AMHPCCL	PCC+2, PCC+5
>> AMHPRA	C1+8, C1+9, C1+10, C1+35
>> AMHPRAB	C1+10*, C1+39
>> AMHPROV	DE+4*
>> AMHPS	C1+29*, C1+30
>> AMHPTYPE	PCCLINK+2*
>> AMHQUIT	D+3, D+5
>> AMHR	C1+22*, C1+23, C1+30, C1+35, C1+39, PCCLINK+3, PCCLINK+9
>> AMHR0	CDVISIT+5, CDVISIT+9, CDVISIT+10, DE+1, DE+3, DE+4, DE+5, DE+6, CDPREV+6, CDPREV+7 , CDPREV+8, C1+1
>> AMHTAR	C1+12*, C1+23
>> AMHTC	DE+5*, DE+9, DE+10, DE+11, DE+12, DE+13, DE+14
>> AMHTIME	C1+16, C1+17, C1+23
>> APCDOVRR	CDVISIT+3*
D	VIS~
D0	C1+20!, C1+30!, C1+35!, C1+39!
DA	D+11!, D+16!, C1+22!, C1+23, C1+30!, C1+35!, C1+39!
DD	C1+20!, C1+30!, C1+35!, C1+39!
>> DFN	PCCLINK+4*
DG	C1+30!, C1+35!, C1+39!
DH	C1+30!, C1+35!, C1+39!
DI	C1+30!, C1+35!, C1+39!
DIADD	EP+2, EP+3!, C1+19, C1+20!, C1+30!, C1+35!, C1+39*!
DIC	EP+2, D+10, D+11!, D+15, D+16!, C1+10, C1+11!, C1+19!, C1+20!, C1+30! , C1+35!, C1+39!
DIC("B"	D+10, D+15
DIC("DR"	EP+2, C1+19, C1+30, C1+35, C1+39*
DIC(0	EP+2, D+10, D+15, C1+10, C1+19, C1+30, C1+35, C1+39
DIE	C1+20!, C1+22!, C1+23, C1+30!, C1+35!, C1+39!
DIFGLINE	START+3*, PROC+11!
DIR	CONT+1!, D+2!, D+4!, PCC+3!
DIR("A"	CONT+1, D+2, D+4, PCC+3
DIR("B"	CONT+1, PCC+3
DIR(0	CONT+1, D+2, D+4, PCC+3
>> DIRUT	CONT+1, CONT+2, PCC+3, PCC+4
DIU	C1+30!, C1+35!, C1+39!
DIW	C1+30!, C1+35!, C1+39!
DLAYGO	EP+2, EP+3!, C1+19, C1+20!, C1+30!, C1+35!, C1+39*!
DO	C1+20!, C1+30!, C1+35!, C1+39!
DQ	C1+30!, C1+35!, C1+39!
DR	C1+20!, C1+22!, C1+23
DR(2	C1+22*
DT	PCCLINK+10
>> DUOUT	CONT+1, PCC+3
DUZ	C1+19
DUZ(2	D+10, D+15, DE+8
G	VIS+1~, VIS+2, VIS+4, VIS+6
P	VIS~, VIS+3, VIS+4
U	CDVISIT+10, DE+1, DE+3, DE+4, DE+5, DE+6, CDPREV+8, C1+1, C1+5, C1+8 , C1+9, C1+12, C1+13, C1+14, C1+16, C1+27, PCCLINK+3, PCCLINK+9
>> V	PCCLINK+9*, PCCLINK+10
X	EP+2, C1+6, C1+10, C1+19, C1+20!, C1+30, C1+35, C1+39, TOC~, TOC+1 , TOC+2, TOC+3, TOC+4, TOC+5, TOC+6, TOC+7, TOC+8, TOC+9, TOC+10, TOC+11 , VIS+1~, VIS+3, VIS+4
Y	CONT+3, D+3, D+5, D+12, D+13, D+17, D+18, PCC+5, C1+6, C1+10 , C1+21, C1+22, C1+24, C1+27, C1+30, C1+31, C1+34, C1+35, C1+36, C1+40 , VIS+1~, VIS+3, VIS+4

Customize PDF page

Package: Mental Health Social Services

Routine: AMHCDBL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: