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

Package: IHS Patient

Global: ^AUPNVSTR


Information

FileMan FileNo FileMan Filename Package
9000010.63 V STROKE IHS Patient

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Patient Care Component 5 APCDEWHA    APCDVDSB    APCDVDSG    APCDVDSP    APCHS61    
GUI Objects 3 BGOVSTR    BGOVSTR1    BGOVSTR2    
IHS Mods To Text Integration Utilities 2 BTIUSTSC    BTIUVSTR    
Health Summary Components 1 BHSAMI    
IHS Patient 1 AUPNMAP    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
GUI Objects 2 BGOVSTR    BGOVSTR2    
IHS Patient 1 AUPNMAP    
Patient Care Component 1 APCHS61    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V STROKE(#9000010.63)[1208]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 4 PATIENT(#9000001)[.02]    V MEASUREMENT(#9000010.01)[1601#9000010.6315(.2)]    VISIT(#9000010)[.03]    V STROKE(#9000010.63)[1208]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Kernel 1 NEW PERSON(#200)[.13.165.021202120412171219#9000010.6313(.04)#9000010.6314(.05)#9000010.6315(.03)]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[#9000010.6314(.03)]    

Fields, Total: 35

Field # Name Loc Type Details
.01 ARRIVAL DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
  • CROSS-REFERENCE:  9000010.63^B
    1)= S ^AUPNVSTR("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVSTR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.63^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.63^AATOO^MUMPS
    1)= I $P(^AUPNVSTR(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVSTR("AA",$P(^AUPNVSTR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSTR(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVSTR(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVSTR("AA",$P(^AUPNVSTR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSTR(DA,0),U,3),0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number.
    "AA",PATIENT,TYPE,VISIT,DA
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Enter the patient name.
  • DESCRIPTION:  
    Patient Name.
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.63^AC
    1)= S ^AUPNVSTR("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVSTR("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.63^AATOO2^MUMPS
    1)= I $P(^AUPNVSTR(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVSTR("AA",X,$P(^AUPNVSTR(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVSTR(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVSTR(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVSTR("AA",X,$P(^AUPNVSTR(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVSTR(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(^AUPNVSTR(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 09, 1988
  • HELP-PROMPT:  Enter the encounter from the Visit file. Always stuffed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVSTR(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.63^AD
    1)= S ^AUPNVSTR("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVSTR("AD",$E(X,1,30),DA)
    This is used for programmed lookup by visit internal entry number.
  • CROSS-REFERENCE:  9000010.63^AA^MUMPS
    1)= Q:$P(^AUPNVSTR(DA,0),U,2)=""  S ^AUPNVSTR("AA",$P(^AUPNVSTR(DA,0),U,2),$P(^AUPNVSTR(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVSTR(DA,0),U,2)=""  K ^AUPNVSTR("AA",$P(^AUPNVSTR(DA,0),U,2),$P(^AUPNVSTR(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number.
    "AA",PATIENT,TYPE,VISIT,DA
  • CROSS-REFERENCE:  9000010.63^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference is used to add "1" to the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry to indicate that there is a file (in this case measurement) pointing to the Visit.
    When the measurement entry is deleted, this cross-reference is used to subtract "1" from the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry.
.04 HANDEDNESS 0;4 SET
  • 'R' FOR RIGHT;
  • 'L' FOR LEFT;
  • 'A' FOR AMBIDEXTROUS;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  MAY 02, 2013
  • CROSS-REFERENCE:  9000010.63^AHMAP^MUMPS
    1)= D HANDSM^AUPNMAP
    2)= Q
.11 FIBRINOLYTIC THERAPY INITIATED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.12 FIBRINOLYTIC THER D/T ENTERED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.13 FIBRINOLYTIC THER ENTERED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2013
.14 DID NOT INITIATE FIBRINOLYTIC 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.15 DID NOT INIT FIB D/T ENTERED 0;15 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
.16 DID NOT INIT FIB ENTERED BY 0;16 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 14, 2014
.17 DID NOT INIT FIB REASON 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$CONCPT^AUPNVUTL(Y)
  • LAST EDITED:  MAR 12, 2014
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
1 COMMENT (DATE/TIME ARRIVAL) 1;0 WORD-PROCESSING #9000010.631
2 HANDEDNESS SNOMED CT 2;0 Multiple #9000010.632 9000010.632
4 FIBRINOLYTIC THERAPY COMMENT 4;0 WORD-PROCESSING #9000010.634
5.01 ENTERED IN ERROR? 5;1 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 01, 2013
5.02 ENTERED IN ERROR BY 5;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2013
5.03 DATE/TIME ENTERED IN ERROR 5;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2013
5.04 REASON ENTERED IN ERROR 5;4 SET
  • '1' FOR DUPLICATE;
  • '2' FOR ENTERED IN ERROR;
  • '3' FOR OTHER;

  • LAST EDITED:  MAR 01, 2013
5.05 REASON IF OTHER 5;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  MAR 01, 2013
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
1201 EVENT DATE & TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $D(X),$E(X,1,12)>$E($$NOW^XLFDT,1,12) K X
  • LAST EDITED:  JAN 27, 2011
  • HELP-PROMPT:  Enter the date and time
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.63^AB
    1)= S ^AUPNVSTR("AB",$E(X,1,30),DA)=""
    2)= K ^AUPNVSTR("AB",$E(X,1,30),DA)
    This is in place of the "B" xref on the GMRV VITAL MEASUREMENT .01 field.
  • CROSS-REFERENCE:  9000010.63^AE^MUMPS
    1)= Q:$P(^AUPNVSTR(DA,0),U,2)=""  S ^AUPNVSTR("AE",$P(^AUPNVSTR(DA,0),U,2),$P(^AUPNVSTR(DA,0),U,1),9999999-X,DA)=""
    2)= Q:$P(^AUPNVSTR(DA,0),U,2)=""  K ^AUPNVSTR("AE",$P(^AUPNVSTR(DA,0),U,2),$P(^AUPNVSTR(DA,0),U,1),9999999-X,DA)
    Used for flowsheets.  Cross-reference by patient,vitals type,date/time vitals take,ien of vital ent ry "AE",PATIENT,TYPE,DATE/TIME VITALS TAKEN,DA
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 26, 1994
  • HELP-PROMPT:  Enter the provider.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • 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
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 01, 1995
  • HELP-PROMPT:  Enter the provider.
1208 PARENT 12;8 POINTER TO V STROKE FILE (#9000010.63) V STROKE(#9000010.63)

  • LAST EDITED:  MAY 19, 2016
  • 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 24, 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 24, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
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.63^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSTR(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.63,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVSTR(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.63,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.63^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSTR(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.63,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVSTR(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.63,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 STROKE 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 STROKE File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.63^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSTR(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.63,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVSTR(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.63,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 STROKE File
1300 PROTOCOL STANDING ORDERS 13;0 Multiple #9000010.6313 9000010.6313
1400 STROKE SYMPTOMS 14;0 Multiple #9000010.6314 9000010.6314
1500 NIH STROKE SCALE 15;0 DATE Multiple #9000010.6315 9000010.6315
1601 LKW V MEASUREMENT 16;1 POINTER TO V MEASUREMENT FILE (#9000010.01) V MEASUREMENT(#9000010.01)

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