Routine: APCPREX

Package	Total	Call Graph
VA Fileman	5	C^%DTC ^DIC ^DIE (,IX1)^DIK ^DIR
IHS VA Utilities	3	^XBFMK ^XBGSAVE EN^XBVK
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
IHS Patient	1	KILL^AUPNPAT
Patient Care Component Data Transmission	1	GENREC^APCPREX2
Patient Care Component Reports	1	$$PRIMPROV^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
CONT	;continue or not
GENLOG	;generate new log entry
NLOG()	;get next log
V	; Run by visit date
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
INTRO	;introductory text
CHECK	;
DATE(D)	;EP ;IHS/CMI/LAB - new date format - format date in YYYYMMDD format
RERUN1	;
QUEUE1	;
ED	;
START	;Begin processing backload
XIT	;exit, eoj cleanup
RERUN	;EP - rerun old log entry
PROCESS	;EP - process new run
GENREC	;generate record
GETDATES	;
PROC	;
WRITEF	;EP - write out flat file

External References

Name	Field # of Occurrence
C^%DTC	ED+5
HOME^%ZIS	CONT+5, RERUN1+6
^%ZTLOAD	QUEUE1+3
$$PRIMPROV^APCLV	PROC+10
GENREC^APCPREX2	GENREC+1
KILL^AUPNPAT	XIT+4
^DIC	RERUN+4, GENLOG+3
^DIE	V+2, RERUN1+4, QUEUE1+7, WRITEF+10
^DIK	QUEUE+4, QUEUE1+5
IX1^DIK	V+5
^DIR	BD+1, ED+1, CONT+1, RERUN+13, QUEUE+2, EOP+5
^XBFMK	XIT+2
^XBGSAVE	WRITEF+6
EN^XBVK	XIT+3
$$FMADD^XLFDT	RERUN+8
$$FMTE^XLFDT	ED+9, RERUN+10

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 OX"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_$$NLOG,! Line Location: START+9
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"APCPDATA GLOBAL EXISTS FROM A PREVIOUS RUN - CANNOT CONTINUE" Line Location: START+10
Function Call: WRITE	Prompt: !,"Please enter the date range for which the statistical (ORYX) records",!,"should be generated.",! 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: !!,"Log entry ",$$NLOG," will be created and records generated for visit",!,"date range ",$$FMTE^XLFDT(APCPBD)," to ",$$FMTE^XLFDT(APCPED),".",! 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: !!,"Goodbye, no processing will occur.",! Line Location: CONT+9
Function Call: WRITE	Prompt: !!,"Rerun DATA TRANSMISSION Backload Visit Set",! Line Location: RERUN+2
Function Call: WRITE	Prompt: !!,"Log entry ",APCPLOG," will be reprocessed. Visits in the date range ",!,$$FMTE^XLFDT(APCPBD)," to ",$$FMTE^XLFDT(APCPED)," will be processed.",! Line Location: RERUN+10
Function Call: WRITE	Prompt: !,"The output file created will be called OX"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_APCPLOG Line Location: RERUN+11
Function Call: WRITE	Prompt: !,"The last time a total of ",$P(APCP0,U,5)," visits were processed, of which, ",!,$P(APCP0,U,6)," generated statistical records.",!! Line Location: RERUN+12
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: RERUN+14
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: RERUN+15
Function Call: WRITE	Prompt: !!,"Goodbye, no processing will occur.",! Line Location: RERUN+17
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: !!,$C(7),$C(7),"Error creating log entry." Line Location: GENLOG+4
Routine Call	%ZIS Line Location: CONT+5 RERUN1+6
Routine Call	DIE Line Location: V+2 RERUN1+4 QUEUE1+7 WRITEF+10
Routine Call	DIC Line Location: RERUN+4 GENLOG+3
Routine Call	DIR Line Location: BD+1 ED+1 CONT+1 RERUN+13 QUEUE+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCPREX - [#9001005.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCPDATA(	START+10, PROCESS+3!, WRITEF+1, WRITEF+9!
^APCPDATA(0	WRITEF+3*
^APCPREX - [#9001005.4]	V+3, V+4, RERUN+8, RERUN+9, RERUN1+2*, RERUN1+3!, NLOG+1
^AUPNVINP - [#9000010.02]	PROC+14
^AUPNVINP("AD"	PROC+12
^AUPNVPOV("AD"	PROC+9
^AUPNVSIT - [#9000010]	V1+1
^AUPNVSIT("B"	V+1, V1+1
^AUTTLOC - [#9999999.06]	START+9, RERUN+11, WRITEF+3, WRITEF+4, WRITEF+10
^DIC(4 - [#4]	WRITEF+3, LOC+1
^DPT - [#2]	PROC+8
^VA(200 - [#200]	WRITEF+4, USR+1

Label References

Name	Line Occurrences
$$CTR	START+2, START+3
$$DATE	WRITEF+3
$$LOC	START+2
$$NLOG	START+9, ED+9, GENLOG+2
CHECK	ED+7
ED	ED+3
EOP	XIT+1
GENLOG	CONT+6
PROC	V1+1
PROCESS	RERUN1+7
QUEUE	CONT+8, RERUN+16
QUEUE1	QUEUE+3
V1	V+1
WRITEF	V+6
XIT	START+10, BD+2, ED+2, ED+8, CONT+2, CONT+3, CONT+7, CONT+9, CONT+10, V+7 , RERUN+6, RERUN+14, RERUN+15, RERUN+17, RERUN+18

Naked Globals

Name	Field # of Occurrence
^(0	V1+1, RERUN+8, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCP("V DFN"	V1+1*, PROC+9, PROC+10, PROC+12
>> APCP0	RERUN+9*, RERUN+12
>> APCPBD	BD+3, ED+3, ED+5, ED+9, RERUN+8, RERUN+10, WRITEF+3, GENLOG+2
>> APCPBS	CONT+5, RERUN1+6
>> APCPCNT	PROCESS+1*, PROC+1
>> APCPCNT1	PROCESS+1*
>> APCPCNT2	PROCESS+1*
>> APCPED	ED+4, ED+9, V+1, RERUN+8, RERUN+10, WRITEF+3, GENLOG+2
>> APCPERR	ED+6, ED+8, CONT+4, CONT+7, CONT+9, RERUN+17, RERUN1+5, QUEUE+4, QUEUE+5, QUEUE1+5 , WRITEF+8, GENLOG+4
>> APCPERRT(	V+4
>> APCPERRT("DEL	ETED VISIT" , PROC+3*
>> APCPERRT("DEM	O PATIENT" , PROC+8*
>> APCPERRT("HOS	P VISIT NOT CODED" , PROC+14*
>> APCPERRT("NO	PATIENT" , PROC+7, POV" , PROC+9, PRIM PROV" , PROC+10, V HOSP" , PROC+13
>> APCPERRT("ZER	O DEP ENTRIES" , PROC+2*
>> APCPLOG	V+2, V+3, V+4, V+5, RERUN+7, RERUN+8, RERUN+9, RERUN+10, RERUN+11, RERUN1+2 , RERUN1+3, RERUN1+4, QUEUE+4, QUEUE1+5, QUEUE1+7, WRITEF+4, WRITEF+10, GENLOG+5
>> APCPQUE	CONT+10, RERUN+18, QUEUE1+6*
>> APCPRUN	CONT+4, RERUN+8, RERUN1+5*, QUEUE+4, QUEUE+5, QUEUE1+1, QUEUE1+5
>> APCPSD	ED+5, PROCESS+4, V+1, V1+1, RERUN+8
>> APCPTERR	PROCESS+6*
>> APCPTOTR	PROCESS+6*, V+2, WRITEF+1, WRITEF+3
>> APCPTOTV	PROCESS+6*, V+2
>> APCPUSED	PROCESS+6*, V+2
>> APCPV("SRV CA	T" , PROC+5*, PROC+9, PROC+10, PROC+11
>> APCPV("TYPE"	PROC+5*, PROC+11
>> APCPVREC	V1+1*, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6
>> C	V+4*
D	DATE~, DATE+1, DATE+2
D0	RERUN+5!
DA	ED+1!, CONT+1!, V+2!, V+5!, RERUN+5!, RERUN+13!, RERUN1+4!, QUEUE+4!, QUEUE1+5!, QUEUE1+7! , WRITEF+10*!
DD	RERUN+5!
>> DFN	PROC+6*, PROC+7, PROC+8
DFOUT	EOP+4!
DIC	RERUN+4, RERUN+5!, GENLOG+2, GENLOG+3!
DIC("DR"	GENLOG+2*
DIC(0	RERUN+4, GENLOG+2
DIE	V+2!, RERUN1+4!, QUEUE1+7!, WRITEF+10!
DIK	V+5!, QUEUE+4!, QUEUE1+5*!
DIR	BD+1!, ED+1!, CONT+1!, RERUN+13!, QUEUE+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, CONT+1, RERUN+13, QUEUE+2, EOP+5
DIR("B"	CONT+1, RERUN+13, QUEUE+2*
DIR(0	BD+1, ED+1, CONT+1, RERUN+13, QUEUE+2, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, CONT+2, RERUN+14, QUEUE+2*, QUEUE+4, QUEUE+5, EOP+4!
DLAYGO	GENLOG+2*, GENLOG+3!
DLOUT	EOP+4!
DO	RERUN+5!
DR	V+2!, RERUN1+4!, QUEUE1+7!, WRITEF+10!, GENLOG+3!
DT	RERUN1+4, WRITEF+3, GENLOG+2
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, QUEUE+2, EOP+4!
DUZ	WRITEF+4, USR+1
DUZ(2	START+9, RERUN+11, WRITEF+3, WRITEF+4, WRITEF+10, GENLOG+2, LOC+1
IO("S"	EOP+2
>> IOBS	CONT+5, RERUN1+6
IOF	START+1, RERUN+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	START+6*, START+7!
L	NLOG+1~*, NLOG+2
T	START+6*, START+7!
U	START+9, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+8, PROC+14, RERUN+8, RERUN+11 , RERUN+12, RERUN1+2, WRITEF+3, WRITEF+4, WRITEF+10, USR+1, LOC+1
X	START+3, START+6, START+7!, ED+5, V+4, RERUN1+2, GENLOG+2, CTR~, CTR+1, NLOG+1~
>> X1	ED+5*
>> X2	ED+5*
XBF	WRITEF+5*, WRITEF+11!
>> XBFLG	WRITEF+8
>> XBFLG(1	WRITEF+8
XBFLT	WRITEF+11!
XBFN	WRITEF+4*, WRITEF+11!
XBGL	WRITEF+2*, WRITEF+11!
XBMED	WRITEF+4*, WRITEF+11!
XBQ	WRITEF+5*, WRITEF+11!
XBTLE	WRITEF+4*, WRITEF+11!
Y	BD+3, ED+3, ED+4, CONT+3, PROC+11, PROC+12, PROC+15, RERUN+6, RERUN+7, RERUN+15 , QUEUE+3, GENLOG+2*, GENLOG+4, GENLOG+5, CTR~, CTR+1
>> Z	PROC+12*, PROC+13, PROC+14
>> ZTDESC	QUEUE1+2*
>> ZTDTH	QUEUE1+2*
>> ZTIO	QUEUE1+2*
>> ZTQUEUED	CONT+5, PROCESS+1, PROCESS+2, RERUN1+6, WRITEF+1, WRITEF+8, GENLOG+1, EOP+2
>> ZTRTN	QUEUE1+1*
>> ZTSAVE("APCP*"	QUEUE1+2*
ZTSK	QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+8!

Marked Items

Name	Field # of Occurrence
$T(@T+J	START+6

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPREX

Information

Source Information

Call Graph

Call Graph Total: 14

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