Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AUPNVTH

Package: IHS Patient

Global: ^AUPNVTH


Information

FileMan FileNo FileMan Filename Package
9000010.48 V TELEHEALTH IHS Patient

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V TELEHEALTH(#9000010.48)[1208]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    V TELEHEALTH(#9000010.48)[1208]    
Patient Care Component 2 TELEHEALTH SERVICE DELIVERY(#90636.02)[.11]    TELEHEALTH TYPE(#90636.01)[.01, .06]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1213]    
Kernel 1 NEW PERSON(#200)[.08, .09, 1202, 1204, 1217, 1219]    

Fields, Total: 29

Field # Name Loc Type Details
.01 PRIMARY MODALITY 0;1 POINTER TO TELEHEALTH TYPE FILE (#90636.01)
************************REQUIRED FIELD************************
TELEHEALTH TYPE(#90636.01)

  • LAST EDITED:  NOV 14, 2008
  • HELP-PROMPT:  Enter the Telehealth Type
  • DESCRIPTION:  
    This is the entry in the TELEHEALTH TYPE file that represents what type of Telehealth service was done at the encounter.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTT")
  • CROSS-REFERENCE:  9000010.48^B
    1)= S ^AUPNVTH("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVTH("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.48^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  NOV 14, 2008
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
  • CROSS-REFERENCE:  9000010.48^AC
    1)= S ^AUPNVTH("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVTH("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.48^AATOO2^MUMPS
    1)= I $P(^AUPNVTH(DA,0),U,3)]"" S ^AUPNVTH("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTH(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVTH(DA,0),U,3)]"" K ^AUPNVTH("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTH(DA,0),U,3),0),".",1)),DA)
    Inverse date cross-reference by patient.  "AA",patient,inverse date,ien
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTH(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 14, 2008
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the exam was done.
  • DESCRIPTION:  
    This is the encounter in the Visit file that represents when and where the telehealth service was done.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTH(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.48^AD
    1)= S ^AUPNVTH("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVTH("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
    "AD",VISIT,DA
  • CROSS-REFERENCE:  9000010.48^AA^MUMPS
    1)= Q:$P(^AUPNVTH(DA,0),U,2)=""  S ^AUPNVTH("AA",$P(^AUPNVTH(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVTH(DA,0),U,2)=""  K ^AUPNVTH("AA",$P(^AUPNVTH(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, inverted visit, internal entry number.
    "AA",PATIENT,INVERSE DATE OF VISIT,DA
  • CROSS-REFERENCE:  9000010.48^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.





.04
ORIGINATING DATE/TIME
0;4
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 14, 2008
  • DESCRIPTION:  
    Date/time stamp of when the case or visit originated.  This is at the originating site.





.05
SERVICE DATE/TIME
0;5
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 14, 2008
  • DESCRIPTION:  
    Date/time stamp of when the visit occurred at the remote site.





.06
SECONDARY MODALITY
0;6
POINTER TO TELEHEALTH TYPE FILE (#90636.01)
TELEHEALTH TYPE(#90636.01)
  • LAST EDITED:  NOV 14, 2008





.07
CASE ID
0;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  NOV 03, 2008
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Unique case name/number crated by telehealth application.  Example:  server namewith case number.





.08
ORIGINATING PROVIDER
0;8
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  NOV 03, 2008
  • DESCRIPTION:  
    Provider who originated this service.





.09
REQUESTING PROVIDER
0;9
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  NOV 03, 2008
  • DESCRIPTION:  
    Provider who requested the consult.





.11
SERVICE DELIVERY
0;11
POINTER TO TELEHEALTH SERVICE DELIVERY FILE (#90636.02)
TELEHEALTH SERVICE DELIVERY(#90636.02)
  • LAST EDITED:  NOV 14, 2008
  • DESCRIPTION:  
    What the provider was doing with information during the session.





.12
ORIGINATING VISIT
0;12
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  NOV 03, 2008
  • HELP-PROMPT:  Answer must be 1-16 characters in length.
  • DESCRIPTION:  
    Free text made up of facility/server identifer concatenated with ";" and internal visit ID on the other system.  Used to link both visits together.





.13
STATUS FIELD
0;13
SET

  • 'O' FOR OPEN;
  • 'C' FOR COMPLETED;
  • LAST EDITED:  NOV 03, 2008
  • DESCRIPTION:  
    This will allow tracking status of visit.  Completed means telehealth visit is closed.





.14
DURATION
0;14
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 2008
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Length in minutes of the time spent on the case or Vtc.





1101
LINK TO CASE
11;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 03, 2008
  • HELP-PROMPT:  Answer must be 1-30 characters in length.





1201
EVENT DATE AND TIME
12;1
DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the date and time the exam was given.
  • DESCRIPTION:  This is the date and time the exam was given by the provider.  This date and time may be different from the visit date and time.  For example, for clinic appointment visits, the visit date and time is the date and time of
    the appointment, not the time the provider performed the clinical event.
    The date may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time.  The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the
    measurement was done.  The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement.  Historical entries will not be eligible for credit.
    PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing. APCDALVR Variable = APCDALVR("APCDTCDT")





1202
ORDERING PROVIDER
12;2
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  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
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the provider who ordered this exam.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the exam.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Select ordering provider
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





1203
CLINIC
12;3
POINTER TO CLINIC STOP FILE (#40.7)
CLINIC STOP(#40.7)
  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")





1204
ENCOUNTER PROVIDER
12;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  DEC 19, 1994
  • HELP-PROMPT:  Enter the provider who gave the exam.
  • DESCRIPTION:  
    This is the provider who gave the exam.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTEPR")





1208
PARENT
12;8
POINTER TO V TELEHEALTH FILE (#9000010.48)
V TELEHEALTH(#9000010.48)
  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")





1209
EXTERNAL KEY
12;9
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")





1210
OUTSIDE PROVIDER NAME
12;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")





1211
ORDERING DATE
12;11
DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 14, 2008





1213
ANCILLARY POV
12;13
POINTER TO ICD DIAGNOSIS FILE (#80)
ICD DIAGNOSIS(#80)
  • LAST EDITED:  SEP 19, 2003





1215
ORDERING LOCATION
12;15
POINTER TO HOSPITAL LOCATION FILE (#44)
HOSPITAL LOCATION(#44)
  • LAST EDITED:  FEB 19, 2008





1216
DATE/TIME ENTERED
12;16
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.48^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTH(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.48,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTH(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.48,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.48^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTH(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.48,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVTH(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.48,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218





1217
ENTERED BY
12;17
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V TELEHEALTH File





1218
DATE/TIME LAST MODIFIED
12;18
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V TELEHEALTH File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.48^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTH(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.48,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTH(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.48,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219





1219
LAST MODIFIED BY
12;19
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V TELEHEALTH File





2100
COMMENTS
21;0
WORD-PROCESSING #9000010.4821







    



Info | 
Desc | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
All