Routine: AMHPOST

Package	Total	Call Graph
Mental Health Social Services	3	^AMHPREI ^AMHPREI1 ^AMHPREI2
VA Fileman	3	FILE^DICN ^DIE (,ENALL,IXALL)^DIK
IHS VA Utilities	2	^XBFMK GUIR^XBLM

Entry Points

Name	Comments	DBIA/ICR reference
COM	;
PRE	;
INTAKE	;convert intake documents
ICDC	;;
FIXPROC	;
TP	;
P10	;
P11	;
TP2	;convert again
FICD	;
P2	;
P3	;
P1	;
P6	;
P7	;
P4	;
P5	;
P8	;
P9	;
ENV	;EP
POST	;EP
EDU	;fix education
PROB	;add problems, fix problems

External References

Name	Field # of Occurrence
^AMHPREI	PRE+8
^AMHPREI1	PRE+9
^AMHPREI2	PRE+10
FILE^DICN	P1+2, P2+2, P3+2, P4+2, P5+2, P6+2, P7+2, P8+2, P9+2, P10+2 , P11+2
^DIE	PRE+13, PRE+15, PRE+17, FICD+9, EDU+8, FIXPROC+8
^DIK	PRE+7, PRE+11, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22
ENALL^DIK	POST+1, POST+2
IXALL^DIK	COM+2
^XBFMK	P1+4, P2+4, P3+4, P4+4, P5+4, P6+4, P7+4, P8+4, P9+4, P10+4 , P11+4, EDU+8, FIXPROC+8
GUIR^XBLM	TP+29, TP2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Code 302.85 already exists." Line Location: P1+1
Function Call: WRITE	Prompt: !,"302.85 failed" Line Location: P1+3
Function Call: WRITE	Prompt: !,"Code 50 already exists." Line Location: P2+1
Function Call: WRITE	Prompt: !,"50 failed" Line Location: P2+3
Function Call: WRITE	Prompt: !,"Code 49.9 already exists." Line Location: P3+1
Function Call: WRITE	Prompt: !,"49.9 failed" Line Location: P3+3
Function Call: WRITE	Prompt: !,"Code 47.1 already exists." Line Location: P4+1
Function Call: WRITE	Prompt: !,"47.1 failed" Line Location: P4+3
Function Call: WRITE	Prompt: !,"Code 47.2 already exists." Line Location: P5+1
Function Call: WRITE	Prompt: !,"47.2 failed" Line Location: P5+3
Function Call: WRITE	Prompt: !,"Code 48.1 already exists." Line Location: P6+1
Function Call: WRITE	Prompt: !,"48.1 failed" Line Location: P6+3
Function Call: WRITE	Prompt: !,"Code 48.2 already exists." Line Location: P7+1
Function Call: WRITE	Prompt: !,"48.2 failed" Line Location: P7+3
Function Call: WRITE	Prompt: !,"Code 49.1 already exists." Line Location: P8+1
Function Call: WRITE	Prompt: !,"49.1 failed" Line Location: P8+3
Function Call: WRITE	Prompt: !,"Code 49.2 already exists." Line Location: P9+1
Function Call: WRITE	Prompt: !,"49.2 failed" Line Location: P9+3
Function Call: WRITE	Prompt: !,"Code 312.39 already exists." Line Location: P10+1
Function Call: WRITE	Prompt: !,"312.39 failed" Line Location: P10+3
Function Call: WRITE	Prompt: !,"Code 8.3 already exists." Line Location: P11+1
Function Call: WRITE	Prompt: !,"312.39 failed" Line Location: P11+3
Function Call: WRITE	Prompt: !!,"Updating ICD code for ",D," failed." Line Location: FICD+7
Function Call: WRITE	Prompt: !,"Couldn't find ICD pointer value. ",D," ",I Line Location: FICD+8
Function Call: WRITE	Prompt: !,"Updating ICD code for ",D," failed die." Line Location: FICD+11
Function Call: WRITE	Prompt: "." Line Location: COM+1
Routine Call	DIE Line Location: PRE+13 PRE+15 PRE+17 FICD+9 EDU+8 FIXPROC+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^AMHRPROC - [#9002011.04]	Classic Fileman Calls
^AMHREDU - [#9002011.05]	Classic Fileman Calls
^AMHRCDST - [#9002011.06]	Classic Fileman Calls
^AMHPATR - [#9002011.55]	Classic Fileman Calls
^AMHTSET - [#9002012.1]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls
^AMHSORT - [#9002013.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	COM+1!
^AMHPINTK - [#9002011.07]	INTAKE+1, INTAKE+2, INTAKE+4, INTAKE+5, INTAKE+6, INTAKE+7, INTAKE+9, INTAKE+11
^AMHPROB("B"	P1+1, P2+1, P3+1, P4+1, P5+1, P6+1, P7+1, P8+1, P9+1, P10+1 , P11+1, FICD+6
^AMHPROB(476	FICD+2*
^AMHPROB(477	FICD+3*
^AMHPROB(492	FICD+1*
^AMHPTPP - [#9002011.62]	TP2+12
^AMHPTPP("AD"	TP2+11
^AMHPTXP - [#9002011.56]	TP+1, TP+3, TP+4, TP+7, TP+8, TP+9, TP+10, TP+11, TP+13, TP+14* , TP+16, TP+18, TP+19, TP+20, TP+21, TP+22, TP+23, TP+24, TP+25, TP+26 , TP+27, TP+32, TP+33, TP2+2, TP2+3, TP2+4, TP2+9, TP2+10, TP2+12, TP2+14*
^AMHREC - [#9002011]	COM+4, COM+5, COM+6, COM+7, COM+8, COM+10, COM+11, COM+12*, COM+13!, EDU+5 , EDU+6, FIXPROC+5, FIXPROC+6
^AMHREDU - [#9002011.05]	EDU+1, EDU+2, EDU+4
^AMHRPROC - [#9002011.04]	FIXPROC+1, FIXPROC+2, FIXPROC+4
^AMHTSET("B"	PRE+12, PRE+14, PRE+16
^DD(9002011.01	PRE+2!
^DD(9002011.02	PRE+3!
^DD(9002011.03	PRE+4!
^DD(9002011.04	PRE+5!
^DD(9002011.05	PRE+6!
^DD(9002011.07	INTAKE+4
^DD(9002012.2	POST+3!
^DIC(19 - [#19]	PRE+18, PRE+19, PRE+20, PRE+21, PRE+22
^ICD9("AB"	FICD+8
^TMP($J	TP+28!, TP+30, TP+32, TP2+5!, TP2+7, TP2+9

Label References

Name	Line Occurrences
COM	PROB+1
FICD	P11+1
P10	P9+1
P11	P10+1
P2	P1+1
P3	P2+1
P4	P3+1
P5	P4+1
P6	P5+1
P7	P6+1
P8	P7+1
P9	P8+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHA	TP2+11*, TP2+12
>> AMHC	INTAKE+3, INTAKE+5, INTAKE+7, INTAKE+9, INTAKE+11, TP2+1*
>> AMHF	INTAKE+4*, INTAKE+6, INTAKE+7
>> AMHFN	INTAKE+4*, INTAKE+5
>> AMHNEW	TP+2*
>> AMHP	EDU+6, EDU+7, EDU+8, FIXPROC+6, FIXPROC+7, FIXPROC+8
>> AMHTP	TP+1*, TP+3, TP+4, TP+5, TP+7, TP+8, TP+9, TP+10, TP+11, TP+13 , TP+14, TP+16, TP+18, TP+19, TP+20, TP+21, TP+22, TP+23, TP+24, TP+25 , TP+26, TP+27, TP+32, TP+33
>> AMHV	INTAKE+6, INTAKE+7, EDU+2, EDU+3, EDU+5, EDU+6, FIXPROC+2*, FIXPROC+3, FIXPROC+5, FIXPROC+6
AMHX	FICD+4, COM+1~, INTAKE+1*, INTAKE+2, INTAKE+4, INTAKE+5, INTAKE+6, INTAKE+7, INTAKE+9, INTAKE+11
>> AMHXX	TP2+2, TP2+3, TP2+4, TP2+9, TP2+10, TP2+11, TP2+12, TP2+14, EDU+1, EDU+2 , EDU+4, EDU+8, FIXPROC+1*, FIXPROC+2, FIXPROC+4, FIXPROC+8
>> AMHY	FICD+4*, FICD+5, FICD+10
>> C	TP+16, TP+19, TP+21, TP+23, TP+25, TP+27, TP+31, TP+32, TP+33, TP2+7 , TP2+8*, TP2+9, TP2+10
>> D	FICD+5*, FICD+6, FICD+7, FICD+8, FICD+11
D0	P1+2!, P2+2!, P3+2!, P4+2!, P5+2!, P6+2!, P7+2!, P8+2!, P9+2!, P10+2! , P11+2!
DA	PRE+7, PRE+11, PRE+12, PRE+13!, PRE+14, PRE+15, PRE+16, PRE+17, PRE+18, PRE+19* , PRE+20, PRE+21, PRE+22, FICD+6, FICD+7, FICD+12!, EDU+8, FIXPROC+8
DA(1	PRE+7*
DD	P1+2!, P2+2!, P3+2!, P4+2!, P5+2!, P6+2!, P7+2!, P8+2!, P9+2!, P10+2! , P11+2!
DIADD	P1+2, P1+4!, P2+2, P2+4!, P3+2, P3+4!, P4+2, P4+4!, P5+2, P5+4! , P6+2, P6+4!, P7+2, P7+4!, P8+2, P8+4!, P9+2, P9+4!, P10+2, P10+4! , P11+2*, P11+4!
>> DIC	P1+2, P2+2, P3+2, P4+2, P5+2, P6+2, P7+2, P8+2, P9+2, P10+2 , P11+2*
>> DIC("DR"	P1+2, P2+2, P3+2, P4+2, P5+2, P6+2, P7+2, P8+2, P9+2, P10+2 , P11+2*
>> DIC(0	P1+2, P2+2, P3+2, P4+2, P5+2, P6+2, P7+2, P8+2, P9+2, P10+2 , P11+2*
DIE	PRE+13!, PRE+15, PRE+17, FICD+9, FICD+12!, EDU+8, FIXPROC+8
>> DIK	PRE+7, PRE+11, PRE+18, PRE+19, PRE+20, PRE+21, PRE+22, POST+1, POST+2, COM+2
>> DIK(1	POST+1, POST+2
DITC	EDU+8!, FIXPROC+8!
DLAYGO	P1+2, P1+4!, P2+2, P2+4!, P3+2, P3+4!, P4+2, P4+4!, P5+2, P5+4! , P6+2, P6+4!, P7+2, P7+4!, P8+2, P8+4!, P9+2, P9+4!, P10+2, P10+4! , P11+2*, P11+4!
DO	P1+2!, P2+2!, P3+2!, P4+2!, P5+2!, P6+2!, P7+2!, P8+2!, P9+2!, P10+2! , P11+2!
DR	PRE+13!, PRE+15, PRE+17, FICD+9, FICD+12!, EDU+8, FIXPROC+8
DT	INTAKE+11, TP+8, TP+10, TP+14, TP+33, TP2+10
>> I	FICD+5*, FICD+8, FICD+9
>> P	FICD+8*
U	FICD+1, FICD+2, FICD+3, COM+6, COM+11, INTAKE+4, TP+3, TP+4, TP+11, TP2+3 , TP2+12, TP2+14, EDU+2, EDU+4, EDU+6, FIXPROC+2, FIXPROC+4, FIXPROC+6
>> X	P1+2, P2+2, P3+2, P4+2, P5+2, P6+2, P7+2, P8+2, P9+2, P10+2 , P11+2, COM+4, COM+5, COM+6, COM+7, COM+8, COM+10, COM+11, COM+12, COM+13 , TP+7, TP+8, TP+9, TP+10, TP+13, TP+14, TP+18, TP+19, TP+22, TP+23 , TP+26, TP+27, TP+30, TP+32, TP2+7, TP2+9
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDENV	ENV+1
>> Y	P1+3, P2+3, P3+3, P4+3, P5+3, P6+3, P7+3, P8+3, P9+3, P10+3 , P11+3, FICD+11, COM+8*, COM+9, COM+12

Marked Items

Name	Field # of Occurrence
$T(ICDC+AMHX	FICD+4

Customize PDF page

Package: Mental Health Social Services

Routine: AMHPOST

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items