Routine: DBTSUTCR

Information

DBTSUTCR ;utility routine to have several calls for diff functions [ 02/08/1999 2:09 PM ]

Name	Comments	DBIA/ICR reference
EXAM	;
DD	;
IMM	;to save the auttimm table out to a tab delimited text file
DRUG	;
AMP	;create icd op/proc. amputation text file
DRUGCL	;create text file of all drug class entries in the va drug class file
CARD	;create text file of all cardiac diagnosis put to the DBTS CARDIAC DIAGNOSIS
PSDRUG	; create drug table delimit with "^" because pulling into M and merge ; all su drug file

Name	Line Occurrences
Function Call: WRITE	Prompt: OUTREC,! Line Location: IMM+11
Function Call: WRITE	Prompt: "TOTAL IMM RECORDS: ",DBTSCT Line Location: IMM+14
Function Call: WRITE	Prompt: OUTREC,! Line Location: EXAM+11
Function Call: WRITE	Prompt: "TOTAL EXAM RECORDS: ",DBTSCT Line Location: EXAM+14
Function Call: WRITE	Prompt: OUTREC,! Line Location: DRUG+6
Function Call: WRITE	Prompt: OUTREC,! Line Location: AMP+7
Function Call: WRITE	Prompt: OUTREC,! Line Location: CARD+9
Function Call: WRITE	Prompt: OUTREC,! Line Location: DRUGCL+12
Function Call: WRITE	Prompt: OUTREC,! Line Location: PSDRUG+17
Function Call: WRITE	Prompt: !!,"TOTAL DRUGS SET: ",CT Line Location: PSDRUG+20