Routine: AMHEYC

Information

AMHEYC ; IHS/CMI/LAB - MAIN DRIVER FOR PCC EXPORT RECORD CHECK ;

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	1	^XBDBQUE
Mental Health Social Services	1	GETLOG^AMHEYDI2

Name	Comments	DBIA/ICR reference
FIRSTRUN	; FIRST RUN EVER (NO LOG ENTRY)
INFORM	;
EOJ	;
FRLP	;
START	;
CURRUN	;EP - COMPUTE DATES FOR CURRENT RUN
ZIS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Ending date cannot be before beginning date!",$C(7) Line Location: CURRUN+6
Function Call: WRITE	Prompt: !!,"This report will review records that were posted between ",AMH("X"),!," and ",AMH("Y"),", inclusive." Line Location: CURRUN+10
Function Call: WRITE	Prompt: !! Line Location: CURRUN+13
Function Call: WRITE	Prompt: !!,"okay, bye." Line Location: CURRUN+15
Function Call: WRITE	Prompt: !!,"This program will review all records that have been posted to the BH",!,"database since that last export was done. It will review all records that",!,"were posted from the day after the last date of that run up until 2 days ago.",!! Line Location: INFORM+2
Routine Call	DIR Line Location: CURRUN+13 FRLP+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHXLOG - [#9002014]	CURRUN+2
^DD("DD"	CURRUN+8, CURRUN+9

Name	Field # of Occurrence
%	CURRUN+11!
%H	CURRUN+11!
%I	CURRUN+11!
AMH	EOJ+1!
AMH("DATE"	CURRUN+11!
AMH("FIRST RU	N" , FRLP+4*
AMH("LAST BEG	IN" , CURRUN+11!
AMH("LAST LOG	" , CURRUN+2, CURRUN+11!
AMH("QFLG"	START+2, START+4, CURRUN+4, CURRUN+6, FRLP+2*
AMH("RDFN"	CURRUN+11!
AMH("X"	CURRUN+8*, CURRUN+10, CURRUN+11!
AMH("Y"	CURRUN+9*, CURRUN+10, CURRUN+11!
AMH("Z"	CURRUN+11!
AMH80D	EOJ+1!
AMH80E	EOJ+1!
AMHACT	EOJ+1!
AMHAFF	EOJ+1!
AMHBD	CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FRLP+3*, EOJ+1!
AMHBDD	EOJ+1!
AMHBT	EOJ+1!
AMHBTH	EOJ+1!
AMHC	EOJ+1!
AMHCAT	EOJ+1!
AMHCOM	EOJ+1!
AMHDATE	EOJ+1!
AMHDISC	EOJ+1!
AMHDUZ2	EOJ+1!
AMHE	EOJ+1!
AMHED	CURRUN+7*, CURRUN+9, EOJ+1!
AMHEDD	EOJ+1!
AMHHRCN	EOJ+1!
AMHINI	EOJ+1!
AMHJOB	EOJ+1!
AMHLENG	EOJ+2!
AMHLOC	EOJ+1!
AMHNAME	EOJ+1!
AMHO	EOJ+1!
AMHODAT	EOJ+1!
AMHPAT	EOJ+1!
AMHPG	EOJ+1!
AMHPROG	EOJ+1!
AMHQUIT	EOJ+1!
AMHR	EOJ+1!
AMHRCNT	EOJ+1!
AMHREC	EOJ+2!
AMHSD	EOJ+1!
AMHTMP	EOJ+2!
AMHTX	EOJ+2!
AMHX	EOJ+2!
D0	EOJ+3!
DA	EOJ+3!
DFN	EOJ+1!
DIC	EOJ+3!
DIR	CURRUN+13!, FRLP+1!, EOJ+3!
DIR("A"	CURRUN+13, FRLP+1
DIR("B"	CURRUN+13*
DIR(0	CURRUN+13, FRLP+1
>> DIRUT	CURRUN+13, CURRUN+14, FRLP+1, FRLP+2
DT	CURRUN+5
>> DUOUT	CURRUN+13, FRLP+1
IOF	INFORM+1
U	CURRUN+2
X	CURRUN+2, EOJ+2!
>> X1	CURRUN+2*
>> X2	CURRUN+2*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	CURRUN+2, CURRUN+5, CURRUN+6, CURRUN+7, CURRUN+8, CURRUN+9, CURRUN+15, FRLP+3, EOJ+2!
Z	EOJ+2!