VENKI001 ; ; 16-MAR-2007
;;2.6;PCC+;;NOV 12, 2007
Q:'DIFQ(19707.11) 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.11,0,"GL")
;;=^VEN(7.11,
;;^DIC("B","VEN EHP KB CATEGORY",19707.11)
;;=
;;^DIC(19707.11,"%D",0)
;;=^^1^1^3050509^^^^
;;^DIC(19707.11,"%D",1,0)
;;=KNOWLEDGEBASE CATEGORY. Ea. category can have multiple items.
;;^DD(19707.11,0)
;;=FIELD^^5.02^22
;;^DD(19707.11,0,"DDA")
;;=N
;;^DD(19707.11,0,"DT")
;;=3051227
;;^DD(19707.11,0,"IX","B",19707.11,.01)
;;=
;;^DD(19707.11,0,"NM","VEN EHP KB CATEGORY")
;;=
;;^DD(19707.11,0,"PT",19707.12,.01)
;;=
;;^DD(19707.11,0,"PT",19707.131,.01)
;;=
;;^DD(19707.11,0,"PT",19707.41,.19)
;;=
;;^DD(19707.11,0,"PT",19707.4116,.01)
;;=
;;^DD(19707.11,0,"VRPK")
;;=PCC+A
;;^DD(19707.11,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
;;^DD(19707.11,.01,1,0)
;;=^.1
;;^DD(19707.11,.01,1,1,0)
;;=19707.11^B
;;^DD(19707.11,.01,1,1,1)
;;=S ^VEN(7.11,"B",$E(X,1,30),DA)=""
;;^DD(19707.11,.01,1,1,2)
;;=K ^VEN(7.11,"B",$E(X,1,30),DA)
;;^DD(19707.11,.01,3)
;;=Answer must be 3-40 characters in length.
;;^DD(19707.11,.01,"DT")
;;=3050914
;;^DD(19707.11,.02,0)
;;=MNEMONIC^F^^0;2^K:$L(X)>5!($L(X)<1) X
;;^DD(19707.11,.02,3)
;;=Answer must be 1-5 characters in length.
;;^DD(19707.11,.02,"DT")
;;=3050304
;;^DD(19707.11,.03,0)
;;=USE EXTERNAL CODE^S^1:YES;0:NO;^0;3^Q
;;^DD(19707.11,.03,"DT")
;;=3050304
;;^DD(19707.11,.04,0)
;;=ASK IF ACTIVE^S^1:YES;0:NO;^0;4^Q
;;^DD(19707.11,.04,"DT")
;;=3050304
;;^DD(19707.11,.05,0)
;;=SCREEN BY AGE RANGE^S^1:YES;0:NO;^0;5^Q
;;^DD(19707.11,.05,"DT")
;;=3050304
;;^DD(19707.11,.06,0)
;;=SCREEN BY WKS GESTATION^S^1:YES;0:NO;^0;6^Q
;;^DD(19707.11,.06,"DT")
;;=3050304
;;^DD(19707.11,.07,0)
;;=SCREEN BY TIME SINCE LAST^S^1:YES;0:NO;^0;7^Q
;;^DD(19707.11,.07,"DT")
;;=3050304
;;^DD(19707.11,.08,0)
;;=SCREEN BY GENDER^S^1:YES;0:NO;^0;8^Q
;;^DD(19707.11,.08,"DT")
;;=3050304
;;^DD(19707.11,.09,0)
;;=COLUMN HEADER^F^^0;9^K:$L(X)>60!($L(X)<1) X
;;^DD(19707.11,.09,3)
;;=Answer must be 1-60 characters in length.
;;^DD(19707.11,.09,"DT")
;;=3050913
;;^DD(19707.11,.1,0)
;;=TIME UNITS^S^D:DAY;W:WEEK;M:MONTH;Y:YEAR;^0;10^Q
;;^DD(19707.11,.1,"DT")
;;=3050308
;;^DD(19707.11,.11,0)
;;=TYPE^S^1:PATIENT ED;2:DEVEL EXAM;3:SPECIAL RISK SCREENING;4:PHYSICAL EXAM;5:TESTS AND MEASUREMENTS;6:NUTRITION;7:BEHAVIORAL HEALTH SCREENING;8:GENERAL HEALTH SCREENING;^0;11^Q
;;^DD(19707.11,.11,"DT")
;;=3051227
;;^DD(19707.11,.12,0)
;;=PATIENT ED CODE GROUP^F^^0;12^K:$L(X)>6!($L(X)<1) X
;;^DD(19707.11,.12,3)
;;=Answer must be 1-6 characters in length.
;;^DD(19707.11,.12,"DT")
;;=3051128
;;^DD(19707.11,.13,0)
;;=PT ED TOPIC MNEMONIC^F^^0;13^K:$L(X)>6!($L(X)<1) X
;;^DD(19707.11,.13,3)
;;=Answer must be 1-6 characters in length.
;;^DD(19707.11,.13,"DT")
;;=3051128
;;^DD(19707.11,1,0)
;;=SCREEN BY CUSTOM LOGIC (EP)^F^^1;E1,245^K:$L(X)>240!($L(X)<1) X
;;^DD(19707.11,1,3)
;;=Answer must be 1-240 characters in length.
;;^DD(19707.11,1,"DT")
;;=3050304
;;^DD(19707.11,2,0)
;;=DESCRIPTION^19707.112^^2;0
;;^DD(19707.11,3,0)
;;=RPC CALL^F^^3;E1,245^K:$L(X)>240!($L(X)<1) X
;;^DD(19707.11,3,3)
;;=Answer must be 1-240 characters in length.
;;^DD(19707.11,3,"DT")
;;=3050304
;;^DD(19707.11,4.01,0)
;;=V FILE^P1'^DIC(^4;1^Q
;;^DD(19707.11,4.01,"DT")
;;=3051118
;;^DD(19707.11,4.02,0)
;;=ITEM FIELD^NJ16,6^^4;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
;;^DD(19707.11,4.02,3)
;;=Type a Number between 0 and 999999999, 6 Decimal Digits
;;^DD(19707.11,4.02,"DT")
;;=3051118
;;^DD(19707.11,4.03,0)
;;=REFERENCE FILE^P1'^DIC(^4;3^Q
;;^DD(19707.11,4.03,"DT")
;;=3051118
;;^DD(19707.11,4.04,0)
;;=RESULT FIELD^NJ16,6^^4;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
;;^DD(19707.11,4.04,3)
;;=Type a Number between 0 and 999999999, 6 Decimal Digits
;;^DD(19707.11,4.04,21,0)
;;=^^2^2^3051118^
;;^DD(19707.11,4.04,21,1,0)
;;=If the item has a result, this is the field number is the V-File
;;^DD(19707.11,4.04,21,2,0)
;;=(or V-File subfile) that contains the result.
;;^DD(19707.11,4.04,"DT")
;;=3051118
;;^DD(19707.11,5.01,0)
;;=SECONDARY V FILE^P1'^DIC(^5;1^Q
;;^DD(19707.11,5.01,3)
;;=
;;^DD(19707.11,5.01,"DT")
;;=3051130
;;^DD(19707.11,5.02,0)
;;=SECONDARY FIELD^NJ16,6^^5;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
;;^DD(19707.11,5.02,3)
;;=Type a Number between 0 and 999999999, 6 Decimal Digits
;;^DD(19707.11,5.02,"DT")
;;=3051125
;;^DD(19707.112,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(19707.112,0,"DT")
;;=3050304
;;^DD(19707.112,0,"NM","DESCRIPTION")
;;=
;;^DD(19707.112,0,"UP")
;;=19707.11
;;^DD(19707.112,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DD(19707.112,.01,"DT")
;;=3050304
VENKI001 ; ; 16-MAR-2007
+1 ;;2.6;PCC+;;NOV 12, 2007
+2 IF 'DIFQ(19707.11)
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.11,0,"GL")
+2 ;;=^VEN(7.11,
+3 ;;^DIC("B","VEN EHP KB CATEGORY",19707.11)
+4 ;;=
+5 ;;^DIC(19707.11,"%D",0)
+6 ;;=^^1^1^3050509^^^^
+7 ;;^DIC(19707.11,"%D",1,0)
+8 ;;=KNOWLEDGEBASE CATEGORY. Ea. category can have multiple items.
+9 ;;^DD(19707.11,0)
+10 ;;=FIELD^^5.02^22
+11 ;;^DD(19707.11,0,"DDA")
+12 ;;=N
+13 ;;^DD(19707.11,0,"DT")
+14 ;;=3051227
+15 ;;^DD(19707.11,0,"IX","B",19707.11,.01)
+16 ;;=
+17 ;;^DD(19707.11,0,"NM","VEN EHP KB CATEGORY")
+18 ;;=
+19 ;;^DD(19707.11,0,"PT",19707.12,.01)
+20 ;;=
+21 ;;^DD(19707.11,0,"PT",19707.131,.01)
+22 ;;=
+23 ;;^DD(19707.11,0,"PT",19707.41,.19)
+24 ;;=
+25 ;;^DD(19707.11,0,"PT",19707.4116,.01)
+26 ;;=
+27 ;;^DD(19707.11,0,"VRPK")
+28 ;;=PCC+A
+29 ;;^DD(19707.11,.01,0)
+30 ;;=NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
+31 ;;^DD(19707.11,.01,1,0)
+32 ;;=^.1
+33 ;;^DD(19707.11,.01,1,1,0)
+34 ;;=19707.11^B
+35 ;;^DD(19707.11,.01,1,1,1)
+36 ;;=S ^VEN(7.11,"B",$E(X,1,30),DA)=""
+37 ;;^DD(19707.11,.01,1,1,2)
+38 ;;=K ^VEN(7.11,"B",$E(X,1,30),DA)
+39 ;;^DD(19707.11,.01,3)
+40 ;;=Answer must be 3-40 characters in length.
+41 ;;^DD(19707.11,.01,"DT")
+42 ;;=3050914
+43 ;;^DD(19707.11,.02,0)
+44 ;;=MNEMONIC^F^^0;2^K:$L(X)>5!($L(X)<1) X
+45 ;;^DD(19707.11,.02,3)
+46 ;;=Answer must be 1-5 characters in length.
+47 ;;^DD(19707.11,.02,"DT")
+48 ;;=3050304
+49 ;;^DD(19707.11,.03,0)
+50 ;;=USE EXTERNAL CODE^S^1:YES;0:NO;^0;3^Q
+51 ;;^DD(19707.11,.03,"DT")
+52 ;;=3050304
+53 ;;^DD(19707.11,.04,0)
+54 ;;=ASK IF ACTIVE^S^1:YES;0:NO;^0;4^Q
+55 ;;^DD(19707.11,.04,"DT")
+56 ;;=3050304
+57 ;;^DD(19707.11,.05,0)
+58 ;;=SCREEN BY AGE RANGE^S^1:YES;0:NO;^0;5^Q
+59 ;;^DD(19707.11,.05,"DT")
+60 ;;=3050304
+61 ;;^DD(19707.11,.06,0)
+62 ;;=SCREEN BY WKS GESTATION^S^1:YES;0:NO;^0;6^Q
+63 ;;^DD(19707.11,.06,"DT")
+64 ;;=3050304
+65 ;;^DD(19707.11,.07,0)
+66 ;;=SCREEN BY TIME SINCE LAST^S^1:YES;0:NO;^0;7^Q
+67 ;;^DD(19707.11,.07,"DT")
+68 ;;=3050304
+69 ;;^DD(19707.11,.08,0)
+70 ;;=SCREEN BY GENDER^S^1:YES;0:NO;^0;8^Q
+71 ;;^DD(19707.11,.08,"DT")
+72 ;;=3050304
+73 ;;^DD(19707.11,.09,0)
+74 ;;=COLUMN HEADER^F^^0;9^K:$L(X)>60!($L(X)<1) X
+75 ;;^DD(19707.11,.09,3)
+76 ;;=Answer must be 1-60 characters in length.
+77 ;;^DD(19707.11,.09,"DT")
+78 ;;=3050913
+79 ;;^DD(19707.11,.1,0)
+80 ;;=TIME UNITS^S^D:DAY;W:WEEK;M:MONTH;Y:YEAR;^0;10^Q
+81 ;;^DD(19707.11,.1,"DT")
+82 ;;=3050308
+83 ;;^DD(19707.11,.11,0)
+84 ;;=TYPE^S^1:PATIENT ED;2:DEVEL EXAM;3:SPECIAL RISK SCREENING;4:PHYSICAL EXAM;5:TESTS AND MEASUREMENTS;6:NUTRITION;7:BEHAVIORAL HEALTH SCREENING;8:GENERAL HEALTH SCREENING;^0;11^Q
+85 ;;^DD(19707.11,.11,"DT")
+86 ;;=3051227
+87 ;;^DD(19707.11,.12,0)
+88 ;;=PATIENT ED CODE GROUP^F^^0;12^K:$L(X)>6!($L(X)<1) X
+89 ;;^DD(19707.11,.12,3)
+90 ;;=Answer must be 1-6 characters in length.
+91 ;;^DD(19707.11,.12,"DT")
+92 ;;=3051128
+93 ;;^DD(19707.11,.13,0)
+94 ;;=PT ED TOPIC MNEMONIC^F^^0;13^K:$L(X)>6!($L(X)<1) X
+95 ;;^DD(19707.11,.13,3)
+96 ;;=Answer must be 1-6 characters in length.
+97 ;;^DD(19707.11,.13,"DT")
+98 ;;=3051128
+99 ;;^DD(19707.11,1,0)
+100 ;;=SCREEN BY CUSTOM LOGIC (EP)^F^^1;E1,245^K:$L(X)>240!($L(X)<1) X
+101 ;;^DD(19707.11,1,3)
+102 ;;=Answer must be 1-240 characters in length.
+103 ;;^DD(19707.11,1,"DT")
+104 ;;=3050304
+105 ;;^DD(19707.11,2,0)
+106 ;;=DESCRIPTION^19707.112^^2;0
+107 ;;^DD(19707.11,3,0)
+108 ;;=RPC CALL^F^^3;E1,245^K:$L(X)>240!($L(X)<1) X
+109 ;;^DD(19707.11,3,3)
+110 ;;=Answer must be 1-240 characters in length.
+111 ;;^DD(19707.11,3,"DT")
+112 ;;=3050304
+113 ;;^DD(19707.11,4.01,0)
+114 ;;=V FILE^P1'^DIC(^4;1^Q
+115 ;;^DD(19707.11,4.01,"DT")
+116 ;;=3051118
+117 ;;^DD(19707.11,4.02,0)
+118 ;;=ITEM FIELD^NJ16,6^^4;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
+119 ;;^DD(19707.11,4.02,3)
+120 ;;=Type a Number between 0 and 999999999, 6 Decimal Digits
+121 ;;^DD(19707.11,4.02,"DT")
+122 ;;=3051118
+123 ;;^DD(19707.11,4.03,0)
+124 ;;=REFERENCE FILE^P1'^DIC(^4;3^Q
+125 ;;^DD(19707.11,4.03,"DT")
+126 ;;=3051118
+127 ;;^DD(19707.11,4.04,0)
+128 ;;=RESULT FIELD^NJ16,6^^4;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
+129 ;;^DD(19707.11,4.04,3)
+130 ;;=Type a Number between 0 and 999999999, 6 Decimal Digits
+131 ;;^DD(19707.11,4.04,21,0)
+132 ;;=^^2^2^3051118^
+133 ;;^DD(19707.11,4.04,21,1,0)
+134 ;;=If the item has a result, this is the field number is the V-File
+135 ;;^DD(19707.11,4.04,21,2,0)
+136 ;;=(or V-File subfile) that contains the result.
+137 ;;^DD(19707.11,4.04,"DT")
+138 ;;=3051118
+139 ;;^DD(19707.11,5.01,0)
+140 ;;=SECONDARY V FILE^P1'^DIC(^5;1^Q
+141 ;;^DD(19707.11,5.01,3)
+142 ;;=
+143 ;;^DD(19707.11,5.01,"DT")
+144 ;;=3051130
+145 ;;^DD(19707.11,5.02,0)
+146 ;;=SECONDARY FIELD^NJ16,6^^5;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X
+147 ;;^DD(19707.11,5.02,3)
+148 ;;=Type a Number between 0 and 999999999, 6 Decimal Digits
+149 ;;^DD(19707.11,5.02,"DT")
+150 ;;=3051125
+151 ;;^DD(19707.112,0)
+152 ;;=DESCRIPTION SUB-FIELD^^.01^1
+153 ;;^DD(19707.112,0,"DT")
+154 ;;=3050304
+155 ;;^DD(19707.112,0,"NM","DESCRIPTION")
+156 ;;=
+157 ;;^DD(19707.112,0,"UP")
+158 ;;=19707.11
+159 ;;^DD(19707.112,.01,0)
+160 ;;=DESCRIPTION^W^^0;1^Q
+161 ;;^DD(19707.112,.01,"DT")
+162 ;;=3050304
