Routine: APCPHOS2

Package	Total	Call Graph
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPHOSP

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;
CHKADM	;check admission date
CHKAGE	;
GETACC	;EP - get accept command if there is one and save variable
START	;
CHKTS	;
XIT	;

Name	Field # of Occurrence
^%DTC	DATES+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	GETACC+9
^AUPNVINP("AD"	GETACC+8
^AUPNVPOV - [#9000010.07]	GETACC+3
^AUPNVPOV("AD"	GETACC+3
^AUPNVPRC - [#9000010.08]	GETACC+6
^AUPNVPRC("AD"	GETACC+6

Name	Field # of Occurrence
>> APCP("V DFN"	GETACC+3, GETACC+6, GETACC+8
>> APCPE("EDFN"	START+2, START+4
>> APCPE("ERROR"	START+2, START+4, START+6, START+8, CHKTS+1, CHKTS+2, CHKTS+3, CHKTS+4, CHKTS+5, CHKTS+6 , DATES+1, DATES+2, CHKAGE+3, CHKADM+2, CHKADM+3, CHKADM+6
>> APCPE("FILE"	START+2, START+4, CHKTS+3, CHKTS+5
>> APCPH("A TS C	ODE" , CHKTS+1, CHKTS+2, CHKTS+3, CHKTS+4
>> APCPH("ADM DA	TE" , CHKADM+1*, CHKADM+2, CHKADM+3, CHKADM+4
>> APCPH("D TS C	ODE" , CHKTS+5, CHKTS+6
>> APCPH("DISCH	DATE" , CHKADM+1*, CHKADM+2
>> APCPH("POV"	CHKAGE+3, CHKADM+6
>> APCPH("VINP P	TR" , START+2, START+4, CHKTS+3, CHKTS+5
>> APCPH("VINP R	EC" , DATES+1, CHKADM+1
>> APCPH(1	GETACC+8*, GETACC+9
>> APCPH(2	GETACC+3, GETACC+6
>> APCPV("ACC"	CHKTS+4, CHKTS+6, DATES+2, CHKAGE+1, CHKADM+5, GETACC+1!, GETACC+3, GETACC+4, GETACC+6, GETACC+7 , GETACC+9*
>> APCPV("EDFN"	CHKTS+3, CHKTS+5
>> APCPV("V REC"	, DATES+1, CHKADM+1
>> AUPNDAYS	CHKTS+1, CHKTS+2, CHKTS+4, CHKTS+6, CHKAGE+2
>> AUPNDOB	CHKADM+3, CHKADM+4
>> AUPNSEX	CHKTS+3, CHKTS+5
U	DATES+1, CHKAGE+3, CHKADM+1, CHKADM+6, GETACC+3, GETACC+6, GETACC+9
>> X	DATES+1, DATES+2
>> X1	DATES+1*
>> X2	DATES+1*