BHSMU1.m

BHSMU1 ;IHS/CIA/MGH - Health Summary Utilities ;17-Mar-2006 10:36;MGH

 ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 ;===================================================================

 ;Taken from APCHSMU1

 ; IHS/CMI/LAB - utilities for hmr ;  [ 10/23/03  1:23 PM ]

 ;;2.0;IHS RPMS/PCC Health Summary;**8,11**;JUN 24, 1997

 ;

BI() ;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB

 Q $S($O(^AUTTIMM(0))<100:0,1:1)

 ;

 ;

TDCPTS ;;

 ;;90701

 ;;90718

 ;;90700

 ;;90720

 ;;90702

 ;;90703

 ;;90721

 ;;90723

 ;;

PAPCPTS ;;

 ;;88141

 ;;88142

 ;;88143

 ;;88144

 ;;88145

 ;;88146

 ;;88147

 ;;88148

 ;;88150

 ;;88152

 ;;88153

 ;;88154

 ;;88155

 ;;88156

 ;;88157

 ;;88158

 ;;88164

 ;;88165

 ;;88166

 ;;88167

 ;;

FLUCPTS ;;

 ;;90657

 ;;90658

 ;;90655

 ;;90724

 ;;90711

 ;;90659

 ;;90660

 ;;

SIGCPTS ;;

 ;;45330

 ;;45331

 ;;45332

 ;;45333

 ;;45334

 ;;45336

 ;;45337

 ;;45338

 ;;45339

 ;;45341

 ;;45342

 ;;45345

 ;;

BECPTS ;;

 ;;74270

 ;;74275

 ;;74280

 ;;

COLOCPTS ;;

 ;;45355

 ;;45360

 ;;45361

 ;;45362

 ;;45363

 ;;45364

 ;;45365

 ;;45366

 ;;45367

 ;;45368

 ;;45369

 ;;45370

 ;;45371

 ;;45372

 ;;45378

 ;;45379

 ;;45380

 ;;45382

 ;;45383

 ;;45384

 ;;45385

 ;;45387

 ;;

PNCPTS ;;

 ;;90732

 ;;90669

 ;;

BHSMU1    ;IHS/CIA/MGH - Health Summary Utilities ;17-Mar-2006 10:36;MGH

 +1       ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 +2       ;===================================================================

 +3       ;Taken from APCHSMU1

 +4       ; IHS/CMI/LAB - utilities for hmr ;  [ 10/23/03  1:23 PM ]

 +5       ;;2.0;IHS RPMS/PCC Health Summary;**8,11**;JUN 24, 1997

 +6       ;

BI()      ;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB

 +1        QUIT $SELECT($ORDER(^AUTTIMM(0))<100:0,1:1)

 +2       ;

 +3       ;

TDCPTS    ;;

 +1       ;;90701

 +2       ;;90718

 +3       ;;90700

 +4       ;;90720

 +5       ;;90702

 +6       ;;90703

 +7       ;;90721

 +8       ;;90723

 +9       ;;

PAPCPTS   ;;

 +1       ;;88141

 +2       ;;88142

 +3       ;;88143

 +4       ;;88144

 +5       ;;88145

 +6       ;;88146

 +7       ;;88147

 +8       ;;88148

 +9       ;;88150

 +10      ;;88152

 +11      ;;88153

 +12      ;;88154

 +13      ;;88155

 +14      ;;88156

 +15      ;;88157

 +16      ;;88158

 +17      ;;88164

 +18      ;;88165

 +19      ;;88166

 +20      ;;88167

 +21      ;;

FLUCPTS   ;;

 +1       ;;90657

 +2       ;;90658

 +3       ;;90655

 +4       ;;90724

 +5       ;;90711

 +6       ;;90659

 +7       ;;90660

 +8       ;;

SIGCPTS   ;;

 +1       ;;45330

 +2       ;;45331

 +3       ;;45332

 +4       ;;45333

 +5       ;;45334

 +6       ;;45336

 +7       ;;45337

 +8       ;;45338

 +9       ;;45339

 +10      ;;45341

 +11      ;;45342

 +12      ;;45345

 +13      ;;

BECPTS    ;;

 +1       ;;74270

 +2       ;;74275

 +3       ;;74280

 +4       ;;

COLOCPTS  ;;

 +1       ;;45355

 +2       ;;45360

 +3       ;;45361

 +4       ;;45362

 +5       ;;45363

 +6       ;;45364

 +7       ;;45365

 +8       ;;45366

 +9       ;;45367

 +10      ;;45368

 +11      ;;45369

 +12      ;;45370

 +13      ;;45371

 +14      ;;45372

 +15      ;;45378

 +16      ;;45379

 +17      ;;45380

 +18      ;;45382

 +19      ;;45383

 +20      ;;45384

 +21      ;;45385

 +22      ;;45387

 +23      ;;

PNCPTS    ;;

 +1       ;;90732

 +2       ;;90669

 +3       ;;