Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VENLI003

VENLI003.m

Go to the documentation of this file. 
  1. VENLI003 ; ; 28-NOV-2006
  1.  ;;2.6;PCC+;;NOV 12, 2007
  1.  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
  1. Q Q
  1.  ;;^DD(9000010.16,1204,23,3,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTEPR")
  1.  ;;^DD(9000010.16,1204,"DT")
  1.  ;;=2941219
  1.  ;;^DD(9000010.16,1208,0)
  1.  ;;=PARENT^P9000010.16'^AUPNVPED(^12;8^Q
  1.  ;;^DD(9000010.16,1208,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.16,1208,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTPNT")
  1.  ;;^DD(9000010.16,1208,"DT")
  1.  ;;=2960709
  1.  ;;^DD(9000010.16,1209,0)
  1.  ;;=EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X
  1.  ;;^DD(9000010.16,1209,3)
  1.  ;;=Answer must be 1-20 characters in length.
  1.  ;;^DD(9000010.16,1209,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.16,1209,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTEXK")
  1.  ;;^DD(9000010.16,1209,"DT")
  1.  ;;=2960925
  1.  ;;^DD(9000010.16,1210,0)
  1.  ;;=OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X
  1.  ;;^DD(9000010.16,1210,3)
  1.  ;;=Answer must be 1-30 characters in length.
  1.  ;;^DD(9000010.16,1210,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.16,1210,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTOPR")
  1.  ;;^DD(9000010.16,1210,"DT")
  1.  ;;=2960925
  1.  ;;^DD(9000010.16,80101,0)
  1.  ;;=EDITED FLAG^S^1:EDITED;^801;1^Q
  1.  ;;^DD(9000010.16,80101,3)
  1.  ;;=Answer is automatically generated by the PCE filing logic.
  1.  ;;^DD(9000010.16,80101,21,0)
  1.  ;;=^^2^2^2950831^
  1.  ;;^DD(9000010.16,80101,21,1,0)
  1.  ;;=This field is automatically set to 1 if PCE detects that any original exam data
  1.  ;;^DD(9000010.16,80101,21,2,0)
  1.  ;;=is being edited.
  1.  ;;^DD(9000010.16,80101,23,0)
  1.  ;;=^^2^2^2950831^
  1.  ;;^DD(9000010.16,80101,23,1,0)
  1.  ;;=PCE filing logic automatically compares the before and after pictures of the
  1.  ;;^DD(9000010.16,80101,23,2,0)
  1.  ;;=record to determine if the edited flag should be set to "1".
  1.  ;;^DD(9000010.16,80101,"DT")
  1.  ;;=2940401
  1.  ;;^DD(9000010.16,80102,0)
  1.  ;;=AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X
  1.  ;;^DD(9000010.16,80102,3)
  1.  ;;=Answer is automatically generated by the PCE filing logic.
  1.  ;;^DD(9000010.16,80102,21,0)
  1.  ;;=^^3^3^2950831^
  1.  ;;^DD(9000010.16,80102,21,1,0)
  1.  ;;=This field is populated automatically by the PCE filing logic.  The format of
  1.  ;;^DD(9000010.16,80102,21,2,0)
  1.  ;;=the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E
  1.  ;;^DD(9000010.16,80102,21,3,0)
  1.  ;;=for Edit_" "_DUZ of the person who entered the data_";"...
  1.  ;;^DD(9000010.16,80102,23,0)
  1.  ;;=^^14^14^2950831^
  1.  ;;^DD(9000010.16,80102,23,1,0)
  1.  ;;=The PCE filing logic requires a pointer to the PCE data source file.  If this
  1.  ;;^DD(9000010.16,80102,23,2,0)
  1.  ;;=is not passed, then PCE filing logic will not process the data.
  1.  ;;^DD(9000010.16,80102,23,3,0)
  1.  ;;= 
  1.  ;;^DD(9000010.16,80102,23,4,0)
  1.  ;;=If the record is a new record, then an "A" is used to specify the source that
  1.  ;;^DD(9000010.16,80102,23,5,0)
  1.  ;;=added the data.  If the record existed previously, PCE filing logic compares
  1.  ;;^DD(9000010.16,80102,23,6,0)
  1.  ;;=the old and new records of information.  An "E" will automatically be used if
  1.  ;;^DD(9000010.16,80102,23,7,0)
  1.  ;;=the filing logic finds the data has been edited.  If "E" is used, then the
  1.  ;;^DD(9000010.16,80102,23,8,0)
  1.  ;;=Edited Flag field is automatically set to 1.
  1.  ;;^DD(9000010.16,80102,23,9,0)
  1.  ;;= 
  1.  ;;^DD(9000010.16,80102,23,10,0)
  1.  ;;=The DUZ is stored in its internal format to represent the user who performed
  1.  ;;^DD(9000010.16,80102,23,11,0)
  1.  ;;=the adding or editing of data for this record.
  1.  ;;^DD(9000010.16,80102,23,12,0)
  1.  ;;= 
  1.  ;;^DD(9000010.16,80102,23,13,0)
  1.  ;;=Iterations of editing will be concatenated to the previous data source value,
  1.  ;;^DD(9000010.16,80102,23,14,0)
  1.  ;;=up to 85 characters.
  1.  ;;^DD(9000010.16,80102,"DT")
  1.  ;;=2960509
  1.  ;;^DD(9000010.16,81101,0)
  1.  ;;=COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X
  1.  ;;^DD(9000010.16,81101,3)
  1.  ;;=Enter a comment 1-245 characters in length.
  1.  ;;^DD(9000010.16,81101,21,0)
  1.  ;;=^^2^2^2950901^^
  1.  ;;^DD(9000010.16,81101,21,1,0)
  1.  ;;=This is a comment related to the patient's education.  The provider may enter
  1.  ;;^DD(9000010.16,81101,21,2,0)
  1.  ;;=this manually via the PCE User Interface.
  1.  ;;^DD(9000010.16,81101,"DT")
  1.  ;;=2950711
  1.  ;;^DD(9000010.16,81201,0)
  1.  ;;=VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q
  1.  ;;^DD(9000010.16,81201,"DT")
  1.  ;;=2960509
  1.  ;;^DD(9000010.16,81202,0)
  1.  ;;=PACKAGE^P9.4'I^DIC(9.4,^812;2^Q
  1.  ;;^DD(9000010.16,81202,"DT")
  1.  ;;=2960509
  1.  ;;^DD(9000010.16,81203,0)
  1.  ;;=DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q
  1.  ;;^DD(9000010.16,81203,"DT")
  1.  ;;=2960509
  1.  ;;^DD(9000010.161,0)
  1.  ;;=SUB-TOPIC SUB-FIELD^^.02^2
  1.  ;;^DD(9000010.161,0,"DT")
  1.  ;;=3060203
  1.  ;;^DD(9000010.161,0,"IX","B",9000010.161,.01)
  1.  ;;=
  1.  ;;^DD(9000010.161,0,"NM","SUB-TOPIC")
  1.  ;;=
  1.  ;;^DD(9000010.161,0,"UP")
  1.  ;;=9000010.16
  1.  ;;^DD(9000010.161,.01,0)
  1.  ;;=SUB-TOPIC^MF^^0;1^K:$L(X)>80!($L(X)<1) X
  1.  ;;^DD(9000010.161,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9000010.161,.01,1,1,0)
  1.  ;;=9000010.161^B
  1.  ;;^DD(9000010.161,.01,1,1,1)
  1.  ;;=S ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(9000010.161,.01,1,1,2)
  1.  ;;=K ^AUPNVPED(DA(1),1,"B",$E(X,1,30),DA)
  1.  ;;^DD(9000010.161,.01,3)
  1.  ;;=Answer must be 1-80 characters in length.
  1.  ;;^DD(9000010.161,.01,"DT")
  1.  ;;=3060203
  1.  ;;^DD(9000010.161,.02,0)
  1.  ;;=LEVEL OF UNDERSTANDING^S^1:POOR;2:FAIR;3:GOOD;4:GROUP-NO ASSESSMENT;5:REFUSED;^0;2^Q
  1.  ;;^DD(9000010.161,.02,"DT")
  1.  ;;=3060203