VENMI001.m

VENMI001 ; ; 28-NOV-2006

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

 Q:'DIFQ(9000010.46)  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

 ;;^DIC(9000010.46,0,"GL")

 ;;=^AUPNVWC(

 ;;^DIC("B","V WELL CHILD",9000010.46)

 ;;=

 ;;^DD(9000010.46,0)

 ;;=FIELD^^81203^42

 ;;^DD(9000010.46,0,"DDA")

 ;;=N

 ;;^DD(9000010.46,0,"DT")

 ;;=3060217

 ;;^DD(9000010.46,0,"IX","AA",9000010.46,.03)

 ;;=

 ;;^DD(9000010.46,0,"IX","AATOO",9000010.46,.02)

 ;;=

 ;;^DD(9000010.46,0,"IX","AC",9000010.46,.02)

 ;;=

 ;;^DD(9000010.46,0,"IX","AD",9000010.46,.03)

 ;;=

 ;;^DD(9000010.46,0,"IX","AV10",9000010.46,.03)

 ;;=

 ;;^DD(9000010.46,0,"IX","AV9",9000010.46,.01)

 ;;=

 ;;^DD(9000010.46,0,"IX","B",9000010.46,.01)

 ;;=

 ;;^DD(9000010.46,0,"NM","V WELL CHILD")

 ;;=

 ;;^DD(9000010.46,0,"PT",9000010.46,1208)

 ;;=

 ;;^DD(9000010.46,.01,0)

 ;;=WELL CHILD VISIT TYPE^RS^1:FIRST WELL CHILD VISIT;0:ROUTINE WELL CHILD VISIT;2:SPECIAL WELL CHILD VISIT;^0;1^Q

 ;;^DD(9000010.46,.01,1,0)

 ;;=^.1^^-1

 ;;^DD(9000010.46,.01,1,1,0)

 ;;=9000010.46^B

 ;;^DD(9000010.46,.01,1,1,1)

 ;;=S ^AUPNVWC("B",$E(X,1,30),DA)=""

 ;;^DD(9000010.46,.01,1,1,2)

 ;;=K ^AUPNVWC("B",$E(X,1,30),DA)

 ;;^DD(9000010.46,.01,1,2,0)

 ;;=9000010.46^AV9^MUMPS

 ;;^DD(9000010.46,.01,1,2,1)

 ;;=S:$D(APCDLOOK) DIC("DR")=""

 ;;^DD(9000010.46,.01,1,2,2)

 ;;=Q

 ;;^DD(9000010.46,.01,3)

 ;;=

 ;;^DD(9000010.46,.01,12)

 ;;=Allow only active Exams to be selected.

 ;;^DD(9000010.46,.01,12.1)

 ;;=S DIC("S")="I $P(^(0),U,4)'=1"

 ;;^DD(9000010.46,.01,21,0)

 ;;=^^2^2^2951024^^

 ;;^DD(9000010.46,.01,21,1,0)

 ;;=This is the entry in the Exam file that represents what type of exam was

 ;;^DD(9000010.46,.01,21,2,0)

 ;;=done at the encounter.

 ;;^DD(9000010.46,.01,23,0)

 ;;=^^1^1^2960924^

 ;;^DD(9000010.46,.01,23,1,0)

 ;;=APCDALVR Variable = APCDALVR("APCDTEX")

 ;;^DD(9000010.46,.01,"AUDIT")

 ;;=n

 ;;^DD(9000010.46,.01,"DT")

 ;;=3051207

 ;;^DD(9000010.46,.02,0)

 ;;=PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q

 ;;^DD(9000010.46,.02,1,0)

 ;;=^.1

 ;;^DD(9000010.46,.02,1,1,0)

 ;;=9000010.46^AC

 ;;^DD(9000010.46,.02,1,1,1)

 ;;=S ^AUPNVWC("AC",$E(X,1,30),DA)=""

 ;;^DD(9000010.46,.02,1,1,2)

 ;;=K ^AUPNVWC("AC",$E(X,1,30),DA)

 ;;^DD(9000010.46,.02,1,2,0)

 ;;=9000010.46^AATOO^MUMPS

 ;;^DD(9000010.46,.02,1,2,1)

 ;;=I $P(^AUPNVWC(DA,0),U,3)]"" S ^AUPNVWC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVWC(DA,0),U,3),0),".",1)),DA)=""

 ;;^DD(9000010.46,.02,1,2,2)

 ;;=I $P(^AUPNVWC(DA,0),U,3)]"" K ^AUPNVWC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVWC(DA,0),U,3),0),".",1)),DA)

 ;;^DD(9000010.46,.02,1,2,"DT")

 ;;=3051214

 ;;^DD(9000010.46,.02,23,0)

 ;;=^^1^1^2960924^

 ;;^DD(9000010.46,.02,23,1,0)

 ;;=APCDALVR Variable = APCDALVR("APCDPAT")

 ;;^DD(9000010.46,.02,"DT")

 ;;=3051214

 ;;^DD(9000010.46,.03,0)

 ;;=VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVWC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 ;;^DD(9000010.46,.03,1,0)

 ;;=^.1

 ;;^DD(9000010.46,.03,1,1,0)

 ;;=9000010.46^AD

 ;;^DD(9000010.46,.03,1,1,1)

 ;;=S ^AUPNVWC("AD",$E(X,1,30),DA)=""

 ;;^DD(9000010.46,.03,1,1,2)

 ;;=K ^AUPNVWC("AD",$E(X,1,30),DA)

 ;;^DD(9000010.46,.03,1,1,"%D",0)

 ;;=^^4^4^2950901^

 ;;^DD(9000010.46,.03,1,1,"%D",1,0)

 ;;=This cross reference is used for searches by the visit pointer and

 ;;^DD(9000010.46,.03,1,1,"%D",2,0)

 ;;=internal entry number. 

 ;;^DD(9000010.46,.03,1,1,"%D",3,0)

 ;;= 

 ;;^DD(9000010.46,.03,1,1,"%D",4,0)

 ;;=  "AD",VISIT,DA

 ;;^DD(9000010.46,.03,1,2,0)

 ;;=9000010.46^AA^MUMPS

 ;;^DD(9000010.46,.03,1,2,1)

 ;;=Q:$P(^AUPNVWC(DA,0),U,2)=""  S ^AUPNVWC("AA",$P(^AUPNVWC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""

 ;;^DD(9000010.46,.03,1,2,2)

 ;;=Q:$P(^AUPNVWC(DA,0),U,2)=""  K ^AUPNVWC("AA",$P(^AUPNVWC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)

 ;;^DD(9000010.46,.03,1,2,"DT")

 ;;=3051214

 ;;^DD(9000010.46,.03,1,3,0)

 ;;=9000010.46^AV10^MUMPS

 ;;^DD(9000010.46,.03,1,3,1)

 ;;=D ADD^AUPNVSIT

 ;;^DD(9000010.46,.03,1,3,2)

 ;;=D SUB^AUPNVSIT

 ;;^DD(9000010.46,.03,1,3,"%D",0)

 ;;=^^2^2^2940131^

 ;;^DD(9000010.46,.03,1,3,"%D",1,0)

 ;;=This cross-reference adds and subtracts from the dependent entry count in

 ;;^DD(9000010.46,.03,1,3,"%D",2,0)

 ;;=the VISIT file.

 ;;^DD(9000010.46,.03,3)

 ;;=Enter the visit date/time for the encounter where the exam was done.

 ;;^DD(9000010.46,.03,12)

 ;;=VISIT MUST BE FOR CURRENT PATIENT

 ;;^DD(9000010.46,.03,12.1)

 ;;=S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVWC(DA,0),U,2)"

 ;;^DD(9000010.46,.03,21,0)

 ;;=^^2^2^2950901^

 ;;^DD(9000010.46,.03,21,1,0)

 ;;=This is the encounter in the Visit file that represents when and where the

 ;;^DD(9000010.46,.03,21,2,0)

 ;;=exam was done.

 ;;^DD(9000010.46,.03,23,0)

 ;;=^^1^1^2960924^

 ;;^DD(9000010.46,.03,23,1,0)

 ;;=APCDALVR Variable = APCDALVR("APCDVSIT")

 ;;^DD(9000010.46,.03,"DT")

 ;;=3051214

 ;;^DD(9000010.46,.04,0)

 ;;=ANT GUIDANCE PROVIDER^P200'^VA(200,^0;4^Q

 ;;^DD(9000010.46,.04,"DT")

 ;;=3051206

 ;;^DD(9000010.46,.05,0)

 ;;=ANT GUIDANCE TIME (MIN)^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(9000010.46,.05,3)

 ;;=Type a Number between 1 and 999, 0 Decimal Digits

 ;;^DD(9000010.46,.05,"DT")

 ;;=3051129

 ;;^DD(9000010.46,.06,0)

 ;;=ANT GUIDANCE LOU^S^1:POOR;2:FAIR;3:GOOD;4:N/A;5:REFUSED;^0;6^Q

 ;;^DD(9000010.46,.06,"DT")

 ;;=3051129

 ;;^DD(9000010.46,.07,0)

 ;;=NUTR TIME PT ED (MIN)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(9000010.46,.07,3)

 ;;=Type a Number between 1 and 999, 0 Decimal Digits

 ;;^DD(9000010.46,.07,"DT")

 ;;=3051007

 ;;^DD(9000010.46,.08,0)

 ;;=NUTRITION LOU^S^1:POOR;2:FAIR;3:GOOD;4:NA;5:REFUSED;^0;8^Q

 ;;^DD(9000010.46,.08,"DT")

 ;;=3051007

 ;;^DD(9000010.46,.09,0)

 ;;=NUTRITION PROVIDER^P200'^VA(200,^0;9^Q

 ;;^DD(9000010.46,.09,"DT")

 ;;=3051202

 ;;^DD(9000010.46,.1,0)

 ;;=INFORMAL DEVEL ASSESSMENT^S^P:PASS;B:BORDERLINE;F:FAIL;^0;10^Q

 ;;^DD(9000010.46,.1,"DT")

 ;;=3051207

 ;;^DD(9000010.46,1,0)

 ;;=ANTICIPATORY GUIDANCE TOPICS^9000010.461^^1;0

 ;;^DD(9000010.46,1,"DT")

 ;;=3050929

 ;;^DD(9000010.46,2.01,0)

 ;;=ASQ - FINE MOTOR^F^^2;1^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.01,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.01,"DT")

 ;;=3060111

 ;;^DD(9000010.46,2.02,0)

 ;;=ASQ - GROSS MOTOR^F^^2;2^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.02,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.02,"DT")

 ;;=3060111

 ;;^DD(9000010.46,2.03,0)

 ;;=ASQ - COMMUNICATION^F^^2;3^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.03,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.03,"DT")

 ;;=3060112

 ;;^DD(9000010.46,2.04,0)

 ;;=ASQ - PERSONAL-SOCIAL^F^^2;4^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.04,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.04,"DT")

 ;;=3060202

 ;;^DD(9000010.46,2.05,0)

 ;;=ASQ - PROBLEM SOLVING^F^^2;5^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.05,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.05,"DT")

 ;;=3060111

 ;;^DD(9000010.46,2.06,0)

 ;;=ASQ - AUTISM SCREEN^F^^2;6^K:$L(X)>12!($L(X)<1) X

 ;;^DD(9000010.46,2.06,3)

 ;;=Answer must be 1-12 characters in length.

 ;;^DD(9000010.46,2.06,"DT")

 ;;=3060111

 ;;^DD(9000010.46,2.07,0)

 ;;=ASQ QUESTIONNAIRE (MOS)^P19707.14'^VEN(7.14,^2;7^Q

 ;;^DD(9000010.46,2.07,"DT")

 ;;=3060112

 ;;^DD(9000010.46,3.01,0)

 ;;=DEVELOPMENT - FINE MOTOR^F^^3;1^K:$L(X)>60!($L(X)<1) X

 ;;^DD(9000010.46,3.01,3)

 ;;=Answer must be 1-60 characters in length.

 ;;^DD(9000010.46,3.01,"DT")

 ;;=3051227

 ;;^DD(9000010.46,3.02,0)

 ;;=DEVELOPMENT - GROSS MOTOR^F^^3;2^K:$L(X)>60!($L(X)<1) X

 ;;^DD(9000010.46,3.02,3)

 ;;=Answer must be 1-60 characters in length.

 ;;^DD(9000010.46,3.02,"DT")

 ;;=3051227

 ;;^DD(9000010.46,3.03,0)

 ;;=DEVELOPMENT - LANGUAGE^F^^3;3^K:$L(X)>60!($L(X)<1) X

 ;;^DD(9000010.46,3.03,3)

 ;;=Answer must be 1-60 characters in length.

 ;;^DD(9000010.46,3.03,"DT")

 ;;=3051227

 ;;^DD(9000010.46,3.04,0)

 ;;=DEVELOPMENT - SOCIAL^F^^3;4^K:$L(X)>60!($L(X)<1) X

