Routine: APCPRPS1

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
C56	;;
C54	;;
C53	;;
C52	;;
C51	;;
CHKDISC	;
EOJ	;
CHKCHA	;check to see if generated cha but not apc
PRINT	;
C68	;;
PRN	;
HEAD
VD	;
C42	;;
C60	;;
START	;
CLINIC	;
HRN
ERROR
CHKCL	;
HEAD1	;
PROC	;
SC
TYPE	;I "CV"[$P(^AUPNVSIT(APCPRPS("V"),0),U,3) S APCPRPS("ERROR")="NON APC VISIT TYPE" G VD ;IHS/CMI/LAB

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No visits skipped.",! Line Location: START+7
Function Call: WRITE	Prompt: !!,"TOTAL VISITS SKIPPED: ",^XTMP("APCPRPS",APCPJOB,APCPBTH,"GEN","TOTAL") Line Location: START+11
Function Call: WRITE	Prompt: !,APCPRPS("HRN"),?10,APCPRPS("RD"),?28,APCPRPS("V LOC"),?40,APCPRPS("TYPE"),?44,$E(APCPRPS("SC"),1,15),?47,$E(APCPRPS("CLINIC"),1,10),?52,APCPRPS("ERROR") Line Location: PRN+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Report Run Date: ",$$FMTE^XLFDT(DT),?70,"Page ",APCPRPS("PG") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !!?((80-APCPRPS("LENG"))/2),"PCC DATA TRANSMISSION FOR ",APCPRPS(" PRINT") Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?24,"Listing of VISITS NOT Exported" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?18,"Date Export Run: ",APCPRPS("RUN DATE") Line Location: HEAD1+6
Function Call: WRITE	Prompt: !?8,"Visits Processed for Posting Dates: ",APCPRPS("PRINT BEGIN")," to ",APCPRPS("PRINT END") Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,APCPRPS("80D"),!," HRN ",?10,"VISIT DATE/TIME",?28,"LOCATION",?39,"TYPE",?44,"SC",?45," CLIN",?55,"ERROR MESSAGE",!,APCPRPS("80D"),! Line Location: HEAD1+8
Routine Call	DIR Line Location: START+12 HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^APCPLOG - [#9001005]	START+4, ERROR, ERROR+1
^APCPSITE(1	START+2
^AUPNPAT - [#9000001]	HRN+1, HRN+2
^AUPNVPOV("AD"	ERROR+3, ERROR+5
^AUPNVPRV("AD"	ERROR+2, ERROR+4
^AUPNVSIT - [#9000010]	PRINT+2, CLINIC+1, HRN+4, SC, ERROR+2, ERROR+3, ERROR+4, ERROR+5
^AUTTLOC - [#9999999.06]	PRINT+2, HRN+1, HRN+2
^DD("DD"	VD+1
^DIC(4 - [#4]	START+3
^DIC(40.7 - [#40.7]	CLINIC+2
^DPT - [#2]	HRN+5
^XTMP("APCPRPS"	START+7, START+11, EOJ+1!, PROC+1

Name	Line Occurrences
EOJ	START+7, START+10
HEAD	START+6, PRINT+1
HEAD1	HEAD
HRN	CLINIC+1
PRINT	PROC+1
PROC	START+9
VD	HRN+4, HRN+5, SC, ERROR, ERROR+2, ERROR+3, ERROR+4, ERROR+5

Name	Field # of Occurrence
>> APCPBTH	START+7, START+11, EOJ+1, PROC+1
>> APCPJOB	START+7, START+11, EOJ+1, PROC+1
>> APCPRPS(" PRI	NT" , START+3*, HEAD1+2, HEAD1+4
>> APCPRPS("80D"	START+1*, HEAD1+8
>> APCPRPS("CLINIC"	CLINIC+1, CLINIC+2, PRN+1
>> APCPRPS("ERROR"	PRINT+3, HRN+4, HRN+5, SC, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5*, PRN+1
>> APCPRPS("HRN"	HRN, HRN+1, HRN+2, HRN+3, PRN+1
>> APCPRPS("LENG"	HEAD1+2*, HEAD1+4
>> APCPRPS("LOG"	START+4, ERROR, ERROR+1
>> APCPRPS("PAT	DFN" , HRN*, HRN+1, HRN+2, HRN+5
>> APCPRPS("PG"	START+5, HEAD, HEAD1+1, HEAD1+3
>> APCPRPS("PRIN	T BEGIN" , HEAD1+7, T END" , HEAD1+7
>> APCPRPS("QUIT"	START+8!, START+10, PROC+1, PRINT+1, HEAD+1*
>> APCPRPS("RD"	VD+1*, PRN+1
>> APCPRPS("RUN	DATE" , START+4, HEAD1+6, SITE" , START+2, START+3, HRN+2
>> APCPRPS("SC"	PRINT+2*, PRN+1
>> APCPRPS("TYPE"	PRINT+2*, PRN+1
>> APCPRPS("V LO	C" , PRINT+2*, PRN+1
>> APCPRPS("V"	PROC+1*, PRINT+2, CLINIC+1, HRN+4, SC, ERROR, ERROR+1, ERROR+2, ERROR+3, ERROR+4 , ERROR+5
>> APCPRPS("VR"	PRINT+2*, HRN, HRN+1, VD+1
DIR	START+12!, HEAD+1!
DIR("A"	START+12*
DIR(0	START+12, HEAD+1
>> DIRUT	START+12*
DT	HEAD1+3
>> DTOUT	HEAD+1
>> DUOUT	START+12
IO	START+12, HEAD+1
IO(0	START+12, HEAD+1
IOF	START+13, HEAD1+1
IOSL	PRINT+1
IOST	START+12, HEAD+1
U	START+3, START+4, PRINT+2, CLINIC+1, CLINIC+2, HRN, HRN+1, HRN+2, HRN+4, HRN+5 , SC, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5
>> Y	START+4, VD+1, HEAD+1