Routine: APCDDVW1

Package	Total	Call Graph
Patient Care Component	1	(HEAD,PRN1)^APCDDVW
VA Fileman	1	DT^DIO2

Package

Total

Call Graph

(HEAD,PRN1)^APCDDVW

DT^DIO2

Package	Total	Caller Graph
Patient Care Component	1	APCDDVW

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DISPPP	;EP display primary provider
ZERO	;EP;Write zero dependent report
XIT	; Clean up and exit
INPTW
MRG	;EP;print potential merges
INPT2
INPT	;EP;print inpatient errors
MRG2	;
MRG3	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF ERRORS ON THIS ZERO DEPENDENT ENTRY REPORT: ",$G(APCDCNTR("ZERO")),!! Line Location: ZERO+2
Function Call: WRITE	Prompt: !!,"There are no Visits with a Zero Dependent Entry Count on or ",!,"after ",$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")," date " Line Location: ZERO+3
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF POTENTIAL MERGES ON THIS REPORT: ",$G(APCDCNTR("MRG")),!! Line Location: MRG+2
Function Call: WRITE	Prompt: !!,"There are no visits in the specified ",$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")," date range that should be merged." Line Location: MRG+3
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF ERRORS ON THIS INPT REPORT: ",$G(APCDCNTR("INPT")),!! Line Location: INPT+2
Function Call: WRITE	Prompt: !!,"There are no Hospitalization visits in the specified ",$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")," date range ",!,"that have Errors." Line Location: INPT+3
Function Call: WRITE	Prompt: !?20,"ERROR INFORMATION" Line Location: INPT+6
Function Call: WRITE	Prompt: !," Error #",APCDE,": ",^XTMP("APCDDV",APCDJOB,APCDBT,"INPT",APCDCL,APCDCLIN,APCDH,APCDV,APCDE) Line Location: INPTW+0
Function Call: WRITE	Prompt: ?30,"PRIMARY PROVIDER: [",$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,$P(^AUPNVPRV(X,0),U),0),U),1:$P(^DIC(16,$P(^AUPNVPRV(X,0),U),0),U)),"]" Line Location: DISPPP+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	DISPPP+1
^AUPNVPRV("AD"	DISPPP+1
^DD(9000010.06	DISPPP+1
^DIC(16 - [#16]	DISPPP+1
^VA(200 - [#200]	DISPPP+1
^XTMP("APCDDV"	ZERO+3, ZERO+4, ZERO+5, ZERO+6, MRG+3, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+3 , INPT+4, INPT+5, INPT+6, INPT2, INPTW

Name	Field # of Occurrence
>> APCDBD	ZERO+3
APCDBS	XIT+1!
>> APCDBT	ZERO+3, ZERO+4, ZERO+5, ZERO+6, MRG+3, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+3 , INPT+4, INPT+5, INPT+6, INPT2, INPTW
>> APCDCL	ZERO+4, ZERO+5, ZERO+6, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+4*, INPT+5, INPT+6 , INPT2, INPTW
>> APCDCLIN	ZERO+4, ZERO+5, ZERO+6, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+4*, INPT+5, INPT+6 , INPT2, INPTW
>> APCDCNTR("INPT"	INPT+2
>> APCDCNTR("MRG"	MRG+2
>> APCDCNTR("ZERO"	ZERO+2
APCDDEM	XIT+1!
APCDDT	XIT+1!
APCDE	INPT2*, INPTW, XIT+1!
APCDEDFN	XIT+1!
APCDH	ZERO+5, ZERO+6, MRG2+2, MRG2+3, MRG3+1, INPT+5*, INPT+6, INPT2, INPTW, XIT+1!
>> APCDJOB	ZERO+3, ZERO+4, ZERO+5, ZERO+6, MRG+3, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+3 , INPT+4, INPT+5, INPT+6, INPT2, INPTW
APCDL	XIT+1!
APCDLC	XIT+1!
>> APCDPROC	ZERO+3, MRG+3, INPT+3
>> APCDQUIT	ZERO+4, ZERO+5, ZERO+6, MRG2+1, MRG2+2, MRG2+3, MRG3+1, INPT+4, INPT+5, INPT+6
APCDRD	XIT+1!
APCDV	ZERO+6, MRG3+1, INPT+6*, INPT2, INPTW, DISPPP+1, XIT+1!
APCDV2	XIT+1!
APCDVR	XIT+1!
>> APCDVSIT	MRG2+3*, MRG3+1
DFN	XIT+1!
IOSL	ZERO+6, MRG3+1, INPT+6
U	DISPPP+1
X	DISPPP+1~*
Y	ZERO+3*, DISPPP+1~

Information