Routine: APCPDRI2

Package	Total	Call Graph
Patient Care Component Data Transmission	2	(CURRUN,INFORM)^APCPDRI3 ^APCPREG
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Patient Care Component Data Transmission	2	APCPDRI APCPRED1

Entry Points

Name	Comments	DBIA/ICR reference
GENLOG	; GENERATE NEW LOG ENTRY
QERR	;
PERR	;
CHKVISIT	; CHECK VISIT "APCIS" XREF
RERR	;
GETLOG	; 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	;
DELCR	;

External References

Name	Field # of Occurrence
CURRUN^APCPDRI3	START+6
INFORM^APCPDRI3	START+1
^APCPREG	START+8
^DIC	GENLOG+3
^DIR	CFLP+1, CHKCR1+4

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' before any further processing.",!,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",APCP("LAST LOG")," was ever received by your Area Office.",! Line Location: PERR+4
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 ",APCP("LAST BEGIN")," through ",APCP("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: !!,"There are cross references entries for visits prior to the date of ",Z,".",! Line Location: CHKCR1+1
Function Call: WRITE	Prompt: "These could be there because the MCH package was running prior to the start of" Line Location: CHKCR1+2
Function Call: WRITE	Prompt: !,"PCC Data Entry." Line Location: CHKCR1+3
Function Call: WRITE	Prompt: !,"BYE.." Line Location: CHKCR1+6
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+3
Routine Call	DIR Line Location: CFLP+1 CHKCR1+4

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1
^AUPNVSIT("APCIS"	CHKVISIT+2, CHKVISIT+4, CHKVISIT+8, DELCR+2!
^BAPCDATA(	CHKOLD+1, GENLOG+6!
^DD("DD"	DISPLOG+1, GENLOG+2, CHKCR+1
^DIC(4 - [#4]	CONFIRM+2
^XTMP("APCPDR"	CHKOLD+2
^XTMP("APCPREDO"	CHKOLD+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCP("DATE"	DELCR+2*
>> APCP("FIRST R	UN" , CHKVISIT+3
>> APCP("LAST BE	GIN" , DISPLOG+1*, DISPLOG+3
>> APCP("LAST EN	D" , DISPLOG+1*, DISPLOG+3
>> APCP("LAST LO	G" , GETLOG+1*, GETLOG+3, GETLOG+5, ERROR+2, PERR+4, DISPLOG+1
>> APCP("PREV ST	ATUS" , ERROR+2*, ERROR+3, ERROR+4
>> APCP("QFLG"	START+3, START+5, START+7, START+9, START+11, START+13, CHKOLD+1, CHKOLD+2, CHKOLD+3, ERROR+1 , EERR+1, PERR+1, RERR+1, QERR+1, FERR+1, CHKVISIT+3, CHKVISIT+5, CHKVISIT+9, CFLP+2, GENLOG+4* , CHKCR1+5, CHKCR1+6
>> APCP("RUN BEG	IN" , CHKVISIT+5, CHKVISIT+7, GENLOG+2, CHKCR+1, CHKCR+2, DELCR+2
>> APCP("RUN END	" , CHKVISIT+9, GENLOG+2
>> APCP("RUN LOG	" , GENLOG+5*
>> APCPV("V DATE	" , CHKVISIT+1, CHKVISIT+2, CHKVISIT+4, CHKVISIT+5, CHKVISIT+7, CHKVISIT+8*, CHKVISIT+9, CHKCR+2
DA	CFLP+1!, CHKCR1+4!
DIC	GENLOG+2*, GENLOG+3!
DIC("DR"	GENLOG+2*
DIC(0	GENLOG+2*
DIR	CFLP+1!, CHKCR1+4!
DIR("A"	CFLP+1, CHKCR1+4
DIR("B"	CFLP+1*
DIR(0	CFLP+1, CHKCR1+4
>> DIRUT	CHKCR1+5
DLAYGO	GENLOG+2*, GENLOG+3!
DR	GENLOG+3!
DUZ(2	CONFIRM+2, GENLOG+2
U	GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2
>> X	GETLOG+1, GENLOG+2, DELCR+2*
>> Y	DISPLOG+1, CFLP+2, GENLOG+2, GENLOG+4, GENLOG+5, CHKCR+1*, CHKCR1+6
>> Z	CHKCR+1*, CHKCR1+1, CHKCR1+4
>> ZTQUEUED	CHKOLD+1, CHKOLD+2, CHKOLD+3, PERR+3, DISPLOG+2, CHKVISIT+5, CHKVISIT+9, CONFIRM+1, GENLOG+1

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPDRI2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

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
CHKCR	CHKVISIT+3
CHKCR1	CHKCR+2
CHKOLD	START+4
CHKVISIT	START+10
CONFIRM	START+12
DELCR	CHKCR1+7
DISPLOG	GETLOG+4
EERR	ERROR+3
ERROR	GETLOG+6
GENLOG	START+14
GETLOG	START+2