APCHTXEB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 23, 2005;
;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
;
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)
;;9002226,418,.01)
;;APCH GLUCOSE SCREENING LOINC
;;9002226,418,.02)
;;@
;;9002226,418,.04)
;;n
;;9002226,418,.06)
;;@
;;9002226,418,.08)
;;@
;;9002226,418,.09)
;;@
;;9002226,418,.11)
;;@
;;9002226,418,.12)
;;@
;;9002226,418,.13)
;;1
;;9002226,418,.14)
;;FIHS
;;9002226,418,.15)
;;95.3
;;9002226,418,.16)
;;@
;;9002226,418,.17)
;;@
;;9002226,418,3101)
;;@
;;9002226.02101,"418,12611-0 ",.01)
;;12611-0
;;9002226.02101,"418,12611-0 ",.02)
;;12611-0
;;9002226.02101,"418,14743-9 ",.01)
;;14743-9
;;9002226.02101,"418,14743-9 ",.02)
;;14743-9
;;9002226.02101,"418,14749-6 ",.01)
;;14749-6
;;9002226.02101,"418,14749-6 ",.02)
;;14749-6
;;9002226.02101,"418,14753-8 ",.01)
;;14753-8
;;9002226.02101,"418,14753-8 ",.02)
;;14753-8
;;9002226.02101,"418,14754-6 ",.01)
;;14754-6
;;9002226.02101,"418,14754-6 ",.02)
;;14754-6
;;9002226.02101,"418,14755-3 ",.01)
;;14755-3
;;9002226.02101,"418,14755-3 ",.02)
;;14755-3
;;9002226.02101,"418,14756-1 ",.01)
;;14756-1
;;9002226.02101,"418,14756-1 ",.02)
;;14756-1
;;9002226.02101,"418,14757-9 ",.01)
;;14757-9
;;9002226.02101,"418,14757-9 ",.02)
;;14757-9
;;9002226.02101,"418,14758-7 ",.01)
;;14758-7
;;9002226.02101,"418,14758-7 ",.02)
;;14758-7
;;9002226.02101,"418,14759-5 ",.01)
;;14759-5
;;9002226.02101,"418,14759-5 ",.02)
;;14759-5
;;9002226.02101,"418,14760-3 ",.01)
;;14760-3
;;9002226.02101,"418,14760-3 ",.02)
;;14760-3
;;9002226.02101,"418,14761-1 ",.01)
;;14761-1
;;9002226.02101,"418,14761-1 ",.02)
;;14761-1
;;9002226.02101,"418,14762-9 ",.01)
;;14762-9
;;9002226.02101,"418,14762-9 ",.02)
;;14762-9
;;9002226.02101,"418,14763-7 ",.01)
;;14763-7
;;9002226.02101,"418,14763-7 ",.02)
;;14763-7
;;9002226.02101,"418,14764-5 ",.01)
;;14764-5
;;9002226.02101,"418,14764-5 ",.02)
;;14764-5
;;9002226.02101,"418,14765-2 ",.01)
;;14765-2
;;9002226.02101,"418,14765-2 ",.02)
;;14765-2
;;9002226.02101,"418,14766-0 ",.01)
;;14766-0
;;9002226.02101,"418,14766-0 ",.02)
;;14766-0
;;9002226.02101,"418,14767-8 ",.01)
;;14767-8
;;9002226.02101,"418,14767-8 ",.02)
;;14767-8
;;9002226.02101,"418,14768-6 ",.01)
;;14768-6
;;9002226.02101,"418,14768-6 ",.02)
;;14768-6
;;9002226.02101,"418,14769-4 ",.01)
;;14769-4
;;9002226.02101,"418,14769-4 ",.02)
;;14769-4
;;9002226.02101,"418,14770-2 ",.01)
;;14770-2
;;9002226.02101,"418,14770-2 ",.02)
;;14770-2
;;9002226.02101,"418,14771-0 ",.01)
;;14771-0
;;9002226.02101,"418,14771-0 ",.02)
;;14771-0
;;9002226.02101,"418,1492-8 ",.01)
;;1492-8
;;9002226.02101,"418,1492-8 ",.02)
;;1492-8
;;9002226.02101,"418,1493-6 ",.01)
;;1493-6
;;9002226.02101,"418,1493-6 ",.02)
;;1493-6
;;9002226.02101,"418,1494-4 ",.01)
;;1494-4
;;9002226.02101,"418,1494-4 ",.02)
;;1494-4
;;9002226.02101,"418,1496-9 ",.01)
;;1496-9
;;9002226.02101,"418,1496-9 ",.02)
;;1496-9
;;9002226.02101,"418,1499-3 ",.01)
;;1499-3
;;9002226.02101,"418,1499-3 ",.02)
;;1499-3
;;9002226.02101,"418,14995-5 ",.01)
;;14995-5
;;9002226.02101,"418,14995-5 ",.02)
;;14995-5
;;9002226.02101,"418,14996-3 ",.01)
;;14996-3
;;9002226.02101,"418,14996-3 ",.02)
;;14996-3
;;9002226.02101,"418,1500-8 ",.01)
;;1500-8
;;9002226.02101,"418,1500-8 ",.02)
;;1500-8
;;9002226.02101,"418,1501-6 ",.01)
;;1501-6
;;9002226.02101,"418,1501-6 ",.02)
;;1501-6
;;9002226.02101,"418,1502-4 ",.01)
;;1502-4
;;9002226.02101,"418,1502-4 ",.02)
;;1502-4
;;9002226.02101,"418,1504-0 ",.01)
;;1504-0
;;9002226.02101,"418,1504-0 ",.02)
;;1504-0
;;9002226.02101,"418,1506-5 ",.01)
;;1506-5
;;9002226.02101,"418,1506-5 ",.02)
;;1506-5
;;9002226.02101,"418,1507-3 ",.01)
;;1507-3
;;9002226.02101,"418,1507-3 ",.02)
;;1507-3
;;9002226.02101,"418,15074-8 ",.01)
;;15074-8
;;9002226.02101,"418,15074-8 ",.02)
;;15074-8
;;9002226.02101,"418,1508-1 ",.01)
;;1508-1
;;9002226.02101,"418,1508-1 ",.02)
;;1508-1
;;9002226.02101,"418,1510-7 ",.01)
;;1510-7
;;9002226.02101,"418,1510-7 ",.02)
;;1510-7
;;9002226.02101,"418,1511-5 ",.01)
;;1511-5
;;9002226.02101,"418,1511-5 ",.02)
;;1511-5
;;9002226.02101,"418,1512-3 ",.01)
;;1512-3
;;9002226.02101,"418,1512-3 ",.02)
;;1512-3
;;9002226.02101,"418,1513-1 ",.01)
;;1513-1
;;9002226.02101,"418,1513-1 ",.02)
;;1513-1
;;9002226.02101,"418,1514-9 ",.01)
;;1514-9
;;9002226.02101,"418,1514-9 ",.02)
;;1514-9
;;9002226.02101,"418,1515-6 ",.01)
;;1515-6
;;9002226.02101,"418,1515-6 ",.02)
;;1515-6
;;9002226.02101,"418,1517-2 ",.01)
;;1517-2
;;9002226.02101,"418,1517-2 ",.02)
;;1517-2
;;9002226.02101,"418,1518-0 ",.01)
;;1518-0
;;9002226.02101,"418,1518-0 ",.02)
;;1518-0
;;9002226.02101,"418,1519-8 ",.01)
;;1519-8
;;9002226.02101,"418,1519-8 ",.02)
;;1519-8
;;9002226.02101,"418,1521-4 ",.01)
;;1521-4
;;9002226.02101,"418,1521-4 ",.02)
;;1521-4
;;9002226.02101,"418,1522-2 ",.01)
;;1522-2
;;9002226.02101,"418,1522-2 ",.02)
;;1522-2
;;9002226.02101,"418,1523-0 ",.01)
;;1523-0
;;9002226.02101,"418,1523-0 ",.02)
;;1523-0
APCHTXEB ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUN 23, 2005;
+1 ;;2.0;IHS RPMS/PCC Health Summary;**14**;JUN 24, 1997
+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 ;;9002226,418,.01)
+2 ;;APCH GLUCOSE SCREENING LOINC
+3 ;;9002226,418,.02)
+4 ;;@
+5 ;;9002226,418,.04)
+6 ;;n
+7 ;;9002226,418,.06)
+8 ;;@
+9 ;;9002226,418,.08)
+10 ;;@
+11 ;;9002226,418,.09)
+12 ;;@
+13 ;;9002226,418,.11)
+14 ;;@
+15 ;;9002226,418,.12)
+16 ;;@
+17 ;;9002226,418,.13)
+18 ;;1
+19 ;;9002226,418,.14)
+20 ;;FIHS
+21 ;;9002226,418,.15)
+22 ;;95.3
+23 ;;9002226,418,.16)
+24 ;;@
+25 ;;9002226,418,.17)
+26 ;;@
+27 ;;9002226,418,3101)
+28 ;;@
+29 ;;9002226.02101,"418,12611-0 ",.01)
+30 ;;12611-0
+31 ;;9002226.02101,"418,12611-0 ",.02)
+32 ;;12611-0
+33 ;;9002226.02101,"418,14743-9 ",.01)
+34 ;;14743-9
+35 ;;9002226.02101,"418,14743-9 ",.02)
+36 ;;14743-9
+37 ;;9002226.02101,"418,14749-6 ",.01)
+38 ;;14749-6
+39 ;;9002226.02101,"418,14749-6 ",.02)
+40 ;;14749-6
+41 ;;9002226.02101,"418,14753-8 ",.01)
+42 ;;14753-8
+43 ;;9002226.02101,"418,14753-8 ",.02)
+44 ;;14753-8
+45 ;;9002226.02101,"418,14754-6 ",.01)
+46 ;;14754-6
+47 ;;9002226.02101,"418,14754-6 ",.02)
+48 ;;14754-6
+49 ;;9002226.02101,"418,14755-3 ",.01)
+50 ;;14755-3
+51 ;;9002226.02101,"418,14755-3 ",.02)
+52 ;;14755-3
+53 ;;9002226.02101,"418,14756-1 ",.01)
+54 ;;14756-1
+55 ;;9002226.02101,"418,14756-1 ",.02)
+56 ;;14756-1
+57 ;;9002226.02101,"418,14757-9 ",.01)
+58 ;;14757-9
+59 ;;9002226.02101,"418,14757-9 ",.02)
+60 ;;14757-9
+61 ;;9002226.02101,"418,14758-7 ",.01)
+62 ;;14758-7
+63 ;;9002226.02101,"418,14758-7 ",.02)
+64 ;;14758-7
+65 ;;9002226.02101,"418,14759-5 ",.01)
+66 ;;14759-5
+67 ;;9002226.02101,"418,14759-5 ",.02)
+68 ;;14759-5
+69 ;;9002226.02101,"418,14760-3 ",.01)
+70 ;;14760-3
+71 ;;9002226.02101,"418,14760-3 ",.02)
+72 ;;14760-3
+73 ;;9002226.02101,"418,14761-1 ",.01)
+74 ;;14761-1
+75 ;;9002226.02101,"418,14761-1 ",.02)
+76 ;;14761-1
+77 ;;9002226.02101,"418,14762-9 ",.01)
+78 ;;14762-9
+79 ;;9002226.02101,"418,14762-9 ",.02)
+80 ;;14762-9
+81 ;;9002226.02101,"418,14763-7 ",.01)
+82 ;;14763-7
+83 ;;9002226.02101,"418,14763-7 ",.02)
+84 ;;14763-7
+85 ;;9002226.02101,"418,14764-5 ",.01)
+86 ;;14764-5
+87 ;;9002226.02101,"418,14764-5 ",.02)
+88 ;;14764-5
+89 ;;9002226.02101,"418,14765-2 ",.01)
+90 ;;14765-2
+91 ;;9002226.02101,"418,14765-2 ",.02)
+92 ;;14765-2
+93 ;;9002226.02101,"418,14766-0 ",.01)
+94 ;;14766-0
+95 ;;9002226.02101,"418,14766-0 ",.02)
+96 ;;14766-0
+97 ;;9002226.02101,"418,14767-8 ",.01)
+98 ;;14767-8
+99 ;;9002226.02101,"418,14767-8 ",.02)
+100 ;;14767-8
+101 ;;9002226.02101,"418,14768-6 ",.01)
+102 ;;14768-6
+103 ;;9002226.02101,"418,14768-6 ",.02)
+104 ;;14768-6
+105 ;;9002226.02101,"418,14769-4 ",.01)
+106 ;;14769-4
+107 ;;9002226.02101,"418,14769-4 ",.02)
+108 ;;14769-4
+109 ;;9002226.02101,"418,14770-2 ",.01)
+110 ;;14770-2
+111 ;;9002226.02101,"418,14770-2 ",.02)
+112 ;;14770-2
+113 ;;9002226.02101,"418,14771-0 ",.01)
+114 ;;14771-0
+115 ;;9002226.02101,"418,14771-0 ",.02)
+116 ;;14771-0
+117 ;;9002226.02101,"418,1492-8 ",.01)
+118 ;;1492-8
+119 ;;9002226.02101,"418,1492-8 ",.02)
+120 ;;1492-8
+121 ;;9002226.02101,"418,1493-6 ",.01)
+122 ;;1493-6
+123 ;;9002226.02101,"418,1493-6 ",.02)
+124 ;;1493-6
+125 ;;9002226.02101,"418,1494-4 ",.01)
+126 ;;1494-4
+127 ;;9002226.02101,"418,1494-4 ",.02)
+128 ;;1494-4
+129 ;;9002226.02101,"418,1496-9 ",.01)
+130 ;;1496-9
+131 ;;9002226.02101,"418,1496-9 ",.02)
+132 ;;1496-9
+133 ;;9002226.02101,"418,1499-3 ",.01)
+134 ;;1499-3
+135 ;;9002226.02101,"418,1499-3 ",.02)
+136 ;;1499-3
+137 ;;9002226.02101,"418,14995-5 ",.01)
+138 ;;14995-5
+139 ;;9002226.02101,"418,14995-5 ",.02)
+140 ;;14995-5
+141 ;;9002226.02101,"418,14996-3 ",.01)
+142 ;;14996-3
+143 ;;9002226.02101,"418,14996-3 ",.02)
+144 ;;14996-3
+145 ;;9002226.02101,"418,1500-8 ",.01)
+146 ;;1500-8
+147 ;;9002226.02101,"418,1500-8 ",.02)
+148 ;;1500-8
+149 ;;9002226.02101,"418,1501-6 ",.01)
+150 ;;1501-6
+151 ;;9002226.02101,"418,1501-6 ",.02)
+152 ;;1501-6
+153 ;;9002226.02101,"418,1502-4 ",.01)
+154 ;;1502-4
+155 ;;9002226.02101,"418,1502-4 ",.02)
+156 ;;1502-4
+157 ;;9002226.02101,"418,1504-0 ",.01)
+158 ;;1504-0
+159 ;;9002226.02101,"418,1504-0 ",.02)
+160 ;;1504-0
+161 ;;9002226.02101,"418,1506-5 ",.01)
+162 ;;1506-5
+163 ;;9002226.02101,"418,1506-5 ",.02)
+164 ;;1506-5
+165 ;;9002226.02101,"418,1507-3 ",.01)
+166 ;;1507-3
+167 ;;9002226.02101,"418,1507-3 ",.02)
+168 ;;1507-3
+169 ;;9002226.02101,"418,15074-8 ",.01)
+170 ;;15074-8
+171 ;;9002226.02101,"418,15074-8 ",.02)
+172 ;;15074-8
+173 ;;9002226.02101,"418,1508-1 ",.01)
+174 ;;1508-1
+175 ;;9002226.02101,"418,1508-1 ",.02)
+176 ;;1508-1
+177 ;;9002226.02101,"418,1510-7 ",.01)
+178 ;;1510-7
+179 ;;9002226.02101,"418,1510-7 ",.02)
+180 ;;1510-7
+181 ;;9002226.02101,"418,1511-5 ",.01)
+182 ;;1511-5
+183 ;;9002226.02101,"418,1511-5 ",.02)
+184 ;;1511-5
+185 ;;9002226.02101,"418,1512-3 ",.01)
+186 ;;1512-3
+187 ;;9002226.02101,"418,1512-3 ",.02)
+188 ;;1512-3
+189 ;;9002226.02101,"418,1513-1 ",.01)
+190 ;;1513-1
+191 ;;9002226.02101,"418,1513-1 ",.02)
+192 ;;1513-1
+193 ;;9002226.02101,"418,1514-9 ",.01)
+194 ;;1514-9
+195 ;;9002226.02101,"418,1514-9 ",.02)
+196 ;;1514-9
+197 ;;9002226.02101,"418,1515-6 ",.01)
+198 ;;1515-6
+199 ;;9002226.02101,"418,1515-6 ",.02)
+200 ;;1515-6
+201 ;;9002226.02101,"418,1517-2 ",.01)
+202 ;;1517-2
+203 ;;9002226.02101,"418,1517-2 ",.02)
+204 ;;1517-2
+205 ;;9002226.02101,"418,1518-0 ",.01)
+206 ;;1518-0
+207 ;;9002226.02101,"418,1518-0 ",.02)
+208 ;;1518-0
+209 ;;9002226.02101,"418,1519-8 ",.01)
+210 ;;1519-8
+211 ;;9002226.02101,"418,1519-8 ",.02)
+212 ;;1519-8
+213 ;;9002226.02101,"418,1521-4 ",.01)
+214 ;;1521-4
+215 ;;9002226.02101,"418,1521-4 ",.02)
+216 ;;1521-4
+217 ;;9002226.02101,"418,1522-2 ",.01)
+218 ;;1522-2
+219 ;;9002226.02101,"418,1522-2 ",.02)
+220 ;;1522-2
+221 ;;9002226.02101,"418,1523-0 ",.01)
+222 ;;1523-0
+223 ;;9002226.02101,"418,1523-0 ",.02)
+224 ;;1523-0
