- BGP05Y7 ;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)
- ;;
- ;;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
- BGP05Y7 ;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 ;;3046
- +3 ;;
- +4 ;;3047
- +5 ;;
- +6 ;;3048
- +7 ;;
- +8 ;;3264
- +9 ;;
- +10 ;;3265
- +11 ;;
- +12 ;;1418
- +13 ;;
- +14 ;;1419
- +15 ;;
- +16 ;;1420
- +17 ;;
- +18 ;;1421
- +19 ;;
- +20 ;;1422
- +21 ;;
- +22 ;;1423
- +23 ;;
- +24 ;;980
- +25 ;;
- +26 ;;981
- +27 ;;
- +28 ;;3407
- +29 ;;
- +30 ;;1416
- +31 ;;
- +32 ;;1417
- +33 ;;
- +34 ;;3373
- +35 ;;
- +36 ;;3374
- +37 ;;
- +38 ;;3375
- +39 ;;
- +40 ;;1301
- +41 ;;
- +42 ;;1304
- +43 ;;
- +44 ;;1302
- +45 ;;
- +46 ;;163
- +47 ;;
- +48 ;;3376
- +49 ;;
- +50 ;;3408
- +51 ;;
- +52 ;;1303
- +53 ;;
- +54 ;;2276
- +55 ;;
- +56 ;;2266
- +57 ;;
- +58 ;;479
- +59 ;;
- +60 ;;480
- +61 ;;
- +62 ;;481
- +63 ;;
- +64 ;;3272
- +65 ;;
- +66 ;;3273
- +67 ;;
- +68 ;;2051
- +69 ;;
- +70 ;;2048
- +71 ;;
- +72 ;;2049
- +73 ;;
- +74 ;;2050
- +75 ;;
- +76 ;;180
- +77 ;;
- +78 ;;181
- +79 ;;
- +80 ;;1163
- +81 ;;
- +82 ;;1164
- +83 ;;
- +84 ;;15
- +85 ;;
- +86 ;;868
- +87 ;;
- +88 ;;1460
- +89 ;;
- +90 ;;1461
- +91 ;;
- +92 ;;1462
- +93 ;;
- +94 ;;2741
- +95 ;;
- +96 ;;2742
- +97 ;;
- +98 ;;2743
