Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: DBTSUT

Package: Uncategorized

Routine: DBTSUT


Information

DBTSUT ;utility routine to have several calls for diff functions [ 11/01/1999 10:33 AM ]

Source Information

Source file <DBTSUT.m>

Entry Points

Name Comments DBIA/ICR reference
PAR ;
ICDFIL ; build the skinny table for icd filter on ICD categories
; 1-17 in the code book 10-6-99
DD ;
CPTFIL ; build the skinny file for cpt filters using the DBTSCPTC global
; I built with the 201-343 numbers for proc category
DISC ;create provider discipline txt file for keith
LOW
FAC2 ; used to put the fac. number again and put the parent facility on the
; 2 field position and that is all
; 10-4-99
CLI ;
DRUG ;
NARR ; convert the provider narr. to mixed case sentences
ICDSET ;
ICDPCPT ; icd procedure and the cpt code files
FAC ; used to pull all the AREAs facilities to one txt file to be
; loaded up into the facility file
; 9-30-99
SVCCAT ;
DRUGCL ;create text file of all drug class entries in the va drug class file
EXAM ;
CARFIL ; cardiac filter diagnosis for keith's filter
AFF ;
IMM ;to save the auttimm table out to a tab delimited text file
ICD ; ICD9 table
AMP ;create icd op/proc. amputation text file
CPTC ; cpt category 10-6-1999
CW ;
CARD ;create text file of all cardiac diagnosis put to the DBTS CARDIAC DIAGNOSIS
CPTXWK ; build a DBTSCPT(200-500) global for cross walk of proc category
; number in node and description as 1st piece
; used to pull the skinny file of cpt code and proc category file
; for the refprocfilter file in SQL
PROV ;
UP
DTCHK ;
NARR2 ; chk for ii i Dm dm etc. and change the case to upper
PSDRUG ; create drug table delimit with "^" because pulling into M and merge
; all su drug file

Interaction Calls

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+18
Function Call: WRITE
  • Prompt: !!,"TOTAL DRUGS WRITTEN TO FILE: ",CT
  • Line Location: PSDRUG+21
Function Call: WRITE
  • Prompt: OUTREC,!
  • Line Location: DISC+9
Function Call: WRITE
  • Prompt: "1"_$C(9)_"IHS",!
  • Line Location: AFF+2
Function Call: WRITE
  • Prompt: "2"_$C(9)_"CONTRACT",!
  • Line Location: AFF+3
Function Call: WRITE
  • Prompt: "3"_$C(9)_"TRIBAL",!
  • Line Location: AFF+4
Function Call: WRITE
  • Prompt: "4"_$C(9)_"STATE",!
  • Line Location: AFF+5
Function Call: WRITE
  • Prompt: "5"_$C(9)_"MUNICIPAL",!
  • Line Location: AFF+6
Function Call: WRITE
  • Prompt: "6"_$C(9)_"VOLUNTEER",!
  • Line Location: AFF+7
Function Call: WRITE
  • Prompt: "7"_$C(9)_"NTL HLTH SRV CORP",!
  • Line Location: AFF+8
Function Call: WRITE
  • Prompt: "8"_$C(9)_"638 PROGRAM",!
  • Line Location: AFF+9
Function Call: WRITE
  • Prompt: "9"_$C(9)_"OTHER",!
  • Line Location: AFF+10
Function Call: WRITE
  • Prompt: OUTREC,!
  • Line Location: CLI+8
Function Call: WRITE
  • Prompt: "A"_$C(9)_"AMBULATORY",!
  • Line Location: SVCCAT+2
Function Call: WRITE
  • Prompt: "H"_$C(9)_"HOSPITALIZATION",!
  • Line Location: SVCCAT+3
Function Call: WRITE
  • Prompt: "I"_$C(9)_"IN HOSPITAL",!
  • Line Location: SVCCAT+4
Function Call: WRITE
  • Prompt: "C"_$C(9)_"CHART REVIEW",!
  • Line Location: SVCCAT+5
Function Call: WRITE
  • Prompt: "T"_$C(9)_"TELECOMMUNICATIONS",!
  • Line Location: SVCCAT+6
Function Call: WRITE
  • Prompt: "N"_$C(9)_"NOT FOUND",!
  • Line Location: SVCCAT+7
Function Call: WRITE
  • Prompt: "S"_$C(9)_"DAY SURGERY",!
  • Line Location: SVCCAT+8
Function Call: WRITE
  • Prompt: "O"_$C(9)_"OBSERVATION",!
  • Line Location: SVCCAT+9
Function Call: WRITE
  • Prompt: "E"_$C(9)_"EVENT (HISTORICAL)",!
  • Line Location: SVCCAT+10
Function Call: WRITE
  • Prompt: "R"_$C(9)_"NURSING HOME",!
  • Line Location: SVCCAT+11
Function Call: WRITE
  • Prompt: "D"_$C(9)_"DAILY HOSPITALIZATION DATA",!
  • Line Location: SVCCAT+12
Function Call: WRITE
  • Prompt: "X"_$C(9)_"ANCILLARY PACKAGE DAILY DATA",!
  • Line Location: SVCCAT+13
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: FAC+17
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: FAC2+17
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: ICD+11
Function Call: WRITE
  • Prompt: !!,"TOTAL ICD: ",CT
  • Line Location: ICD+14
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: ICDPCPT+11
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: ICDPCPT+21
Function Call: WRITE
  • Prompt: !!,"TOTAL PROC: ",CT
  • Line Location: ICDPCPT+24
Function Call: WRITE
  • Prompt: !,"TOTAL CPT= ",CTCPT
  • Line Location: ICDPCPT+25
Function Call: WRITE
  • Prompt: !!,"TOTAL CODES: ",CT
  • Line Location: CARFIL+19
Function Call: WRITE
  • Prompt: CODE_$C(9)_"501",!
  • Line Location: CW+1
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: CPTC+9
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",CT
  • Line Location: CPTC+12
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",CT
  • Line Location: ICDFIL+27
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: ICDSET+2
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",CT
  • Line Location: CPTXWK+17
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: CPTFIL+15
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",CT
  • Line Location: CPTFIL+18
Info |  Source |  Entry Points |  Interaction Calls |  All