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: ^AUPNVAST

Package: IHS Patient

Global: ^AUPNVAST


Information

FileMan FileNo FileMan Filename Package
9000010.41 V ASTHMA IHS Patient

Description

Directly Accessed By Routines, Total: 33

Package Total Routines
IHS GPRA Information System 8 BGP2D28    BGP3D28    BGP4D28    BGP5D28    BGP6D28    BGP7D28    BGP8D28    BGPMUG03
Patient Care Component 7 APCDSTGC    APCHAAP1    APCHSAST    BJPC1EC1    BJPC2ENV    BJPC2EV2    BJPC2P1    
Asthma Tracking System 6 BATRP10    BATRPT7    BATRPT8    BATSUM    BATU    BATVSUM    
GUI Objects 2 BGOASLK    BGOVAST    
Health Summary Components 2 BHSAAP1    BHSAST    
IHS Mods To Patient Care Encounter 1 BPXRMAS1    
IHS Mods To Text Integration Utilities 1 BTIULO5    
Local Area Programs 1 AZAXDPM1    
PCC New Encounter Form 1 VENPCC1M    
iCare 1 BQIRGASU    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Patient Care Component 2 APCDSTGC    BJPC2P1    
GUI Objects 1 BGOVAST    
iCare 1 BQIRGUTL    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V ASTHMA(#9000010.41)[1208]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
IHS Patient 4 PATIENT(#9000001)[.02]    V ASTHMA(#9000010.41)[1208]    V POV(#9000010.07)[.13]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Kernel 1 NEW PERSON(#200)[1202120412171219]    

Fields, Total: 30

Field # Name Loc Type Details
.01 DUMMY FIELD 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  FEB 06, 2001
  • HELP-PROMPT:  Answer must be 1 character in length.
  • CROSS-REFERENCE:  9000010.41^B
    1)= S ^AUPNVAST("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVAST("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.41^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:  FEB 07, 2001
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.41^AC
    1)= S ^AUPNVAST("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVAST("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.41^AS^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,3),$P(^AUPNVAST(DA,0),U,4)]"" S ^AUPNVAST("AS",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=$P(^AUPNVAST(DA,0),U,4)
    2)= I $P(^AUPNVAST(DA,0),U,3),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AS",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)
  • CROSS-REFERENCE:  9000010.41^AA^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,3) S ^AUPNVAST("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=""
    2)= I $P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),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(^AUPNVAST(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 24, 2001
  • 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 exam was done.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVAST(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.41^AD
    1)= S ^AUPNVAST("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVAST("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.41^ASTO^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" S ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)=$P(^AUPNVAST(DA,0),U,4)
    2)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)
  • CROSS-REFERENCE:  9000010.41^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.
  • CROSS-REFERENCE:  9000010.41^AMTO^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)=1 S ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),$P(^AUPNVAST(DA,0),U,4),DA)=""
    2)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),$P(^AUPNVAST(DA,0),U,4),DA)
  • CROSS-REFERENCE:  9000010.41^AATOO^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2) S ^AUPNVAST("AA",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)=""
    2)= I $P(^AUPNVAST(DA,0),U,2) K ^AUPNVAST("AA",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)
.04 SEVERITY 0;4 SET
  • '1' FOR INTERMITTENT;
  • '2' FOR MILD PERSISTENT;
  • '3' FOR MODERATE PERSISTENT;
  • '4' FOR SEVERE PERSISTENT;

  • LAST EDITED:  MAY 19, 2008
  • CROSS-REFERENCE:  9000010.41^ASTOO^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) S ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=X
    2)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)
.05 FEV 1 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 07, 2001
  • HELP-PROMPT:  Type a Number between 0 and 150, 0 Decimal Digits
.06 FEF 25-75 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 27, 2001
  • HELP-PROMPT:  Type a Number between 0 and 150, 0 Decimal Digits
.07 PEF/BEST PF 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>710)!(X<100)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 21, 2005
  • HELP-PROMPT:  Type a Number between 100 and 710, 0 Decimal Digits
.08 ETS 0;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 07, 2001
.09 PARTICULATE MATTER 0;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 07, 2001
.11 DUST MITE 0;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 07, 2001
.12 ASTHMA MANAGEMENT PLAN 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 07, 2001
  • HELP-PROMPT:  Enter Y if an Asthma Action/Management Plan was done for this patient
  • CROSS-REFERENCE:  9000010.41^AM^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3),X S ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),X,DA)=""
    2)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),X,DA)
.13 CREATED BY VPOV 0;13 POINTER TO V POV FILE (#9000010.07) V POV(#9000010.07)

  • LAST EDITED:  FEB 22, 2008
.14 ASTHMA CONTROL 0;14 SET
  • 'W' FOR WELL CONTROLLED;
  • 'N' FOR NOT WELL CONTROLLED;
  • 'V' FOR VERY POORLY CONTROLLED;

  • LAST EDITED:  JUL 30, 2008
  • EXECUTABLE HELP:  D V4114^AUPNVHLP
  • CROSS-REFERENCE:  9000010.41^AAC^MUMPS
    1)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) S ^AUPNVAST("AAC",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=X
    2)= I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AAC",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)
1101 YELLOW ZONE INSTRUCTIONS 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  OCT 05, 2009
  • HELP-PROMPT:  Answer must be 1-200 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, 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 ASTHMA FILE (#9000010.41) V ASTHMA(#9000010.41)

  • 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.41^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVAST(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.41,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVAST(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.41,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.41^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVAST(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.41,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVAST(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.41,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 ASTHMA 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 ASTHMA File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.41^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVAST(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.41,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVAST(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.41,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 ASTHMA File
1301 RED ZONE INSTRUCTIONS 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  OCT 05, 2009
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  JUN 08, 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 exam 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 DATA SOURCE 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  JUN 08, 1994
  • 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 compares the old and new records of information.  An "E" will be automatically 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 addition or editing of data for this record.
    Iterations of editing will be concatenated to the previous Data Source value, up to 85 characters.
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 exam.  The provider may enter this manually via the PCE User Interface.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All