VEN8I001 ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ;
;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
Q:'DIFQ(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
;;^DIC(19707.17,0,"GL")
;;=^VEN(7.17,
;;^DIC("B","VEN EHP KB MASTER",19707.17)
;;=
;;^DIC(19707.17,"%D",0)
;;=^^2^2^3051118^^^^
;;^DIC(19707.17,"%D",1,0)
;;=Items can be guidelines, patient ed topics or clinical tasks.
;;^DIC(19707.17,"%D",2,0)
;;=Items are filtered by demographics, time and clinical hx
;;^DD(19707.17,0)
;;=FIELD^^2.06^23
;;^DD(19707.17,0,"IX","AC",19707.17,2.03)
;;=
;;^DD(19707.17,0,"IX","B",19707.17,.01)
;;=
;;^DD(19707.17,0,"IX","C",19707.17,.02)
;;=
;;^DD(19707.17,0,"NM","VEN EHP KB MASTER")
;;=
;;^DD(19707.17,.01,0)
;;=TYPE^RP19707.11'^VEN(7.11,^0;1^Q
;;^DD(19707.17,.01,1,0)
;;=^.1
;;^DD(19707.17,.01,1,1,0)
;;=19707.17^B
;;^DD(19707.17,.01,1,1,1)
;;=S ^VEN(7.17,"B",$E(X,1,30),DA)=""
;;^DD(19707.17,.01,1,1,2)
;;=K ^VEN(7.17,"B",$E(X,1,30),DA)
;;^DD(19707.17,.01,3)
;;=
;;^DD(19707.17,.01,"DT")
;;=3050304
;;^DD(19707.17,.02,0)
;;=TITLE^F^^0;2^K:$L(X)>80!($L(X)<1) X
;;^DD(19707.17,.02,1,0)
;;=^.1
;;^DD(19707.17,.02,1,1,0)
;;=19707.17^C
;;^DD(19707.17,.02,1,1,1)
;;=S ^VEN(7.17,"C",$E(X,1,30),DA)=""
;;^DD(19707.17,.02,1,1,2)
;;=K ^VEN(7.17,"C",$E(X,1,30),DA)
;;^DD(19707.17,.02,1,1,"DT")
;;=3050503
;;^DD(19707.17,.02,3)
;;=Answer must be 1-80 characters in length.
;;^DD(19707.17,.02,"DT")
;;=3050503
;;^DD(19707.17,.03,0)
;;=INTERNAL CODE^F^^0;3^K:$L(X)>14!($L(X)<1) X
;;^DD(19707.17,.03,3)
;;=Answer must be 1-14 characters in length.
;;^DD(19707.17,.03,"DT")
;;=3051114
;;^DD(19707.17,.04,0)
;;=EXTERNAL CODE^F^^0;4^K:$L(X)>16!($L(X)<1) X
;;^DD(19707.17,.04,3)
;;=Answer must be 1-16 characters in length.
;;^DD(19707.17,.04,"DT")
;;=3050304
;;^DD(19707.17,.05,0)
;;=START AGE^NJ8,2^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(19707.17,.05,3)
;;=Type a Number between 0 and 99999, 2 Decimal Digits
;;^DD(19707.17,.05,5,1,0)
;;=19707.17^.13^1
;;^DD(19707.17,.05,"DT")
;;=3050913
;;^DD(19707.17,.06,0)
;;=STOP AGE^NJ8,2^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."3N.N) X
;;^DD(19707.17,.06,3)
;;=Type a Number between 1 and 99999, 2 Decimal Digits
;;^DD(19707.17,.06,5,1,0)
;;=19707.17^.14^1
;;^DD(19707.17,.06,"DT")
;;=3050304
;;^DD(19707.17,.07,0)
;;=START WKS GESTATION^NJ2,0^^0;7^K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N) X
;;^DD(19707.17,.07,3)
;;=Type a Number between 1 and 40, 0 Decimal Digits
;;^DD(19707.17,.07,"DT")
;;=3050304
;;^DD(19707.17,.08,0)
;;=STOP WKS GESTATION^NJ2,0^^0;8^K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X
;;^DD(19707.17,.08,3)
;;=Type a Number between 1 and 50, 0 Decimal Digits
;;^DD(19707.17,.08,"DT")
;;=3050901
;;^DD(19707.17,.09,0)
;;=SCHEDULING INTERVAL^NJ8,2^^0;9^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."3N.N) X
;;^DD(19707.17,.09,3)
;;=Type a Number between 1 and 99999, 2 Decimal Digits
;;^DD(19707.17,.09,"DT")
;;=3050304
;;^DD(19707.17,.1,0)
;;=GENDER SCREEN^S^M:MALE;F:FEMALE;^0;10^Q
;;^DD(19707.17,.1,"DT")
;;=3050304
;;^DD(19707.17,.11,0)
;;=ACTIVE^S^1:NO;0:YES;^0;11^Q
;;^DD(19707.17,.11,"DT")
;;=3060131
;;^DD(19707.17,.12,0)
;;=MODIFIER TEXT^F^^0;12^K:$L(X)>60!($L(X)<1) X
;;^DD(19707.17,.12,3)
;;=Answer must be 1-60 characters in length.
;;^DD(19707.17,.12,"DT")
;;=3050309
;;^DD(19707.17,.13,0)
;;=EXTERNAL START AGE^NJ8,2^^0;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(19707.17,.13,1,0)
;;=^.1
;;^DD(19707.17,.13,1,1,0)
;;=^^TRIGGER^19707.17^.05
;;^DD(19707.17,.13,1,1,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$TRIG^VENPCCK(X,DA,1) X ^DD(19707.17,.13,1,1,1.4)
;;^DD(19707.17,.13,1,1,1.4)
;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.17,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(19707.17,.13,1,1,2)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(19707.17,.13,1,1,2.4)
;;^DD(19707.17,.13,1,1,2.4)
;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.17,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(19707.17,.13,1,1,"CREATE VALUE")
;;=S X=$$TRIG^VENPCCK(X,DA,1)
;;^DD(19707.17,.13,1,1,"DELETE VALUE")
;;=S X=""
;;^DD(19707.17,.13,1,1,"FIELD")
;;=START AGE
;;^DD(19707.17,.13,3)
;;=Type a Number between 0 and 99999, 2 Decimal Digits
;;^DD(19707.17,.13,"DT")
;;=3050309
;;^DD(19707.17,.14,0)
;;=EXTERNAL STOP AGE^NJ8,2^^0;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(19707.17,.14,1,0)
;;=^.1
;;^DD(19707.17,.14,1,1,0)
;;=^^TRIGGER^19707.17^.06
;;^DD(19707.17,.14,1,1,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$TRIG^VENPCCK(X,DA,2) X ^DD(19707.17,.14,1,1,1.4)
;;^DD(19707.17,.14,1,1,1.4)
;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=19707.17,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(19707.17,.14,1,1,2)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(19707.17,.14,1,1,2.4)
;;^DD(19707.17,.14,1,1,2.4)
;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=19707.17,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(19707.17,.14,1,1,"CREATE VALUE")
;;=S X=$$TRIG^VENPCCK(X,DA,2)
;;^DD(19707.17,.14,1,1,"DELETE VALUE")
;;=S X=""
;;^DD(19707.17,.14,1,1,"DT")
;;=3050309
;;^DD(19707.17,.14,1,1,"FIELD")
;;=STOP AGE
;;^DD(19707.17,.14,3)
;;=Type a Number between 0 and 99999, 2 Decimal Digits
;;^DD(19707.17,.14,"DT")
;;=3050309
;;^DD(19707.17,.15,0)
;;=ICD TAXONOMY^P9002226'^ATXAX(^0;15^Q
;;^DD(19707.17,.15,"DT")
;;=3050331
;;^DD(19707.17,.16,0)
;;=SORT LIST BY MODIFER VALUE^S^1:YES;0:NO;^0;16^Q
;;^DD(19707.17,.16,"DT")
;;=3051114
;;^DD(19707.17,1,0)
;;=SPECIAL SCREENING LOGIC (EP)^F^^1;E1,245^K:$L(X)>240!($L(X)<1) X
;;^DD(19707.17,1,3)
;;=Answer must be 1-240 characters in length.
;;^DD(19707.17,1,"DT")
;;=3050304
;;^DD(19707.17,2.01,0)
;;=REFERENCE IEN^NJ9,0^^2;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(19707.17,2.01,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(19707.17,2.01,21,0)
;;=^^4^4^3051118^^
;;^DD(19707.17,2.01,21,1,0)
;;=If the data element is stored in a V-File and the element itself
;;^DD(19707.17,2.01,21,2,0)
;;=is defined in a reference file (e.g., V MEASUREMENTS), this this
;;^DD(19707.17,2.01,21,3,0)
;;=field will contain the IEN if the entry in the reference file. The
;;^DD(19707.17,2.01,21,4,0)
;;=rest of the filing parameters are stored in VEN EHP KB CATEGORY.
;;^DD(19707.17,2.01,"DT")
;;=3051118
;;^DD(19707.17,2.02,0)
;;=CPT CODE^P81'^ICPT(^2;2^Q
;;^DD(19707.17,2.02,"DT")
;;=3051127
;;^DD(19707.17,2.03,0)
;;=EDUCATION TOPIC MNEMONIC^F^^2;3^K:$L(X)>12!($L(X)<1) X
;;^DD(19707.17,2.03,1,0)
;;=^.1
;;^DD(19707.17,2.03,1,1,0)
;;=19707.17^AC
;;^DD(19707.17,2.03,1,1,1)
;;=S ^VEN(7.17,"AC",$E(X,1,30),DA)=""
;;^DD(19707.17,2.03,1,1,2)
;;=K ^VEN(7.17,"AC",$E(X,1,30),DA)
;;^DD(19707.17,2.03,1,1,"DT")
;;=3060131
;;^DD(19707.17,2.03,1,2,0)
;;=^^TRIGGER^19707.17^2.06
;;^DD(19707.17,2.03,1,2,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,2)):^(2),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NAME^VENPCCKB(X) X ^DD(19707.17,2.03,1,2,1.4)
;;^DD(19707.17,2.03,1,2,1.4)
;;=S DIH=$S($D(^VEN(7.17,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,6)=DIV,DIH=19707.17,DIG=2.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(19707.17,2.03,1,2,2)
;;=Q
;;^DD(19707.17,2.03,1,2,"CREATE VALUE")
;;=S X=$$NAME^VENPCCKB(X)
;;^DD(19707.17,2.03,1,2,"DELETE VALUE")
;;=NO EFFECT
;;^DD(19707.17,2.03,1,2,"DT")
;;=3070625
;;^DD(19707.17,2.03,1,2,"FIELD")
;;=PT ED
;;^DD(19707.17,2.03,3)
;;=Answer must be 1-12 characters in length.
VEN8I001 ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ;
+1 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
+2 IF 'DIFQ(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 ;;^DIC(19707.17,0,"GL")
+2 ;;=^VEN(7.17,
+3 ;;^DIC("B","VEN EHP KB MASTER",19707.17)
+4 ;;=
+5 ;;^DIC(19707.17,"%D",0)
+6 ;;=^^2^2^3051118^^^^
+7 ;;^DIC(19707.17,"%D",1,0)
+8 ;;=Items can be guidelines, patient ed topics or clinical tasks.
+9 ;;^DIC(19707.17,"%D",2,0)
+10 ;;=Items are filtered by demographics, time and clinical hx
+11 ;;^DD(19707.17,0)
+12 ;;=FIELD^^2.06^23
+13 ;;^DD(19707.17,0,"IX","AC",19707.17,2.03)
+14 ;;=
+15 ;;^DD(19707.17,0,"IX","B",19707.17,.01)
+16 ;;=
+17 ;;^DD(19707.17,0,"IX","C",19707.17,.02)
+18 ;;=
+19 ;;^DD(19707.17,0,"NM","VEN EHP KB MASTER")
+20 ;;=
+21 ;;^DD(19707.17,.01,0)
+22 ;;=TYPE^RP19707.11'^VEN(7.11,^0;1^Q
+23 ;;^DD(19707.17,.01,1,0)
+24 ;;=^.1
+25 ;;^DD(19707.17,.01,1,1,0)
+26 ;;=19707.17^B
+27 ;;^DD(19707.17,.01,1,1,1)
+28 ;;=S ^VEN(7.17,"B",$E(X,1,30),DA)=""
+29 ;;^DD(19707.17,.01,1,1,2)
+30 ;;=K ^VEN(7.17,"B",$E(X,1,30),DA)
+31 ;;^DD(19707.17,.01,3)
+32 ;;=
+33 ;;^DD(19707.17,.01,"DT")
+34 ;;=3050304
+35 ;;^DD(19707.17,.02,0)
+36 ;;=TITLE^F^^0;2^K:$L(X)>80!($L(X)<1) X
+37 ;;^DD(19707.17,.02,1,0)
+38 ;;=^.1
+39 ;;^DD(19707.17,.02,1,1,0)
+40 ;;=19707.17^C
+41 ;;^DD(19707.17,.02,1,1,1)
+42 ;;=S ^VEN(7.17,"C",$E(X,1,30),DA)=""
+43 ;;^DD(19707.17,.02,1,1,2)
+44 ;;=K ^VEN(7.17,"C",$E(X,1,30),DA)
+45 ;;^DD(19707.17,.02,1,1,"DT")
+46 ;;=3050503
+47 ;;^DD(19707.17,.02,3)
+48 ;;=Answer must be 1-80 characters in length.
+49 ;;^DD(19707.17,.02,"DT")
+50 ;;=3050503
+51 ;;^DD(19707.17,.03,0)
+52 ;;=INTERNAL CODE^F^^0;3^K:$L(X)>14!($L(X)<1) X
+53 ;;^DD(19707.17,.03,3)
+54 ;;=Answer must be 1-14 characters in length.
+55 ;;^DD(19707.17,.03,"DT")
+56 ;;=3051114
+57 ;;^DD(19707.17,.04,0)
+58 ;;=EXTERNAL CODE^F^^0;4^K:$L(X)>16!($L(X)<1) X
+59 ;;^DD(19707.17,.04,3)
+60 ;;=Answer must be 1-16 characters in length.
+61 ;;^DD(19707.17,.04,"DT")
+62 ;;=3050304
+63 ;;^DD(19707.17,.05,0)
+64 ;;=START AGE^NJ8,2^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
+65 ;;^DD(19707.17,.05,3)
+66 ;;=Type a Number between 0 and 99999, 2 Decimal Digits
+67 ;;^DD(19707.17,.05,5,1,0)
+68 ;;=19707.17^.13^1
+69 ;;^DD(19707.17,.05,"DT")
+70 ;;=3050913
+71 ;;^DD(19707.17,.06,0)
+72 ;;=STOP AGE^NJ8,2^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."3N.N) X
+73 ;;^DD(19707.17,.06,3)
+74 ;;=Type a Number between 1 and 99999, 2 Decimal Digits
+75 ;;^DD(19707.17,.06,5,1,0)
+76 ;;=19707.17^.14^1
+77 ;;^DD(19707.17,.06,"DT")
+78 ;;=3050304
+79 ;;^DD(19707.17,.07,0)
+80 ;;=START WKS GESTATION^NJ2,0^^0;7^K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N) X
+81 ;;^DD(19707.17,.07,3)
+82 ;;=Type a Number between 1 and 40, 0 Decimal Digits
+83 ;;^DD(19707.17,.07,"DT")
+84 ;;=3050304
+85 ;;^DD(19707.17,.08,0)
+86 ;;=STOP WKS GESTATION^NJ2,0^^0;8^K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X
+87 ;;^DD(19707.17,.08,3)
+88 ;;=Type a Number between 1 and 50, 0 Decimal Digits
+89 ;;^DD(19707.17,.08,"DT")
+90 ;;=3050901
+91 ;;^DD(19707.17,.09,0)
+92 ;;=SCHEDULING INTERVAL^NJ8,2^^0;9^K:+X'=X!(X>99999)!(X<1)!(X?.E1"."3N.N) X
+93 ;;^DD(19707.17,.09,3)
+94 ;;=Type a Number between 1 and 99999, 2 Decimal Digits
+95 ;;^DD(19707.17,.09,"DT")
+96 ;;=3050304
+97 ;;^DD(19707.17,.1,0)
+98 ;;=GENDER SCREEN^S^M:MALE;F:FEMALE;^0;10^Q
+99 ;;^DD(19707.17,.1,"DT")
+100 ;;=3050304
+101 ;;^DD(19707.17,.11,0)
+102 ;;=ACTIVE^S^1:NO;0:YES;^0;11^Q
+103 ;;^DD(19707.17,.11,"DT")
+104 ;;=3060131
+105 ;;^DD(19707.17,.12,0)
+106 ;;=MODIFIER TEXT^F^^0;12^K:$L(X)>60!($L(X)<1) X
+107 ;;^DD(19707.17,.12,3)
+108 ;;=Answer must be 1-60 characters in length.
+109 ;;^DD(19707.17,.12,"DT")
+110 ;;=3050309
+111 ;;^DD(19707.17,.13,0)
+112 ;;=EXTERNAL START AGE^NJ8,2^^0;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
+113 ;;^DD(19707.17,.13,1,0)
+114 ;;=^.1
+115 ;;^DD(19707.17,.13,1,1,0)
+116 ;;=^^TRIGGER^19707.17^.05
+117 ;;^DD(19707.17,.13,1,1,1)
+118 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$TRIG^VENPCCK(X,DA,1) X ^DD(19707.17,.13,1,1,1.4)
+119 ;;^DD(19707.17,.13,1,1,1.4)
+120 ;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.17,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+121 ;;^DD(19707.17,.13,1,1,2)
+122 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(19707.17,.13,1,1,2.4)
+123 ;;^DD(19707.17,.13,1,1,2.4)
+124 ;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.17,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+125 ;;^DD(19707.17,.13,1,1,"CREATE VALUE")
+126 ;;=S X=$$TRIG^VENPCCK(X,DA,1)
+127 ;;^DD(19707.17,.13,1,1,"DELETE VALUE")
+128 ;;=S X=""
+129 ;;^DD(19707.17,.13,1,1,"FIELD")
+130 ;;=START AGE
+131 ;;^DD(19707.17,.13,3)
+132 ;;=Type a Number between 0 and 99999, 2 Decimal Digits
+133 ;;^DD(19707.17,.13,"DT")
+134 ;;=3050309
+135 ;;^DD(19707.17,.14,0)
+136 ;;=EXTERNAL STOP AGE^NJ8,2^^0;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
+137 ;;^DD(19707.17,.14,1,0)
+138 ;;=^.1
+139 ;;^DD(19707.17,.14,1,1,0)
+140 ;;=^^TRIGGER^19707.17^.06
+141 ;;^DD(19707.17,.14,1,1,1)
+142 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$TRIG^VENPCCK(X,DA,2) X ^DD(19707.17,.14,1,1,1.4)
+143 ;;^DD(19707.17,.14,1,1,1.4)
+144 ;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=19707.17,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+145 ;;^DD(19707.17,.14,1,1,2)
+146 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(19707.17,.14,1,1,2.4)
+147 ;;^DD(19707.17,.14,1,1,2.4)
+148 ;;=S DIH=$S($D(^VEN(7.17,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=19707.17,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+149 ;;^DD(19707.17,.14,1,1,"CREATE VALUE")
+150 ;;=S X=$$TRIG^VENPCCK(X,DA,2)
+151 ;;^DD(19707.17,.14,1,1,"DELETE VALUE")
+152 ;;=S X=""
+153 ;;^DD(19707.17,.14,1,1,"DT")
+154 ;;=3050309
+155 ;;^DD(19707.17,.14,1,1,"FIELD")
+156 ;;=STOP AGE
+157 ;;^DD(19707.17,.14,3)
+158 ;;=Type a Number between 0 and 99999, 2 Decimal Digits
+159 ;;^DD(19707.17,.14,"DT")
+160 ;;=3050309
+161 ;;^DD(19707.17,.15,0)
+162 ;;=ICD TAXONOMY^P9002226'^ATXAX(^0;15^Q
+163 ;;^DD(19707.17,.15,"DT")
+164 ;;=3050331
+165 ;;^DD(19707.17,.16,0)
+166 ;;=SORT LIST BY MODIFER VALUE^S^1:YES;0:NO;^0;16^Q
+167 ;;^DD(19707.17,.16,"DT")
+168 ;;=3051114
+169 ;;^DD(19707.17,1,0)
+170 ;;=SPECIAL SCREENING LOGIC (EP)^F^^1;E1,245^K:$L(X)>240!($L(X)<1) X
+171 ;;^DD(19707.17,1,3)
+172 ;;=Answer must be 1-240 characters in length.
+173 ;;^DD(19707.17,1,"DT")
+174 ;;=3050304
+175 ;;^DD(19707.17,2.01,0)
+176 ;;=REFERENCE IEN^NJ9,0^^2;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+177 ;;^DD(19707.17,2.01,3)
+178 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+179 ;;^DD(19707.17,2.01,21,0)
+180 ;;=^^4^4^3051118^^
+181 ;;^DD(19707.17,2.01,21,1,0)
+182 ;;=If the data element is stored in a V-File and the element itself
+183 ;;^DD(19707.17,2.01,21,2,0)
+184 ;;=is defined in a reference file (e.g., V MEASUREMENTS), this this
+185 ;;^DD(19707.17,2.01,21,3,0)
+186 ;;=field will contain the IEN if the entry in the reference file. The
+187 ;;^DD(19707.17,2.01,21,4,0)
+188 ;;=rest of the filing parameters are stored in VEN EHP KB CATEGORY.
+189 ;;^DD(19707.17,2.01,"DT")
+190 ;;=3051118
+191 ;;^DD(19707.17,2.02,0)
+192 ;;=CPT CODE^P81'^ICPT(^2;2^Q
+193 ;;^DD(19707.17,2.02,"DT")
+194 ;;=3051127
+195 ;;^DD(19707.17,2.03,0)
+196 ;;=EDUCATION TOPIC MNEMONIC^F^^2;3^K:$L(X)>12!($L(X)<1) X
+197 ;;^DD(19707.17,2.03,1,0)
+198 ;;=^.1
+199 ;;^DD(19707.17,2.03,1,1,0)
+200 ;;=19707.17^AC
+201 ;;^DD(19707.17,2.03,1,1,1)
+202 ;;=S ^VEN(7.17,"AC",$E(X,1,30),DA)=""
+203 ;;^DD(19707.17,2.03,1,1,2)
+204 ;;=K ^VEN(7.17,"AC",$E(X,1,30),DA)
+205 ;;^DD(19707.17,2.03,1,1,"DT")
+206 ;;=3060131
+207 ;;^DD(19707.17,2.03,1,2,0)
+208 ;;=^^TRIGGER^19707.17^2.06
+209 ;;^DD(19707.17,2.03,1,2,1)
+210 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.17,D0,2)):^(2),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NAME^VENPCCKB(X) X ^DD(19707.17,2.03,1,2,1.4)
+211 ;;^DD(19707.17,2.03,1,2,1.4)
+212 ;;=S DIH=$S($D(^VEN(7.17,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,6)=DIV,DIH=19707.17,DIG=2.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+213 ;;^DD(19707.17,2.03,1,2,2)
+214 ;;=Q
+215 ;;^DD(19707.17,2.03,1,2,"CREATE VALUE")
+216 ;;=S X=$$NAME^VENPCCKB(X)
+217 ;;^DD(19707.17,2.03,1,2,"DELETE VALUE")
+218 ;;=NO EFFECT
+219 ;;^DD(19707.17,2.03,1,2,"DT")
+220 ;;=3070625
+221 ;;^DD(19707.17,2.03,1,2,"FIELD")
+222 ;;=PT ED
+223 ;;^DD(19707.17,2.03,3)
+224 ;;=Answer must be 1-12 characters in length.
