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