Routine: BDWDDR2

Package	Total	Call Graph
IHS Patient	1	$$CPT^AUPNCPT

Entry Points

Name	Comments	DBIA/ICR reference
VREC(BDWVIEN,BDWRTYP,BDWVAR1,BDWVAR2,BDWVAR3,BDWVAR4,BDWVAR5,BDWVAR6)	;generate 1 record delimited format
GENREC	;
DELSTAT	;generate new delimited format of the statistical record
SETTMP	;

Name	Field # of Occurrence
$$CPT^AUPNCPT	DELSTAT+9

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	DELSTAT+16
^AUPNVSIT - [#9000010]	VREC+1, VREC+2
^BDWPDATA(	SETTMP+2*
^BDWREC(	VREC+5, VREC+7, VREC+8, VREC+9
^BDWREC("B"	VREC+3
^TMP($J	DELSTAT+20*

Name	Line Occurrences
$$VREC	DELSTAT+2, DELSTAT+4, DELSTAT+6, DELSTAT+17
SETTMP	DELSTAT+3, DELSTAT+5, DELSTAT+7, DELSTAT+18

Name	Field # of Occurrence
AUPNCPT	DELSTAT+9!, DELSTAT+10, DELSTAT+19!
AUPNCPT(	DELSTAT+11, DELSTAT+14, DELSTAT+16
>> BDW("MAIN TX	DATE" , DELSTAT+20
>> BDW("X"	DELSTAT+2, DELSTAT+4, DELSTAT+6, DELSTAT+17, SETTMP+2
BDWRIEN	VREC+3~*, VREC+4, VREC+5, VREC+7, VREC+8, VREC+9
BDWRTYP	VREC~, VREC+3
BDWT	VREC+5~, VREC+10, VREC+12
>> BDWTOTR	SETTMP+1*, SETTMP+2
>> BDWUSED	DELSTAT+1*
>> BDWV("CPT COU	NT" , DELSTAT+11*, DELSTAT+12
>> BDWV("CPT REC	S" , DELSTAT+12*, DELSTAT+13
>> BDWV("CPT SET	" , DELSTAT+14!, DELSTAT+16, DELSTAT+17
>> BDWV("CPT X"	DELSTAT+13*, DELSTAT+14, DELSTAT+17
BDWVAR1	VREC~
BDWVAR2	VREC~
BDWVAR3	VREC~
BDWVAR4	VREC~
BDWVAR5	VREC~
BDWVAR6	VREC~
BDWVIEN	DELSTAT+2, DELSTAT+4, DELSTAT+6, DELSTAT+9, DELSTAT+17, DELSTAT+20, VREC~, VREC+1, VREC+2
>> BDWVREC	VREC+1*
BDWY	VREC+5~*, VREC+7, VREC+10
BDWZ	VREC+7~*, VREC+8, VREC+9
>> DFN	VREC+2*
>> E	DELSTAT+16*
>> P	DELSTAT+14*, DELSTAT+16
U	DELSTAT+14, DELSTAT+16, VREC+2, VREC+10
>> X	DELSTAT+9, DELSTAT+11, VREC+6*, VREC+10
>> Y	DELSTAT+14*, DELSTAT+16