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

VENLI001.m

Go to the documentation of this file. 
  1. VENLI001 ; ; 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.  ;;^DIC(9000010.16,0,"GL")
  1.  ;;=^AUPNVPED(
  1.  ;;^DIC("B","V PATIENT ED",9000010.16)
  1.  ;;=
  1.  ;;^DIC(9000010.16,"%D",0)
  1.  ;;=7^^7^7^2950901^^
  1.  ;;^DIC(9000010.16,"%D",1,0)
  1.  ;;=This file has been designed for joint use by the Indian Health Service and
  1.  ;;^DIC(9000010.16,"%D",2,0)
  1.  ;;=the Department of Veteran Affairs.
  1.  ;;^DIC(9000010.16,"%D",3,0)
  1.  ;;= 
  1.  ;;^DIC(9000010.16,"%D",4,0)
  1.  ;;=This is the file which stores the patient education given to a patient 
  1.  ;;^DIC(9000010.16,"%D",5,0)
  1.  ;;=or his responsible care giver. Data must exist in the Patient/IHS file and
  1.  ;;^DIC(9000010.16,"%D",6,0)
  1.  ;;=Visit file for a patient visit before data can be entered in the V Patient
  1.  ;;^DIC(9000010.16,"%D",7,0)
  1.  ;;=Ed File.
  1.  ;;^DD(9000010.16,0)
  1.  ;;=FIELD^^81203^29
  1.  ;;^DD(9000010.16,0,"DDA")
  1.  ;;=N
  1.  ;;^DD(9000010.16,0,"DT")
  1.  ;;=3060203
  1.  ;;^DD(9000010.16,0,"ID",.02)
  1.  ;;=W "   ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)")
  1.  ;;^DD(9000010.16,0,"ID",.03)
  1.  ;;=W "   " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)")
  1.  ;;^DD(9000010.16,0,"IX","AA",9000010.16,.03)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AATOO",9000010.16,.02)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AAVA",9000010.16,.01)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AAVATOO",9000010.16,.02)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AAVATOOO",9000010.16,.03)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AC",9000010.16,.02)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AD",9000010.16,.03)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AV10",9000010.16,.03)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AV9",9000010.16,.01)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AZ10",9000010.16,.03)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","AZ9",9000010.16,.01)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"IX","B",9000010.16,.01)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"NM","V PATIENT ED")
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"PT",9000010.16,1208)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"PT",9000010.433,.01)
  1.  ;;=
  1.  ;;^DD(9000010.16,0,"VRPK")
  1.  ;;=AUPN
  1.  ;;^DD(9000010.16,.01,0)
  1.  ;;=TOPIC^R*P9999999.09'^AUTTEDT(^0;1^S DIC("S")="I $P(^(0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1.  ;;^DD(9000010.16,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9000010.16,.01,1,1,0)
  1.  ;;=9000010.16^B
  1.  ;;^DD(9000010.16,.01,1,1,1)
  1.  ;;=S ^AUPNVPED("B",$E(X,1,30),DA)=""
  1.  ;;^DD(9000010.16,.01,1,1,2)
  1.  ;;=K ^AUPNVPED("B",$E(X,1,30),DA)
  1.  ;;^DD(9000010.16,.01,1,2,0)
  1.  ;;=9000010.16^AV9^MUMPS
  1.  ;;^DD(9000010.16,.01,1,2,1)
  1.  ;;=S:$D(APCDLOOK) DIC("DR")=""
  1.  ;;^DD(9000010.16,.01,1,2,2)
  1.  ;;=Q
  1.  ;;^DD(9000010.16,.01,1,3,0)
  1.  ;;=9000010.16^AAVA^MUMPS
  1.  ;;^DD(9000010.16,.01,1,3,1)
  1.  ;;=I $P(^AUPNVPED(DA,0),U,2),$P(^(0),U,3) S ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)=""
  1.  ;;^DD(9000010.16,.01,1,3,2)
  1.  ;;=I $P(^AUPNVPED(DA,0),U,2),$P(^(0),U,3) K ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)
  1.  ;;^DD(9000010.16,.01,1,3,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.01,3)
  1.  ;;=Select the topic on which education was delivered.
  1.  ;;^DD(9000010.16,.01,12)
  1.  ;;=Only active Education Topics may be selected.
  1.  ;;^DD(9000010.16,.01,12.1)
  1.  ;;=S DIC("S")="I $P(^(0),U,3)'=1"
  1.  ;;^DD(9000010.16,.01,21,0)
  1.  ;;=^^1^1^2870422^
  1.  ;;^DD(9000010.16,.01,21,1,0)
  1.  ;;=Pointer to the EDUCATION TOPICS file.
  1.  ;;^DD(9000010.16,.01,21,2,0)
  1.  ;;=education given to the patient.
  1.  ;;^DD(9000010.16,.01,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.16,.01,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDTTOP")
  1.  ;;^DD(9000010.16,.01,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.02,0)
  1.  ;;=PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q
  1.  ;;^DD(9000010.16,.02,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9000010.16,.02,1,1,0)
  1.  ;;=9000010.16^AC
  1.  ;;^DD(9000010.16,.02,1,1,1)
  1.  ;;=S ^AUPNVPED("AC",$E(X,1,30),DA)=""
  1.  ;;^DD(9000010.16,.02,1,1,2)
  1.  ;;=K ^AUPNVPED("AC",$E(X,1,30),DA)
  1.  ;;^DD(9000010.16,.02,1,2,0)
  1.  ;;=9000010.16^AATOO^MUMPS
  1.  ;;^DD(9000010.16,.02,1,2,1)
  1.  ;;=I $P(^AUPNVPED(DA,0),U,3)]"" S ^AUPNVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)=""
  1.  ;;^DD(9000010.16,.02,1,2,2)
  1.  ;;=I $P(^AUPNVPED(DA,0),U,3)]"" K ^AUPNVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)
  1.  ;;^DD(9000010.16,.02,1,3,0)
  1.  ;;=9000010.16^AAVATOO^MUMPS
  1.  ;;^DD(9000010.16,.02,1,3,1)
  1.  ;;=I $P(^AUPNVPED(DA,0),U),$P(^AUPNVPED(DA,0),U,3) S ^AUPNVPED("AAVA",X,$P(^AUPNVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)=""
  1.  ;;^DD(9000010.16,.02,1,3,2)
  1.  ;;=I $P(^AUPNVPED(DA,0),U),$P(^AUPNVPED(DA,0),U,3) K ^AUPNVPED("AAVA",X,$P(^AUPNVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)
  1.  ;;^DD(9000010.16,.02,1,3,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.02,23,0)
  1.  ;;=^^1^1^2960924^
  1.  ;;^DD(9000010.16,.02,23,1,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDPAT")
  1.  ;;^DD(9000010.16,.02,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.03,0)
  1.  ;;=VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1.  ;;^DD(9000010.16,.03,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9000010.16,.03,1,1,0)
  1.  ;;=9000010.16^AD
  1.  ;;^DD(9000010.16,.03,1,1,1)
  1.  ;;=S ^AUPNVPED("AD",$E(X,1,30),DA)=""
  1.  ;;^DD(9000010.16,.03,1,1,2)
  1.  ;;=K ^AUPNVPED("AD",$E(X,1,30),DA)
  1.  ;;^DD(9000010.16,.03,1,2,0)
  1.  ;;=9000010.16^AA^MUMPS
  1.  ;;^DD(9000010.16,.03,1,2,1)
  1.  ;;=Q:$P(^AUPNVPED(DA,0),U,2)=""  S ^AUPNVPED("AA",$P(^AUPNVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
  1.  ;;^DD(9000010.16,.03,1,2,2)
  1.  ;;=Q:$P(^AUPNVPED(DA,0),U,2)=""  K ^AUPNVPED("AA",$P(^AUPNVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  1.  ;;^DD(9000010.16,.03,1,2,"%D",0)
  1.  ;;=^^2^2^2940131^
  1.  ;;^DD(9000010.16,.03,1,2,"%D",1,0)
  1.  ;;=This is a Health Summary cross-reference.
  1.  ;;^DD(9000010.16,.03,1,2,"%D",2,0)
  1.  ;;="AA",PATIENT,VISIT,DA
  1.  ;;^DD(9000010.16,.03,1,3,0)
  1.  ;;=9000010.16^AV10^MUMPS
  1.  ;;^DD(9000010.16,.03,1,3,1)
  1.  ;;=D ADD^AUPNVSIT
  1.  ;;^DD(9000010.16,.03,1,3,2)
  1.  ;;=D SUB^AUPNVSIT
  1.  ;;^DD(9000010.16,.03,1,3,"%D",0)
  1.  ;;=^^2^2^2940131^
  1.  ;;^DD(9000010.16,.03,1,3,"%D",1,0)
  1.  ;;=This cross-reference adds and subtracts from the dependent entry count in
  1.  ;;^DD(9000010.16,.03,1,3,"%D",2,0)
  1.  ;;=the VISIT file.
  1.  ;;^DD(9000010.16,.03,1,4,0)
  1.  ;;=9000010.16^AAVATOOO^MUMPS
  1.  ;;^DD(9000010.16,.03,1,4,1)
  1.  ;;=I $P(^AUPNVPED(DA,0),U),$P(^(0),U,2) S ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),$P(^AUPNVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)=""
  1.  ;;^DD(9000010.16,.03,1,4,2)
  1.  ;;=I $P(^AUPNVPED(DA,0),U),$P(^(0),U,2) K ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),$P(^AUPNVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)
  1.  ;;^DD(9000010.16,.03,1,4,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.03,3)
  1.  ;;=Enter the visit date/time for the encounter where the education was provided.
  1.  ;;^DD(9000010.16,.03,12)
  1.  ;;=VISIT MUST BE FOR CURRENT PATIENT
  1.  ;;^DD(9000010.16,.03,12.1)
  1.  ;;=S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)"
  1.  ;;^DD(9000010.16,.03,21,0)
  1.  ;;=^^2^2^2950901^
  1.  ;;^DD(9000010.16,.03,21,1,0)
  1.  ;;=This is the encounter or occasion of service defined in the Visit file
  1.  ;;^DD(9000010.16,.03,21,2,0)
  1.  ;;=that represents when and where the education was provided.
  1.  ;;^DD(9000010.16,.03,23,0)
  1.  ;;=^^3^3^2960924^
  1.  ;;^DD(9000010.16,.03,23,1,0)
  1.  ;;=This is a pointer to the Visit File (#9000010).  This field is stuffed by
  1.  ;;^DD(9000010.16,.03,23,2,0)
  1.  ;;=the applications. No editing is allowed.
  1.  ;;^DD(9000010.16,.03,23,3,0)
  1.  ;;=APCDALVR Variable = APCDALVR("APCDVSIT")
  1.  ;;^DD(9000010.16,.03,"DT")
  1.  ;;=3050711
  1.  ;;^DD(9000010.16,.04,0)
  1.  ;;=ICD DIAGNOSIS^P80'^ICD9(^0;4^Q
  1.  ;;^DD(9000010.16,.04,"DT")
  1.  ;;=3000323
  1.  ;;^DD(9000010.16,.041,0)
  1.  ;;=ICD TEXT^CJ8^^ ; ^X ^DD(9000010.16,.041,9.2) S Y(9000010.16,.041,101)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(Y(9000010.16,.041,101),U,3) S D0=Y(9000010.16,.041,80)
  1.  ;;^DD(9000010.16,.041,9)
  1.  ;;=^