Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPPOST1

BGPPOST1.m

Go to the documentation of this file. 
  1. BGPPOST1 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 28 Jan 2005 1:34 PM ;
  1.  ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1.  ;
  1.  ;
  1. DRUGS ;EP set up drug taxonomies
  1.  S ATXFLG=1
  1.  S BGPX="BGP CMS WARFARIN MEDS",BGPTAX="",BGPNDCT="" D DRUG1 D
  1.  .S BGPTX=$O(^ATXAX("B","BGP CMS WARFARIN MEDS",0))
  1.  .Q:'BGPTX
  1.  .S A=0,B="" F  S A=$O(^ATXAX(BGPTX,21,A)) Q:A'=+A  S B=A
  1.  .S BGPC=B
  1.  .S J=0 F  S J=$O(^PSDRUG(J)) Q:J'=+J  S C=$P(^PSDRUG(J,0),U,1) I C["WARFARIN" D
  1.  ..Q:$D(^ATXAX(BGPTX,21,"B",J))
  1.  ..S BGPC=BGPC+1,^ATXAX(BGPTX,21,BGPC,0)=J_U_J,^ATXAX(BGPTX,21,0)="^9002226.02101A^"_BGPC_U_BGPC
  1.  .S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  S BGPX="BGP CMS ACEI MEDS",BGPTAX="BGP CMS ACEI MEDS CLASS",BGPNDCT="" D DRUG1
  1.  S BGPX="BGP CMS BETA BLOCKER MEDS",BGPTAX="BGP CMS BETA BLOCKER CLASS",BGPNDCT="BGP CMS BETA BLOCKER NDC" D DRUG1
  1.  S BGPX="BGP CMS ANTIBIOTIC MEDS",BGPTAX="BGP CMS ANTIBIOTICS MEDS CLASS",BGPNDCT="" D DRUG1
  1.  S BGPX="BGP CMS ARB MEDS",BGPTAX="BGP CMS ARB MEDS CLASS",BGPNDCT="" D DRUG1
  1.  S BGPX="DM AUDIT ASPIRIN DRUGS",BGPTAX="",BGPNDCT="" D DRUG1
  1.  S BGPX="DM AUDIT ANTI-PLATELET DRUGS",BGPTAX="BGP CMS ANTI-PLATELET CLASS",BGPNDCT="" D DRUG1
  1.  S BGPX="BGP HEDIS OSTEOPOROSIS DRUGS",BGPTAX="",BGPNDCT="BGP HEDIS OSTEOPOROSIS NDC" D DRUG1
  1.  S BGPX="BGP ASTHMA CONTROLLERS",BGPTAX="",BGPNDCT="BGP ASTHMA CONTROLLER NDC" D DRUG1
  1.  S BGPX="BGP ASTHMA INHALED STEROIDS",BGPTAX="",BGPNDCT="BGP ASTHMA INHALED STEROID NDC" D DRUG1
  1.  S BGPX="BGP ASTHMA LEUKOTRIENE",BGPTAX="",BGPNDCT="BGP ASTHMA LEUKOTRIENE NDC" D DRUG1
  1.  S BGPX="BGP HEDIS ANTIDEPRESSANT MEDS",BGPTAX="",BGPNDCT="BGP HEDIS ANTIDEPRESSANT NDC" D DRUG1
  1.  S BGPX="BGP RA OA NSAID MEDS",BGPTAX="",BGPNDCT="BGP RA OA NSAID NDC" D DRUG1
  1.  S BGPX="BGP OA GLUCOCORTICOIDS MEDS",BGPTAX="BGP OA GLUCOCORTICOIDS CLASS",BGPNDCT="" D DRUG1
  1.  S BGPX="BGP HEDIS ANTIBIOTICS MEDS",BGPTAX="",BGPNDCT="BGP HEDIS ANTIBIOTICS NDC" D DRUG1
  1.  S BGPX="BGP HEDIS ASTHMA LEUK MEDS",BGPTAX="",BGPNDCT="BGP HEDIS ASTHMA LEUK NDC" D DRUG1
  1.  S BGPX="BGP HEDIS ASTHMA MEDS",BGPTAX="",BGPNDCT="BGP HEDIS ASTHMA NDC" D DRUG1
  1.  S BGPX="BGP HEDIS PRIMARY ASTHMA MEDS",BGPTAX="",BGPNDCT="BGP HEDIS PRIMARY ASTHMA NDC" D DRUG1
  1.  S BGPX="BGP HEDIS ASTHMA INHALED MEDS",BGPTAX="",BGPNDCT="BGP HEDIS ASTHMA INHALED NDC" D DRUG1
  1.  S BGPX="BGP HEDIS BETA BLOCKER MEDS",BGPTAX="",BGPNDCT="BGP HEDIS BETA BLOCKER NDC" D DRUG1
  1.  S BGPX="BGP RA IM GOLD MEDS",BGPTAX="",BGPNDCT="BGP RA IM GOLD NDC" D DRUG1
  1.  S BGPX="BGP RA AZATHIOPRINE MEDS",BGPTAX="",BGPNDCT="BGP RA AZATHIOPRINE NDC" D DRUG1
  1.  S BGPX="BGP RA LEFLUNOMIDE MEDS",BGPTAX="",BGPNDCT="BGP RA LEFLUNOMIDE NDC" D DRUG1
  1.  S BGPX="BGP RA ORAL GOLD MEDS",BGPTAX="",BGPNDCT="" D DRUG1
  1.  S BGPX="BGP RA CYCLOSPORINE MEDS",BGPTAX="",BGPNDCT="BGP RA CYCLOSPORINE NDC" D DRUG1
  1.  S BGPX="BGP RA METHOTREXATE MEDS",BGPTAX="",BGPNDCT="BGP RA METHOTREXATE NDC" D DRUG1
  1.  S BGPX="BGP RA MYCOPHENOLATE MEDS",BGPTAX="",BGPNDCT="BGP RA MYCOPHENOLATE NDC" D DRUG1
  1.  S BGPX="BGP RA PENICILLAMINE MEDS",BGPTAX="",BGPNDCT="BGP RA PENICILLAMINE NDC" D DRUG1
  1.  S BGPX="BGP RA SULFASALAZINE MEDS",BGPTAX="",BGPNDCT="BGP RA SULFASALAZINE NDC" D DRUG1
  1. T S BGPX="BGP CMS THROMBOLYTIC MEDS",BGPTAX="BGP THROMBOLYTIC AGENT CLASS",BGPNDCT="" D DRUG1
  1. FIXA ;TAKE OUT ARB'S FROM ASPIRIN TAXONOMY
  1.  S BGPT=$O(^ATXAX("B","DM AUDIT ASPIRIN DRUGS",0))
  1.  I BGPT D
  1.  .S BGPX=0 F  S BGPX=$O(^ATXAX(BGPT,21,BGPX)) Q:BGPX'=+BGPX  D
  1.  ..S BGPY=$P(^ATXAX(BGPT,21,BGPX,0),U)
  1.  ..I $P($G(^PSDRUG(BGPY,0)),U,2)="CV805" D
  1.  ...K ^ATXAX(BGPT,21,"B",BGPY),^ATXAX(BGPT,21,"AA",BGPY),^ATXAX(BGPT,21,BGPX,0)
  1.  K ATXFLG,BGPX,BGPDA,BGPTX
  1.  Q
  1. DRUG1 ;
  1.  W !,"Creating ",BGPX," Taxonomy..."
  1.  S BGPTX=$O(^ATXAX("B",BGPX,0))
  1.  I 'BGPTX D
  1.  .S X=BGPX,DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  .I Y=-1 W !!,"ERROR IN CREATING ",BGPX," TAX" Q
  1.  .S BGPTX=+Y,$P(^ATXAX(BGPTX,0),U,2)=BGPX,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=173,$P(^(0),U,13)=0,$P(^(0),U,15)=50,^ATXAX(BGPTX,21,0)="^9002226.02101A^0^0"
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  I $G(BGPTAX)]"" D
  1.  .S A=0,B="" F  S A=$O(^ATXAX(BGPTX,21,A)) Q:A'=+A  S B=A
  1.  .S BGPC=B
  1.  .S ^ATXAX(BGPTX,21,0)="^9002226.02101A^"_B_U_B
  1.  .S Z=$O(^ATXAX("B",BGPTAX,0))
  1.  .S J=0 F  S J=$O(^PSDRUG(J)) Q:J'=+J  S C=$P(^PSDRUG(J,0),U,2) I C]"",$D(^ATXAX(Z,21,"B",C)) D
  1.  ..Q:$D(^ATXAX(BGPTX,21,"B",J))
  1.  ..S BGPC=BGPC+1,^ATXAX(BGPTX,21,BGPC,0)=J_U_J
  1.  I $G(BGPNDCT)]"" D
  1.  .S A=0,B="" F  S A=$O(^ATXAX(BGPTX,21,A)) Q:A'=+A  S B=A
  1.  .S BGPC=B
  1.  .S ^ATXAX(BGPTX,21,0)="^9002226.02101A^"_B_U_B
  1.  .S Z=$O(^ATXAX("B",BGPNDCT,0))
  1.  .S J=0 F  S J=$O(^PSDRUG(J)) Q:J'=+J  S C=$P($G(^PSDRUG(J,2)),U,4) I C]"",$D(^ATXAX(Z,21,"B",C)) D
  1.  ..Q:$D(^ATXAX(BGPTX,21,"B",J))
  1.  ..S BGPC=BGPC+1,^ATXAX(BGPTX,21,BGPC,0)=J_U_J
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. LAB ;EP
  1.  S BGPX=$O(^ATXLAB("B","BGP PCR TAX",0))
  1.  I BGPX S DA=BGPX,DR=".01///BGP HIV VIRAL LOAD TAX",DIE="^ATXLAB(" D ^DIE K DA,DR,DIE,DIV,DIU,DIC
  1.  S BGPX="BGP CD4 TAX" D LAB1
  1.  S BGPX="BGP CHLAMYDIA TESTS TAX" D LAB1
  1.  S BGPX="BGP CMS ABG TESTS" D LAB1
  1.  S BGPX="BGP GPRA ESTIMATED GFR TAX" D LAB1
  1.  S BGPX="BGP GPRA FOB TESTS" D LAB1
  1.  S BGPX="BGP HIV TEST TAX" D LAB1
  1.  S BGPX="BGP HIV VIRAL LOAD TAX" D LAB1
  1.  S BGPX="BGP PAP SMEAR TAX" D LAB1
  1.  S BGPX="DM AUDIT A/C RATIO TAX" D LAB1
  1.  S BGPX="DM AUDIT CHOLESTEROL TAX" D LAB1
  1.  S BGPX="DM AUDIT CREATININE TAX" D LAB1
  1.  S BGPX="DM AUDIT FASTING GLUCOSE TESTS" D LAB1
  1.  S BGPX="DM AUDIT HDL TAX" D LAB1
  1.  S BGPX="DM AUDIT HGB A1C TAX" D LAB1
  1.  S BGPX="DM AUDIT LIPID PROFILE TAX" D LAB1
  1.  S BGPX="DM AUDIT LDL CHOLESTEROL TAX" D LAB1
  1.  S BGPX="DM AUDIT MICROALBUMINURIA TAX" D LAB1
  1.  S BGPX="DM AUDIT TRIGLYCERIDE TAX" D LAB1
  1.  S BGPX="DM AUDIT URINE PROTEIN TAX" D LAB1
  1.  S BGPX="BGP CBC TESTS" D LAB1
  1.  S BGPX="DM AUDIT URINALYSIS TAX" D LAB1
  1.  S BGPX="DM AUDIT AST TAX" D LAB1
  1.  S BGPX="DM AUDIT ALT TAX" D LAB1
  1.  S BGPX="BGP GROUP A STREP TESTS" D LAB1
  1.  S BGPX="BGP LIVER FUNCTION TESTS" D LAB1
  1.  S BGPX="BGP URINE GLUCOSE" D LAB1
  1.  S BGPX="BGP POTASSIUM TESTS" D LAB1
  1.  S BGPX="BGP CMS BLOOD CULTURE" D LAB1
  1.  Q
  1. LAB1 ;
  1.  S BGPDA=$O(^ATXLAB("B",BGPX,0))
  1.  Q:BGPDA  ;taxonomy already exisits
  1.  W !,"Creating ",BGPX," Taxonomy..."
  1.  S X=BGPX,DIC="^ATXLAB(",DIC(0)="L",DIADD=1,DLAYGO=9002228 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING ",BGPX," TAX" Q
  1.  S BGPTX=+Y,$P(^ATXLAB(BGPTX,0),U,2)=BGPX,$P(^(0),U,5)=DUZ,$P(^(0),U,6)=DT,$P(^(0),U,8)="B",$P(^(0),U,9)=60,^ATXLAB(BGPTX,21,0)="^9002228.02101PA^0^0"
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. CLTAX ;EP
  1.  W !,"Creating Primary Care Clinics taxonomy..."
  1.  S BGPDA=0 S BGPDA=$O(^ATXAX("B","BGP PRIMARY CARE CLINICS",BGPDA)) I BGPDA S DA=BGPDA S DIK="^ATXAX(" D ^DIK K DA,DIK
  1.  S X="BGP PRIMARY CARE CLINICS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING BGP PRIMARY CARE CLINICS TAX" Q
  1.  S BGPTX=+Y,$P(^ATXAX(BGPTX,0),U,2)="BGP PRIMARY CARE CLINICS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=172,$P(^(0),U,13)=0,$P(^(0),U,15)=40.7,^ATXAX(BGPTX,21,0)="^9002226.02101A^0^0"
  1.  D ^XBFMK K DIADD,DLAYGO S BGPTEXT="CLINICS" F BGPX=1:1:6 S X=$P($T(@BGPTEXT+BGPX),";;",2),Y=$O(^DIC(40.7,"C",X,0)) I Y D
  1.  .S ^ATXAX(BGPTX,21,BGPX,0)=+Y,$P(^ATXAX(BGPTX,21,0),U,3)=BGPX,$P(^(0),U,4)=BGPX,^ATXAX(BGPTX,21,"AA",+Y,+Y)=""
  1.  .Q
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. PRVTAX ;EP
  1.  S ATXFLG=1
  1.  W !,"Creating Prescribing provider taxonomy..."
  1.  S BGPDA=0 S BGPDA=$O(^ATXAX("B","BGP PRESCRIBING PROVIDER CLASS",BGPDA)) I BGPDA S DA=BGPDA S DIK="^ATXAX(" D ^DIK K DA,DIK
  1.  S X="BGP PRESCRIBING PROVIDER CLASS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING BGP PRESCRIBING PROVIDER CLASS TAX" Q
  1.  S BGPTX=+Y,$P(^ATXAX(BGPTX,0),U,2)="BGP PRESCRIBING PROVIDER CLASS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=210,$P(^(0),U,13)=0,$P(^(0),U,15)=7,^ATXAX(BGPTX,21,0)="^9002226.02101A^0^0"
  1.  D ^XBFMK K DIADD,DLAYGO S BGPTEXT="PREPROV" F BGPX=1:1:43 S X=$P($T(@BGPTEXT+BGPX),";;",2),Y=$O(^DIC(7,"D",X,0)) I Y D
  1.  .S ^ATXAX(BGPTX,21,BGPX,0)=+Y,$P(^ATXAX(BGPTX,21,0),U,3)=BGPX,$P(^(0),U,4)=BGPX,^ATXAX(BGPTX,21,"AA",+Y,+Y)=""
  1.  .Q
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. MHTAX ;EP
  1.  S ATXFLG=1
  1.  W !,"Creating Mental Health provider taxonomy..."
  1.  S BGPDA=0 S BGPDA=$O(^ATXAX("B","BGP MENTAL HEALTH PROV CLASS",BGPDA)) I BGPDA S DA=BGPDA S DIK="^ATXAX(" D ^DIK K DA,DIK
  1.  S X="BGP MENTAL HEALTH PROV CLASS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING BGP MENTAL HEALTH PROV CLASS TAX" Q
  1.  S BGPTX=+Y,$P(^ATXAX(BGPTX,0),U,2)="BGP MENTAL HEALTH PROV CLASS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=210,$P(^(0),U,13)=0,$P(^(0),U,15)=7,^ATXAX(BGPTX,21,0)="^9002226.02101A^0^0"
  1.  D ^XBFMK K DIADD,DLAYGO S BGPTEXT="MHPROV" F BGPX=1:1:14 S X=$P($T(@BGPTEXT+BGPX),";;",2),Y=$O(^DIC(7,"D",X,0)) I Y D
  1.  .S ^ATXAX(BGPTX,21,BGPX,0)=+Y,$P(^ATXAX(BGPTX,21,0),U,3)=BGPX,$P(^(0),U,4)=BGPX,^ATXAX(BGPTX,21,"AA",+Y,+Y)=""
  1.  .Q
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. MHPROV ;
  1.  ;;06
  1.  ;;12
  1.  ;;19
  1.  ;;48
  1.  ;;49
  1.  ;;50
  1.  ;;62
  1.  ;;63
  1.  ;;81
  1.  ;;92
  1.  ;;93
  1.  ;;94
  1.  ;;95
  1.  ;;96
  1.  ;;
  1. CLINICS ;
  1.  ;;01
  1.  ;;06
  1.  ;;13
  1.  ;;20
  1.  ;;24
  1.  ;;28
  1.  ;;
  1. PRVS ;
  1.  ;;00
  1.  ;;11
  1.  ;;16
  1.  ;;17
  1.  ;;18
  1.  ;;21
  1.  ;;25
  1.  ;;33
  1.  ;;41
  1.  ;;44
  1.  ;;45
  1.  ;;49
  1.  ;;64
  1.  ;;68
  1.  ;;69
  1.  ;;70
  1.  ;;71
  1.  ;;72
  1.  ;;73
  1.  ;;74
  1.  ;;75
  1.  ;;76
  1.  ;;77
  1.  ;;78
  1.  ;;79
  1.  ;;80
  1.  ;;81
  1.  ;;82
  1.  ;;83
  1.  ;;84
  1.  ;;85
  1.  ;;86
  1.  ;;A1
  1.  ;;
  1. PREPROV ;;
  1.  ;;00
  1.  ;;08
  1.  ;;11
  1.  ;;16
  1.  ;;17
  1.  ;;18
  1.  ;;21
  1.  ;;24
  1.  ;;25
  1.  ;;30
  1.  ;;33
  1.  ;;41
  1.  ;;44
  1.  ;;45
  1.  ;;47
  1.  ;;49
  1.  ;;64
  1.  ;;67
  1.  ;;68
  1.  ;;70
  1.  ;;71
  1.  ;;72
  1.  ;;73
  1.  ;;74
  1.  ;;75
  1.  ;;76
  1.  ;;77
  1.  ;;78
  1.  ;;79
  1.  ;;80
  1.  ;;81
  1.  ;;82
  1.  ;;83
  1.  ;;85
  1.  ;;86
  1.  ;;A1
  1.  ;;A9
  1.  ;;B1
  1.  ;;B2
  1.  ;;B3
  1.  ;;B4
  1.  ;;B5
  1.  ;;B6
  1.  ;;
  1. PRE ;EP;CHANGE PACKAGE FILE NAME
  1.  S DA=$O(^DIC(9.4,"C","BGP",0))
  1.  I DA S DIE="^DIC(9.4,",DR=".01///IHS CLINICAL REPORTING" D ^DIE K DIE,DA,DR,DIU,DIV
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPELIS(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPELIIS(" D ^DIK
  1.  F BGPX=1:1:25 S DA=BGPX,DIK="^BGPCMSIS(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPSNPL(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIS(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIIS(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPINDSC(" D ^DIK
  1.  F BGPX=1:1:50 S DA=BGPX,DIK="^BGPINDS(" D ^DIK
  1.  F BGPX=1:1:1000 S DA=BGPX,DIK="^BGPTAXS(" D ^DIK
  1.  F BGPX=1:1:1000 S DA=BGPX,DIK="^BGPTAXTM(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPELIV(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPELIIV(" D ^DIK
  1.  F BGPX=1:1:25 S DA=BGPX,DIK="^BGPCMSIF(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPVNPL(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIV(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIIV(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPINDVC(" D ^DIK
  1.  F BGPX=1:1:50 S DA=BGPX,DIK="^BGPINDV(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIF(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPHEIIF(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPINDFC(" D ^DIK
  1.  F BGPX=1:1:50 S DA=BGPX,DIK="^BGPINDF(" D ^DIK
  1.  F BGPX=1:1:2500 S DA=BGPX,DIK="^BGPINDC(" D ^DIK
  1.  F BGPX=1:1:50 S DA=BGPX,DIK="^BGPIND(" D ^DIK
  1.  F BGPX=1:1:20 S DA=BGPX,DIK="^BGPCTRL(" D ^DIK
  1.  F BGPX=1:1:300 S DA=BGPX,DIK="^BGPTAXV(" D ^DIK
  1.  S X=0 F  S X=$O(^BGPSITE(X)) Q:X'=+X  S $P(^BGPSITE(X,0),U,3)=""
  1.  Q