Routine: AMH40ENV

Package	Total	Call Graph
VA Fileman	5	(,IX)^DIC FILE^DICN DT^DICRW (,UPDATE)^DIE (,ENALL)^DIK
Kernel	3	HOME^%ZIS $$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
DRG Grouper	1	$$ICDD^ICDCODE
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
INSTALLD(AMHSTAL)	;EP - Determine if patch AMHSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
BPCKEY	;remove all BPCKEYS
TIU	;MOVE TIU DOCUMENTS FROM 1108 TO MULTIPLE
ICDUPD	;
MM3	;BULLETIN;
NEWE
DELKEY	;
NEW	;add new codes
PRE	;
DELVKEY	;
C316	;
PA	;
WRITEMS3	;
INACT	;
ICDNEW	;;
IMES	;
GETREC3	;
ICD	;
SUBJECT3
ENV	;EP
POST	;EP
SENDER3
REMAP	;
KEYSAVE	;
DEPSCR	;
SORRY(X)	;
KEY	;delete keys and remove them from any options
NEW1	;

External References

Name	Field # of Occurrence
HOME^%ZIS	MM3+2
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	POST+10, NEW+4, NEW1+9
DT^DICRW	MM3+2
^DIE	PRE+2, KEYSAVE+7, C316+2, C316+4, KEY+5, DEPSCR+3, DEPSCR+4, ICDUPD+5, ICDUPD+6, INACT+4 , INACT+7, NEWE+5, REMAP+3
UPDATE^DIE	TIU+8
^DIK	PRE+3, PRE+4, PRE+5, BPCKEY+3, DELKEY+2
ENALL^DIK	POST+18, POST+20, POST+22, POST+24, POST+26, POST+28, POST+30
$$ICDD^ICDCODE	NEWE+3
$$CJ^XLFSTR	ENV+2, ENV+3, ENV+4, ENV+5, ENV+7, ENV+8, ENV+9, ENV+10, ENV+11, ENV+12 , IMES+1, SORRY+4
^XMD	SENDER3+3
$$VERSION^XPDUTL	ENV+2, ENV+4, ENV+7, ENV+9, ENV+11
MES^XPDUTL	ENV+2, ENV+3, ENV+4, ENV+5, ENV+7, ENV+8, ENV+9, ENV+10, ENV+11, ENV+12 , POST+2, POST+6, POST+11, TIU+9, IMES+1, ICDUPD+1, INACT+5, NEW+5, NEW1+5, NEW1+10 , NEWE+6, REMAP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR ZERO.",! Line Location: MM3+1
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key." Line Location: SENDER3+2
Routine Call	%ZIS Line Location: MM3+2
Routine Call	DIE Line Location: PRE+2 KEYSAVE+7 C316+2 C316+4 KEY+5 DEPSCR+3 DEPSCR+4 ICDUPD+5 ICDUPD+6 INACT+4 INACT+7 NEWE+5 REMAP+3
Routine Call	DIC Line Location: INSTALLD+6
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIE Line Location: TIU+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^DIC(19.1 - [#19.1]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRINTK - [#9002011.13]	Classic Fileman Calls
^AMHPTXP - [#9002011.56]	Classic Fileman Calls
^AMHPSUIC - [#9002011.65]	Classic Fileman Calls
^AMHGROUP - [#9002011.67]	Classic Fileman Calls
^AMHTACT - [#9002012]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls
^AMHPROBC - [#9002012.4]	Classic Fileman Calls
^AMHSORT - [#9002013.3]	Classic Fileman Calls
^AMHRECD - [#9002014.1]	Classic Fileman Calls
^AMHBHPC - [#9002014.59]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHBHPC - [#9002014.59]	PRE+5
^AMHPATCH - [#9002013.2]	WRITEMS3+3
^AMHPATCH("AA"	WRITEMS3+1
^AMHPINTK - [#9002011.07]	POST+3, POST+4, POST+5, POST+7, POST+13, POST+15*
^AMHPROB("B"	C316+1, ICDUPD+5, ICDUPD+6, INACT+2, NEW1+6, REMAP+1
^AMHPROBC("B"	INACT+6, NEW+2, NEW1+4
^AMHPTXP("AA"	POST+17!
^AMHREC - [#9002011]	DEPSCR+1, DEPSCR+2, DEPSCR+3, DEPSCR+4, TIU+2, TIU+3, TIU+5
^AMHRECD - [#9002014.1]	PRE+4
^AMHRINTK - [#9002011.13]	POST+13*
^AMHSITE - [#9002013]	POST+32, POST+33, POST+34*
^AMHSORT - [#9002013.3]	PRE+3
^AMHTPA - [#9002014.8]	PA+5*
^AMHTPA("B"	PA+1, PA+3!, PA+4*
^DIC(19 - [#19]	C316+3, KEY+2, KEY+3, KEY+4
^DIC(19.1 - [#19.1]	KEYSAVE+2, BPCKEY+1, BPCKEY+2, DELKEY+1
^DIC(4 - [#4]	POST+34
^DIC(9.4 - [#9.4]	PRE+1
^TMP($J	MM3+5!, SENDER3+4!, WRITEMS3+3, WRITEMS3+4, WRITEMS3+5*
^XUSEC(	GETREC3+4
^XUSEC("AMHZ DELETE RECORD"	KEYSAVE+8*
^XUSEC("AMHZ DELETE VISIT"	KEYSAVE+6

Label References

Name	Line Occurrences
$$INSTALLD	ENV+6
DELKEY	KEY+1
GETREC3	MM3+6
ICDUPD	ICD+1
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
INACT	ICDUPD+2
MM3	POST+35
NEW	ICDUPD+3
NEW1	NEW+3
REMAP	ICDUPD+4
SORRY	ENV+2, ENV+4, ENV+6, ENV+7, ENV+9, ENV+11
WRITEMS3	MM3+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHAIEN	TIU+1~
AMHASK	KEYSAVE+1!
>> AMHC	WRITEMS3+3, WRITEMS3+4, WRITEMS3+5*
>> AMHCODE	NEW1+3*, NEW1+10, NEWE+3, NEWE+4, NEWE+6
>> AMHDA	POST+12*, POST+13
AMHDOC	TIU+1~, TIU+3*, TIU+4, TIU+5, TIU+7
AMHERRR	TIU+1~, TIU+9
AMHFDA	TIU+1~
AMHFDA(	TIU+7*
AMHHASK	KEYSAVE+5!
AMHHASK(	KEYSAVE+6*, KEYSAVE+8
>> AMHIEN	WRITEMS3+1*, WRITEMS3+2, WRITEMS3+3
AMHIENS	TIU+1~, TIU+6*, TIU+7
AMHINA	NEWE+2!, NEWE+3*
AMHINA(1	NEWE+4
AMHKEY	KEY+1, KEY+4, DELKEY+1, SENDER3+2, SENDER3+4!, GETREC3+3, GETREC3+4
>> AMHNMM	POST+32, POST+34, POST+35, WRITEMS3+5
>> AMHPC	NEW1+4*, NEW1+5, NEWE+4
AMHSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHTEXT	NEW1+2*
>> AMHTX	NEW1+2*, NEW1+3, NEW1+5
AMHX	POST+3, POST+4, POST+5, POST+6, POST+7, POST+11, POST+13, POST+15, POST+32, POST+33 , POST+34, KEY+2, KEY+3, KEY+4, KEY+5, BPCKEY+1, BPCKEY+2, DEPSCR+1, DEPSCR+2, DEPSCR+3 , DEPSCR+4, TIU+1~, TIU+2, TIU+3, TIU+5, TIU+6, TIU+9, WRITEMS3+3, ICDUPD+5, ICDUPD+6* , INACT+1, INACT+2, INACT+5, NEW1+2, REMAP+1*, REMAP+2
AMHY	POST+7, POST+8, BPCKEY+2, BPCKEY+3, INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> C	NEW1+3*, NEW1+4
>> CTR	GETREC3+3, GETREC3+4
>> D	INSTALLD+5*
D0	NEW+4!, NEW1+9!
DA	PRE+1, PRE+2, PRE+3, PRE+4, PRE+5, PRE+6!, KEYSAVE+2, KEYSAVE+3, KEYSAVE+7!, C316+1 , C316+2!, C316+3, C316+4!, PA+1, PA+2, PA+3, PA+4, PA+5, KEY+5!, BPCKEY+3 , DEPSCR+3!, DEPSCR+4!, DELKEY+1, DELKEY+2, DELKEY+3!, ICDUPD+5!, ICDUPD+6!, INACT+2, INACT+3, INACT+4! , INACT+6, INACT+7!, NEW+1!, NEW+2, NEW+3, NEW+6!, NEW1+6, NEW1+11, NEWE+5!, REMAP+1* , REMAP+2, REMAP+3!
DD	NEW+4!, NEW1+9!
DIADD	POST+9, POST+10!, NEW+1!, NEW+4, NEW+6!, NEW1+7*, NEW1+9!
DIC	POST+9, POST+10!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11, NEW+1!, NEW+4, NEW+6!, NEW1+7 , NEW1+9!
DIC("DR"	POST+8, NEW+4
DIC(0	POST+9, INSTALLD+5, NEW+4, NEW1+8
DIE	PRE+2, KEYSAVE+7!, C316+2!, C316+4!, KEY+5!, DEPSCR+3!, DEPSCR+4!, ICDUPD+5!, ICDUPD+6!, INACT+4! , INACT+7!, NEW+1!, NEW+6!, NEWE+1, NEWE+5!, REMAP+1*, REMAP+3!
DIFQ	SORRY+1!
DIFROM	MM3+4~
DIK	PRE+3, PRE+4, PRE+5, PRE+6!, POST+18, POST+19!, POST+20, POST+21!, POST+22, POST+23! , POST+24, POST+25!, POST+26, POST+27!, POST+28, POST+29!, POST+30, POST+31!, BPCKEY+3, DELKEY+2 , DELKEY+3!
DIK(1	POST+18, POST+20, POST+22, POST+24, POST+26, POST+28, POST+30*
DITC	KEYSAVE+7*!
DLAYGO	POST+9, POST+10!, NEW+1!, NEW+4, NEW+6!, NEW1+7*, NEW1+9!
DO	NEW+4!, NEW1+9!
DR	PRE+2, KEYSAVE+7!, C316+2!, C316+4!, KEY+5!, DEPSCR+3!, DEPSCR+4!, ICDUPD+5!, ICDUPD+6!, INACT+4! , INACT+7!, NEW+1!, NEW+6!, NEWE+4, NEWE+5!, REMAP+1*, REMAP+3!
DUZ	MM3+1, SENDER3+1
IOM	IMES+1, SORRY+4
IOST	SENDER3+2
U	PA+5, POST+4, POST+5, POST+8, POST+15, POST+33, POST+34, KEY+3, KEY+4, DEPSCR+3 , DEPSCR+4, TIU+3
X	ENV+1, KEYSAVE+6, KEYSAVE+8, POST+5, POST+6, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~ , SORRY+2, SORRY+3, NEW+4, NEW1+3*, NEW1+6
XMDUZ	MM3+4~, SENDER3*
XMSUB	MM3+4~, SUBJECT3*
XMTEXT	MM3+4~, SENDER3+1*
XMY	MM3+4~
XMY(	SENDER3+1, GETREC3+4
XMY(1	SENDER3+1*
>> XPDDIQ(	ENV+1*
>> XPDQUIT	SORRY+2, SORRY+3
Y	POST+11, POST+12, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, GETREC3+4* , INACT+5, NEW+5, NEW1+10, NEW1+11, NEWE+6

Marked Items

Name	Field # of Occurrence
$T(@AMHTEXT+AMHX	NEW1+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMH40ENV

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items