VENMI003 ; ; 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
;;^DD(9000010.46,80102,23,7,0)
;;=automatically used if the filing logic finds the data has been edited. If
;;^DD(9000010.46,80102,23,8,0)
;;="E" is used, then the Edited Flag field is automatically set to 1.
;;^DD(9000010.46,80102,23,9,0)
;;=
;;^DD(9000010.46,80102,23,10,0)
;;=The DUZ is stored in its internal format to represent the user who
;;^DD(9000010.46,80102,23,11,0)
;;=performed the addition or editing of data for this record.
;;^DD(9000010.46,80102,23,12,0)
;;=
;;^DD(9000010.46,80102,23,13,0)
;;=Iterations of editing will be concatenated to the previous Data Source
;;^DD(9000010.46,80102,23,14,0)
;;=value, up to 85 characters.
;;^DD(9000010.46,80102,23,15,0)
;;=
;;^DD(9000010.46,80102,"DT")
;;=2960509
;;^DD(9000010.46,81101,0)
;;=COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X
;;^DD(9000010.46,81101,3)
;;=Enter a comment 1-245 characters in length.
;;^DD(9000010.46,81101,21,0)
;;=^^2^2^2950901^
;;^DD(9000010.46,81101,21,1,0)
;;=This is a comment related to the patient's exam. The provider may enter this
;;^DD(9000010.46,81101,21,2,0)
;;=manually via the PCE User Interface.
;;^DD(9000010.46,81101,"DT")
;;=2950711
;;^DD(9000010.46,81201,0)
;;=VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
;;^DD(9000010.46,81201,"DT")
;;=2960509
;;^DD(9000010.46,81202,0)
;;=PACKAGE^P9.4'I^DIC(9.4,^812;2^Q
;;^DD(9000010.46,81202,"DT")
;;=2960509
;;^DD(9000010.46,81203,0)
;;=DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q
;;^DD(9000010.46,81203,"DT")
;;=2960509
;;^DD(9000010.461,0)
;;=ANTICIPATORY GUIDANCE TOPICS SUB-FIELD^^.01^1
;;^DD(9000010.461,0,"DT")
;;=3051007
;;^DD(9000010.461,0,"IX","B",9000010.461,.01)
;;=
;;^DD(9000010.461,0,"NM","ANTICIPATORY GUIDANCE TOPICS")
;;=
;;^DD(9000010.461,0,"UP")
;;=9000010.46
;;^DD(9000010.461,.01,0)
;;=ANTICIPATORY GUIDANCE TOPICS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.461,.01,1,0)
;;=^.1
;;^DD(9000010.461,.01,1,1,0)
;;=9000010.461^B
;;^DD(9000010.461,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),1,"B",$E(X,1,30),DA)=""
;;^DD(9000010.461,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),1,"B",$E(X,1,30),DA)
;;^DD(9000010.461,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.461,.01,"DT")
;;=3051007
;;^DD(9000010.464,0)
;;=SPECIAL RISK SCREEN SUB-FIELD^^.02^2
;;^DD(9000010.464,0,"DT")
;;=3051226
;;^DD(9000010.464,0,"IX","B",9000010.464,.01)
;;=
;;^DD(9000010.464,0,"NM","SPECIAL RISK SCREEN")
;;=
;;^DD(9000010.464,0,"UP")
;;=9000010.46
;;^DD(9000010.464,.01,0)
;;=SPECIAL SCREENING EXAMS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.464,.01,1,0)
;;=^.1
;;^DD(9000010.464,.01,1,1,0)
;;=9000010.464^B
;;^DD(9000010.464,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),4,"B",$E(X,1,30),DA)=""
;;^DD(9000010.464,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),4,"B",$E(X,1,30),DA)
;;^DD(9000010.464,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.464,.01,"DT")
;;=3051007
;;^DD(9000010.464,.02,0)
;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
;;^DD(9000010.464,.02,"DT")
;;=3051226
;;^DD(9000010.465,0)
;;=NUTRITION TOPICS SUB-FIELD^^.01^1
;;^DD(9000010.465,0,"DT")
;;=3051007
;;^DD(9000010.465,0,"IX","B",9000010.465,.01)
;;=
;;^DD(9000010.465,0,"NM","NUTRITION TOPICS")
;;=
;;^DD(9000010.465,0,"UP")
;;=9000010.46
;;^DD(9000010.465,.01,0)
;;=NUTRITION TOPICS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.465,.01,1,0)
;;=^.1
;;^DD(9000010.465,.01,1,1,0)
;;=9000010.465^B
;;^DD(9000010.465,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),5,"B",$E(X,1,30),DA)=""
;;^DD(9000010.465,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),5,"B",$E(X,1,30),DA)
;;^DD(9000010.465,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.465,.01,"DT")
;;=3051007
;;^DD(9000010.466,0)
;;=AGE SPECIFIC PHYSICAL EXAM SUB-FIELD^^.02^2
;;^DD(9000010.466,0,"DT")
;;=3051226
;;^DD(9000010.466,0,"IX","B",9000010.466,.01)
;;=
;;^DD(9000010.466,0,"NM","AGE SPECIFIC PHYSICAL EXAM")
;;=
;;^DD(9000010.466,0,"UP")
;;=9000010.46
;;^DD(9000010.466,.01,0)
;;=AGE-SPECIFIC PHYSICAL EXAM^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.466,.01,1,0)
;;=^.1
;;^DD(9000010.466,.01,1,1,0)
;;=9000010.466^B
;;^DD(9000010.466,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),6,"B",$E(X,1,30),DA)=""
;;^DD(9000010.466,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),6,"B",$E(X,1,30),DA)
;;^DD(9000010.466,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.466,.01,"DT")
;;=3051226
;;^DD(9000010.466,.02,0)
;;=RESULT^S^A:ABNORMAL;N:NORMAL;^0;2^Q
;;^DD(9000010.466,.02,"DT")
;;=3051226
;;^DD(9000010.467,0)
;;=BEHAVIORAL HEALTH SCREEN SUB-FIELD^^.02^2
;;^DD(9000010.467,0,"DT")
;;=3051226
;;^DD(9000010.467,0,"IX","B",9000010.467,.01)
;;=
;;^DD(9000010.467,0,"NM","BEHAVIORAL HEALTH SCREEN")
;;=
;;^DD(9000010.467,0,"UP")
;;=9000010.46
;;^DD(9000010.467,.01,0)
;;=BEHAVIORAL HEALTH SCREEN^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.467,.01,1,0)
;;=^.1
;;^DD(9000010.467,.01,1,1,0)
;;=9000010.467^B
;;^DD(9000010.467,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),7,"B",$E(X,1,30),DA)=""
;;^DD(9000010.467,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),7,"B",$E(X,1,30),DA)
;;^DD(9000010.467,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.467,.01,21,0)
;;=^^1^1^3051226^
;;^DD(9000010.467,.01,21,1,0)
;;=Age specific behavioral health screening items
;;^DD(9000010.467,.01,"DT")
;;=3051226
;;^DD(9000010.467,.02,0)
;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
;;^DD(9000010.467,.02,"DT")
;;=3051226
;;^DD(9000010.468,0)
;;=GENERAL HEALTH SCREEN SUB-FIELD^^.02^2
;;^DD(9000010.468,0,"DT")
;;=3051227
;;^DD(9000010.468,0,"IX","B",9000010.468,.01)
;;=
;;^DD(9000010.468,0,"NM","GENERAL HEALTH SCREEN")
;;=
;;^DD(9000010.468,0,"UP")
;;=9000010.46
;;^DD(9000010.468,.01,0)
;;=GENERAL HEALTH SCREEN^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.468,.01,1,0)
;;=^.1
;;^DD(9000010.468,.01,1,1,0)
;;=9000010.468^B
;;^DD(9000010.468,.01,1,1,1)
;;=S ^AUPNVWC(DA(1),8,"B",$E(X,1,30),DA)=""
;;^DD(9000010.468,.01,1,1,2)
;;=K ^AUPNVWC(DA(1),8,"B",$E(X,1,30),DA)
;;^DD(9000010.468,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.468,.01,21,0)
;;=^^1^1^3051227^
;;^DD(9000010.468,.01,21,1,0)
;;=NATL STANDARDS FOR GENERAL HEALTH SCREENING BEYOND THE PHYSICAL EXAM
;;^DD(9000010.468,.01,"DT")
;;=3051227
;;^DD(9000010.468,.02,0)
;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
;;^DD(9000010.468,.02,"DT")
;;=3051227
VENMI003 ; ; 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 ;;^DD(9000010.46,80102,23,7,0)
+2 ;;=automatically used if the filing logic finds the data has been edited. If
+3 ;;^DD(9000010.46,80102,23,8,0)
+4 ;;="E" is used, then the Edited Flag field is automatically set to 1.
+5 ;;^DD(9000010.46,80102,23,9,0)
+6 ;;=
+7 ;;^DD(9000010.46,80102,23,10,0)
+8 ;;=The DUZ is stored in its internal format to represent the user who
+9 ;;^DD(9000010.46,80102,23,11,0)
+10 ;;=performed the addition or editing of data for this record.
+11 ;;^DD(9000010.46,80102,23,12,0)
+12 ;;=
+13 ;;^DD(9000010.46,80102,23,13,0)
+14 ;;=Iterations of editing will be concatenated to the previous Data Source
+15 ;;^DD(9000010.46,80102,23,14,0)
+16 ;;=value, up to 85 characters.
+17 ;;^DD(9000010.46,80102,23,15,0)
+18 ;;=
+19 ;;^DD(9000010.46,80102,"DT")
+20 ;;=2960509
+21 ;;^DD(9000010.46,81101,0)
+22 ;;=COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X
+23 ;;^DD(9000010.46,81101,3)
+24 ;;=Enter a comment 1-245 characters in length.
+25 ;;^DD(9000010.46,81101,21,0)
+26 ;;=^^2^2^2950901^
+27 ;;^DD(9000010.46,81101,21,1,0)
+28 ;;=This is a comment related to the patient's exam. The provider may enter this
+29 ;;^DD(9000010.46,81101,21,2,0)
+30 ;;=manually via the PCE User Interface.
+31 ;;^DD(9000010.46,81101,"DT")
+32 ;;=2950711
+33 ;;^DD(9000010.46,81201,0)
+34 ;;=VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
+35 ;;^DD(9000010.46,81201,"DT")
+36 ;;=2960509
+37 ;;^DD(9000010.46,81202,0)
+38 ;;=PACKAGE^P9.4'I^DIC(9.4,^812;2^Q
+39 ;;^DD(9000010.46,81202,"DT")
+40 ;;=2960509
+41 ;;^DD(9000010.46,81203,0)
+42 ;;=DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q
+43 ;;^DD(9000010.46,81203,"DT")
+44 ;;=2960509
+45 ;;^DD(9000010.461,0)
+46 ;;=ANTICIPATORY GUIDANCE TOPICS SUB-FIELD^^.01^1
+47 ;;^DD(9000010.461,0,"DT")
+48 ;;=3051007
+49 ;;^DD(9000010.461,0,"IX","B",9000010.461,.01)
+50 ;;=
+51 ;;^DD(9000010.461,0,"NM","ANTICIPATORY GUIDANCE TOPICS")
+52 ;;=
+53 ;;^DD(9000010.461,0,"UP")
+54 ;;=9000010.46
+55 ;;^DD(9000010.461,.01,0)
+56 ;;=ANTICIPATORY GUIDANCE TOPICS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+57 ;;^DD(9000010.461,.01,1,0)
+58 ;;=^.1
+59 ;;^DD(9000010.461,.01,1,1,0)
+60 ;;=9000010.461^B
+61 ;;^DD(9000010.461,.01,1,1,1)
+62 ;;=S ^AUPNVWC(DA(1),1,"B",$E(X,1,30),DA)=""
+63 ;;^DD(9000010.461,.01,1,1,2)
+64 ;;=K ^AUPNVWC(DA(1),1,"B",$E(X,1,30),DA)
+65 ;;^DD(9000010.461,.01,3)
+66 ;;=Answer must be 1-80 characters in length.
+67 ;;^DD(9000010.461,.01,"DT")
+68 ;;=3051007
+69 ;;^DD(9000010.464,0)
+70 ;;=SPECIAL RISK SCREEN SUB-FIELD^^.02^2
+71 ;;^DD(9000010.464,0,"DT")
+72 ;;=3051226
+73 ;;^DD(9000010.464,0,"IX","B",9000010.464,.01)
+74 ;;=
+75 ;;^DD(9000010.464,0,"NM","SPECIAL RISK SCREEN")
+76 ;;=
+77 ;;^DD(9000010.464,0,"UP")
+78 ;;=9000010.46
+79 ;;^DD(9000010.464,.01,0)
+80 ;;=SPECIAL SCREENING EXAMS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+81 ;;^DD(9000010.464,.01,1,0)
+82 ;;=^.1
+83 ;;^DD(9000010.464,.01,1,1,0)
+84 ;;=9000010.464^B
+85 ;;^DD(9000010.464,.01,1,1,1)
+86 ;;=S ^AUPNVWC(DA(1),4,"B",$E(X,1,30),DA)=""
+87 ;;^DD(9000010.464,.01,1,1,2)
+88 ;;=K ^AUPNVWC(DA(1),4,"B",$E(X,1,30),DA)
+89 ;;^DD(9000010.464,.01,3)
+90 ;;=Answer must be 1-80 characters in length.
+91 ;;^DD(9000010.464,.01,"DT")
+92 ;;=3051007
+93 ;;^DD(9000010.464,.02,0)
+94 ;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
+95 ;;^DD(9000010.464,.02,"DT")
+96 ;;=3051226
+97 ;;^DD(9000010.465,0)
+98 ;;=NUTRITION TOPICS SUB-FIELD^^.01^1
+99 ;;^DD(9000010.465,0,"DT")
+100 ;;=3051007
+101 ;;^DD(9000010.465,0,"IX","B",9000010.465,.01)
+102 ;;=
+103 ;;^DD(9000010.465,0,"NM","NUTRITION TOPICS")
+104 ;;=
+105 ;;^DD(9000010.465,0,"UP")
+106 ;;=9000010.46
+107 ;;^DD(9000010.465,.01,0)
+108 ;;=NUTRITION TOPICS^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+109 ;;^DD(9000010.465,.01,1,0)
+110 ;;=^.1
+111 ;;^DD(9000010.465,.01,1,1,0)
+112 ;;=9000010.465^B
+113 ;;^DD(9000010.465,.01,1,1,1)
+114 ;;=S ^AUPNVWC(DA(1),5,"B",$E(X,1,30),DA)=""
+115 ;;^DD(9000010.465,.01,1,1,2)
+116 ;;=K ^AUPNVWC(DA(1),5,"B",$E(X,1,30),DA)
+117 ;;^DD(9000010.465,.01,3)
+118 ;;=Answer must be 1-80 characters in length.
+119 ;;^DD(9000010.465,.01,"DT")
+120 ;;=3051007
+121 ;;^DD(9000010.466,0)
+122 ;;=AGE SPECIFIC PHYSICAL EXAM SUB-FIELD^^.02^2
+123 ;;^DD(9000010.466,0,"DT")
+124 ;;=3051226
+125 ;;^DD(9000010.466,0,"IX","B",9000010.466,.01)
+126 ;;=
+127 ;;^DD(9000010.466,0,"NM","AGE SPECIFIC PHYSICAL EXAM")
+128 ;;=
+129 ;;^DD(9000010.466,0,"UP")
+130 ;;=9000010.46
+131 ;;^DD(9000010.466,.01,0)
+132 ;;=AGE-SPECIFIC PHYSICAL EXAM^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+133 ;;^DD(9000010.466,.01,1,0)
+134 ;;=^.1
+135 ;;^DD(9000010.466,.01,1,1,0)
+136 ;;=9000010.466^B
+137 ;;^DD(9000010.466,.01,1,1,1)
+138 ;;=S ^AUPNVWC(DA(1),6,"B",$E(X,1,30),DA)=""
+139 ;;^DD(9000010.466,.01,1,1,2)
+140 ;;=K ^AUPNVWC(DA(1),6,"B",$E(X,1,30),DA)
+141 ;;^DD(9000010.466,.01,3)
+142 ;;=Answer must be 1-80 characters in length.
+143 ;;^DD(9000010.466,.01,"DT")
+144 ;;=3051226
+145 ;;^DD(9000010.466,.02,0)
+146 ;;=RESULT^S^A:ABNORMAL;N:NORMAL;^0;2^Q
+147 ;;^DD(9000010.466,.02,"DT")
+148 ;;=3051226
+149 ;;^DD(9000010.467,0)
+150 ;;=BEHAVIORAL HEALTH SCREEN SUB-FIELD^^.02^2
+151 ;;^DD(9000010.467,0,"DT")
+152 ;;=3051226
+153 ;;^DD(9000010.467,0,"IX","B",9000010.467,.01)
+154 ;;=
+155 ;;^DD(9000010.467,0,"NM","BEHAVIORAL HEALTH SCREEN")
+156 ;;=
+157 ;;^DD(9000010.467,0,"UP")
+158 ;;=9000010.46
+159 ;;^DD(9000010.467,.01,0)
+160 ;;=BEHAVIORAL HEALTH SCREEN^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+161 ;;^DD(9000010.467,.01,1,0)
+162 ;;=^.1
+163 ;;^DD(9000010.467,.01,1,1,0)
+164 ;;=9000010.467^B
+165 ;;^DD(9000010.467,.01,1,1,1)
+166 ;;=S ^AUPNVWC(DA(1),7,"B",$E(X,1,30),DA)=""
+167 ;;^DD(9000010.467,.01,1,1,2)
+168 ;;=K ^AUPNVWC(DA(1),7,"B",$E(X,1,30),DA)
+169 ;;^DD(9000010.467,.01,3)
+170 ;;=Answer must be 1-80 characters in length.
+171 ;;^DD(9000010.467,.01,21,0)
+172 ;;=^^1^1^3051226^
+173 ;;^DD(9000010.467,.01,21,1,0)
+174 ;;=Age specific behavioral health screening items
+175 ;;^DD(9000010.467,.01,"DT")
+176 ;;=3051226
+177 ;;^DD(9000010.467,.02,0)
+178 ;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
+179 ;;^DD(9000010.467,.02,"DT")
+180 ;;=3051226
+181 ;;^DD(9000010.468,0)
+182 ;;=GENERAL HEALTH SCREEN SUB-FIELD^^.02^2
+183 ;;^DD(9000010.468,0,"DT")
+184 ;;=3051227
+185 ;;^DD(9000010.468,0,"IX","B",9000010.468,.01)
+186 ;;=
+187 ;;^DD(9000010.468,0,"NM","GENERAL HEALTH SCREEN")
+188 ;;=
+189 ;;^DD(9000010.468,0,"UP")
+190 ;;=9000010.46
+191 ;;^DD(9000010.468,.01,0)
+192 ;;=GENERAL HEALTH SCREEN^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+193 ;;^DD(9000010.468,.01,1,0)
+194 ;;=^.1
+195 ;;^DD(9000010.468,.01,1,1,0)
+196 ;;=9000010.468^B
+197 ;;^DD(9000010.468,.01,1,1,1)
+198 ;;=S ^AUPNVWC(DA(1),8,"B",$E(X,1,30),DA)=""
+199 ;;^DD(9000010.468,.01,1,1,2)
+200 ;;=K ^AUPNVWC(DA(1),8,"B",$E(X,1,30),DA)
+201 ;;^DD(9000010.468,.01,3)
+202 ;;=Answer must be 1-80 characters in length.
+203 ;;^DD(9000010.468,.01,21,0)
+204 ;;=^^1^1^3051227^
+205 ;;^DD(9000010.468,.01,21,1,0)
+206 ;;=NATL STANDARDS FOR GENERAL HEALTH SCREENING BEYOND THE PHYSICAL EXAM
+207 ;;^DD(9000010.468,.01,"DT")
+208 ;;=3051227
+209 ;;^DD(9000010.468,.02,0)
+210 ;;=RESULT^S^N:NORMAL;A:ABNORMAL;^0;2^Q
+211 ;;^DD(9000010.468,.02,"DT")
+212 ;;=3051227
