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

VENMI002.m

Go to the documentation of this file. 
  1. VENMI002 ; ; 28-NOV-2006
  1.  ;;2.6;PCC+;;NOV 12, 2007
  1.  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
  1. Q Q
  1.  ;;^DD(9000010.46,3.04,3)
  1.  ;;=Answer must be 1-60 characters in length.
  1.  ;;^DD(9000010.46,3.04,"DT")
  1.  ;;=3051227
  1.  ;;^DD(9000010.46,4,0)
  1.  ;;=SPECIAL RISK SCREEN^9000010.464^^4;0
  1.  ;;^DD(9000010.46,4,21,0)
  1.  ;;=^^1^1^3051227^
  1.  ;;^DD(9000010.46,4,21,1,0)
  1.  ;;=NATL STDS FOR SPECIAL RISK SCREENING - ONLY USED WITH HIGH RISK CHILDREN
  1.  ;;^DD(9000010.46,4,"DT")
  1.  ;;=3051226
  1.  ;;^DD(9000010.46,5,0)
  1.  ;;=NUTRITION TOPICS^9000010.465^^5;0
  1.  ;;^DD(9000010.46,6,0)
  1.  ;;=AGE SPECIFIC PHYSICAL EXAM^9000010.466^^6;0
  1.  ;;^DD(9000010.46,6,"DT")
  1.  ;;=3051226
  1.  ;;^DD(9000010.46,7,0)
  1.  ;;=BEHAVIORAL HEALTH SCREEN^9000010.467^^7;0
  1.  ;;^DD(9000010.46,8,0)
  1.  ;;=GENERAL HEALTH SCREEN^9000010.468^^8;0
  1.  ;;^DD(9000010.46,9.01,0)
  1.  ;;=AUTISM SCREENING COMMENTS^F^^9;1^K:$L(X)>60!($L(X)<1) X
  1.  ;;^DD(9000010.46,9.01,3)
  1.  ;;=Answer must be 1-60 characters in length.
  1.  ;;^DD(9000010.46,9.01,"DT")
  1.  ;;=3060217
  1.  ;;^DD(9000010.46,1201,0)
  1.  ;;=EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9000010.46,1201,3)
  1.  ;;=Enter the date and time the exam was given.
  1.  ;;^DD(9000010.46,1201,21,0)
  1.  ;;=^^9^9^2950901^^^^
  1.  ;;^DD(9000010.46,1201,21,1,0)
  1.  ;;=This is the date and time the exam was given by the provider.  This date
  1.  ;;^DD(9000010.46,1201,21,2,0)
  1.  ;;=and time may be different from the visit date and time.  For example, for
  1.  ;;^DD(9000010.46,1201,21,3,0)
  1.  ;;=clinic appointment visits, the visit date and time is the date and time of the
  1.  ;;^DD(9000010.46,1201,21,4,0)
  1.  ;;=appointment, not the time the provider performed the clinical event.
  1.  ;;^DD(9000010.46,1201,21,5,0)
  1.  ;;= 
  1.  ;;^DD(9000010.46,1201,21,6,0)
  1.  ;;=The date may be an imprecise date.
  1.  ;;^DD(9000010.46,1201,21,7,0)
  1.  ;;= 
  1.  ;;^DD(9000010.46,1201,21,8,0)
  1.  ;;=Date and time may be within 30 days before or after the visit date, with the
  1.  ;;^DD(9000010.46,1201,21,9,0)
  1.  ;;=restriction the date cannot be a future date.
  1.  ;;^DD(9000010.46,1201,23,0)
  1.  ;;=^^14^14^2960924^
  1.  ;;^DD(9000010.46,1201,23,1,0)
  1.  ;;=The PCE User Interface, which allows manual entry of data, will be the
  1.  ;;^DD(9000010.46,1201,23,2,0)
  1.  ;;=primary source of the event date and time.  The event date prompt defaults
  1.  ;;^DD(9000010.46,1201,23,3,0)
  1.  ;;=to the visit date, and the time is entered to reflect the actual time the
  1.  ;;^DD(9000010.46,1201,23,4,0)
  1.  ;;=measurement was done.  The event date does not have to be the visit date,
  1.  ;;^DD(9000010.46,1201,23,5,0)
  1.  ;;=but it must be within 30 days before or after the visit, and not be a
  1.  ;;^DD(9000010.46,1201,23,6,0)
  1.  ;;=future date.
  1.  ;;^DD(9000010.46,1201,23,7,0)
  1.  ;;= 
  1.  ;;^DD(9000010.46,1201,23,8,0)
  1.  ;;=If a user wants to enter a historical measurement, the user should use the
  1.  ;;^DD(9000010.46,1201,23,9,0)
  1.  ;;=Historical Encounter entry action to document the historical measurement.
  1.  ;;^DD(9000010.46,1201,23,10,0)
  1.  ;;=Historical entries will not be eligible for credit.
  1.  ;;^DD(9000010.46,1201,23,11,0)
  1.  ;;= 
  1.  ;;^DD(9000010.46,1201,23,12,0)
  1.  ;;=PCE Data Sources for automatic (scanning) data capture will be blank
  1.  ;;^DD(9000010.46,1201,23,13,0)
  1.  ;;=unless the event date and time are passed to PCE for filing. 
  1.  ;;^DD(9000010.46,1201,23,14,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTCDT")
  1.  ;;^DD(9000010.46,1201,"DT")
  1.  ;;=2940608
  1.  ;;^DD(9000010.46,1202,0)
  1.  ;;=ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1.  ;;^DD(9000010.46,1202,3)
  1.  ;;=Enter the provider who ordered this exam.
  1.  ;;^DD(9000010.46,1202,12)
  1.  ;;=Select ordering provider
  1.  ;;^DD(9000010.46,1202,12.1)
  1.  ;;=S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  1.  ;;^DD(9000010.46,1202,21,0)
  1.  ;;=^^1^1^2950901^^
  1.  ;;^DD(9000010.46,1202,21,1,0)
  1.  ;;=This field can be used to document the provider who ordered the exam.
  1.  ;;^DD(9000010.46,1202,23,0)
  1.  ;;=^^2^2^2960924^
  1.  ;;^DD(9000010.46,1202,23,1,0)
  1.  ;;=The person entered here must hold the "AK.PROVIDER" security key.
  1.  ;;^DD(9000010.46,1202,23,2,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTPRV")
  1.  ;;^DD(9000010.46,1202,"DT")
  1.  ;;=2940608
  1.  ;;^DD(9000010.46,1203,0)
  1.  ;;=CLINIC^P40.7'^DIC(40.7,^12;3^Q
  1.  ;;^DD(9000010.46,1203,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.46,1203,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTCLN")
  1.  ;;^DD(9000010.46,1203,"DT")
  1.  ;;=2960709
  1.  ;;^DD(9000010.46,1204,0)
  1.  ;;=ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q
  1.  ;;^DD(9000010.46,1204,3)
  1.  ;;=Enter the provider who gave the exam.
  1.  ;;^DD(9000010.46,1204,21,0)
  1.  ;;=^^1^1^2950901^^^
  1.  ;;^DD(9000010.46,1204,21,1,0)
  1.  ;;=This is the provider who gave the exam.
  1.  ;;^DD(9000010.46,1204,23,0)
  1.  ;;=^^3^3^2960924^
  1.  ;;^DD(9000010.46,1204,23,1,0)
  1.  ;;=This person can be any person in the new person file.  The person does not have
  1.  ;;^DD(9000010.46,1204,23,2,0)
  1.  ;;=to hold the "AK.PROVIDER" security key.
  1.  ;;^DD(9000010.46,1204,23,3,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTEPR")
  1.  ;;^DD(9000010.46,1204,"DT")
  1.  ;;=2941219
  1.  ;;^DD(9000010.46,1208,0)
  1.  ;;=PARENT^P9000010.46'^AUPNVWC(^12;8^Q
  1.  ;;^DD(9000010.46,1208,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.46,1208,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTPNT")
  1.  ;;^DD(9000010.46,1208,"DT")
  1.  ;;=2960709
  1.  ;;^DD(9000010.46,1209,0)
  1.  ;;=EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X
  1.  ;;^DD(9000010.46,1209,3)
  1.  ;;=Answer must be 1-20 characters in length.
  1.  ;;^DD(9000010.46,1209,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.46,1209,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTEXK")
  1.  ;;^DD(9000010.46,1209,"DT")
  1.  ;;=2960925
  1.  ;;^DD(9000010.46,1210,0)
  1.  ;;=OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X
  1.  ;;^DD(9000010.46,1210,3)
  1.  ;;=Answer must be 1-30 characters in length.
  1.  ;;^DD(9000010.46,1210,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.46,1210,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTOPR")
  1.  ;;^DD(9000010.46,1210,"DT")
  1.  ;;=2960925
  1.  ;;^DD(9000010.46,1213,0)
  1.  ;;=ANCILLARY POV^P80'^ICD9(^12;13^Q
  1.  ;;^DD(9000010.46,1213,"DT")
  1.  ;;=3030919
  1.  ;;^DD(9000010.46,80101,0)
  1.  ;;=EDITED FLAG^S^1:EDITED;^801;1^Q
  1.  ;;^DD(9000010.46,80101,3)
  1.  ;;=Answer is automatically entered by PCE filing logic.
  1.  ;;^DD(9000010.46,80101,21,0)
  1.  ;;=^^2^2^2950901^
  1.  ;;^DD(9000010.46,80101,21,1,0)
  1.  ;;=This field is automatically set to 1 if PCE detects that any original
  1.  ;;^DD(9000010.46,80101,21,2,0)
  1.  ;;=exam data is being edited.
  1.  ;;^DD(9000010.46,80101,23,0)
  1.  ;;=^^2^2^2950901^
  1.  ;;^DD(9000010.46,80101,23,1,0)
  1.  ;;=PCE filing logic automatically compares the before and after pictures of the
  1.  ;;^DD(9000010.46,80101,23,2,0)
  1.  ;;=record to determine if the edited flag should be set to "1".
  1.  ;;^DD(9000010.46,80101,"DT")
  1.  ;;=2940608
  1.  ;;^DD(9000010.46,80102,0)
  1.  ;;=AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X
  1.  ;;^DD(9000010.46,80102,3)
  1.  ;;=Answer is automatically entered by the PCE filing logic.
  1.  ;;^DD(9000010.46,80102,21,0)
  1.  ;;=^^3^3^2950901^
  1.  ;;^DD(9000010.46,80102,21,1,0)
  1.  ;;=This field is populated automatically by the PCE filing logic.  The format of
  1.  ;;^DD(9000010.46,80102,21,2,0)
  1.  ;;=the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E
  1.  ;;^DD(9000010.46,80102,21,3,0)
  1.  ;;=for Edit_" "_DUZ of the person who entered the data_";"...
  1.  ;;^DD(9000010.46,80102,23,0)
  1.  ;;=^^15^15^2950901^
  1.  ;;^DD(9000010.46,80102,23,1,0)
  1.  ;;=The PCE filing logic requires a pointer to the PCE Data Source file.
  1.  ;;^DD(9000010.46,80102,23,2,0)
  1.  ;;=If this is not passed, then PCE filing logic will not process the data.
  1.  ;;^DD(9000010.46,80102,23,3,0)
  1.  ;;=  
  1.  ;;^DD(9000010.46,80102,23,4,0)
  1.  ;;=If the record is a new record, then an "A" is used to specify the source
  1.  ;;^DD(9000010.46,80102,23,5,0)
  1.  ;;=that added the data.  If the record existed previously, PCE filing logic
  1.  ;;^DD(9000010.46,80102,23,6,0)
  1.  ;;=compares the old and new records of information.  An "E" will be