Routine: AMH30P4C

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIE
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Mental Health Social Services	1	AMH30P4

Entry Points

Name	Comments	DBIA/ICR reference
PCCHG	;change codes
NAME	;;
MAPC	;
EDIT	;
NEWADDS	;
PCHGS	;;
CHG	;;
PINAC	;do inactivations
ADDPC	;
PCHG	;change codes
ADD	;;
PADDSE
PNAME	;now do name changes
PADDS	;process adds
MAP	;;
INAC	;;

External References

Name	Field # of Occurrence
FILE^DICN	PADDS+30, NEWADDS+13, ADDPC+1
^DIE	AMH30P4C+4, AMH30P4C+6, PINAC+8, PINAC+14, PNAME+8, PNAME+14, PCHG+8, PADDS+6, PADDS+25, PADDSE+2 , PCCHG+8, MAPC+8, EDIT+2
^XBFMK	AMH30P4C+7, PINAC+12, PNAME+12, PNAME+16, PADDS+8, PADDS+19, PADDS+27, PADDS+31, NEWADDS+12, NEWADDS+16 , EDIT+1, EDIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Inactivating MHSS PROBLEM CODES and DSM Codes:" Line Location: PINAC+1
Function Call: WRITE	Prompt: !,"inactivating ",AMHC," failed." Line Location: PINAC+9
Function Call: WRITE	Prompt: !!,"Name changes on codes:" Line Location: PNAME+1
Function Call: WRITE	Prompt: !,"changing name ",AMHC," failed." Line Location: PNAME+9
Function Call: WRITE	Prompt: !," name change failed" Line Location: PNAME+15
Function Call: WRITE	Prompt: !!,"changing codes:" Line Location: PCHG+1
Function Call: WRITE	Prompt: !,"changing code ",AMHC," failed." Line Location: PCHG+9
Function Call: WRITE	Prompt: !!,"adding new codes:" Line Location: PADDS+9
Function Call: WRITE	Prompt: " editing problem code failed" Line Location: PADDS+26
Function Call: WRITE	Prompt: " Already have code ",AMHC," will edit." Line Location: PADDS+29
Function Call: WRITE	Prompt: " adding failed in dsm file" Line Location: PADDS+31
Function Call: WRITE	Prompt: " editing ",AMHC," failed dsm file." Line Location: PADDSE+3
Function Call: WRITE	Prompt: !!,"changing codes:" Line Location: PCCHG+1
Function Call: WRITE	Prompt: !,"changing code ",AMHC," failed." Line Location: PCCHG+9
Function Call: WRITE	Prompt: !,"Remapping MHSS PROBLEM CODES and DSM Codes to ICD9 dx codes:" Line Location: MAPC+1
Function Call: WRITE	Prompt: !,"mapping ",AMHC," failed." Line Location: MAPC+9
Function Call: WRITE	Prompt: !,"error in file ADDS ",AMHX Line Location: NEWADDS+3
Function Call: WRITE	Prompt: !,"error in description ADDS ",AMHX Line Location: NEWADDS+4
Function Call: WRITE	Prompt: !,"error in problem code adds ",AMHX Line Location: NEWADDS+6
Function Call: WRITE	Prompt: !,"error in problem code adds ",AMHX Line Location: NEWADDS+7
Function Call: WRITE	Prompt: !,"error in file^dicn in adding new code ",AMHC Line Location: NEWADDS+14
Function Call: WRITE	Prompt: " adding failed." Line Location: ADDPC+2
Routine Call	DIE Line Location: AMH30P4C+4 AMH30P4C+6 PINAC+8 PINAC+14 PNAME+8 PNAME+14 PCHG+8 PADDS+6 PADDS+25 PADDSE+2 PCCHG+8 MAPC+8 EDIT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHPROB - [#9002012.2]	Classic Fileman Calls
^AMHPROBC - [#9002012.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	PNAME+6, NEWADDS+9
^AMHPROB("B"	PINAC+4, PNAME+4, PCHG+4, PADDS+28, PCCHG+4, MAPC+4, NEWADDS+9
^AMHPROB("C"	AMH30P4C+3, AMH30P4C+5
^AMHPROBC("B"	PINAC+11, PNAME+11, PADDS+2, PADDS+3, PADDS+20, NEWADDS+7
^AMHTPCAD - [#9002012.3]	NEWADDS+2, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6

Label References

Name	Line Occurrences
ADDPC	PADDS+2, PADDS+21
EDIT	NEWADDS+10
PADDSE	PADDS+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHC	PINAC+3, PINAC+4, PINAC+6, PINAC+9, PINAC+11, PNAME+3, PNAME+4, PNAME+6, PNAME+9, PNAME+11 , PCHG+3, PCHG+4, PCHG+6, PCHG+9, PADDS+2, PADDS+11, PADDS+17, PADDS+18, PADDS+20, PADDS+28 , PADDS+29, PADDS+30, PADDSE+3, PCCHG+3, PCCHG+4, PCCHG+6, PCCHG+9, MAPC+3, MAPC+4, MAPC+6 , MAPC+9, NEWADDS+3, NEWADDS+5, NEWADDS+9, NEWADDS+13, NEWADDS+14, NEWADDS+15, ADDPC+1
>> AMHCAT	PADDS+15*, PADDS+24
>> AMHD	PADDS+12, PADDS+24, PADDSE+1, NEWADDS+4, NEWADDS+9, NEWADDS+13, NEWADDS+15, EDIT+2
>> AMHI	NEWADDS+5*, NEWADDS+13, EDIT+2
>> AMHJ	PINAC+2, PNAME+2, PCHG+2, PADDS+10, PCCHG+2, MAPC+2
>> AMHM	PADDS+13*, PADDSE+1
>> AMHP	PADDS+14, PADDSE+1, NEWADDS+6, NEWADDS+7*, NEWADDS+13, EDIT+2
>> AMHX	PINAC+2, PINAC+3, PNAME+2, PNAME+3, PNAME+6, PNAME+7, PNAME+14, PCHG+2, PCHG+3, PCHG+6 , PCHG+7, PADDS+10, PADDS+11, PADDS+12, PADDS+13, PADDS+14, PADDS+15, PCCHG+2, PCCHG+3, PCCHG+6 , PCCHG+7, MAPC+2, MAPC+3, MAPC+7, NEWADDS+2*, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6, NEWADDS+7
D0	PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DA	AMH30P4C+3, AMH30P4C+4!, AMH30P4C+5, AMH30P4C+6!, PINAC+4, PINAC+5, PINAC+10!, PINAC+11, PINAC+12, PINAC+14! , PNAME+4, PNAME+5, PNAME+6, PNAME+10!, PNAME+11, PNAME+12, PNAME+14, PCHG+4, PCHG+5, PCHG+10! , PADDS+3, PADDS+4, PADDS+20, PADDS+21, PADDS+22, PADDS+28, PADDS+29, PADDS+32, PADDSE+4!, PCCHG+4 , PCCHG+5, PCCHG+10!, MAPC+4, MAPC+5, MAPC+10!, EDIT+2, ADDPC+3*
DD	PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DIADD	PADDS+30!, NEWADDS+12!, NEWADDS+13, NEWADDS+16!, ADDPC+1*!
>> DIC	PADDS+30, NEWADDS+13, ADDPC+1*
>> DIC("DR"	NEWADDS+13*
>> DIC(0	PADDS+30, NEWADDS+13, ADDPC+1*
DIE	AMH30P4C+4!, AMH30P4C+6!, PINAC+7, PINAC+10!, PINAC+14!, PNAME+7, PNAME+10!, PNAME+14, PCHG+7, PCHG+10! , PADDS+5, PADDS+24, PADDSE+1, PADDSE+4!, PCCHG+7, PCCHG+10!, MAPC+7, MAPC+10!, EDIT+2*
DIU	PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DIV	PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DIW	PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DLAYGO	PADDS+30!, NEWADDS+12!, NEWADDS+13, NEWADDS+16!, ADDPC+1*!
DO	PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DR	AMH30P4C+4!, AMH30P4C+6!, PINAC+7, PINAC+10!, PINAC+14!, PNAME+7, PNAME+10!, PNAME+14, PCHG+7, PCHG+10! , PADDS+5, PADDS+24, PADDSE+1, PADDSE+4!, PCCHG+7, PCCHG+10!, MAPC+7, MAPC+10!, EDIT+2*
DT	PINAC+7
>> G	NEWADDS+9*, NEWADDS+10, EDIT+2
U	PNAME+6, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6, NEWADDS+9
>> X	PADDS+30, NEWADDS+9, NEWADDS+13, ADDPC+1
>> Y	PINAC+9, PNAME+9, PNAME+15, PCHG+9, PADDS+26, PADDS+31, PADDS+32, PADDSE+3, PCCHG+9, MAPC+9 , NEWADDS+14, ADDPC+2, ADDPC+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMH30P4C

Information

Source Information

Call Graph

Call Graph Total: 3

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:

Marked Items

Name	Field # of Occurrence
$T(ADD+AMHJ	PADDS+10
$T(CHG+AMHJ	PCHG+2
$T(INAC+AMHJ	PINAC+2
$T(MAP+AMHJ	MAPC+2
$T(NAME+AMHJ	PNAME+2
$T(PCHGS+AMHJ	PCCHG+2