VEN8I024 ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ;
;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
Q:'DIFQR(19707.17) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,19707.17,5211,0)
;;=42^1ST DIABETES SCREEN^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5212,0)
;;=43^GENETIC SCREEN^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5213,0)
;;=43^CHLAMYDIA^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5214,0)
;;=43^GC^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5215,0)
;;=43^Hb ELECTROPHORESIS^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5216,0)
;;=44^MSAF MULTIPLE MARKERS^^^^^8^45^^^0
;;^UTILITY(U,$J,19707.17,5217,0)
;;=44^AMNIO/CVS^^^^^8^45^^^0
;;^UTILITY(U,$J,19707.17,5218,0)
;;=44^KARYOTYPE^^^^^8^45^^^0
;;^UTILITY(U,$J,19707.17,5219,0)
;;=44^AMNIOTIC FLUID (APF)^^^^^8^45^^^0
;;^UTILITY(U,$J,19707.17,5220,0)
;;=45^HCT/HGB^^^^^24^45^^^0
;;^UTILITY(U,$J,19707.17,5220,2)
;;=^^^^4
;;^UTILITY(U,$J,19707.17,5221,0)
;;=45^2ND DIABETES SCREEN^^^^^24^45^^^0
;;^UTILITY(U,$J,19707.17,5221,2)
;;=^^^^220
;;^UTILITY(U,$J,19707.17,5222,0)
;;=45^Rh ANTIBODY SCREEN^^^^^24^45^^^0
;;^UTILITY(U,$J,19707.17,5222,2)
;;=^^^^9999020
;;^UTILITY(U,$J,19707.17,5223,0)
;;=46^HCT/HGB^^^^^32^45^^^0
;;^UTILITY(U,$J,19707.17,5223,2)
;;=^^^^4
;;^UTILITY(U,$J,19707.17,5224,0)
;;=46^GROUP B STREP^^^^^32^45^^^0
;;^UTILITY(U,$J,19707.17,5224,2)
;;=^^^^445
;;^UTILITY(U,$J,19707.17,5226,0)
;;=46^CHLAMYDIA^^^^^32^45^^^0
;;^UTILITY(U,$J,19707.17,5226,2)
;;=^^^^1167
;;^UTILITY(U,$J,19707.17,5227,0)
;;=46^GC^^^^^32^45^^^0
;;^UTILITY(U,$J,19707.17,5227,2)
;;=^^^^1138
;;^UTILITY(U,$J,19707.17,5228,0)
;;=47^CONTRACEPTION^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5228,2)
;;=^^FP-ALL^^^
;;^UTILITY(U,$J,19707.17,5229,0)
;;=47^BREAST FEEDING/BREAST CARE^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5229,2)
;;=^^BF-ALL^^^
;;^UTILITY(U,$J,19707.17,5230,0)
;;=47^POST PARTUM NUTRITION^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5230,2)
;;=^^PP-N^^^PP-NUTRITION
;;^UTILITY(U,$J,19707.17,5231,0)
;;=47^POST PARTUM EXERCISE^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5231,2)
;;=^^PP-KE^^^PP-KEGEL EXERCISES
;;^UTILITY(U,$J,19707.17,5232,0)
;;=47^POST PARTUM ACTIVITIES^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5232,2)
;;=^^PP-I^^^PP-INFORMATION
;;^UTILITY(U,$J,19707.17,5233,0)
;;=47^CAR SEATS^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5233,2)
;;=^^HPDP-CAR^^^HPDP-AUTOMOBILE SAFETY
;;^UTILITY(U,$J,19707.17,5234,0)
;;=47^WELL CHILD CARE^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5234,2)
;;=^^PP-I^^^PP-INFORMATION
;;^UTILITY(U,$J,19707.17,5235,0)
;;=48^PP DEPRESSION SCREENING^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5236,0)
;;=48^HCT/HGB^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5237,0)
;;=48^UA^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5238,0)
;;=39^ORAL HEALTH^^^^^1^45^^^0
;;^UTILITY(U,$J,19707.17,5238,2)
;;=^^PN-DC^^^PN-DENTAL CARIES
;;^UTILITY(U,$J,19707.17,5239,0)
;;=39^INFANT FEEDING CHOICE 1^^^^^1^12^^^0
;;^UTILITY(U,$J,19707.17,5239,2)
;;=^^PN-1T^^^PN-FIRST TRIMESTER
;;^UTILITY(U,$J,19707.17,5240,0)
;;=39^EARLY WARNING SIGNS^^^^^1^12^^^0
;;^UTILITY(U,$J,19707.17,5240,2)
;;=^^PN-C^^^PN-COMPLICATIONS
;;^UTILITY(U,$J,19707.17,5241,0)
;;=40^FETAL MOVEMENT COUNTING^^^^^13^45^^^0
;;^UTILITY(U,$J,19707.17,5241,2)
;;=^^PN-2T^^^PN-SECOND TRIMESTER
;;^UTILITY(U,$J,19707.17,5242,0)
;;=40^INFANT FEEDING CHOICE 2^^^^^13^24^^^0
;;^UTILITY(U,$J,19707.17,5242,2)
;;=^^PN-2T^^^PN-SECOND TRIMESTER
;;^UTILITY(U,$J,19707.17,5243,0)
;;=41^LATE WARNING SIGNS^^^^^25^45^^^0
;;^UTILITY(U,$J,19707.17,5243,2)
;;=^^PN-C^^^PN-COMPLICATIONS
;;^UTILITY(U,$J,19707.17,5244,0)
;;=41^INFANT FEEDING CHOICE 3^^^^^25^45^^^0
;;^UTILITY(U,$J,19707.17,5244,2)
;;=^^PN-3T^^^PN-THIRD TRIMESTER
;;^UTILITY(U,$J,19707.17,5245,0)
;;=47^ROUTINE HEALTH SCREENING^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5245,2)
;;=^^HPDP-SCR^^^HPDP-SCREENING
;;^UTILITY(U,$J,19707.17,5246,0)
;;=47^PRE-CONCEPTION COUNSELING^^^^^^^^^0
;;^UTILITY(U,$J,19707.17,5246,2)
;;=^^FP-ALL^^^
;;^UTILITY(U,$J,19707.17,5248,0)
;;=45^VDRL (2nd trimester)^^^^^24^28^^^0
;;^UTILITY(U,$J,19707.17,5248,2)
;;=^^^^139
;;^UTILITY(U,$J,19707.17,5249,0)
;;=46^VDRL (3rd trimester)^^^^^32^45^^^0
;;^UTILITY(U,$J,19707.17,5250,0)
;;=42^HIV^^^^^1^45^^^0
VEN8I024 ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ;
+1 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
+2 IF 'DIFQR(19707.17)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,19707.17,5211,0)
+2 ;;=42^1ST DIABETES SCREEN^^^^^1^45^^^0
+3 ;;^UTILITY(U,$J,19707.17,5212,0)
+4 ;;=43^GENETIC SCREEN^^^^^1^45^^^0
+5 ;;^UTILITY(U,$J,19707.17,5213,0)
+6 ;;=43^CHLAMYDIA^^^^^1^45^^^0
+7 ;;^UTILITY(U,$J,19707.17,5214,0)
+8 ;;=43^GC^^^^^1^45^^^0
+9 ;;^UTILITY(U,$J,19707.17,5215,0)
+10 ;;=43^Hb ELECTROPHORESIS^^^^^1^45^^^0
+11 ;;^UTILITY(U,$J,19707.17,5216,0)
+12 ;;=44^MSAF MULTIPLE MARKERS^^^^^8^45^^^0
+13 ;;^UTILITY(U,$J,19707.17,5217,0)
+14 ;;=44^AMNIO/CVS^^^^^8^45^^^0
+15 ;;^UTILITY(U,$J,19707.17,5218,0)
+16 ;;=44^KARYOTYPE^^^^^8^45^^^0
+17 ;;^UTILITY(U,$J,19707.17,5219,0)
+18 ;;=44^AMNIOTIC FLUID (APF)^^^^^8^45^^^0
+19 ;;^UTILITY(U,$J,19707.17,5220,0)
+20 ;;=45^HCT/HGB^^^^^24^45^^^0
+21 ;;^UTILITY(U,$J,19707.17,5220,2)
+22 ;;=^^^^4
+23 ;;^UTILITY(U,$J,19707.17,5221,0)
+24 ;;=45^2ND DIABETES SCREEN^^^^^24^45^^^0
+25 ;;^UTILITY(U,$J,19707.17,5221,2)
+26 ;;=^^^^220
+27 ;;^UTILITY(U,$J,19707.17,5222,0)
+28 ;;=45^Rh ANTIBODY SCREEN^^^^^24^45^^^0
+29 ;;^UTILITY(U,$J,19707.17,5222,2)
+30 ;;=^^^^9999020
+31 ;;^UTILITY(U,$J,19707.17,5223,0)
+32 ;;=46^HCT/HGB^^^^^32^45^^^0
+33 ;;^UTILITY(U,$J,19707.17,5223,2)
+34 ;;=^^^^4
+35 ;;^UTILITY(U,$J,19707.17,5224,0)
+36 ;;=46^GROUP B STREP^^^^^32^45^^^0
+37 ;;^UTILITY(U,$J,19707.17,5224,2)
+38 ;;=^^^^445
+39 ;;^UTILITY(U,$J,19707.17,5226,0)
+40 ;;=46^CHLAMYDIA^^^^^32^45^^^0
+41 ;;^UTILITY(U,$J,19707.17,5226,2)
+42 ;;=^^^^1167
+43 ;;^UTILITY(U,$J,19707.17,5227,0)
+44 ;;=46^GC^^^^^32^45^^^0
+45 ;;^UTILITY(U,$J,19707.17,5227,2)
+46 ;;=^^^^1138
+47 ;;^UTILITY(U,$J,19707.17,5228,0)
+48 ;;=47^CONTRACEPTION^^^^^^^^^0
+49 ;;^UTILITY(U,$J,19707.17,5228,2)
+50 ;;=^^FP-ALL^^^
+51 ;;^UTILITY(U,$J,19707.17,5229,0)
+52 ;;=47^BREAST FEEDING/BREAST CARE^^^^^^^^^0
+53 ;;^UTILITY(U,$J,19707.17,5229,2)
+54 ;;=^^BF-ALL^^^
+55 ;;^UTILITY(U,$J,19707.17,5230,0)
+56 ;;=47^POST PARTUM NUTRITION^^^^^^^^^0
+57 ;;^UTILITY(U,$J,19707.17,5230,2)
+58 ;;=^^PP-N^^^PP-NUTRITION
+59 ;;^UTILITY(U,$J,19707.17,5231,0)
+60 ;;=47^POST PARTUM EXERCISE^^^^^^^^^0
+61 ;;^UTILITY(U,$J,19707.17,5231,2)
+62 ;;=^^PP-KE^^^PP-KEGEL EXERCISES
+63 ;;^UTILITY(U,$J,19707.17,5232,0)
+64 ;;=47^POST PARTUM ACTIVITIES^^^^^^^^^0
+65 ;;^UTILITY(U,$J,19707.17,5232,2)
+66 ;;=^^PP-I^^^PP-INFORMATION
+67 ;;^UTILITY(U,$J,19707.17,5233,0)
+68 ;;=47^CAR SEATS^^^^^^^^^0
+69 ;;^UTILITY(U,$J,19707.17,5233,2)
+70 ;;=^^HPDP-CAR^^^HPDP-AUTOMOBILE SAFETY
+71 ;;^UTILITY(U,$J,19707.17,5234,0)
+72 ;;=47^WELL CHILD CARE^^^^^^^^^0
+73 ;;^UTILITY(U,$J,19707.17,5234,2)
+74 ;;=^^PP-I^^^PP-INFORMATION
+75 ;;^UTILITY(U,$J,19707.17,5235,0)
+76 ;;=48^PP DEPRESSION SCREENING^^^^^^^^^0
+77 ;;^UTILITY(U,$J,19707.17,5236,0)
+78 ;;=48^HCT/HGB^^^^^^^^^0
+79 ;;^UTILITY(U,$J,19707.17,5237,0)
+80 ;;=48^UA^^^^^^^^^0
+81 ;;^UTILITY(U,$J,19707.17,5238,0)
+82 ;;=39^ORAL HEALTH^^^^^1^45^^^0
+83 ;;^UTILITY(U,$J,19707.17,5238,2)
+84 ;;=^^PN-DC^^^PN-DENTAL CARIES
+85 ;;^UTILITY(U,$J,19707.17,5239,0)
+86 ;;=39^INFANT FEEDING CHOICE 1^^^^^1^12^^^0
+87 ;;^UTILITY(U,$J,19707.17,5239,2)
+88 ;;=^^PN-1T^^^PN-FIRST TRIMESTER
+89 ;;^UTILITY(U,$J,19707.17,5240,0)
+90 ;;=39^EARLY WARNING SIGNS^^^^^1^12^^^0
+91 ;;^UTILITY(U,$J,19707.17,5240,2)
+92 ;;=^^PN-C^^^PN-COMPLICATIONS
+93 ;;^UTILITY(U,$J,19707.17,5241,0)
+94 ;;=40^FETAL MOVEMENT COUNTING^^^^^13^45^^^0
+95 ;;^UTILITY(U,$J,19707.17,5241,2)
+96 ;;=^^PN-2T^^^PN-SECOND TRIMESTER
+97 ;;^UTILITY(U,$J,19707.17,5242,0)
+98 ;;=40^INFANT FEEDING CHOICE 2^^^^^13^24^^^0
+99 ;;^UTILITY(U,$J,19707.17,5242,2)
+100 ;;=^^PN-2T^^^PN-SECOND TRIMESTER
+101 ;;^UTILITY(U,$J,19707.17,5243,0)
+102 ;;=41^LATE WARNING SIGNS^^^^^25^45^^^0
+103 ;;^UTILITY(U,$J,19707.17,5243,2)
+104 ;;=^^PN-C^^^PN-COMPLICATIONS
+105 ;;^UTILITY(U,$J,19707.17,5244,0)
+106 ;;=41^INFANT FEEDING CHOICE 3^^^^^25^45^^^0
+107 ;;^UTILITY(U,$J,19707.17,5244,2)
+108 ;;=^^PN-3T^^^PN-THIRD TRIMESTER
+109 ;;^UTILITY(U,$J,19707.17,5245,0)
+110 ;;=47^ROUTINE HEALTH SCREENING^^^^^^^^^0
+111 ;;^UTILITY(U,$J,19707.17,5245,2)
+112 ;;=^^HPDP-SCR^^^HPDP-SCREENING
+113 ;;^UTILITY(U,$J,19707.17,5246,0)
+114 ;;=47^PRE-CONCEPTION COUNSELING^^^^^^^^^0
+115 ;;^UTILITY(U,$J,19707.17,5246,2)
+116 ;;=^^FP-ALL^^^
+117 ;;^UTILITY(U,$J,19707.17,5248,0)
+118 ;;=45^VDRL (2nd trimester)^^^^^24^28^^^0
+119 ;;^UTILITY(U,$J,19707.17,5248,2)
+120 ;;=^^^^139
+121 ;;^UTILITY(U,$J,19707.17,5249,0)
+122 ;;=46^VDRL (3rd trimester)^^^^^32^45^^^0
+123 ;;^UTILITY(U,$J,19707.17,5250,0)
+124 ;;=42^HIV^^^^^1^45^^^0
