Routine: APCPAA

Package	Total	Call Graph
Patient Care Component Data Transmission	4	^APCPAOTH ^APCPAPOV ^APCPAPRO COUNT^APCPDR2
VA Fileman	1	H^%DTC

Package

Total

Call Graph

H^%DTC

Package	Total	Caller Graph
Patient Care Component Data Transmission	1	APCPAPC

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DISP	;set disposition to 2 - if admission on same day, set to 3
SETTX	;
SETVARS	; set standard variables for record
EOJ	;
LAB	;
START	;
OPCODE	;
PROC	;

Name	Line Occurrences (* Changed, ! Killed)
^APCPREC(1	SETTX+4, SETTX+6, SETTX+7, SETTX+8
^AUPNVLAB("AD"	LAB+1
^AUPNVPRC - [#9000010.08]	PROC+2
^AUPNVPRC("AD"	PROC+2
^AUPNVSIT("AAH"	DISP+2
^BAPCDATA(	SETTX+10*
^ICD0 - [#80.1]	OPCODE+1, OPCODE+2, OPCODE+3
^XTMP("APCP"	SETTX+3*

Name	Line Occurrences
EOJ	START+3, START+5, START+7, START+10, START+12
LAB	START+8
OPCODE	PROC+2
PROC	START+9
SETTX	START+11
SETVARS	START+1

Name	Field # of Occurrence
%T	SETVARS+3!
%Y	SETVARS+3!
>> APCP("APC"	SETTX+2*
>> APCP("COUNT"	SETTX+2*, SETTX+10
>> APCP("MAIN TX	DATE" , SETTX+3
>> APCP("V DFN"	LAB+1, PROC+2, SETTX+3
APCPADX1	EOJ+1!
APCPADX2	EOJ+1!
>> APCPE("ERROR"	START+3, START+5, START+7, START+10, OPCODE+2, OPCODE+3, OPCODE+4, OPCODE+5
>> APCPO("RUN"	SETTX+3
APCPT	EOJ+1!, SETVARS+1!
APCPT("DISP"	DISP+2*
APCPT("DOW"	SETVARS+3*
APCPT("HR"	SETVARS+4*, SETVARS+5
APCPT("L"	OPCODE+6*
APCPT("LAB"	LAB+1*
APCPT("OP"	PROC+1, OPCODE+1, OPCODE+4, OPCODE+5, OPCODE+6*
APCPT("OPP"	PROC+2*, OPCODE+1, OPCODE+2, OPCODE+3
APCPT("SP"	PROC+1, PROC+2
APCPT("TOD"	SETVARS+5*
APCPT("VD"	SETVARS+2*
APCPT("X"	PROC+2*
>> APCPV("CLINIC	CODE" , SETVARS+6*
>> APCPV("PATIEN	T DFN" , DISP+2
>> APCPV("TX GEN	ERATED" , SETTX+3*
>> APCPV("TX"	SETTX+9*, SETTX+10
>> APCPV("V DATE	" , SETVARS+2, SETVARS+3, DISP+2
>> APCPV("V REC"	, SETVARS+4
>> AUPNSEX	OPCODE+3
D	EOJ+1!, DISP+1~, DISP+2*
I	EOJ+1!, DISP+1~, DISP+2, OPCODE+6
U	SETVARS+4, PROC+2, OPCODE+1, OPCODE+2, OPCODE+3, SETTX+9, SETTX+10
X	SETVARS+3!, SETTX+5, SETTX+9
Y	SETTX+4~*, SETTX+6, SETTX+9
>> Z	SETTX+6*, SETTX+7, SETTX+8

Information