APCLTX.m

APCLTX ; IHS/OHPRD/TMJ -CREATED BY ^ATXSTX ON JAN 09, 1997 ;

 ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^APCLTXA ;   APCL DIABETES REG COMPLICATION

 D ^APCLTXB ;   APCL DIABETES REG NEW CASE

 D ^APCLTXC ;   APCL INJ AIR TRANSPORT

 D ^APCLTXD ;   APCL INJ ANIMAL RELATED

 D ^APCLTXE ;   APCL INJ ASSAULTS

 D ^APCLTXF ;   APCL INJ BATTERED CHILD

 D ^APCLTXG ;   APCL INJ CUT

 D ^APCLTXH ;   APCL INJ DROWNING

 D ^APCLTXI ;   APCL INJ ENVIRONMENTAL FACTORS

 D ^APCLTXJ ;   APCL INJ FALLS

 D ^APCLTXK ;   APCL INJ FIRE

 D ^APCLTXL ;   APCL INJ FIREARMS

 D ^APCLTXM ;   APCL INJ MOTOR

 D ^APCLTXN ;   APCL INJ OTHER CAUSES

 D ^APCLTXO ;   APCL INJ POISONING

 D ^APCLTXP ;   APCL INJ SPORTS

 D ^APCLTXQ ;   APCL INJ STINGS VENOMS

 D ^APCLTXR ;   APCL INJ SUICIDE

 D ^APCLTXS ;   APCL INJ UNDETERMINED

 D ^APCLTXT ;   APCL INJ WATER TRANSPORT

 D ^APCLTXU ;   DM AUDIT PROBLEM DIABETES DX

 D ^APCLTXV ;   DM AUDIT PROBLEM HTN DIAGNOSES

 D ^APCLTXW ;   DM AUDIT PROBLEM SMOKING DXS

 D ^APCLTXX ;   DM AUDIT PROBLEM TB DXS

 D ^APCLTXY ;   DM AUDIT SMOKING RELATED DXS

 Q

APCLTX    ; IHS/OHPRD/TMJ -CREATED BY ^ATXSTX ON JAN 09, 1997 ;

 +1       ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

 +2       ;

 +3       ; See referenced routines to see taxonomies being loaded.

 +4       ;

START     ;

 +1       ;   APCL DIABETES REG COMPLICATION

           DO ^APCLTXA

 +2       ;   APCL DIABETES REG NEW CASE

           DO ^APCLTXB

 +3       ;   APCL INJ AIR TRANSPORT

           DO ^APCLTXC

 +4       ;   APCL INJ ANIMAL RELATED

           DO ^APCLTXD

 +5       ;   APCL INJ ASSAULTS

           DO ^APCLTXE

 +6       ;   APCL INJ BATTERED CHILD

           DO ^APCLTXF

 +7       ;   APCL INJ CUT

           DO ^APCLTXG

 +8       ;   APCL INJ DROWNING

           DO ^APCLTXH

 +9       ;   APCL INJ ENVIRONMENTAL FACTORS

           DO ^APCLTXI

 +10      ;   APCL INJ FALLS

           DO ^APCLTXJ

 +11      ;   APCL INJ FIRE

           DO ^APCLTXK

 +12      ;   APCL INJ FIREARMS

           DO ^APCLTXL

 +13      ;   APCL INJ MOTOR

           DO ^APCLTXM

 +14      ;   APCL INJ OTHER CAUSES

           DO ^APCLTXN

 +15      ;   APCL INJ POISONING

           DO ^APCLTXO

 +16      ;   APCL INJ SPORTS

           DO ^APCLTXP

 +17      ;   APCL INJ STINGS VENOMS

           DO ^APCLTXQ

 +18      ;   APCL INJ SUICIDE

           DO ^APCLTXR

 +19      ;   APCL INJ UNDETERMINED

           DO ^APCLTXS

 +20      ;   APCL INJ WATER TRANSPORT

           DO ^APCLTXT

 +21      ;   DM AUDIT PROBLEM DIABETES DX

           DO ^APCLTXU

 +22      ;   DM AUDIT PROBLEM HTN DIAGNOSES

           DO ^APCLTXV

 +23      ;   DM AUDIT PROBLEM SMOKING DXS

           DO ^APCLTXW

 +24      ;   DM AUDIT PROBLEM TB DXS

           DO ^APCLTXX

 +25      ;   DM AUDIT SMOKING RELATED DXS

           DO ^APCLTXY

 +26       QUIT