Routine: APCPAH

Package	Total	Call Graph
Patient Care Component Data Transmission	8	^APCPCICD COUNT^APCPDR2 ^APCPDRPP ^APCPHOP ^APCPHOSP ^APCPHPOV ^APCPHPRV ^APCPHTX
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPDR2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; Disposition Type-CP 60
BEN	;
SETVARS	; set standard variables for record
ADMTYPE	; Admission Type-CP 51
UCAUS	;
EOJ	;
CONSULTS	;
DAY

Name	Field # of Occurrence
^%DTC	DAY+1
^APCPCICD	UCAUS+7
COUNT^APCPDR2	APCPAH+2, APCPAH+3, APCPAH+5, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15
^APCPDRPP	APCPAH+4
^APCPHOP	APCPAH+14
^APCPHOSP	APCPAH+6
^APCPHPOV	APCPAH+12
^APCPHPRV	APCPAH+10
^APCPHTX	APCPAH+16
$$VAL^XBDIQ1	ADMTYPE+2, ADMTYPE+3, DISP+2, DISP+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	BEN+1, UCAUS+3, UCAUS+4
^AUPNVINP - [#9000010.02]	ADMTYPE+1, DISP+1, CONSULTS+1
^AUTTBEN - [#9999999.25]	BEN+2, BEN+3
^DD(9000010.02	ADMTYPE+2, ADMTYPE+3, DISP+2, DISP+3
^DPT - [#2]	SETVARS+3
^ICD9 - [#80]	UCAUS+5

Name	Line Occurrences
DAY	CONSULTS+1
EOJ	APCPAH+3, APCPAH+5, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15
SETVARS	APCPAH+8

Name	Field # of Occurrence
>> APCPE	APCPAH+5
>> APCPE("ERROR"	APCPAH+2, APCPAH+3, APCPAH+7, APCPAH+9, APCPAH+11, APCPAH+13, APCPAH+15, BEN+1, BEN+2, ADMTYPE+1* , ADMTYPE+4, DISP+1, DISP+4, UCAUS+3, UCAUS+4*, UCAUS+8
APCPH	EOJ+2!
APCPH("ADM DA	TE" , SETVARS+1*
APCPH("ADM TY	PE" , ADMTYPE+2, ADMTYPE+3, ADMTYPE+4
APCPH("BEN"	BEN+3*
APCPH("CAUSE"	UCAUS+2, UCAUS+10
APCPH("CON"	CONSULTS+1, CONSULTS+2
APCPH("DAYS"	DAY, DAY+1
APCPH("DIS DA	TE" , SETVARS+2*
APCPH("DISP"	DISP+2, DISP+3, DISP+4, UCAUS+2
APCPH("DOB"	SETVARS+4*
APCPH("L"	UCAUS+9*
APCPH("LC"	UCAUS+5*
APCPH("SEX"	SETVARS+5*
APCPH("SSN"	SETVARS+3*
APCPH("VINP P	TR" , ADMTYPE+1, DISP+1, CONSULTS+1
APCPHDX1	EOJ+2!
APCPHDX2	EOJ+2!
APCPHDX3	EOJ+2!
APCPHDX4	EOJ+2!
APCPHDX5	EOJ+2!
APCPHDX6	EOJ+2!
APCPHHA1	EOJ+2!
APCPHHA2	EOJ+2!
APCPHHA3	EOJ+2!
APCPHHA4	EOJ+2!
APCPHHA5	EOJ+2!
APCPHHA6	EOJ+2!
APCPHOP1	EOJ+2!
APCPHOP2	EOJ+2!
APCPHOP3	EOJ+2!
APCPODX1	EOJ+2!
APCPODX2	EOJ+2!
APCPODX3	EOJ+2!
APCPOIN1	EOJ+2!
APCPOIN2	EOJ+2!
APCPOIN3	EOJ+2!
APCPT	EOJ+2!
APCPT("ICD PT	R" , UCAUS+4*, UCAUS+5
APCPT("ICD"	UCAUS+5, UCAUS+6, UCAUS+9*, UCAUS+10
>> APCPV("CHART"	APCPAH+2
>> APCPV("DISCHA	RGE DATE" , SETVARS+2, DAY+1
>> APCPV("LOC DF	N" , APCPAH+3
>> APCPV("V DATE	" , SETVARS+1, DAY+1
>> AUPNDOB	SETVARS+4
>> AUPNPAT	SETVARS+3, BEN+1, UCAUS+3, UCAUS+4
>> AUPNSEX	SETVARS+5
DUZ(2	APCPAH+3
I	EOJ+1!, UCAUS+9*
U	SETVARS+3, BEN+1, BEN+3, ADMTYPE+1, ADMTYPE+2, ADMTYPE+3, DISP+1, DISP+2, DISP+3, CONSULTS+1 , UCAUS+4, UCAUS+5
>> X	BEN+1, BEN+2, BEN+3, ADMTYPE+1, ADMTYPE+2, ADMTYPE+3, DISP+1*, DISP+2, DISP+3, DAY+1
>> X1	DAY+1*
>> X2	DAY+1*