VENLI003 ; ; 28-NOV-2006
;;2.6;PCC+;;NOV 12, 2007
Q:'DIFQ(9000010.16) 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.16,1204,23,3,0)
;;=APCDALVR Variable = APCDALVR("APCDTEPR")
;;^DD(9000010.16,1204,"DT")
;;=2941219
;;^DD(9000010.16,1208,0)
;;=PARENT^P9000010.16'^AUPNVPED(^12;8^Q
;;^DD(9000010.16,1208,23,0)
;;=^^1^1^2960924^
;;^DD(9000010.16,1208,23,1,0)
;;=APCDALVR Variable = APCDALVR("APCDTPNT")
;;^DD(9000010.16,1208,"DT")
;;=2960709
;;^DD(9000010.16,1209,0)
;;=EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X
;;^DD(9000010.16,1209,3)
;;=Answer must be 1-20 characters in length.
;;^DD(9000010.16,1209,23,0)
;;=^^1^1^2960924^
;;^DD(9000010.16,1209,23,1,0)
;;=APCDALVR Variable = APCDALVR("APCDTEXK")
;;^DD(9000010.16,1209,"DT")
;;=2960925
;;^DD(9000010.16,1210,0)
;;=OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X
;;^DD(9000010.16,1210,3)
;;=Answer must be 1-30 characters in length.
;;^DD(9000010.16,1210,23,0)
;;=^^1^1^2960924^
;;^DD(9000010.16,1210,23,1,0)
;;=APCDALVR Variable = APCDALVR("APCDTOPR")
;;^DD(9000010.16,1210,"DT")
;;=2960925
;;^DD(9000010.16,80101,0)
;;=EDITED FLAG^S^1:EDITED;^801;1^Q
;;^DD(9000010.16,80101,3)
;;=Answer is automatically generated by the PCE filing logic.
;;^DD(9000010.16,80101,21,0)
;;=^^2^2^2950831^
;;^DD(9000010.16,80101,21,1,0)
;;=This field is automatically set to 1 if PCE detects that any original exam data
;;^DD(9000010.16,80101,21,2,0)
;;=is being edited.
;;^DD(9000010.16,80101,23,0)
;;=^^2^2^2950831^
;;^DD(9000010.16,80101,23,1,0)
;;=PCE filing logic automatically compares the before and after pictures of the
;;^DD(9000010.16,80101,23,2,0)
;;=record to determine if the edited flag should be set to "1".
;;^DD(9000010.16,80101,"DT")
;;=2940401
;;^DD(9000010.16,80102,0)
;;=AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X
;;^DD(9000010.16,80102,3)
;;=Answer is automatically generated by the PCE filing logic.
;;^DD(9000010.16,80102,21,0)
;;=^^3^3^2950831^
;;^DD(9000010.16,80102,21,1,0)
;;=This field is populated automatically by the PCE filing logic. The format of
;;^DD(9000010.16,80102,21,2,0)
;;=the field is as follows: Pointer to PCE data source file_"-"_A for Add or E
;;^DD(9000010.16,80102,21,3,0)
;;=for Edit_" "_DUZ of the person who entered the data_";"...
;;^DD(9000010.16,80102,23,0)
;;=^^14^14^2950831^
;;^DD(9000010.16,80102,23,1,0)
;;=The PCE filing logic requires a pointer to the PCE data source file. If this
;;^DD(9000010.16,80102,23,2,0)
;;=is not passed, then PCE filing logic will not process the data.
;;^DD(9000010.16,80102,23,3,0)
;;=
;;^DD(9000010.16,80102,23,4,0)
;;=If the record is a new record, then an "A" is used to specify the source that
;;^DD(9000010.16,80102,23,5,0)
;;=added the data. If the record existed previously, PCE filing logic compares
;;^DD(9000010.16,80102,23,6,0)
;;=the old and new records of information. An "E" will automatically be used if
;;^DD(9000010.16,80102,23,7,0)
;;=the filing logic finds the data has been edited. If "E" is used, then the
;;^DD(9000010.16,80102,23,8,0)
;;=Edited Flag field is automatically set to 1.
;;^DD(9000010.16,80102,23,9,0)
;;=
;;^DD(9000010.16,80102,23,10,0)
;;=The DUZ is stored in its internal format to represent the user who performed
;;^DD(9000010.16,80102,23,11,0)
;;=the adding or editing of data for this record.
;;^DD(9000010.16,80102,23,12,0)
;;=
;;^DD(9000010.16,80102,23,13,0)
;;=Iterations of editing will be concatenated to the previous data source value,
;;^DD(9000010.16,80102,23,14,0)
;;=up to 85 characters.
;;^DD(9000010.16,80102,"DT")
;;=2960509
;;^DD(9000010.16,81101,0)
;;=COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X
;;^DD(9000010.16,81101,3)
;;=Enter a comment 1-245 characters in length.
;;^DD(9000010.16,81101,21,0)
;;=^^2^2^2950901^^
;;^DD(9000010.16,81101,21,1,0)
;;=This is a comment related to the patient's education. The provider may enter
;;^DD(9000010.16,81101,21,2,0)
;;=this manually via the PCE User Interface.
;;^DD(9000010.16,81101,"DT")
;;=2950711
;;^DD(9000010.16,81201,0)
;;=VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
;;^DD(9000010.16,81201,"DT")
;;=2960509
;;^DD(9000010.16,81202,0)
;;=PACKAGE^P9.4'I^DIC(9.4,^812;2^Q
;;^DD(9000010.16,81202,"DT")
;;=2960509
;;^DD(9000010.16,81203,0)
;;=DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q
;;^DD(9000010.16,81203,"DT")
;;=2960509
;;^DD(9000010.161,0)
;;=SUB-TOPIC SUB-FIELD^^.02^2
;;^DD(9000010.161,0,"DT")
;;=3060203
;;^DD(9000010.161,0,"IX","B",9000010.161,.01)
;;=
;;^DD(9000010.161,0,"NM","SUB-TOPIC")
;;=
;;^DD(9000010.161,0,"UP")
;;=9000010.16
;;^DD(9000010.161,.01,0)
;;=SUB-TOPIC^MF^^0;1^K:$L(X)>80!($L(X)<1) X
;;^DD(9000010.161,.01,1,0)
;;=^.1
;;^DD(9000010.161,.01,1,1,0)
;;=9000010.161^B
;;^DD(9000010.161,.01,1,1,1)
;;=S ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)=""
;;^DD(9000010.161,.01,1,1,2)
;;=K ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)
;;^DD(9000010.161,.01,3)
;;=Answer must be 1-80 characters in length.
;;^DD(9000010.161,.01,"DT")
;;=3060203
;;^DD(9000010.161,.02,0)
;;=LEVEL OF UNDERSTANDING^S^1:POOR;2:FAIR;3:GOOD;4:GROUP-NO ASSESSMENT;5:REFUSED;^0;2^Q
;;^DD(9000010.161,.02,"DT")
;;=3060203
VENLI003 ; ; 28-NOV-2006
+1 ;;2.6;PCC+;;NOV 12, 2007
+2 IF 'DIFQ(9000010.16)
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.16,1204,23,3,0)
+2 ;;=APCDALVR Variable = APCDALVR("APCDTEPR")
+3 ;;^DD(9000010.16,1204,"DT")
+4 ;;=2941219
+5 ;;^DD(9000010.16,1208,0)
+6 ;;=PARENT^P9000010.16'^AUPNVPED(^12;8^Q
+7 ;;^DD(9000010.16,1208,23,0)
+8 ;;=^^1^1^2960924^
+9 ;;^DD(9000010.16,1208,23,1,0)
+10 ;;=APCDALVR Variable = APCDALVR("APCDTPNT")
+11 ;;^DD(9000010.16,1208,"DT")
+12 ;;=2960709
+13 ;;^DD(9000010.16,1209,0)
+14 ;;=EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X
+15 ;;^DD(9000010.16,1209,3)
+16 ;;=Answer must be 1-20 characters in length.
+17 ;;^DD(9000010.16,1209,23,0)
+18 ;;=^^1^1^2960924^
+19 ;;^DD(9000010.16,1209,23,1,0)
+20 ;;=APCDALVR Variable = APCDALVR("APCDTEXK")
+21 ;;^DD(9000010.16,1209,"DT")
+22 ;;=2960925
+23 ;;^DD(9000010.16,1210,0)
+24 ;;=OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X
+25 ;;^DD(9000010.16,1210,3)
+26 ;;=Answer must be 1-30 characters in length.
+27 ;;^DD(9000010.16,1210,23,0)
+28 ;;=^^1^1^2960924^
+29 ;;^DD(9000010.16,1210,23,1,0)
+30 ;;=APCDALVR Variable = APCDALVR("APCDTOPR")
+31 ;;^DD(9000010.16,1210,"DT")
+32 ;;=2960925
+33 ;;^DD(9000010.16,80101,0)
+34 ;;=EDITED FLAG^S^1:EDITED;^801;1^Q
+35 ;;^DD(9000010.16,80101,3)
+36 ;;=Answer is automatically generated by the PCE filing logic.
+37 ;;^DD(9000010.16,80101,21,0)
+38 ;;=^^2^2^2950831^
+39 ;;^DD(9000010.16,80101,21,1,0)
+40 ;;=This field is automatically set to 1 if PCE detects that any original exam data
+41 ;;^DD(9000010.16,80101,21,2,0)
+42 ;;=is being edited.
+43 ;;^DD(9000010.16,80101,23,0)
+44 ;;=^^2^2^2950831^
+45 ;;^DD(9000010.16,80101,23,1,0)
+46 ;;=PCE filing logic automatically compares the before and after pictures of the
+47 ;;^DD(9000010.16,80101,23,2,0)
+48 ;;=record to determine if the edited flag should be set to "1".
+49 ;;^DD(9000010.16,80101,"DT")
+50 ;;=2940401
+51 ;;^DD(9000010.16,80102,0)
+52 ;;=AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X
+53 ;;^DD(9000010.16,80102,3)
+54 ;;=Answer is automatically generated by the PCE filing logic.
+55 ;;^DD(9000010.16,80102,21,0)
+56 ;;=^^3^3^2950831^
+57 ;;^DD(9000010.16,80102,21,1,0)
+58 ;;=This field is populated automatically by the PCE filing logic. The format of
+59 ;;^DD(9000010.16,80102,21,2,0)
+60 ;;=the field is as follows: Pointer to PCE data source file_"-"_A for Add or E
+61 ;;^DD(9000010.16,80102,21,3,0)
+62 ;;=for Edit_" "_DUZ of the person who entered the data_";"...
+63 ;;^DD(9000010.16,80102,23,0)
+64 ;;=^^14^14^2950831^
+65 ;;^DD(9000010.16,80102,23,1,0)
+66 ;;=The PCE filing logic requires a pointer to the PCE data source file. If this
+67 ;;^DD(9000010.16,80102,23,2,0)
+68 ;;=is not passed, then PCE filing logic will not process the data.
+69 ;;^DD(9000010.16,80102,23,3,0)
+70 ;;=
+71 ;;^DD(9000010.16,80102,23,4,0)
+72 ;;=If the record is a new record, then an "A" is used to specify the source that
+73 ;;^DD(9000010.16,80102,23,5,0)
+74 ;;=added the data. If the record existed previously, PCE filing logic compares
+75 ;;^DD(9000010.16,80102,23,6,0)
+76 ;;=the old and new records of information. An "E" will automatically be used if
+77 ;;^DD(9000010.16,80102,23,7,0)
+78 ;;=the filing logic finds the data has been edited. If "E" is used, then the
+79 ;;^DD(9000010.16,80102,23,8,0)
+80 ;;=Edited Flag field is automatically set to 1.
+81 ;;^DD(9000010.16,80102,23,9,0)
+82 ;;=
+83 ;;^DD(9000010.16,80102,23,10,0)
+84 ;;=The DUZ is stored in its internal format to represent the user who performed
+85 ;;^DD(9000010.16,80102,23,11,0)
+86 ;;=the adding or editing of data for this record.
+87 ;;^DD(9000010.16,80102,23,12,0)
+88 ;;=
+89 ;;^DD(9000010.16,80102,23,13,0)
+90 ;;=Iterations of editing will be concatenated to the previous data source value,
+91 ;;^DD(9000010.16,80102,23,14,0)
+92 ;;=up to 85 characters.
+93 ;;^DD(9000010.16,80102,"DT")
+94 ;;=2960509
+95 ;;^DD(9000010.16,81101,0)
+96 ;;=COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X
+97 ;;^DD(9000010.16,81101,3)
+98 ;;=Enter a comment 1-245 characters in length.
+99 ;;^DD(9000010.16,81101,21,0)
+100 ;;=^^2^2^2950901^^
+101 ;;^DD(9000010.16,81101,21,1,0)
+102 ;;=This is a comment related to the patient's education. The provider may enter
+103 ;;^DD(9000010.16,81101,21,2,0)
+104 ;;=this manually via the PCE User Interface.
+105 ;;^DD(9000010.16,81101,"DT")
+106 ;;=2950711
+107 ;;^DD(9000010.16,81201,0)
+108 ;;=VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
+109 ;;^DD(9000010.16,81201,"DT")
+110 ;;=2960509
+111 ;;^DD(9000010.16,81202,0)
+112 ;;=PACKAGE^P9.4'I^DIC(9.4,^812;2^Q
+113 ;;^DD(9000010.16,81202,"DT")
+114 ;;=2960509
+115 ;;^DD(9000010.16,81203,0)
+116 ;;=DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q
+117 ;;^DD(9000010.16,81203,"DT")
+118 ;;=2960509
+119 ;;^DD(9000010.161,0)
+120 ;;=SUB-TOPIC SUB-FIELD^^.02^2
+121 ;;^DD(9000010.161,0,"DT")
+122 ;;=3060203
+123 ;;^DD(9000010.161,0,"IX","B",9000010.161,.01)
+124 ;;=
+125 ;;^DD(9000010.161,0,"NM","SUB-TOPIC")
+126 ;;=
+127 ;;^DD(9000010.161,0,"UP")
+128 ;;=9000010.16
+129 ;;^DD(9000010.161,.01,0)
+130 ;;=SUB-TOPIC^MF^^0;1^K:$L(X)>80!($L(X)<1) X
+131 ;;^DD(9000010.161,.01,1,0)
+132 ;;=^.1
+133 ;;^DD(9000010.161,.01,1,1,0)
+134 ;;=9000010.161^B
+135 ;;^DD(9000010.161,.01,1,1,1)
+136 ;;=S ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)=""
+137 ;;^DD(9000010.161,.01,1,1,2)
+138 ;;=K ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)
+139 ;;^DD(9000010.161,.01,3)
+140 ;;=Answer must be 1-80 characters in length.
+141 ;;^DD(9000010.161,.01,"DT")
+142 ;;=3060203
+143 ;;^DD(9000010.161,.02,0)
+144 ;;=LEVEL OF UNDERSTANDING^S^1:POOR;2:FAIR;3:GOOD;4:GROUP-NO ASSESSMENT;5:REFUSED;^0;2^Q
+145 ;;^DD(9000010.161,.02,"DT")
+146 ;;=3060203
