BGP9OX.m

BGP9OX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 16, 2009 ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP9OXA ;   BGP OPV EVID DISEASE

 D ^BGP9OXB ;   BGP OSTEO SCREEN CPTS

 D ^BGP9OXC ;   BGP OSTEOARTHRITIS DXS

 D ^BGP9OXD ;   BGP OSTEOPOROSIS DXS

 D ^BGP9OXE ;   BGP PAP ICDS

 D ^BGP9OXF ;   BGP PAP LOINC CODES

 D ^BGP9OXG ;   BGP PAP PROCEDURES

 D ^BGP9OXH ;   BGP PAP SMEAR DXS

 D ^BGP9OXI ;   BGP PCR LOINC CODES

 D ^BGP9OXJ ;   BGP PERTUSSIS EVIDENCE

 D ^BGP9OXK ;   BGP PHARYNGITIS DXS

 D ^BGP9OXL ;   BGP PNEUMO IZ PROCEDURES

 D ^BGP9OXM ;   BGP PNEUMO IZ DXS

 D ^BGP9OXN ;   BGP PNEUMO IZ CPTS

 D ^BGP9OXO ;   BGP POISONINGS SUBSTANCE ABUSE

 D ^BGP9OXP ;   BGP POTASSIUM LOINC

 D ^BGP9OXQ ;   BGP PRE DM MET SYN DX

 D ^BGP9OXR ;   BGP PTCA CPTS

 D ^BGP9OXS ;   BGP PTCA PROCS

 D ^BGP9OXT ;   BGP QUANT URINE PROT LOINC

 D ^BGP9OXU ;   BGP RA AZATHIOPRINE NDC

 D ^BGP9OXV ;   BGP RA CYCLOSPORINE NDC

 D ^BGP9OXW ;   BGP RA GLUCOCORTICOIDS CLASS

 D ^BGP9OXX ;   BGP RA IM GOLD NDC

 D ^BGP9OXY ;   BGP RA LEFLUNOMIDE NDC

 D ^BGP9OXZ ;   BGP RA METHOTREXATE NDC

 Q

BGP9OX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 16, 2009 ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP OPV EVID DISEASE

           DO ^BGP9OXA

 +2       ;   BGP OSTEO SCREEN CPTS

           DO ^BGP9OXB

 +3       ;   BGP OSTEOARTHRITIS DXS

           DO ^BGP9OXC

 +4       ;   BGP OSTEOPOROSIS DXS

           DO ^BGP9OXD

 +5       ;   BGP PAP ICDS

           DO ^BGP9OXE

 +6       ;   BGP PAP LOINC CODES

           DO ^BGP9OXF

 +7       ;   BGP PAP PROCEDURES

           DO ^BGP9OXG

 +8       ;   BGP PAP SMEAR DXS

           DO ^BGP9OXH

 +9       ;   BGP PCR LOINC CODES

           DO ^BGP9OXI

 +10      ;   BGP PERTUSSIS EVIDENCE

           DO ^BGP9OXJ

 +11      ;   BGP PHARYNGITIS DXS

           DO ^BGP9OXK

 +12      ;   BGP PNEUMO IZ PROCEDURES

           DO ^BGP9OXL

 +13      ;   BGP PNEUMO IZ DXS

           DO ^BGP9OXM

 +14      ;   BGP PNEUMO IZ CPTS

           DO ^BGP9OXN

 +15      ;   BGP POISONINGS SUBSTANCE ABUSE

           DO ^BGP9OXO

 +16      ;   BGP POTASSIUM LOINC

           DO ^BGP9OXP

 +17      ;   BGP PRE DM MET SYN DX

           DO ^BGP9OXQ

 +18      ;   BGP PTCA CPTS

           DO ^BGP9OXR

 +19      ;   BGP PTCA PROCS

           DO ^BGP9OXS

 +20      ;   BGP QUANT URINE PROT LOINC

           DO ^BGP9OXT

 +21      ;   BGP RA AZATHIOPRINE NDC

           DO ^BGP9OXU

 +22      ;   BGP RA CYCLOSPORINE NDC

           DO ^BGP9OXV

 +23      ;   BGP RA GLUCOCORTICOIDS CLASS

           DO ^BGP9OXW

 +24      ;   BGP RA IM GOLD NDC

           DO ^BGP9OXX

 +25      ;   BGP RA LEFLUNOMIDE NDC

           DO ^BGP9OXY

 +26      ;   BGP RA METHOTREXATE NDC

           DO ^BGP9OXZ

 +27       QUIT