Routine: AMHEXDI2

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Mental Health Social Services	1	(CURRUN,INFORM)^AMHEXDI3

Package

Total

Call Graph

VA Fileman

^DIC ^DIR

Mental Health Social Services

(CURRUN,INFORM)^AMHEXDI3

Package	Total	Caller Graph
Mental Health Social Services	3	AMHEXC AMHEXDI AMHEXRE1

Package

Total

Caller Graph

Mental Health Social Services

AMHEXC AMHEXDI AMHEXRE1

Entry Points

Name	Comments	DBIA/ICR reference
GENLOG	; GENERATE NEW LOG ENTRY
QERR	;
PERR	;
RERR	;
GETLOG	;EP GET LAST LOG ENTRY
DISPLOG	; DISPLAY LAST LOG DATA
CONFIRM	; SEE IF THEY REALLY WANT TO DO THIS
START	;
EERR	;
FERR	;
CFLP	;
CHKMHSS	; CHECK MHSS RECORD "AEX" XREF
ERROR	;
CHKOLD	;EP - CHECK FOR DATA LEFT BY OLD RUN

Name	Field # of Occurrence
CURRUN^AMHEXDI3	START+6
INFORM^AMHEXDI3	START+1
^DIC	GENLOG+4
^DIR	CFLP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"***ERROR ENCOUNTERED***",!,"The last PCC Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",! Line Location: EERR+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"***ERROR ENCOUNTERED***",!,"Whoa! The Transaction global from the previous run was NEVER successfully",!,"written to an output device (unix uucppublic file, cartridge, diskette).",! Line Location: PERR+3
Function Call: WRITE	Prompt: !,"You must execute the menu option called 'OUTP (OUTPUT)' before any further",!,"processing." Line Location: PERR+4
Function Call: WRITE	Prompt: !,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",AMH("LAST LOG")," was ever received by your Area Office.",! Line Location: PERR+5
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"PCC Data Transmission is currently running!!" Line Location: RERR+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"PCC Data Transmission is already queued to run!!" Line Location: QERR+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The last PCC Export failed and has never been reset.",!,"See your site manager for assistence",! Line Location: FERR+3
Function Call: WRITE	Prompt: !!,"Last run was for ",AMH("LAST BEGIN")," through ",AMH("LAST END"),"." Line Location: DISPLOG+3
Function Call: WRITE	Prompt: !,"The location for this run is ",$P(^DIC(4,DUZ(2),0),U),"." Line Location: CONFIRM+2
Routine Call	DIC Line Location: GENLOG+4
Routine Call	DIR Line Location: CFLP+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC("AEX"	CHKMHSS+2, CHKMHSS+3, CHKMHSS+7
^AMHSDATA(	CHKOLD+1, GENLOG+7!
^AMHXLOG - [#9002014]	GETLOG+1, GETLOG+2, GETLOG+5, ERROR+2, DISPLOG+1
^AMHXLOG(0	GETLOG+1
^DD("DD"	DISPLOG+1, GENLOG+3
^DIC(4 - [#4]	CONFIRM+2
^XTMP("AMHDR"	CHKOLD+2
^XTMP("AMHREDO"	CHKOLD+3

Name	Line Occurrences
@(	ERROR+4
CHKMHSS	START+8
CHKOLD	START+4
CONFIRM	START+10
DISPLOG	GETLOG+4
EERR	ERROR+3
ERROR	GETLOG+6
GENLOG	START+12
GETLOG	START+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH("LAST BEG	IN" , DISPLOG+1*, DISPLOG+3
>> AMH("LAST END	" , DISPLOG+1*, DISPLOG+3
>> AMH("LAST LOG	" , GETLOG+1, GETLOG+2, GETLOG+3, GETLOG+5, ERROR+2, PERR+5, DISPLOG+1
>> AMH("PREV STA	TUS" , ERROR+2*, ERROR+3, ERROR+4
>> AMH("QFLG"	START+3, START+5, START+7, START+9, START+11, CHKOLD+1, CHKOLD+2, CHKOLD+3, ERROR+1, EERR+1* , PERR+1, RERR+1, QERR+1, FERR+1, CHKMHSS+4, CHKMHSS+8, CFLP+2, GENLOG+5
>> AMH("RUN BEGI	N" , CHKMHSS+4, CHKMHSS+6, GENLOG+3
>> AMH("RUN END"	, CHKMHSS+8, GENLOG+3
>> AMH("RUN LOG"	, GENLOG+6*
>> AMHV("R DATE"	, CHKMHSS+1, CHKMHSS+2, CHKMHSS+3, CHKMHSS+4, CHKMHSS+6, CHKMHSS+7*, CHKMHSS+8
DA	CFLP+1!, GENLOG+2!
DD	GENLOG+2!
DIC	GENLOG+2!, GENLOG+3*, GENLOG+4!
DIC("DR"	GENLOG+3*
DIC(0	GENLOG+3*
DINUM	GENLOG+2!
DIR	CFLP+1!
DIR("A"	CFLP+1*
DIR("B"	CFLP+1*
DIR(0	CFLP+1*
>> DIRUT	CFLP+2
DLAYGO	GENLOG+2!, GENLOG+3*, GENLOG+4!
DR	GENLOG+2!, GENLOG+4!
DUZ(2	CONFIRM+2, GENLOG+3
U	GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2
X	GETLOG+1, GETLOG+2, GENLOG+2!, GENLOG+3*
>> Y	DISPLOG+1, CFLP+2, GENLOG+3, GENLOG+5, GENLOG+6
>> ZTQUEUED	CHKOLD+1, CHKOLD+2, CHKOLD+3, DISPLOG+2, CHKMHSS+4, CHKMHSS+8, CONFIRM+1, GENLOG+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHEXDI2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: