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

BGP21M.m

Go to the documentation of this file. 
BGP21M ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;;BGP PQA ANTIRETROVIRAL NDC

 ;

 ; This routine loads Taxonomy BGP PQA ANTIRETROVIRAL NDC

 ;

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

 D OTHER

 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2

 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2

 D KILL^ATXSTX2

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"00003-1964-01 ")

 ;;407

 ;;21,"00003-1965-01 ")

 ;;416

 ;;21,"00003-1966-01 ")

 ;;424

 ;;21,"00003-1967-01 ")

 ;;436

 ;;21,"00003-1968-01 ")

 ;;442

 ;;21,"00003-3622-12 ")

 ;;45

 ;;21,"00003-3623-12 ")

 ;;30

 ;;21,"00003-3624-12 ")

 ;;34

 ;;21,"00003-3631-12 ")

 ;;40

 ;;21,"00004-0220-01 ")

 ;;453

 ;;21,"00004-0221-01 ")

 ;;456

 ;;21,"00004-0244-51 ")

 ;;400

 ;;21,"00004-0245-15 ")

 ;;395

 ;;21,"00004-0246-48 ")

 ;;386

 ;;21,"00004-0380-39 ")

 ;;161

 ;;21,"00006-0227-61 ")

 ;;369

 ;;21,"00006-0570-62 ")

 ;;174

 ;;21,"00006-0571-43 ")

 ;;175

 ;;21,"00006-0573-01 ")

 ;;202

 ;;21,"00006-0573-18 ")

 ;;195

 ;;21,"00006-0573-40 ")

 ;;198

 ;;21,"00006-0573-42 ")

 ;;181

 ;;21,"00006-0573-54 ")

 ;;196

 ;;21,"00006-0573-62 ")

 ;;188

 ;;21,"00006-0574-65 ")

 ;;176

 ;;21,"00009-3761-03 ")

 ;;60

 ;;21,"00054-0052-21 ")

 ;;510

 ;;21,"00056-0470-30 ")

 ;;135

 ;;21,"00056-0473-30 ")

 ;;130

 ;;21,"00056-0474-92 ")

 ;;132

 ;;21,"00056-0510-30 ")

 ;;140

 ;;21,"00069-0807-60 ")

 ;;314

 ;;21,"00069-0808-60 ")

 ;;319

 ;;21,"00074-0522-60 ")

 ;;295

 ;;21,"00074-1940-63 ")

 ;;382

 ;;21,"00074-3333-30 ")

 ;;384

 ;;21,"00074-3956-46 ")

 ;;294

 ;;21,"00074-3959-77 ")

 ;;291

 ;;21,"00074-6633-22 ")

 ;;374

 ;;21,"00074-6633-30 ")

 ;;378

 ;;21,"00074-6799-22 ")

 ;;311

 ;;21,"00087-6614-43 ")

 ;;128

 ;;21,"00087-6615-43 ")

 ;;129

 ;;21,"00087-6632-41 ")

 ;;125

 ;;21,"00087-6633-41 ")

 ;;127

 ;;21,"00087-6650-01 ")

 ;;75

 ;;21,"00087-6651-01 ")

 ;;76

 ;;21,"00087-6652-01 ")

 ;;70

 ;;21,"00087-6653-01 ")

 ;;72

 ;;21,"00087-6665-15 ")

 ;;74

 ;;21,"00087-6671-17 ")

 ;;79

 ;;21,"00087-6672-17 ")

 ;;88

 ;;21,"00087-6673-17 ")

 ;;104

 ;;21,"00087-6674-17 ")

 ;;123

 ;;21,"00093-5530-06 ")

 ;;497

 ;;21,"00173-0108-55 ")

 ;;480

 ;;21,"00173-0108-56 ")

 ;;462

 ;;21,"00173-0113-18 ")

 ;;491

 ;;21,"00173-0470-01 ")

 ;;215

 ;;21,"00173-0471-00 ")

 ;;205

 ;;21,"00173-0501-00 ")

 ;;498

 ;;21,"00173-0595-00 ")

 ;;245

 ;;21,"00173-0595-02 ")

 ;;246

 ;;21,"00173-0661-00 ")

 ;;7

 ;;21,"00173-0661-01 ")

 ;;6

 ;;21,"00173-0664-00 ")

 ;;2

 ;;21,"00173-0672-00 ")

 ;;26

 ;;21,"00173-0679-00 ")

 ;;28

 ;;21,"00173-0687-00 ")

 ;;29

 ;;21,"00173-0691-00 ")

 ;;20

 ;;21,"00173-0691-20 ")

 ;;24

 ;;21,"00173-0714-00 ")

 ;;235

 ;;21,"00173-0721-00 ")

 ;;169

 ;;21,"00173-0727-00 ")

 ;;167

 ;;21,"00173-0742-00 ")

 ;;13

 ;;21,"00378-5040-91 ")

 ;;404

 ;;21,"00378-5041-91 ")

 ;;409

 ;;21,"00378-5042-91 ")

 ;;419

 ;;21,"00378-5043-91 ")

 ;;431

 ;;21,"00378-6106-91 ")

 ;;514

 ;;21,"00378-8886-93 ")

 ;;78

 ;;21,"00378-8887-93 ")

 ;;80

 ;;21,"00378-8888-93 ")

 ;;99

 ;;21,"00378-8889-93 ")

 ;;121

 ;;21,"00490-7026-00 ")

 ;;518

 ;;21,"00490-7026-30 ")

 ;;519

 ;;21,"00490-7026-60 ")

 ;;520

 ;;21,"00490-7026-90 ")

 ;;517

 ;;21,"00490-7028-00 ")

 ;;305

 ;;21,"00490-7028-02 ")

 ;;304

 ;;21,"00490-7028-30 ")

 ;;302

 ;;21,"00490-7028-60 ")

 ;;303

 ;;21,"00490-7028-90 ")

 ;;306

 ;;21,"00555-0588-01 ")

 ;;82

 ;;21,"00555-0589-01 ")

 ;;91

 ;;21,"00555-0590-01 ")

 ;;110

 ;;21,"00597-0002-01 ")

 ;;451

 ;;21,"00597-0003-02 ")

 ;;450

 ;;21,"00597-0046-01 ")

 ;;352

 ;;21,"00597-0046-46 ")

 ;;355

 ;;21,"00597-0046-60 ")

 ;;362

 ;;21,"00597-0046-61 ")

 ;;354

 ;;21,"00597-0047-24 ")

 ;;350

 ;;21,"00597-0123-30 ")

 ;;364

 ;;21,"13411-0191-02 ")

 ;;87

 ;;21,"13411-0191-03 ")

 ;;86

 ;;21,"13411-0191-06 ")

 ;;84

 ;;21,"13411-0191-09 ")

 ;;83

 ;;21,"13411-0191-10 ")

 ;;85

 ;;21,"13411-0192-02 ")

 ;;96

 ;;21,"13411-0192-03 ")

 ;;94

 ;;21,"13411-0192-06 ")

 ;;93

 ;;21,"13411-0192-09 ")

 ;;97

 ;;21,"13411-0192-10 ")

 ;;95

 ;;21,"13411-0193-02 ")

 ;;111

 ;;21,"13411-0193-03 ")

 ;;115

 ;;21,"13411-0193-06 ")

 ;;113

 ;;21,"13411-0193-09 ")

 ;;112

 ;;21,"13411-0193-10 ")

 ;;114

 ;;21,"15584-0101-01 ")

 ;;143

 ;;21,"16590-0061-06 ")

 ;;257

 ;;21,"16590-0061-10 ")

 ;;276

 ;;21,"16590-0061-20 ")

 ;;288

 ;;21,"16590-0061-30 ")

 ;;287

 ;;21,"16590-0064-18 ")

 ;;193

 ;;21,"16590-0064-30 ")

 ;;191

 ;;21,"16590-0064-60 ")

 ;;186

 ;;21,"16590-0064-90 ")

 ;;182

 ;;21,"21695-0362-12 ")

 ;;299

 ;;21,"21695-0366-18 ")

 ;;200

 ;;21,"21695-0367-06 ")

 ;;229

 ;;21,"21695-0369-18 ")

 ;;513

 ;;21,"21695-0846-06 ")

 ;;272

 ;;21,"23490-7087-06 ")

 ;;274

 ;;21,"31722-0509-60 ")

 ;;515

 ;;21,"31722-0515-60 ")

 ;;405

 ;;21,"31722-0516-60 ")

 ;;411

 ;;21,"31722-0517-60 ")

 ;;420

 ;;21,"31722-0518-60 ")

 ;;430

 ;;21,"35356-0064-06 ")

 ;;144

 ;;21,"35356-0064-30 ")

 ;;145

 ;;21,"35356-0065-30 ")

 ;;236

 ;;21,"35356-0066-24 ")

 ;;206

 ;;21,"35356-0067-06 ")

 ;;171

 ;;21,"35356-0067-60 ")

 ;;170

 ;;21,"35356-0068-06 ")

 ;;35

 ;;21,"35356-0068-60 ")

 ;;36

 ;;21,"35356-0069-90 ")

 ;;134

 ;

OTHER ; OTHER ROUTINES

 D ^BGP21M10

 D ^BGP21M11

 D ^BGP21M12

 D ^BGP21M13

 D ^BGP21M14

 D ^BGP21M15

 D ^BGP21M16

 D ^BGP21M2

 D ^BGP21M3

 D ^BGP21M4

 D ^BGP21M5

 D ^BGP21M6

 D ^BGP21M7

 D ^BGP21M8

 D ^BGP21M9

 Q