Routine: APCDCHKP

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
DRG Grouper	1	$$ICDOP^ICDEX
Patient Care Component	1	HEAD^APCDCHKP
Patient Care Component Reports	1	$$VD^APCLV

Package	Total	Caller Graph
Patient Care Component	3	APCDCHKI APCDCHKP APCDCHP1

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;EP;HEADER
HIT2
OLD	;
HEAD1	;
NO	;
EOJ	;
PRNP	;
HITSUB	; Sub heading for Linked visit report
OLDSUB	;
MULTSUB	;
PRNH	;
PRNI	;
GETHOSP	;
PROCSUB	;
HIT	; Write report of In-hospital visits that were linked
NOSUB	;
PROC	; print deleted procedures
MULT	;

External References

Name	Field # of Occurrence
^%DT	APCDCHKP+5
HEAD^APCDCHKP	PROC+3
$$VD^APCLV	PRNP+6
^DIR	HEAD+2
$$ICDOP^ICDEX	PRNP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO In-Hospital Visits were linked to Hospitalizations during this run." Line Location: HIT+2
Function Call: WRITE	Prompt: !!,"HOSPITAL:" Line Location: HIT+3
Function Call: WRITE	Prompt: ! Line Location: NO+3
Function Call: WRITE	Prompt: ! Line Location: OLD+3
Function Call: WRITE	Prompt: ! Line Location: MULT+2
Function Call: WRITE	Prompt: !,"NO PROBLEMS",! Line Location: MULT+3
Function Call: WRITE	Prompt: !,"IN-HOSP: DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDIV,U,5),0),U),"] TYPE: [",$P(APCDIV,U,3),"]" Line Location: PRNP+3
Function Call: WRITE	Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDIV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DEPENDENT ENTRY CNT: [",$P(APCDIV,U,9),"]" Line Location: PRNP+4
Function Call: WRITE	Prompt: !?10,"Procedure: ",$P($$ICDOP^ICDEX($P(APCDPDFN,U),$$VD^APCLV($P(APCDPDFN,U,3)),,"I"),U,2),?30,"Provider Narr: ",$P(^AUTNPOV($P(APCDPDFN,U,4),0),U) Line Location: PRNP+6
Function Call: WRITE	Prompt: " DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDHV,U,5),0),U),"] TYPE: [",$P(APCDHV,U,3),"]" Line Location: PRNH+7
Function Call: WRITE	Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDHV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DISCH DATE: [",APCDDCD,"]" Line Location: PRNH+8
Function Call: WRITE	Prompt: !,"IN-HOSP: DATE: [",APCDRD,"] NAME: [",$P(^DPT($P(APCDIV,U,5),0),U),"] TYPE: [",$P(APCDIV,U,3),"]" Line Location: PRNI+3
Function Call: WRITE	Prompt: !," LOCATION: [",$S($D(^DIC(4,$P(APCDIV,U,6),0)):$P(^(0),U),1:"UNKNOWN"),"] DEPENDENT ENTRY CNT: [",$P(APCDIV,U,9),"]" Line Location: PRNI+4
Function Call: WRITE	Prompt: !,"The following In-Hospital Visits could be linked to two or more ",!,"Hospitalizations. They must be linked manually." Line Location: MULTSUB+1
Function Call: WRITE	Prompt: !,"HOSPITALIZATION:" Line Location: GETHOSP+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,APCDDT,?70,"Page: ",APCDPG Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?29,"PCC Data Entry Module" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?9,"*************************************************************" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?9,"* REPORT OF IN-HOSPITAL VISITS LINKED TO HOSPITALIZATIONS *" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?9,"*************************************************************" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,X Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,X Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,"In-Hospital Visits that remain NOT linked to a Hospitalization" Line Location: NOSUB+1
Function Call: WRITE	Prompt: !,"The following List of IN-HOSPITAL Visits are over one year old and are",!,"not linked to a Hospitalization. These visits will not be displayed on",!,"future reports." Line Location: OLDSUB+1
Function Call: WRITE	Prompt: !,"The following In-Hospital Visits were linked to the Hospitalization listed" Line Location: HITSUB+1
Function Call: WRITE	Prompt: !,"Because they were duplicates, the following V Procedure Records were deleted",!,"from the IN-HOSPITAL record displayed." Line Location: PROCSUB+1
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCHS - [#9000010.03]	PRNH+3
^AUPNVCHS("AD"	PRNH+3
^AUPNVINP - [#9000010.02]	PRNH+4
^AUPNVINP("AD"	PRNH+4
^AUPNVSIT - [#9000010]	PRNP+1, PRNH+1, PRNI+1
^AUTNPOV - [#9999999.27]	PRNP+6
^DD("DD"	APCDCHKP+5, PRNP+2, PRNH+5, PRNH+6, PRNI+2
^DIC(4 - [#4]	PRNP+4, PRNH+8, PRNI+4
^DPT - [#2]	PRNP+3, PRNH+7, PRNI+3
^XTMP("ILINK"	HIT+2, HIT+3, NO+2, NO+3, OLD+2, OLD+3, MULT+2, MULT+3, PROC+2, PROC+3 , HIT2, GETHOSP+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	APCDCHKP+5*
APCDDCD	EOJ+2!, PRNH+3, PRNH+4, PRNH+5*, PRNH+8
>> APCDDT	APCDCHKP+5*, HEAD1+2
APCDH	HIT+3, EOJ+2!, PRNH+1, PRNH+3, PRNH+4, HIT2, GETHOSP+1
APCDHV	EOJ+2!, PRNH+1*, PRNH+6, PRNH+7, PRNH+8
APCDI	NO+3, OLD+3, MULT+2, PROC+3, EOJ+2!, PRNI+1, HIT2*, GETHOSP+1
>> APCDINPD	PRNH+2, PRNH+3, PRNH+4*
APCDIV	EOJ+2!, PRNP+1, PRNP+2, PRNP+3, PRNP+4, PRNI+1, PRNI+2, PRNI+3, PRNI+4
>> APCDPDFN	PROC+3*, PRNP+1, PRNP+6
APCDPG	APCDCHKP+5, EOJ+3!, HEAD+1, HEAD1+1, HEAD1+2
>> APCDQUIT	HEAD+2*
APCDRD	EOJ+2!, PRNP+2, PRNP+3, PRNH+6, PRNH+7, PRNI+2*, PRNI+3
APCDT	HIT+1, NO+1, OLD+1, MULT+1, PROC+1*, EOJ+3!, HEAD1+8
>> APCDTYPE	PRNH+1*, PRNH+3, PRNH+4
APCDV	EOJ+2!
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DTOUT	HEAD+2
IO	APCDCHKP+4, HEAD+2
IO(0	HEAD+2
IOF	EOJ+1, HEAD1+1
IOSL	HIT+3, NO+3, OLD+3, MULT+2, PROC+3, HIT2
IOST	HEAD+2
U	PRNP+1, PRNP+3, PRNP+4, PRNP+6, PRNH+1, PRNH+3, PRNH+4, PRNH+7, PRNH+8, PRNI+1 , PRNI+3, PRNI+4
X	APCDCHKP+5, EOJ+3!, HEAD1+7, HEAD1+9
Y	APCDCHKP+5, EOJ+3!, PRNP+2, PRNH+5, PRNH+6, PRNI+2, HEAD+2

Customize PDF page

Package: Patient Care Component

Routine: APCDCHKP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
@(	HEAD1+8
GETHOSP	MULT+2
HEAD	HIT+2, HIT+3, NO+3, OLD+3, MULT+2, HIT2
HEAD1	HEAD+1
HIT2	HIT+3
MULT	OLD+2
NO	HIT+2
OLD	NO+2
PRNH	HIT+3, GETHOSP+1
PRNI	NO+3, OLD+3, MULT+2, HIT2
PRNP	PROC+3