Routine: BCHEXDI2

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
IHS RPMS CHR System	1	(CURRUN,INFORM)^BCHEXDI3

Package	Total	Caller Graph
IHS RPMS CHR System	3	BCHEXC BCHEXDI BCHEXRE1

Entry Points

Name	Comments	DBIA/ICR reference
DELCR	;
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
CHKCR	;
START	;
EERR	;
FERR	;
CFLP	;
ERROR	;
CHKOLD	;EP - CHECK FOR DATA LEFT BY OLD RUN
CHKCR1	;
CHKCHR	; CHECK CHR RECORD "AEX" XREF

External References

Name	Field # of Occurrence
CURRUN^BCHEXDI3	START+6
INFORM^BCHEXDI3	START+1
^DIC	GENLOG+4
^DIR	CFLP+1, CHKCR1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"***ERROR ENCOUNTERED***",!,"The last CHR Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",! Line Location: EERR+4
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+4
Function Call: WRITE	Prompt: !,"You must execute the menu option called 'OUTP' before any further processing.",!,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",BCH("LAST LOG")," was ever received by your Area Office.",! Line Location: PERR+5
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"CHR Data Transmission is currently running!!" Line Location: RERR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"CHR Data Transmission is already queued to run!!" Line Location: QERR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The last CHR Export failed and has never been reset.",!,"See your site manager for assistence",! Line Location: FERR+4
Function Call: WRITE	Prompt: !!,"Last run was for ",BCH("LAST BEGIN")," through ",BCH("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
Function Call: WRITE	Prompt: ! Line Location: CFLP+1
Function Call: WRITE	Prompt: !!,"There are cross references entries for visits prior to the date of ",Z,".",! Line Location: CHKCR1+1
Function Call: WRITE	Prompt: !,"BYE.." Line Location: CHKCR1+4
Function Call: WRITE	Prompt: !!,"I will now clean up that cross reference.... Please be patient..." Line Location: DELCR+1
Function Call: WRITE	Prompt: "." Line Location: DELCR+2
Function Call: WRITE	Prompt: !,"OK ALL DONE",! Line Location: DELCR+3
Routine Call	DIC Line Location: GENLOG+4
Routine Call	DIR Line Location: CFLP+1 CHKCR1+2

Name	Line Occurrences (* Changed, ! Killed)
^BCHR("AEX"	CHKCHR+2, CHKCHR+4, CHKCHR+8, DELCR+2!
^BCHRDATA(	CHKOLD+1, GENLOG+7!
^BCHSITE - [#90002.31]	GENLOG+2
^BCHXLOG - [#90002.91]	GETLOG+1, GETLOG+2, GETLOG+5, ERROR+2, DISPLOG+1
^BCHXLOG(0	GETLOG+1
^DD("DD"	DISPLOG+1, GENLOG+3, CHKCR+2
^DIC(4 - [#4]	CONFIRM+2
^TMP("BCHDR"	CHKOLD+2
^TMP("BCHREDO"	CHKOLD+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCH("BATCH"	GENLOG+2*, GENLOG+3
>> BCH("DATE"	DELCR+2*
>> BCH("FIRST RU	N" , CHKCHR+3
>> BCH("LAST BEG	IN" , DISPLOG+1*, DISPLOG+3
>> BCH("LAST END	" , DISPLOG+1*, DISPLOG+3
>> BCH("LAST LOG	" , GETLOG+1, GETLOG+2, GETLOG+3, GETLOG+5, ERROR+2, PERR+5, DISPLOG+1
>> BCH("PREV STA	TUS" , ERROR+2*, ERROR+3, ERROR+4
>> BCH("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, CHKCHR+3, CHKCHR+5, CHKCHR+9, CFLP+2, CFLP+3, GENLOG+5* , CHKCR1+3, CHKCR1+4
>> BCH("RUN BEGI	N" , CHKCHR+5, CHKCHR+7, GENLOG+3, CHKCR+2, CHKCR+3, DELCR+2
>> BCH("RUN END"	, CHKCHR+9, GENLOG+3
>> BCH("RUN LOG"	, GENLOG+6*
>> BCHR("R DATE"	, CHKCHR+1, CHKCHR+2, CHKCHR+4, CHKCHR+5, CHKCHR+7, CHKCHR+8*, CHKCHR+9, CHKCR+3
DA	CFLP+1!, CHKCR1+2!
DIC	GENLOG+3*, GENLOG+4!
DIC("DR"	GENLOG+3*
DIC(0	GENLOG+3*
DIR	CFLP+1!, CHKCR1+2!
DIR("A"	CFLP+1, CHKCR1+2
DIR("B"	CFLP+1*
DIR(0	CFLP+1, CHKCR1+2
>> DIRUT	CFLP+2, CHKCR1+3
DLAYGO	GENLOG+3*, GENLOG+4!
DR	GENLOG+4!
DUZ(2	CONFIRM+2, GENLOG+2, GENLOG+3
U	GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2, GENLOG+2
>> X	GETLOG+1, GETLOG+2, GENLOG+3, DELCR+2
>> Y	DISPLOG+1, CFLP+3, GENLOG+3, GENLOG+5, GENLOG+6, CHKCR+2*, CHKCR1+4
>> Z	CHKCR+2*, CHKCR1+1, CHKCR1+2
>> ZTQUEUED	CHKOLD+1, CHKOLD+2, CHKOLD+3, EERR+3, PERR+3, RERR+3, QERR+3, FERR+3, DISPLOG+2, CHKCHR+5 , CHKCHR+9, CONFIRM+1, GENLOG+1

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHEXDI2

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:

Name	Line Occurrences
@(	ERROR+4
CHKCHR	START+8
CHKCR	CHKCHR+3
CHKCR1	CHKCR+3
CHKOLD	START+4
CONFIRM	START+10
DELCR	CHKCR1+5
DISPLOG	GETLOG+4
EERR	ERROR+3
ERROR	GETLOG+6
GENLOG	START+12
GETLOG	START+2