- BGP04R6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- ;
- 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
- Q
- ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- ;;
- ;;862
- ;;
- ;;1148
- ;;
- ;;1145
- ;;
- ;;1146
- ;;
- ;;1147
- ;;
- ;;1149
- ;;
- ;;1150
- ;;
- ;;1151
- ;;
- ;;1152
- ;;
- ;;2655
- ;;
- ;;2656
- ;;
- ;;2657
- ;;
- ;;2658
- ;;
- ;;2659
- ;;
- ;;2660
- ;;
- ;;2661
- ;;
- ;;2662
- ;;
- ;;2663
- ;;
- ;;2664
- ;;
- ;;2665
- ;;
- ;;2666
- ;;
- ;;2667
- ;;
- ;;2668
- ;;
- ;;2669
- ;;
- ;;2670
- ;;
- ;;2671
- ;;
- ;;3044
- ;;
- ;;3045
- ;;
- ;;3046
- ;;
- ;;3047
- ;;
- ;;3048
- ;;
- ;;3264
- ;;
- ;;3265
- ;;
- ;;1418
- ;;
- ;;1419
- ;;
- ;;1420
- ;;
- ;;1421
- ;;
- ;;1422
- ;;
- ;;1423
- ;;
- ;;980
- ;;
- ;;981
- ;;
- ;;3407
- ;;
- ;;1416
- ;;
- ;;1417
- ;;
- ;;3373
- ;;
- ;;3374
- ;;
- ;;3375
- ;;
- ;;1301
- ;;
- ;;1304
- ;;
- ;;1302
- ;;
- ;;163
- ;;
- ;;3376
- ;;
- ;;3408
- ;;
- ;;1303
- ;;
- ;;2276
- ;;
- ;;2266
- ;;
- ;;479
- ;;
- ;;480
- ;;
- ;;481
- ;;
- ;;3272
- ;;
- ;;3273
- ;;
- ;;2051
- ;;
- ;;2048
- ;;
- ;;2049
- ;;
- ;;2050
- ;;
- ;;180
- ;;
- ;;181
- ;;
- ;;1163
- ;;
- ;;1164
- ;;
- ;;15
- ;;
- ;;868
- ;;
- ;;1460
- ;;
- ;;1461
- ;;
- ;;1462
- ;;
- ;;2741
- ;;
- ;;2742
- ;;
- ;;2743
- BGP04R6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- +1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- +2 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 QUIT
- +5 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;
- +2 ;;862
- +3 ;;
- +4 ;;1148
- +5 ;;
- +6 ;;1145
- +7 ;;
- +8 ;;1146
- +9 ;;
- +10 ;;1147
- +11 ;;
- +12 ;;1149
- +13 ;;
- +14 ;;1150
- +15 ;;
- +16 ;;1151
- +17 ;;
- +18 ;;1152
- +19 ;;
- +20 ;;2655
- +21 ;;
- +22 ;;2656
- +23 ;;
- +24 ;;2657
- +25 ;;
- +26 ;;2658
- +27 ;;
- +28 ;;2659
- +29 ;;
- +30 ;;2660
- +31 ;;
- +32 ;;2661
- +33 ;;
- +34 ;;2662
- +35 ;;
- +36 ;;2663
- +37 ;;
- +38 ;;2664
- +39 ;;
- +40 ;;2665
- +41 ;;
- +42 ;;2666
- +43 ;;
- +44 ;;2667
- +45 ;;
- +46 ;;2668
- +47 ;;
- +48 ;;2669
- +49 ;;
- +50 ;;2670
- +51 ;;
- +52 ;;2671
- +53 ;;
- +54 ;;3044
- +55 ;;
- +56 ;;3045
- +57 ;;
- +58 ;;3046
- +59 ;;
- +60 ;;3047
- +61 ;;
- +62 ;;3048
- +63 ;;
- +64 ;;3264
- +65 ;;
- +66 ;;3265
- +67 ;;
- +68 ;;1418
- +69 ;;
- +70 ;;1419
- +71 ;;
- +72 ;;1420
- +73 ;;
- +74 ;;1421
- +75 ;;
- +76 ;;1422
- +77 ;;
- +78 ;;1423
- +79 ;;
- +80 ;;980
- +81 ;;
- +82 ;;981
- +83 ;;
- +84 ;;3407
- +85 ;;
- +86 ;;1416
- +87 ;;
- +88 ;;1417
- +89 ;;
- +90 ;;3373
- +91 ;;
- +92 ;;3374
- +93 ;;
- +94 ;;3375
- +95 ;;
- +96 ;;1301
- +97 ;;
- +98 ;;1304
- +99 ;;
- +100 ;;1302
- +101 ;;
- +102 ;;163
- +103 ;;
- +104 ;;3376
- +105 ;;
- +106 ;;3408
- +107 ;;
- +108 ;;1303
- +109 ;;
- +110 ;;2276
- +111 ;;
- +112 ;;2266
- +113 ;;
- +114 ;;479
- +115 ;;
- +116 ;;480
- +117 ;;
- +118 ;;481
- +119 ;;
- +120 ;;3272
- +121 ;;
- +122 ;;3273
- +123 ;;
- +124 ;;2051
- +125 ;;
- +126 ;;2048
- +127 ;;
- +128 ;;2049
- +129 ;;
- +130 ;;2050
- +131 ;;
- +132 ;;180
- +133 ;;
- +134 ;;181
- +135 ;;
- +136 ;;1163
- +137 ;;
- +138 ;;1164
- +139 ;;
- +140 ;;15
- +141 ;;
- +142 ;;868
- +143 ;;
- +144 ;;1460
- +145 ;;
- +146 ;;1461
- +147 ;;
- +148 ;;1462
- +149 ;;
- +150 ;;2741
- +151 ;;
- +152 ;;2742
- +153 ;;
- +154 ;;2743
