VENKI025.m

VENKI025 ; ; 16-MAR-2007

 ;;2.6;PCC+;;NOV 12, 2007

 Q:'DIFQR(19707.13)  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.13)

 ;;=^VEN(7.13,

 ;;^UTILITY(U,$J,19707.13,0)

 ;;=VEN EHP KB CLINICAL DOMAIN^19707.13^9^9

 ;;^UTILITY(U,$J,19707.13,1,0)

 ;;=WELL CHILD CARE

 ;;^UTILITY(U,$J,19707.13,1,1,0)

 ;;=^19707.131P^7^7

 ;;^UTILITY(U,$J,19707.13,1,1,1,0)

 ;;=1^10

 ;;^UTILITY(U,$J,19707.13,1,1,2,0)

 ;;=3^20

 ;;^UTILITY(U,$J,19707.13,1,1,3,0)

 ;;=4^30

 ;;^UTILITY(U,$J,19707.13,1,1,4,0)

 ;;=5^40

 ;;^UTILITY(U,$J,19707.13,1,1,5,0)

 ;;=6^50

 ;;^UTILITY(U,$J,19707.13,1,1,6,0)

 ;;=7^60

 ;;^UTILITY(U,$J,19707.13,1,1,7,0)

 ;;=2^70

 ;;^UTILITY(U,$J,19707.13,1,2,0)

 ;;=^^1^1^3051215^^^

 ;;^UTILITY(U,$J,19707.13,1,2,1,0)

 ;;=Legacy guidelines for well child care from PCC+ Ver. 2.2

 ;;^UTILITY(U,$J,19707.13,2,0)

 ;;=PRENATAL CARE

 ;;^UTILITY(U,$J,19707.13,3,0)

 ;;=DIABETES CARE

 ;;^UTILITY(U,$J,19707.13,4,0)

 ;;=ASTHMA CARE

 ;;^UTILITY(U,$J,19707.13,5,0)

 ;;=WELL CHILD NATL AG STDS 2006^61^49^WCAG^30^^1

 ;;^UTILITY(U,$J,19707.13,5,1,0)

 ;;=^19707.131P^20^17

 ;;^UTILITY(U,$J,19707.13,5,1,1,0)

 ;;=22^10

 ;;^UTILITY(U,$J,19707.13,5,1,2,0)

 ;;=19^20

 ;;^UTILITY(U,$J,19707.13,5,1,3,0)

 ;;=20^30

 ;;^UTILITY(U,$J,19707.13,5,1,4,0)

 ;;=10^40

 ;;^UTILITY(U,$J,19707.13,5,1,5,0)

 ;;=21^50

 ;;^UTILITY(U,$J,19707.13,5,1,6,0)

 ;;=11^60

 ;;^UTILITY(U,$J,19707.13,5,1,7,0)

 ;;=12^70

 ;;^UTILITY(U,$J,19707.13,5,1,8,0)

 ;;=13^80

 ;;^UTILITY(U,$J,19707.13,5,1,12,0)

 ;;=15^120

 ;;^UTILITY(U,$J,19707.13,5,1,13,0)

 ;;=16^130

 ;;^UTILITY(U,$J,19707.13,5,1,14,0)

 ;;=23^140

 ;;^UTILITY(U,$J,19707.13,5,1,15,0)

 ;;=31^150

 ;;^UTILITY(U,$J,19707.13,5,1,16,0)

 ;;=24^160

 ;;^UTILITY(U,$J,19707.13,5,1,17,0)

 ;;=25^170

 ;;^UTILITY(U,$J,19707.13,5,1,18,0)

 ;;=17^180

 ;;^UTILITY(U,$J,19707.13,5,1,19,0)

 ;;=18^190

 ;;^UTILITY(U,$J,19707.13,5,1,20,0)

 ;;=26^200

 ;;^UTILITY(U,$J,19707.13,5,2,0)

 ;;=^^1^1^3051215^

 ;;^UTILITY(U,$J,19707.13,5,2,1,0)

 ;;=National Well Child Patient Education Standards, 2006

 ;;^UTILITY(U,$J,19707.13,5,3)

 ;;=WELL CHILD CARE - NATIONAL ANTICIATORY GUIDANCE STANDARDS (2006)

 ;;^UTILITY(U,$J,19707.13,6,0)

 ;;=WELL CHILD NATL NUTR STDS 2006^61^49^WCAG^40^^1

 ;;^UTILITY(U,$J,19707.13,6,1,0)

 ;;=^19707.131P^1^1

 ;;^UTILITY(U,$J,19707.13,6,1,1,0)

 ;;=14^10

 ;;^UTILITY(U,$J,19707.13,6,2,0)

 ;;=^^1^1^3051215^

 ;;^UTILITY(U,$J,19707.13,6,2,1,0)

 ;;=National Well Child Nutrition Education Standards, 2006

 ;;^UTILITY(U,$J,19707.13,6,3)

 ;;=WELL CHILD CARE - NATIONAL STANDARDS FOR NUTRITION EDUCATION (2006)

 ;;^UTILITY(U,$J,19707.13,7,0)

 ;;=WELL CHILD NATL EXAM STDS 2006^61^49^WCEX^20^^1

 ;;^UTILITY(U,$J,19707.13,7,1,0)

 ;;=^19707.131P^4^4

 ;;^UTILITY(U,$J,19707.13,7,1,1,0)

 ;;=30^10

 ;;^UTILITY(U,$J,19707.13,7,1,2,0)

 ;;=27^20

 ;;^UTILITY(U,$J,19707.13,7,1,3,0)

 ;;=28^30

 ;;^UTILITY(U,$J,19707.13,7,1,4,0)

 ;;=29^40

 ;;^UTILITY(U,$J,19707.13,7,2,0)

 ;;=^^1^1^3051215^

 ;;^UTILITY(U,$J,19707.13,7,2,1,0)

 ;;=National standards for well child exams and screening tests

 ;;^UTILITY(U,$J,19707.13,7,3)

 ;;=WELL CHILD CARE - NATIONAL STANDARDS FOR PERIODIC EXAMS (2006)

 ;;^UTILITY(U,$J,19707.13,8,0)

 ;;=WELL CHILD NATL DEV STDS 2006^61^49^WCDA^10^^1

 ;;^UTILITY(U,$J,19707.13,8,1,0)

 ;;=^19707.131P^5^4

 ;;^UTILITY(U,$J,19707.13,8,1,2,0)

 ;;=34^10

 ;;^UTILITY(U,$J,19707.13,8,1,3,0)

 ;;=35^20

 ;;^UTILITY(U,$J,19707.13,8,1,4,0)

 ;;=36^30

 ;;^UTILITY(U,$J,19707.13,8,1,5,0)

 ;;=37^40

 ;;^UTILITY(U,$J,19707.13,8,2,0)

 ;;=^^1^1^3051215^

 ;;^UTILITY(U,$J,19707.13,8,2,1,0)

 ;;=National standards for developmental milestones

 ;;^UTILITY(U,$J,19707.13,8,3)

 ;;=WELL CHILD CARE - NATIONAL DEVELOPMENTAL MILESTONES (2006)

 ;;^UTILITY(U,$J,19707.13,9,0)

 ;;=WELL CHILD NATL AUT SCRN 2006^72^49^WCDA^50^^1

 ;;^UTILITY(U,$J,19707.13,9,1,0)

 ;;=^19707.131P^1^1

 ;;^UTILITY(U,$J,19707.13,9,1,1,0)

 ;;=9^50

 ;;^UTILITY(U,$J,19707.13,9,2,0)

 ;;=^^1^1^3060216^

 ;;^UTILITY(U,$J,19707.13,9,2,1,0)

 ;;=National Well Child Autism Screening Standards, 2006

 ;;^UTILITY(U,$J,19707.13,9,3)

 ;;=NATIONAL STANDARDS FOR AUTISM SCREENING (2006)

VENKI025  ; ; 16-MAR-2007

 +1       ;;2.6;PCC+;;NOV 12, 2007

 +2        IF 'DIFQR(19707.13)

               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.13)

 +2       ;;=^VEN(7.13,

 +3       ;;^UTILITY(U,$J,19707.13,0)

 +4       ;;=VEN EHP KB CLINICAL DOMAIN^19707.13^9^9

 +5       ;;^UTILITY(U,$J,19707.13,1,0)

 +6       ;;=WELL CHILD CARE

 +7       ;;^UTILITY(U,$J,19707.13,1,1,0)

 +8       ;;=^19707.131P^7^7

 +9       ;;^UTILITY(U,$J,19707.13,1,1,1,0)

 +10      ;;=1^10

 +11      ;;^UTILITY(U,$J,19707.13,1,1,2,0)

 +12      ;;=3^20

 +13      ;;^UTILITY(U,$J,19707.13,1,1,3,0)

 +14      ;;=4^30

 +15      ;;^UTILITY(U,$J,19707.13,1,1,4,0)

 +16      ;;=5^40

 +17      ;;^UTILITY(U,$J,19707.13,1,1,5,0)

 +18      ;;=6^50

 +19      ;;^UTILITY(U,$J,19707.13,1,1,6,0)

 +20      ;;=7^60

 +21      ;;^UTILITY(U,$J,19707.13,1,1,7,0)

 +22      ;;=2^70

 +23      ;;^UTILITY(U,$J,19707.13,1,2,0)

 +24      ;;=^^1^1^3051215^^^

 +25      ;;^UTILITY(U,$J,19707.13,1,2,1,0)

 +26      ;;=Legacy guidelines for well child care from PCC+ Ver. 2.2

 +27      ;;^UTILITY(U,$J,19707.13,2,0)

 +28      ;;=PRENATAL CARE

 +29      ;;^UTILITY(U,$J,19707.13,3,0)

 +30      ;;=DIABETES CARE

 +31      ;;^UTILITY(U,$J,19707.13,4,0)

 +32      ;;=ASTHMA CARE

 +33      ;;^UTILITY(U,$J,19707.13,5,0)

 +34      ;;=WELL CHILD NATL AG STDS 2006^61^49^WCAG^30^^1

 +35      ;;^UTILITY(U,$J,19707.13,5,1,0)

 +36      ;;=^19707.131P^20^17

 +37      ;;^UTILITY(U,$J,19707.13,5,1,1,0)

 +38      ;;=22^10

 +39      ;;^UTILITY(U,$J,19707.13,5,1,2,0)

 +40      ;;=19^20

 +41      ;;^UTILITY(U,$J,19707.13,5,1,3,0)

 +42      ;;=20^30

 +43      ;;^UTILITY(U,$J,19707.13,5,1,4,0)

 +44      ;;=10^40

 +45      ;;^UTILITY(U,$J,19707.13,5,1,5,0)

 +46      ;;=21^50

 +47      ;;^UTILITY(U,$J,19707.13,5,1,6,0)

 +48      ;;=11^60

 +49      ;;^UTILITY(U,$J,19707.13,5,1,7,0)

 +50      ;;=12^70

 +51      ;;^UTILITY(U,$J,19707.13,5,1,8,0)

 +52      ;;=13^80

 +53      ;;^UTILITY(U,$J,19707.13,5,1,12,0)

 +54      ;;=15^120

 +55      ;;^UTILITY(U,$J,19707.13,5,1,13,0)

 +56      ;;=16^130

 +57      ;;^UTILITY(U,$J,19707.13,5,1,14,0)

 +58      ;;=23^140

 +59      ;;^UTILITY(U,$J,19707.13,5,1,15,0)

 +60      ;;=31^150

 +61      ;;^UTILITY(U,$J,19707.13,5,1,16,0)

 +62      ;;=24^160

 +63      ;;^UTILITY(U,$J,19707.13,5,1,17,0)

 +64      ;;=25^170

 +65      ;;^UTILITY(U,$J,19707.13,5,1,18,0)

 +66      ;;=17^180

 +67      ;;^UTILITY(U,$J,19707.13,5,1,19,0)

 +68      ;;=18^190

 +69      ;;^UTILITY(U,$J,19707.13,5,1,20,0)

 +70      ;;=26^200

 +71      ;;^UTILITY(U,$J,19707.13,5,2,0)

 +72      ;;=^^1^1^3051215^

 +73      ;;^UTILITY(U,$J,19707.13,5,2,1,0)

 +74      ;;=National Well Child Patient Education Standards, 2006

 +75      ;;^UTILITY(U,$J,19707.13,5,3)

 +76      ;;=WELL CHILD CARE - NATIONAL ANTICIATORY GUIDANCE STANDARDS (2006)

 +77      ;;^UTILITY(U,$J,19707.13,6,0)

 +78      ;;=WELL CHILD NATL NUTR STDS 2006^61^49^WCAG^40^^1

 +79      ;;^UTILITY(U,$J,19707.13,6,1,0)

 +80      ;;=^19707.131P^1^1

 +81      ;;^UTILITY(U,$J,19707.13,6,1,1,0)

 +82      ;;=14^10

 +83      ;;^UTILITY(U,$J,19707.13,6,2,0)

 +84      ;;=^^1^1^3051215^

 +85      ;;^UTILITY(U,$J,19707.13,6,2,1,0)

 +86      ;;=National Well Child Nutrition Education Standards, 2006

 +87      ;;^UTILITY(U,$J,19707.13,6,3)

 +88      ;;=WELL CHILD CARE - NATIONAL STANDARDS FOR NUTRITION EDUCATION (2006)

 +89      ;;^UTILITY(U,$J,19707.13,7,0)

 +90      ;;=WELL CHILD NATL EXAM STDS 2006^61^49^WCEX^20^^1

 +91      ;;^UTILITY(U,$J,19707.13,7,1,0)

 +92      ;;=^19707.131P^4^4

 +93      ;;^UTILITY(U,$J,19707.13,7,1,1,0)

 +94      ;;=30^10

 +95      ;;^UTILITY(U,$J,19707.13,7,1,2,0)

 +96      ;;=27^20

 +97      ;;^UTILITY(U,$J,19707.13,7,1,3,0)

 +98      ;;=28^30

 +99      ;;^UTILITY(U,$J,19707.13,7,1,4,0)

 +100     ;;=29^40

 +101     ;;^UTILITY(U,$J,19707.13,7,2,0)

 +102     ;;=^^1^1^3051215^

 +103     ;;^UTILITY(U,$J,19707.13,7,2,1,0)

 +104     ;;=National standards for well child exams and screening tests

 +105     ;;^UTILITY(U,$J,19707.13,7,3)

 +106     ;;=WELL CHILD CARE - NATIONAL STANDARDS FOR PERIODIC EXAMS (2006)

 +107     ;;^UTILITY(U,$J,19707.13,8,0)

 +108     ;;=WELL CHILD NATL DEV STDS 2006^61^49^WCDA^10^^1

 +109     ;;^UTILITY(U,$J,19707.13,8,1,0)

 +110     ;;=^19707.131P^5^4

 +111     ;;^UTILITY(U,$J,19707.13,8,1,2,0)

 +112     ;;=34^10

 +113     ;;^UTILITY(U,$J,19707.13,8,1,3,0)

 +114     ;;=35^20

 +115     ;;^UTILITY(U,$J,19707.13,8,1,4,0)

 +116     ;;=36^30

 +117     ;;^UTILITY(U,$J,19707.13,8,1,5,0)

 +118     ;;=37^40

 +119     ;;^UTILITY(U,$J,19707.13,8,2,0)

 +120     ;;=^^1^1^3051215^

 +121     ;;^UTILITY(U,$J,19707.13,8,2,1,0)

 +122     ;;=National standards for developmental milestones

 +123     ;;^UTILITY(U,$J,19707.13,8,3)

 +124     ;;=WELL CHILD CARE - NATIONAL DEVELOPMENTAL MILESTONES (2006)

 +125     ;;^UTILITY(U,$J,19707.13,9,0)

 +126     ;;=WELL CHILD NATL AUT SCRN 2006^72^49^WCDA^50^^1

 +127     ;;^UTILITY(U,$J,19707.13,9,1,0)

 +128     ;;=^19707.131P^1^1

 +129     ;;^UTILITY(U,$J,19707.13,9,1,1,0)

 +130     ;;=9^50

 +131     ;;^UTILITY(U,$J,19707.13,9,2,0)

 +132     ;;=^^1^1^3060216^

 +133     ;;^UTILITY(U,$J,19707.13,9,2,1,0)

 +134     ;;=National Well Child Autism Screening Standards, 2006

 +135     ;;^UTILITY(U,$J,19707.13,9,3)

 +136     ;;=NATIONAL STANDARDS FOR AUTISM SCREENING (2006)