Routine: AMHEXD

Package	Total	Call Graph
Mental Health Social Services	8	RECORD^AMHEXD2 ^AMHEXDI ERRBULL^AMHEXDI3 (,RUNTIME)^AMHEXEOJ ^AMHEXERR ^AMHEXLOG EN^AMHEXTAP CALLDIE^AMHLEIN
VA Fileman	2	NOW^%DTC ^DIR
IHS Patient	1	KILL^AUPNPAT
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

Mental Health Social Services

RECORD^AMHEXD2 ^AMHEXDI ERRBULL^AMHEXDI3 (,RUNTIME)^AMHEXEOJ ^AMHEXERR ^AMHEXLOG EN^AMHEXTAP CALLDIE^AMHLEIN

NOW^%DTC ^DIR

KILL^AUPNPAT

^XBFMK

Name	Comments	DBIA/ICR reference
RESET	; kill MHSS xref and set flag if tx 23 or 24 generated
CNTBUILD	;count and build tx
PROCESS	;
EOJ	; EOJ
PURGE2	;
DRIVER	;called from TSKMN+2
PURGE	; PURGE 'AEX' XREF FOR MHSS RECORDS JUST DONE
START	;
ABORT	; ABNORMAL TERMINATION
TAPE	; COPY TRANSACTIONS TO TAPE
PROCESS3	;
PROCESS2	;
CHKLOG	; CHECK LOG FILE

External References

Name	Field # of Occurrence
NOW^%DTC	DRIVER+2
RECORD^AMHEXD2	PROCESS3+8
^AMHEXDI	START+4
ERRBULL^AMHEXDI3	TAPE+3, ABORT+2
^AMHEXEOJ	EOJ+1
RUNTIME^AMHEXEOJ	DRIVER+11
^AMHEXERR	CNTBUILD+1
^AMHEXLOG	DRIVER+8
EN^AMHEXTAP	TAPE+3
CALLDIE^AMHLEIN	DRIVER+3, PROCESS3+13, RESET+2
KILL^AUPNPAT	PROCESS3+2
^DIR	DRIVER+16, ABORT+4
^XBFMK	PROCESS3+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Okay, your request is queued! Bye",! Line Location: START+5
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+6
Function Call: WRITE	Prompt: !! Line Location: DRIVER+16
Function Call: WRITE	Prompt: !,"-->There are more than twelve generations of MHSS RECORDs stored in the LOG file.",!,"-->Time to do a purge." Line Location: CHKLOG+3
Function Call: WRITE	Prompt: !!,"Abnormal termination!! QFLG=",AMH("QFLG") Line Location: ABORT+3
Routine Call	DIR Line Location: DRIVER+16 ABORT+4

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHXLOG - [#9002014]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHDTER("B"	ABORT+1
^AMHREC - [#9002011]	PROCESS3+6
^AMHREC("AEX"	PROCESS+3, PROCESS2+1, RESET+1!
^AMHSDATA(	CNTBUILD+5*
^AMHXLOG - [#9002014]	PROCESS3+3, CHKLOG+2
^XTMP("AMH"	CNTBUILD+3*
^XTMP("AMHDR"	PROCESS3+4*, PURGE+3, PURGE+4!, PURGE2+1, RESET+2

Name	Line Occurrences
ABORT	START+7, DRIVER+4, DRIVER+7, DRIVER+9, DRIVER+14
CNTBUILD	PROCESS3+9
EOJ	START+5, START+6, DRIVER+17, ABORT+2, ABORT+5
PROCESS	DRIVER+6
PROCESS2	PROCESS+3
PROCESS3	PROCESS2+1
PURGE	DRIVER+10
PURGE2	PURGE+3
RESET	PURGE2+1
TAPE	DRIVER+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DRIVER+2!
%H	DRIVER+2!
%I	DRIVER+2!
>> AMH(	CNTBUILD+4*
>> AMH("BT"	DRIVER+1*
>> AMH("CONTROL	DATE" , PROCESS+2, PROCESS+3, PROCESS2+1, PROCESS3+4
>> AMH("COUNT"	CNTBUILD+2*, CNTBUILD+5
>> AMH("ERROR CO	UNT" , CNTBUILD+1*
>> AMH("I"	CHKLOG+2*
>> AMH("MAIN TX	DATE" , DRIVER+2*, CNTBUILD+3
>> AMH("POSTING	DATE" , PROCESS+2*
>> AMH("QFLG"	START+6, START+7, DRIVER+7, DRIVER+9, DRIVER+14, PROCESS+3, PROCESS2+1, TAPE+3, ABORT+1, ABORT+3
>> AMH("QFLG1"	ABORT+1*
>> AMH("RUN BEGI	N" , PROCESS+2
>> AMH("RUN END"	, PROCESS+3
>> AMH("RUN LOG"	, DRIVER+3, PROCESS3+3, PROCESS3+11, CHKLOG+2, ABORT+1
>> AMH("RUN STAR	T" , DRIVER+2*, DRIVER+3
>> AMH("T-INIT"	PROCESS+2*
>> AMH("X"	CHKLOG+2*, CHKLOG+3
>> AMHCNT	DRIVER+5*, PROCESS3+5, RESET+3
>> AMHCNT1	DRIVER+5*
>> AMHCNT2	DRIVER+5*
>> AMHCNTR	PROCESS+2, PURGE+2
AMHE	PROCESS3+1!, PROCESS3+8!, CNTBUILD+1
>> AMHO("QUEUE"	START+5
>> AMHO("RUN"	START+3*, CNTBUILD+3
>> AMHO("SCHEDULED"	START+2*
>> AMHR	PROCESS2+1, PROCESS3+3, PROCESS3+4, PROCESS3+6, PROCESS3+11, PURGE2+1, RESET+1, RESET+2, CNTBUILD+3
>> AMHREC	PROCESS3+6*, PROCESS3+7
AMHT	PROCESS3+1!
AMHTX	PROCESS3+8!, PROCESS3+12, CNTBUILD+4, CNTBUILD+5
AMHV	PROCESS3+1!
AMHV("R DATE"	, PROCESS3+7, PURGE+2, PURGE+3*, PURGE2+1, RESET+1
AMHV("TX GENE	RATED" , PROCESS3+4, PROCESS3+12, CNTBUILD+3
>> DA	DRIVER+3, PROCESS3+11, RESET+2, ABORT+1
>> DIE	DRIVER+3, PROCESS3+11, RESET+2, ABORT+1
DIR	DRIVER+16!, ABORT+4!
DIR("A"	DRIVER+16, ABORT+4
DIR(0	DRIVER+16, ABORT+4
>> DIRUT	DRIVER+16, ABORT+4
>> DR	DRIVER+3, PROCESS3+11, RESET+2, ABORT+1
>> DR(2	PROCESS3+12*
>> DUOUT	DRIVER+16, ABORT+4
>> Y	DRIVER+4
>> ZTQUEUED	START+2, DRIVER+5, DRIVER+16, PROCESS+1, PURGE+1, TAPE+3, ABORT+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHEXD

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: