Routine: AMHEYTAP

Information

AMHEYTAP ; IHS/CMI/LAB - GENERATE TAPE OF MHSS TRANSACTIONS ;

Package	Total	Call Graph
IHS VA Utilities	2	^XBGSAVE ^XBKVAR
VA Fileman	2	^DIC ^DIR
Mental Health Social Services	1	CALLDIE^AMHLEIN

Package	Total	Caller Graph
Mental Health Social Services	2	AMHEYD AMHEYRE

Name	Comments	DBIA/ICR reference
BASICS	; SET VARIABLES, LOCK GLOBAL, INSURE DATA
CONT
CHKSITE	; CHECK SITE FILE
COMP
GETLOG	;
START	;
EN	;ENTRY POINT
EOJ	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Transactions are NOT being written to an output device",! Line Location: CONT+2
Routine Call	DIC Line Location: GETLOG+2
Routine Call	DIR Line Location: CONT+1

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

Name	Line Occurrences (* Changed, ! Killed)
^AMHSITE - [#9002013]	EN+6, CHKSITE+1, CHKSITE+2
^AMHXLOG - [#9002014]	CHKSITE+8
^BHSXDATA	CHKSITE+5, CHKSITE+7, EOJ+1!, EOJ+4
^BHSXDATA(0	CHKSITE+6

Name	Field # of Occurrence
AMH	START+5!
AMH("QFLG"	START+1, EN+2, BASICS+3, CHKSITE+1, CHKSITE+2, CHKSITE+4, CHKSITE+5, CHKSITE+6, CHKSITE+7, CHKSITE+8 , CONT+2*, EOJ+1
AMH("QUIT"	BASICS+1!, CHKSITE+9!, CONT+2*, EOJ+1
AMH("RUN LOG"	, START+3!, START+5!, COMP, GETLOG+1, GETLOG+4, CHKSITE+8
AMH("TAPE COU	NT" , BASICS+3*
AMH("XX"	EOJ+2!
AMHS	START+5!
>> AMHV("TX"	EOJ+2!
D	EOJ+3!
D0	EOJ+3!
DA	COMP!*, GETLOG+2!, CONT+1!
DIC	GETLOG+2*!, EOJ+3!
DIC("S"	GETLOG+2*
DIC(0	GETLOG+2*
DIE	COMP!*
DIR	CONT+1!, EOJ+3!
DIR("A"	CONT+1*
DIR("B"	CONT+1*
DIR(0	CONT+1*
>> DIRUT	CONT+2
DO	EOJ+3!
DQ	EOJ+3!
DR	COMP!*
DUZ(2	EN+6, BASICS+2, CHKSITE+1, CHKSITE+2
U	EN+6, CHKSITE+8
XBFLG	EOJ+2!
XBGL	EN+3*, EOJ+2!
XBMED	EN+3*, EOJ+2!
XBNAR	EN+3*, EOJ+2!
>> XBQ	EN+5, EN+7, EN+9*
XBS1	EN+4!, EN+7, EN+8
XBTLE	EN+3*, EOJ+2!
>> Y	EN+6*, EN+7, EN+8, EN+9, GETLOG+3, GETLOG+4, CONT+2
>> ZTQUEUED	CHKSITE+1, CHKSITE+2, CHKSITE+5, CHKSITE+6, CHKSITE+7, CHKSITE+8, CHKSITE+10, CONT