Routine: AMHEXTAP

Information

AMHEXTAP ; 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	AMHEXD AMHEXRE

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)
^AMHSDATA(	CHKSITE+6, CHKSITE+8, EOJ+1!
^AMHSDATA(0	CHKSITE+7
^AMHSITE - [#9002013]	CHKSITE+1, CHKSITE+2
^AMHXLOG - [#9002014]	CHKSITE+9

Name	Field # of Occurrence
AMH	START+5!
AMH("QFLG"	START+1, EN+2, BASICS+3, CHKSITE+1, CHKSITE+2, CHKSITE+5, CHKSITE+6, CHKSITE+7, CHKSITE+8, CHKSITE+9 , CONT+2*, EOJ+1
AMH("QUIT"	EN+6, BASICS+1!, CHKSITE+10!, CONT+2, EOJ+1
AMH("RUN LOG"	, START+3!, START+5!, COMP, GETLOG+1, GETLOG+4, CHKSITE+9
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	BASICS+2, CHKSITE+1, CHKSITE+2
U	CHKSITE+9
XBFLG	EN+5, EN+6, EOJ+2!
XBFLG(1	EN+5, EN+6
XBGL	EN+3*, EOJ+2!
XBMED	EN+3*, EOJ+2!
XBNAR	EN+3*, EOJ+2!
XBTLE	EN+3*, EOJ+2!
>> Y	GETLOG+3, GETLOG+4, CONT+2
>> ZTQUEUED	EN+5, EN+6, CHKSITE+1, CHKSITE+2, CHKSITE+6, CHKSITE+7, CHKSITE+8, CHKSITE+9, CHKSITE+13, CONT