Routine: APCPSRE

Package	Total	Call Graph
VA Fileman	5	(,C,NOW)^%DTC ^DIC ^DIE ^DIK ^DIR
Patient Care Component Data Transmission	4	^APCPDR2 CHKSITE^APCPDRI ^APCPLOG EN^APCPTAPE
Kernel	3	HOME^%ZIS ^%ZTLOAD $$FMTE^XLFDT
IHS Patient	2	KILL^AUPNPAT $$UID^AUPNVSIT
IHS VA Utilities	2	^XBFMK EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
CONT	;continue or not
GENLOG	; GENERATE NEW LOG ENTRY
QUEUE	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
V1	;go through each visit on this date
GETDATES	;
CHECK	;
DATE(D)	;EP ;IHS/CMI/LAB - new date format - format date in YYYYMMDD format
QUEUE1	;
ED	;
PURGE2	;
START	;Begin processing backload
XIT	;exit, eoj cleanup
V	; Run by visit date
PURGE	; PURGE SET .14 FIELD
PROCESS	;EP - process new run
INTRO	;introductory text
PROC	;

External References

Name	Field # of Occurrence
^%DTC	START+9
C^%DTC	ED+5
NOW^%DTC	PROCESS+6
HOME^%ZIS	CONT+5
^%ZTLOAD	QUEUE1+3
^APCPDR2	PROC+9
CHKSITE^APCPDRI	CONT+10
^APCPLOG	V+2
EN^APCPTAPE	V+4
KILL^AUPNPAT	PROC+2, XIT+4
$$UID^AUPNVSIT	PROC+6
^DIC	GENLOG+3
^DIE	PROCESS+7, PURGE2+1, QUEUE1+7
^DIK	QUEUE+4, QUEUE1+5
^DIR	BD+1, ED+1, CONT+1, QUEUE+2, EOP+5
^XBFMK	XIT+2
EN^XBVK	XIT+3
$$FMTE^XLFDT	ED+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC(),80),! Line Location: START+2
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: START+3
Function Call: WRITE	Prompt: !,"ATTENTION: This option should ONLY be run if you have had",!,"a special request from ORYX or NPIRS to re-send a large amount of previously",!,"exported data." Line Location: START+4
Function Call: WRITE	Prompt: !,"You should use the GEN and REDO options for all regularly scheduled exports.",!! Line Location: START+5
Function Call: WRITE	Prompt: !,X Line Location: START+6
Function Call: WRITE	Prompt: !,"A file will be created and will be placed in the public directory where",!,"all other exports are placed. It will be called ",APCP("FILENAME"),! Line Location: START+16
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"BAPCDATA GLOBAL EXISTS FROM A PREVIOUS RUN - CANNOT CONTINUE" Line Location: START+17
Function Call: WRITE	Prompt: !,"Please enter the visit date range for which the export should be done.",! Line Location: GETDATES+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"Goodbye",! Line Location: ED+8
Function Call: WRITE	Prompt: !!,"A Log entry will be created and records generated for visit",!,"date range ",$$FMTE^XLFDT(APCP("RUN BEGIN"))," to ",$$FMTE^XLFDT(APCP("RUN END")),".",! Line Location: ED+9
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: CONT+3
Function Call: WRITE	Prompt: !!,"Exiting.." Line Location: CONT+11
Function Call: WRITE	Prompt: !!,"Goodbye, no processing will occur.",! Line Location: CONT+15
Function Call: WRITE	Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",! Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued!!",1:"Request cancelled") Line Location: QUEUE1+4
Function Call: WRITE	Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",! Line Location: QUEUE1+5
Function Call: WRITE	Prompt: !!,"Error generating log entry" Line Location: GENLOG+4
Function Call: WRITE	Prompt: "Log entry is ",APCP("RUN LOG") Line Location: GENLOG+7
Routine Call	%ZIS Line Location: CONT+5
Routine Call	DIE Line Location: PROCESS+7 PURGE2+1 QUEUE1+7
Routine Call	DIC Line Location: GENLOG+3
Routine Call	DIR Line Location: BD+1 ED+1 CONT+1 QUEUE+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCPLOG - [#9001005]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	START+13
^APCPLOG - [#9001005]	PROC+3, PROC+10, PROC+11, PROC+12*
^AUPNVSIT - [#9000010]	V1+1, PROC+6*, PROC+7
^AUPNVSIT("B"	V+1, V1+1
^AUTTLOC - [#9999999.06]	CONT+7
^AUTTSITE(1	START+11, START+12, START+13, START+14
^BAPCDATA(	START+17, GENLOG+6!
^DD("DD"	GENLOG+2
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1
^XTMP("APCPDR"	START+18
^XTMP("APCPREDO"	START+19
^XTMP("APCPSRE"	START+20, PURGE+3, PURGE+4!, PURGE2+1

Label References

Name	Line Occurrences
$$CTR	START+2, START+3
$$LOC	START+2
CHECK	ED+7
ED	ED+3
EOP	XIT+1
GENLOG	CONT+12
PROC	V1+1
PURGE	V+3
PURGE2	PURGE+3
QUEUE	CONT+14
QUEUE1	QUEUE+3
V1	V+1
XIT	START+17, START+18, START+19, START+20, BD+2, ED+2, ED+8, CONT+2, CONT+3, CONT+11 , CONT+15, CONT+16, V+5, GENLOG+4

Naked Globals

Name	Field # of Occurrence
^(0	V1+1, PROC+12*, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PROCESS+6!
%H	PROCESS+6!
%I	PROCESS+6!
APCDOVRR	CONT+8*, XIT+5!
>> APCP("APC"	CONT+9*
>> APCP("CHA"	CONT+9*
>> APCP("COUNT"	CONT+9*
>> APCP("DEL NEV	ER SENT" , CONT+9*
>> APCP("DEMO PA	T" , CONT+9*
>> APCP("ERROR C	OUNT" , CONT+9*
>> APCP("FILENAME"	START+10, START+11, START+13, START+14, START+16, PROCESS+7
>> APCP("IN NO P	P" , CONT+9*
>> APCP("INPT"	CONT+9*
>> APCP("MAIN TX	DATE" , PROCESS+6*
>> APCP("QFLG"	CONT+7*, CONT+11
>> APCP("QUEUE"	CONT+16, QUEUE1+6*
>> APCP("RUN BEG	IN" , BD+3*, ED+3, ED+5, ED+9, GENLOG+2
>> APCP("RUN END	" , ED+4*, ED+9, V+1, GENLOG+2
>> APCP("RUN LOC	ATION" , CONT+7*
>> APCP("RUN LOG	" , CONT+13, PROCESS+7, PROC+3, PROC+10, PROC+11, PROC+12, QUEUE1+5, QUEUE1+7, GENLOG+5* , GENLOG+7
>> APCP("RUN STA	RT" , PROCESS+6*, PROCESS+7
>> APCP("STAT"	CONT+9*
>> APCP("V DFN"	V1+1*, PROC+3, PROC+6, PROC+7, PROC+11, PROC+12
>> APCP("V REC"	V1+1*
>> APCPBS	CONT+5*
>> APCPCNT	PROCESS+1*, PROC+5, PURGE2+2
>> APCPCNT1	PROCESS+1*
>> APCPCNT2	PROCESS+1*
>> APCPCNTR	PROCESS+5, PURGE+2
APCPE	CONT+6!, PROC+1!
>> APCPERR	ED+6, ED+8, CONT+4, CONT+15, QUEUE+4, QUEUE+5, QUEUE1+5*
>> APCPJD	START+9*, START+11, START+13, START+14
>> APCPLOG	QUEUE+4
>> APCPO("RUN"	CONT+4*, QUEUE+4, QUEUE+5, QUEUE1+5
APCPS	CONT+6!
>> APCPSD	ED+5, PROCESS+3, V+1*, V1+1
APCPT	CONT+6!, PROC+1!
>> APCPTERR	PROCESS+5*
>> APCPTOTR	PROCESS+5*
>> APCPUSED	PROCESS+5*
APCPV	CONT+6!, PROC+1!
APCPV("DEP CO	UNT" , PROC+11
APCPV("STAT T	X GEN" , PROC+4*, PROC+11
APCPV("TX GEN	ERATED" , PROC+4*, PROC+11
APCPV("TYPE"	PROC+11
APCPV("V DATE	" , PROC+8*
APCPV("V DFN"	, PURGE+2, PURGE+3, PURGE2+1
APCPV("V REC"	, PROC+7*, PROC+8
D	DATE~, DATE+1, DATE+2
DA	ED+1!, CONT+1!, PROCESS+7!, PURGE2+1!, QUEUE+4!, QUEUE1+5!, QUEUE1+7*!
DFOUT	EOP+4!
DIC	PROC+13!, GENLOG+2*, GENLOG+3!
DIC("DR"	GENLOG+2*
DIC(0	GENLOG+2*
DIE	PROCESS+7!, PROC+13!, PURGE2+1!, QUEUE1+7*!
DIK	QUEUE+4!, QUEUE1+5!
DIR	BD+1!, ED+1!, CONT+1!, QUEUE+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, CONT+1, QUEUE+2, EOP+5*
DIR("B"	CONT+1, QUEUE+2
DIR(0	BD+1, ED+1, CONT+1, QUEUE+2, EOP+5*
DIRUT	BD+1, BD+2, ED+1, ED+2, CONT+2, QUEUE+2*, QUEUE+4, QUEUE+5, EOP+4!
DLAYGO	GENLOG+2*, GENLOG+3!
DLOUT	EOP+4!
DR	PROCESS+7!, PROC+13!, PURGE2+1!, QUEUE1+7*!, GENLOG+3!
DT	START+9
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, QUEUE+2, EOP+4!
DUZ	USR+1
DUZ(2	CONT+7, GENLOG+2, LOC+1
IO("S"	EOP+2
>> IOBS	CONT+5
IOF	START+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	START+6*, START+7!
T	START+6*, START+7!
U	START+11, START+12, START+13, START+14, CONT+7, PROC+6, PROC+11, PROC+12, USR+1, LOC+1
X	START+3, START+6, START+7!, START+9, ED+5, GENLOG+2*, CTR~, CTR+1
>> X1	START+9, ED+5
>> X2	START+9, ED+5
Y	BD+3, ED+3, ED+4, CONT+3, QUEUE+3, GENLOG+2*, GENLOG+4, GENLOG+5, CTR~, CTR+1
>> ZTDESC	QUEUE1+2*
>> ZTDTH	QUEUE1+2*
>> ZTIO	QUEUE1+2*
>> ZTQUEUED	START+18, START+19, START+20, CONT+5, PROCESS+1, PROCESS+2, PURGE+1, GENLOG+1, EOP+2
>> ZTRTN	QUEUE1+1*
>> ZTSAVE("APCP*"	QUEUE1+2*
ZTSK	QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+8!

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPSRE

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items