Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNVTRT

Package: IHS Patient

Global: ^AUPNVTRT


Information

FileMan FileNo FileMan Filename Package
9000010.15 V TREATMENT IHS Patient

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Patient Care Component 2 APCDEGP3    APCHS8    
Clinical Scheduling for Windows 1 BSDX41E    
Health Summary Components 1 BHSFAM1    
IHS Support HL7 Interfaces 1 BHLOBRI    
Local Area Programs 1 AZAXDPM1    
PCE Patient Care Encounter 1 PXQUTL3C    
Scheduling 1 SCRPW25    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDFRPC6    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V TREATMENT(#9000010.15)[1208]    
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    V TREATMENT(#9000010.15)[1208]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.051202120412171219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Utility Tables 2 PROVIDER NARRATIVE(#9999999.27)[.0680201]    TREATMENT(#9999999.17)[.01]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    

Fields, Total: 26

Field # Name Loc Type Details
.01 TREATMENT 0;1 POINTER TO TREATMENT FILE (#9999999.17)
************************REQUIRED FIELD************************
TREATMENT(#9999999.17)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 24, 1995
  • HELP-PROMPT:  Enter a treatment from the Treatment file or select "OTHER".
  • DESCRIPTION:  
    This is a treatment or service provided which does not map to a CPT code but is clinically useful for patient care management.
  • TECHNICAL DESCR:  In the VA, this entry will be "OTHER" if the treatment text received from the PCE Device Interface does not have a match in the Treatment file. The Provider Narrative field will reflect the name of the Treatment provided.
    APCDALVR Variable = APCDALVR("APCDTTRT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1"
  • EXPLANATION:  Allow only active Treatment types to be selected.
  • CROSS-REFERENCE:  9000010.15^B
    1)= S ^AUPNVTRT("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVTRT("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.15^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.019 TREATMENT CODE COMPUTED

  • MUMPS CODE:  X ^DD(9000010.15,.019,9.3) S X=$P(Y(9000010.15,.019,101),U,2) S D0=Y(9000010.15,.019,80)
    9.2 = S Y(9000010.15,.019,80)=$S($D(D0):D0,1:""),Y(9000010.15,.019,1)=$S($D(^AUPNVTRT(D0,0)):^(0),1:"")
    9.3 = X ^DD(9000010.15,.019,9.2) S D0=$P(Y(9000010.15,.019,1),U,1) S:'$D(^AUTTTRT(+D0,0)) D0=-1 S Y(9000010.15,.019,101)=$S($D(^AUTTTRT(D0,0)):^(0),1:"")
  • ALGORITHM:  TREATMENT:CODE
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.15^AC
    1)= S ^AUPNVTRT("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVTRT("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.15^AATOO^MUMPS
    1)= I $P(^AUPNVTRT(DA,0),U,3)]"" S ^AUPNVTRT("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVTRT(DA,0),U,3)]"" K ^AUPNVTRT("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),".",1)),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTRT(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the treatment was done.
  • DESCRIPTION:  
    This is the encounter or occasion of service defined in the Visit file that represents when and where the treatment was done.
  • TECHNICAL DESCR:  
    This is a pointer to the Visit File (#9000010).  This field is stuffed by the applications. No editing is allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTRT(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.15^AD
    1)= S ^AUPNVTRT("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVTRT("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
  • CROSS-REFERENCE:  9000010.15^AA^MUMPS
    1)= Q:$P(^AUPNVTRT(DA,0),U,2)=""  S ^AUPNVTRT("AA",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVTRT(DA,0),U,2)=""  K ^AUPNVTRT("AA",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, inverted visit date, and the internal entry number.
    "AA",PATIENT,VISIT,DA
  • CROSS-REFERENCE:  9000010.15^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 HOW MANY 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 04, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTHM")
.05 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRO")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"
  • EXPLANATION:  Must be an active provider.
.06 PROVIDER NARRATIVE 0;6 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 27, 1994
  • HELP-PROMPT:  Enter the providers narrative documenting the treatment
  • DESCRIPTION:  
    This is the provider's preferred text used to represent the treatment provided.
  • TECHNICAL DESCR:  
    If the provider narrative does not have a related entry in the Treatment file the "OTHER" entry will be defined in the Treatment (.01) field.  APCDALVR Variable = APCDALVR("APCDTNQ")
  • SCREEN:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  IHS OLD LOOKUP or PCE Exact Match
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Enter the date and time the treatment was provided.
  • DESCRIPTION:  This is the date and time the treatment 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 prmary 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 exam
    was given. 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 an 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:  APR 28, 1994
  • HELP-PROMPT:  Enter the provider who ordered the treatment.
  • DESCRIPTION:  
    This field may be used to document the provider who ordered the treatment.
  • 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)))",D="AK.PROVIDER"
  • EXPLANATION:  Must be a 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 treatment.
  • DESCRIPTION:  
    This is the provider who gave the treatment.
  • 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 TREATMENT FILE (#9000010.15) V TREATMENT(#9000010.15)

  • 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")
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.15^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTRT(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.15,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.15,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.15^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTRT(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.15,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.15,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 TREATMENT 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 TREATMENT File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.15^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTRT(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.15,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.15,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 TREATMENT File
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  APR 27, 1994
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original treatment data is being edited.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
80102 AUDIT TRAIL 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1996
  • HELP-PROMPT:  Answer is automatically entered by the PCE filing logic.
  • DESCRIPTION:  
    This field is populated automatically by the PCE filing logic.  The format of the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, then PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data.  If the record existed previously, PCE filing logic compares the old and new records of information.  An "E" will automatically
    be used if the filing logic finds the data has been edited.  If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous data source value, up to 85 characters.
80201 PROVIDER NARRATIVE CATEGORY 802;1 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Enter the header or category related to the treatment.
  • DESCRIPTION:  This field is the heading or category used to represent the provider narrative on the scanner form or workstation. It may be useful for understanding how providers are grouping data for use on the encounter form, and may
    help determine clinical terminology definitions in the future.
  • TECHNICAL DESCR:  
    This field was added for use in the VA.  It is only used with automated data capture sources, such as AICS.
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Enter a comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the patient's treatment.  The provider may enter this manually via the PCE User Interface.
81201 VERIFIED 812;1 SET
  • '1' FOR ELECTRONICALLY SIGNED;
  • '2' FOR VERIFIED BY PACKAGE;

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All