BGPWTX.m

BGPWTX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 26, 2005 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;;;BGPW;;APR 26, 2005

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGPWTXA ;   BGP OPV EVID DISEASE

 D ^BGPWTXB ;   BGP OSTEOPOROSIS NDC

 D ^BGPWTXC ;   BGP PAP LOINC CODES

 D ^BGPWTXD ;   BGP PCR LOINC CODES

 D ^BGPWTXE ;   BGP PERTUSSIS EVIDENCE

 D ^BGPWTXF ;   BGP PTCA CPTS

 D ^BGPWTXG ;   BGP PTCA PROCS

 D ^BGPWTXH ;   BGP RECTAL PROCEDURE CODES

 D ^BGPWTXI ;   BGP RUBELLA EVIDENCE

 D ^BGPWTXJ ;   BGP SIG CPTS

 D ^BGPWTXK ;   BGP SINUS BRADYCARDIA DXS

 D ^BGPWTXL ;   BGP TOTAL CHOLESTEROL LOINC

 D ^BGPWTXM ;   BGP TRIGLYCERIDE LOINC CODES

 D ^BGPWTXN ;   BGP UNI MASTECTOMY PROCEDURES

 D ^BGPWTXO ;   BGP URINE PROTEIN LOINC CODES

 D ^BGPWTXP ;   BGP VARICELLA CONTRA

 D ^BGPWTXQ ;   BGP VARICELLA EVIDENCE

 D ^BGPWTXR ;   BGP VIRAL LOAD LOINC CODES

 D ^BGPWTXS ;   BGP HEDIS RETINAL SCREENING

 D ^BGPWTXT ;   BGP HEDIS RETINAL SCRN PROCS

 D ^BGPWTXU ;   BGP NEPHROPATHY CPTS

 Q

BGPWTX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 26, 2005 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;;;BGPW;;APR 26, 2005

 +3       ;

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

 +5       ;

START     ;

 +1       ;   BGP OPV EVID DISEASE

           DO ^BGPWTXA

 +2       ;   BGP OSTEOPOROSIS NDC

           DO ^BGPWTXB

 +3       ;   BGP PAP LOINC CODES

           DO ^BGPWTXC

 +4       ;   BGP PCR LOINC CODES

           DO ^BGPWTXD

 +5       ;   BGP PERTUSSIS EVIDENCE

           DO ^BGPWTXE

 +6       ;   BGP PTCA CPTS

           DO ^BGPWTXF

 +7       ;   BGP PTCA PROCS

           DO ^BGPWTXG

 +8       ;   BGP RECTAL PROCEDURE CODES

           DO ^BGPWTXH

 +9       ;   BGP RUBELLA EVIDENCE

           DO ^BGPWTXI

 +10      ;   BGP SIG CPTS

           DO ^BGPWTXJ

 +11      ;   BGP SINUS BRADYCARDIA DXS

           DO ^BGPWTXK

 +12      ;   BGP TOTAL CHOLESTEROL LOINC

           DO ^BGPWTXL

 +13      ;   BGP TRIGLYCERIDE LOINC CODES

           DO ^BGPWTXM

 +14      ;   BGP UNI MASTECTOMY PROCEDURES

           DO ^BGPWTXN

 +15      ;   BGP URINE PROTEIN LOINC CODES

           DO ^BGPWTXO

 +16      ;   BGP VARICELLA CONTRA

           DO ^BGPWTXP

 +17      ;   BGP VARICELLA EVIDENCE

           DO ^BGPWTXQ

 +18      ;   BGP VIRAL LOAD LOINC CODES

           DO ^BGPWTXR

 +19      ;   BGP HEDIS RETINAL SCREENING

           DO ^BGPWTXS

 +20      ;   BGP HEDIS RETINAL SCRN PROCS

           DO ^BGPWTXT

 +21      ;   BGP NEPHROPATHY CPTS

           DO ^BGPWTXU

 +22       QUIT