Routine: AMHEYD

Information

AMHEYD ; IHS/CMI/LAB - MAIN DRIVER FOR PCC EXPORT TX GEN AUGUST 14, 1992 ; 22 Jun 2017 12:04 PM

Package	Total	Call Graph
Mental Health Social Services	7	RECORD^AMHEYD2 ^AMHEYDI ERRBULL^AMHEYDI3 (,RUNTIME)^AMHEYEOJ ^AMHEYLOG EN^AMHEYTAP 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^AMHEYD2 ^AMHEYDI ERRBULL^AMHEYDI3 (,RUNTIME)^AMHEYEOJ ^AMHEYLOG EN^AMHEYTAP CALLDIE^AMHLEIN

VA Fileman

NOW^%DTC ^DIR

IHS Patient

KILL^AUPNPAT

IHS VA Utilities

^XBFMK

Package	Total	Caller Graph
Mental Health Social Services	1	AMHEYRE

Package

Total

Caller Graph

Mental Health Social Services

AMHEYRE

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	DRIVER+2
RECORD^AMHEYD2	PROCESS3+9
^AMHEYDI	START+3
ERRBULL^AMHEYDI3	TAPE+1, ABORT+2, ERR+3
^AMHEYEOJ	EOJ+1
RUNTIME^AMHEYEOJ	DRIVER+11
^AMHEYLOG	DRIVER+8
EN^AMHEYTAP	TAPE+1
CALLDIE^AMHLEIN	DRIVER+3, PROCESS+25, PROCESS3+15, RESET+2, RESETSF+2, ERR+2
KILL^AUPNPAT	PROCESS3+2
^DIR	DRIVER+14, ABORT+4
^XBFMK	PROCESS3+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Okay, your request is queued! Bye",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: DRIVER+14
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+14 ABORT+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHDTER("B"	ABORT+1
^AMHERR - [#9002014.3]	ERRLOG+2
^AMHERR("B"	ERRLOG+1
^AMHPSUIC - [#9002011.65]	PROCESS+9, PROCESS+10
^AMHPSUIC("AEX"	PROCESS+7, PROCESS+8, PROCESS+9!, RESETSF+1!
^AMHREC - [#9002011]	PROCESS3+7
^AMHREC("AEX"	PROCESS+3, PROCESS2+1, RESET+1!
^AMHRECD - [#9002014.1]	PROCESS+14, PROCESS+16, PROCESS+17, PROCESS+18
^AMHRECD("B"	PROCESS+12
^AMHXLOG - [#9002014]	PROCESS+24, PROCESS3+3, PROCESS3+12, CHKLOG+2
^BHSXDATA	PROCESS+23, CNTBUILD+4
^XTMP("AMH"	CNTBUILD+3*
^XTMP("AMHDR"	PROCESS3+4*, PURGE+3, PURGE+4!, PURGE2+1, RESET+2
^XTMP("AMHSF"	PROCESS+22*, PURGESF+3, PURGESF+4!, PURGE2SF+1, RESETSF+2

Label References

Name	Line Occurrences
ABORT	START+6, DRIVER+4, DRIVER+7, DRIVER+9, DRIVER+13
CNTBUILD	PROCESS3+10
EOJ	START+4, START+5, DRIVER+15, ABORT+2, ABORT+5
ERR	ERRLOG+1
ERRLOG	CNTBUILD+1
PROCESS	DRIVER+6
PROCESS2	PROCESS+3
PROCESS3	PROCESS2+1
PURGE	DRIVER+10
PURGE2	PURGE+3
PURGE2SF	PURGESF+3
PURGESF	DRIVER+10
RESET	PURGE2+1
RESETSF	PURGE2SF+1
TAPE	DRIVER+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DRIVER+2!
%H	DRIVER+2!
%I	DRIVER+2!
>> AMH("BT"	DRIVER+1*
>> AMH("CONTROL	DATE" , PROCESS+2, PROCESS+3, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+22, PROCESS2+1, PROCESS3+4
>> AMH("COUNT"	PROCESS+21, PROCESS+23, CNTBUILD+2, CNTBUILD+4
>> AMH("ERROR CO	UNT" , CNTBUILD+1*
>> AMH("I"	CHKLOG+2*
>> AMH("MAIN TX	DATE" , DRIVER+2*, PROCESS+22, CNTBUILD+3
>> AMH("POSTING	DATE" , PROCESS+2*
>> AMH("QFLG"	START+5, START+6, DRIVER+7, DRIVER+9, DRIVER+13, PROCESS+3, PROCESS2+1, TAPE+1, ABORT+1, ABORT+3 , ERR+3*
>> AMH("QFLG1"	ABORT+1*
>> AMH("RUN BEGI	N" , PROCESS+2
>> AMH("RUN END"	, PROCESS+3, PROCESS+7
>> AMH("RUN LOG"	, DRIVER+3, PROCESS+24, PROCESS+25, PROCESS3+3, PROCESS3+12, PROCESS3+13, CHKLOG+2, ABORT+1, ERR+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, RESETSF+3
>> AMHCNT1	DRIVER+5*
>> AMHCNT2	DRIVER+5*
>> AMHCNTR	PROCESS+2, PROCESS+6, PURGE+2, PURGESF+2
AMHE	PROCESS3+1!, PROCESS3+9!, CNTBUILD+1, ERRLOG+1, ERRLOG+2
AMHE("ERR DFN	" , ERRLOG+1*, ERRLOG+2
AMHE("MSG"	ERRLOG+1, ERRLOG+2, ERR+1
>> AMHO("QUEUE"	START+4
>> AMHO("RUN"	START+2*, CNTBUILD+3
>> AMHO("SCHEDULED"	START+1*
>> AMHR	PROCESS2+1, PROCESS3+3, PROCESS3+4, PROCESS3+7, PROCESS3+12, PROCESS3+13, PURGE2+1, RESET+1, RESET+2, PURGE2SF+1* , RESETSF+1, RESETSF+2, CNTBUILD+3, ERR+1
>> AMHRACE	PROCESS+11*
>> AMHREC	PROCESS3+7*, PROCESS3+8
>> AMHRIEN	PROCESS+12*, PROCESS+13, PROCESS+14, PROCESS+16, PROCESS+17, PROCESS+18
>> AMHSFC	PROCESS+21*
>> AMHSFIEN	PROCESS+8*, PROCESS+9, PROCESS+10, PROCESS+22, PROCESS+24, PROCESS+25
>> AMHSFR	PROCESS+6*
>> AMHSREC	PROCESS+10*, PROCESS+11
AMHT	PROCESS3+1!
>> AMHTOTV	PROCESS+2, PROCESS3+6
AMHTX	PROCESS+14, PROCESS+19, PROCESS+23, PROCESS3+9!, CNTBUILD+4
AMHV	PROCESS3+1!
AMHV("R DATE"	, PROCESS3+8, PURGE+2, PURGE+3, PURGE2+1, RESET+1, PURGESF+2, PURGESF+3*, PURGE2SF+1, RESETSF+1 , RESETSF+2
AMHV("TX GENE	RATED" , PROCESS3+4, PROCESS3+14, CNTBUILD+3
>> AMHY	PROCESS+14*, PROCESS+16, PROCESS+19
>> AMHZ	PROCESS+16*, PROCESS+17, PROCESS+18
>> DA	DRIVER+3, PROCESS+25, PROCESS3+13, RESET+2, RESETSF+2, ABORT+1, ERR+1*
>> DFN	PROCESS+11*
DIE	DRIVER+3, PROCESS+25, PROCESS3+13, RESET+2, RESETSF+2, ABORT+1, ERR+1!*
DIR	DRIVER+14!, ABORT+4!
DIR("A"	DRIVER+14, ABORT+4
DIR(0	DRIVER+14, ABORT+4
>> DIRUT	DRIVER+14, ABORT+4
DR	DRIVER+3, PROCESS+25, PROCESS3+13, RESET+2, RESETSF+2, ABORT+1, ERR+1!*
DR(2	PROCESS3+14, ERR+1
>> DUOUT	DRIVER+14, ABORT+4
U	PROCESS+11, PROCESS+19, ERRLOG+2
>> X	PROCESS+15*, PROCESS+19
>> Y	DRIVER+4, ERR+3
>> ZTQUEUED	START+1, DRIVER+5, DRIVER+14, PROCESS+1, PROCESS+5, PURGE+1, PURGESF+1, TAPE+1, ABORT+2, ERR+3

Customize PDF page

Package: Mental Health Social Services