VENMI001  ; ; 28-NOV-2006

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

 +2        IF 'DIFQ(9000010.46)

               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       ;;^DIC(9000010.46,0,"GL")

 +2       ;;=^AUPNVWC(

 +3       ;;^DIC("B","V WELL CHILD",9000010.46)

 +4       ;;=

 +5       ;;^DD(9000010.46,0)

 +6       ;;=FIELD^^81203^42

 +7       ;;^DD(9000010.46,0,"DDA")

 +8       ;;=N

 +9       ;;^DD(9000010.46,0,"DT")

 +10      ;;=3060217

 +11      ;;^DD(9000010.46,0,"IX","AA",9000010.46,.03)

 +12      ;;=

 +13      ;;^DD(9000010.46,0,"IX","AATOO",9000010.46,.02)

 +14      ;;=

 +15      ;;^DD(9000010.46,0,"IX","AC",9000010.46,.02)

 +16      ;;=

 +17      ;;^DD(9000010.46,0,"IX","AD",9000010.46,.03)

 +18      ;;=

 +19      ;;^DD(9000010.46,0,"IX","AV10",9000010.46,.03)

 +20      ;;=

 +21      ;;^DD(9000010.46,0,"IX","AV9",9000010.46,.01)

 +22      ;;=

 +23      ;;^DD(9000010.46,0,"IX","B",9000010.46,.01)

 +24      ;;=

 +25      ;;^DD(9000010.46,0,"NM","V WELL CHILD")

 +26      ;;=

 +27      ;;^DD(9000010.46,0,"PT",9000010.46,1208)

 +28      ;;=

 +29      ;;^DD(9000010.46,.01,0)

 +30      ;;=WELL CHILD VISIT TYPE^RS^1:FIRST WELL CHILD VISIT;0:ROUTINE WELL CHILD VISIT;2:SPECIAL WELL CHILD VISIT;^0;1^Q

 +31      ;;^DD(9000010.46,.01,1,0)

 +32      ;;=^.1^^-1

 +33      ;;^DD(9000010.46,.01,1,1,0)

 +34      ;;=9000010.46^B

 +35      ;;^DD(9000010.46,.01,1,1,1)

 +36      ;;=S ^AUPNVWC("B",$E(X,1,30),DA)=""

 +37      ;;^DD(9000010.46,.01,1,1,2)

 +38      ;;=K ^AUPNVWC("B",$E(X,1,30),DA)

 +39      ;;^DD(9000010.46,.01,1,2,0)

 +40      ;;=9000010.46^AV9^MUMPS

 +41      ;;^DD(9000010.46,.01,1,2,1)

 +42      ;;=S:$D(APCDLOOK) DIC("DR")=""

 +43      ;;^DD(9000010.46,.01,1,2,2)

 +44      ;;=Q

 +45      ;;^DD(9000010.46,.01,3)

 +46      ;;=

 +47      ;;^DD(9000010.46,.01,12)

 +48      ;;=Allow only active Exams to be selected.

 +49      ;;^DD(9000010.46,.01,12.1)

 +50      ;;=S DIC("S")="I $P(^(0),U,4)'=1"

 +51      ;;^DD(9000010.46,.01,21,0)

 +52      ;;=^^2^2^2951024^^

 +53      ;;^DD(9000010.46,.01,21,1,0)

 +54      ;;=This is the entry in the Exam file that represents what type of exam was

 +55      ;;^DD(9000010.46,.01,21,2,0)

 +56      ;;=done at the encounter.

 +57      ;;^DD(9000010.46,.01,23,0)

 +58      ;;=^^1^1^2960924^

 +59      ;;^DD(9000010.46,.01,23,1,0)

 +60      ;;=APCDALVR Variable = APCDALVR("APCDTEX")

 +61      ;;^DD(9000010.46,.01,"AUDIT")

 +62      ;;=n

 +63      ;;^DD(9000010.46,.01,"DT")

 +64      ;;=3051207

 +65      ;;^DD(9000010.46,.02,0)

 +66      ;;=PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q

 +67      ;;^DD(9000010.46,.02,1,0)

 +68      ;;=^.1

 +69      ;;^DD(9000010.46,.02,1,1,0)

 +70      ;;=9000010.46^AC

 +71      ;;^DD(9000010.46,.02,1,1,1)

 +72      ;;=S ^AUPNVWC("AC",$E(X,1,30),DA)=""

 +73      ;;^DD(9000010.46,.02,1,1,2)

 +74      ;;=K ^AUPNVWC("AC",$E(X,1,30),DA)

 +75      ;;^DD(9000010.46,.02,1,2,0)

 +76      ;;=9000010.46^AATOO^MUMPS

 +77      ;;^DD(9000010.46,.02,1,2,1)

 +78      ;;=I $P(^AUPNVWC(DA,0),U,3)]"" S ^AUPNVWC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVWC(DA,0),U,3),0),".",1)),DA)=""

 +79      ;;^DD(9000010.46,.02,1,2,2)

 +80      ;;=I $P(^AUPNVWC(DA,0),U,3)]"" K ^AUPNVWC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVWC(DA,0),U,3),0),".",1)),DA)

 +81      ;;^DD(9000010.46,.02,1,2,"DT")

 +82      ;;=3051214

 +83      ;;^DD(9000010.46,.02,23,0)

 +84      ;;=^^1^1^2960924^

 +85      ;;^DD(9000010.46,.02,23,1,0)

 +86      ;;=APCDALVR Variable = APCDALVR("APCDPAT")

 +87      ;;^DD(9000010.46,.02,"DT")

 +88      ;;=3051214

 +89      ;;^DD(9000010.46,.03,0)

 +90      ;;=VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVWC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 +91      ;;^DD(9000010.46,.03,1,0)

 +92      ;;=^.1

 +93      ;;^DD(9000010.46,.03,1,1,0)

 +94      ;;=9000010.46^AD

 +95      ;;^DD(9000010.46,.03,1,1,1)

 +96      ;;=S ^AUPNVWC("AD",$E(X,1,30),DA)=""

 +97      ;;^DD(9000010.46,.03,1,1,2)

 +98      ;;=K ^AUPNVWC("AD",$E(X,1,30),DA)

 +99      ;;^DD(9000010.46,.03,1,1,"%D",0)

 +100     ;;=^^4^4^2950901^

 +101     ;;^DD(9000010.46,.03,1,1,"%D",1,0)

 +102     ;;=This cross reference is used for searches by the visit pointer and

 +103     ;;^DD(9000010.46,.03,1,1,"%D",2,0)

 +104     ;;=internal entry number. 

 +105     ;;^DD(9000010.46,.03,1,1,"%D",3,0)

 +106     ;;= 

 +107     ;;^DD(9000010.46,.03,1,1,"%D",4,0)

 +108     ;;=  "AD",VISIT,DA

 +109     ;;^DD(9000010.46,.03,1,2,0)

 +110     ;;=9000010.46^AA^MUMPS

 +111     ;;^DD(9000010.46,.03,1,2,1)

 +112     ;;=Q:$P(^AUPNVWC(DA,0),U,2)=""  S ^AUPNVWC("AA",$P(^AUPNVWC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""

 +113     ;;^DD(9000010.46,.03,1,2,2)

 +114     ;;=Q:$P(^AUPNVWC(DA,0),U,2)=""  K ^AUPNVWC("AA",$P(^AUPNVWC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)

 +115     ;;^DD(9000010.46,.03,1,2,"DT")

 +116     ;;=3051214

 +117     ;;^DD(9000010.46,.03,1,3,0)

 +118     ;;=9000010.46^AV10^MUMPS

 +119     ;;^DD(9000010.46,.03,1,3,1)

 +120     ;;=D ADD^AUPNVSIT

 +121     ;;^DD(9000010.46,.03,1,3,2)

 +122     ;;=D SUB^AUPNVSIT

 +123     ;;^DD(9000010.46,.03,1,3,"%D",0)

 +124     ;;=^^2^2^2940131^

 +125     ;;^DD(9000010.46,.03,1,3,"%D",1,0)

 +126     ;;=This cross-reference adds and subtracts from the dependent entry count in

 +127     ;;^DD(9000010.46,.03,1,3,"%D",2,0)

 +128     ;;=the VISIT file.

 +129     ;;^DD(9000010.46,.03,3)

 +130     ;;=Enter the visit date/time for the encounter where the exam was done.

 +131     ;;^DD(9000010.46,.03,12)

 +132     ;;=VISIT MUST BE FOR CURRENT PATIENT

 +133     ;;^DD(9000010.46,.03,12.1)

 +134     ;;=S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVWC(DA,0),U,2)"

 +135     ;;^DD(9000010.46,.03,21,0)

 +136     ;;=^^2^2^2950901^

 +137     ;;^DD(9000010.46,.03,21,1,0)

 +138     ;;=This is the encounter in the Visit file that represents when and where the

 +139     ;;^DD(9000010.46,.03,21,2,0)

 +140     ;;=exam was done.

 +141     ;;^DD(9000010.46,.03,23,0)

 +142     ;;=^^1^1^2960924^

 +143     ;;^DD(9000010.46,.03,23,1,0)

 +144     ;;=APCDALVR Variable = APCDALVR("APCDVSIT")

 +145     ;;^DD(9000010.46,.03,"DT")

 +146     ;;=3051214

 +147     ;;^DD(9000010.46,.04,0)

 +148     ;;=ANT GUIDANCE PROVIDER^P200'^VA(200,^0;4^Q

 +149     ;;^DD(9000010.46,.04,"DT")

 +150     ;;=3051206

 +151     ;;^DD(9000010.46,.05,0)

 +152     ;;=ANT GUIDANCE TIME (MIN)^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

 +153     ;;^DD(9000010.46,.05,3)

 +154     ;;=Type a Number between 1 and 999, 0 Decimal Digits

 +155     ;;^DD(9000010.46,.05,"DT")

 +156     ;;=3051129

 +157     ;;^DD(9000010.46,.06,0)

 +158     ;;=ANT GUIDANCE LOU^S^1:POOR;2:FAIR;3:GOOD;4:N/A;5:REFUSED;^0;6^Q

 +159     ;;^DD(9000010.46,.06,"DT")

 +160     ;;=3051129

 +161     ;;^DD(9000010.46,.07,0)

 +162     ;;=NUTR TIME PT ED (MIN)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

 +163     ;;^DD(9000010.46,.07,3)

 +164     ;;=Type a Number between 1 and 999, 0 Decimal Digits

 +165     ;;^DD(9000010.46,.07,"DT")

 +166     ;;=3051007

 +167     ;;^DD(9000010.46,.08,0)

 +168     ;;=NUTRITION LOU^S^1:POOR;2:FAIR;3:GOOD;4:NA;5:REFUSED;^0;8^Q

 +169     ;;^DD(9000010.46,.08,"DT")

 +170     ;;=3051007

 +171     ;;^DD(9000010.46,.09,0)

 +172     ;;=NUTRITION PROVIDER^P200'^VA(200,^0;9^Q

 +173     ;;^DD(9000010.46,.09,"DT")

 +174     ;;=3051202

 +175     ;;^DD(9000010.46,.1,0)

 +176     ;;=INFORMAL DEVEL ASSESSMENT^S^P:PASS;B:BORDERLINE;F:FAIL;^0;10^Q

 +177     ;;^DD(9000010.46,.1,"DT")

 +178     ;;=3051207

 +179     ;;^DD(9000010.46,1,0)

 +180     ;;=ANTICIPATORY GUIDANCE TOPICS^9000010.461^^1;0

 +181     ;;^DD(9000010.46,1,"DT")

 +182     ;;=3050929

 +183     ;;^DD(9000010.46,2.01,0)

 +184     ;;=ASQ - FINE MOTOR^F^^2;1^K:$L(X)>12!($L(X)<1) X

 +185     ;;^DD(9000010.46,2.01,3)

 +186     ;;=Answer must be 1-12 characters in length.

 +187     ;;^DD(9000010.46,2.01,"DT")

 +188     ;;=3060111

 +189     ;;^DD(9000010.46,2.02,0)

 +190     ;;=ASQ - GROSS MOTOR^F^^2;2^K:$L(X)>12!($L(X)<1) X

 +191     ;;^DD(9000010.46,2.02,3)

 +192     ;;=Answer must be 1-12 characters in length.

 +193     ;;^DD(9000010.46,2.02,"DT")

 +194     ;;=3060111

 +195     ;;^DD(9000010.46,2.03,0)

 +196     ;;=ASQ - COMMUNICATION^F^^2;3^K:$L(X)>12!($L(X)<1) X

 +197     ;;^DD(9000010.46,2.03,3)

 +198     ;;=Answer must be 1-12 characters in length.

 +199     ;;^DD(9000010.46,2.03,"DT")

 +200     ;;=3060112

 +201     ;;^DD(9000010.46,2.04,0)

 +202     ;;=ASQ - PERSONAL-SOCIAL^F^^2;4^K:$L(X)>12!($L(X)<1) X

 +203     ;;^DD(9000010.46,2.04,3)

 +204     ;;=Answer must be 1-12 characters in length.

 +205     ;;^DD(9000010.46,2.04,"DT")

 +206     ;;=3060202

 +207     ;;^DD(9000010.46,2.05,0)

 +208     ;;=ASQ - PROBLEM SOLVING^F^^2;5^K:$L(X)>12!($L(X)<1) X

 +209     ;;^DD(9000010.46,2.05,3)

 +210     ;;=Answer must be 1-12 characters in length.

 +211     ;;^DD(9000010.46,2.05,"DT")

 +212     ;;=3060111

 +213     ;;^DD(9000010.46,2.06,0)

 +214     ;;=ASQ - AUTISM SCREEN^F^^2;6^K:$L(X)>12!($L(X)<1) X

 +215     ;;^DD(9000010.46,2.06,3)

 +216     ;;=Answer must be 1-12 characters in length.

 +217     ;;^DD(9000010.46,2.06,"DT")

 +218     ;;=3060111

 +219     ;;^DD(9000010.46,2.07,0)

 +220     ;;=ASQ QUESTIONNAIRE (MOS)^P19707.14'^VEN(7.14,^2;7^Q

 +221     ;;^DD(9000010.46,2.07,"DT")

 +222     ;;=3060112

 +223     ;;^DD(9000010.46,3.01,0)

 +224     ;;=DEVELOPMENT - FINE MOTOR^F^^3;1^K:$L(X)>60!($L(X)<1) X

 +225     ;;^DD(9000010.46,3.01,3)

 +226     ;;=Answer must be 1-60 characters in length.

 +227     ;;^DD(9000010.46,3.01,"DT")

 +228     ;;=3051227

 +229     ;;^DD(9000010.46,3.02,0)

 +230     ;;=DEVELOPMENT - GROSS MOTOR^F^^3;2^K:$L(X)>60!($L(X)<1) X

 +231     ;;^DD(9000010.46,3.02,3)

 +232     ;;=Answer must be 1-60 characters in length.

 +233     ;;^DD(9000010.46,3.02,"DT")

 +234     ;;=3051227

 +235     ;;^DD(9000010.46,3.03,0)

 +236     ;;=DEVELOPMENT - LANGUAGE^F^^3;3^K:$L(X)>60!($L(X)<1) X

 +237     ;;^DD(9000010.46,3.03,3)

 +238     ;;=Answer must be 1-60 characters in length.

 +239     ;;^DD(9000010.46,3.03,"DT")

 +240     ;;=3051227

 +241     ;;^DD(9000010.46,3.04,0)

 +242     ;;=DEVELOPMENT - SOCIAL^F^^3;4^K:$L(X)>60!($L(X)<1) X