APCL8X.m

APCL8X ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON FEB 04, 2008 ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^APCL8XA ;   DM AUDIT FLU CPTS

 D ^APCL8XB ;   DM AUDIT TD CPTS

 D ^APCL8XC ;   DM AUDIT P/C RATIO LOINC

 D ^APCL8XD ;   DM AUDIT FASTING GLUC LOINC

 D ^APCL8XE ;   DM AUDIT ESTIMATED GFR LOINC

 D ^APCL8XF ;   DM AUDIT A/C RATIO LOINC

 Q

APCL8X    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON FEB 04, 2008 ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

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

 +4       ;

START     ;

 +1       ;   DM AUDIT FLU CPTS

           DO ^APCL8XA

 +2       ;   DM AUDIT TD CPTS

           DO ^APCL8XB

 +3       ;   DM AUDIT P/C RATIO LOINC

           DO ^APCL8XC

 +4       ;   DM AUDIT FASTING GLUC LOINC

           DO ^APCL8XD

 +5       ;   DM AUDIT ESTIMATED GFR LOINC

           DO ^APCL8XE

 +6       ;   DM AUDIT A/C RATIO LOINC

           DO ^APCL8XF

 +7        QUIT