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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNVDXP

Package: IHS Patient

Global: ^AUPNVDXP


Information

FileMan FileNo FileMan Filename Package
9000010.21 V DIAGNOSTIC PROCEDURE RESULT IHS Patient

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
IHS Patient 4 AUPNPOST    AUPNVDXP    AUPNVDXQ    AUPNVDXT    
PCC Medical Query 3 AMQQMGR1    AMQQMULP    AMQQMULT    
Patient Care Component 3 APCD20P8    APCDDMU2    APCHS8A    
IHS Support HL7 Interfaces 2 BHLOBRI    BHLOBXI    
Clinical Scheduling for Windows 1 BSDX41D    
Diabetes Registry 1 BDMEDMU2    
Health Summary Components 1 BHSEYEKG    
Local Area Programs 1 AZAXDPM1    
Utilities 1 AUP2POST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)[.071208]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)[.071208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1213]    
Kernel 1 NEW PERSON(#200)[1202120412171219]    
Utility Tables 1 DIAGNOSTIC PROCEDURE RESULT(#9999999.68)[.01]    

Fields, Total: 20

Field # Name Loc Type Details
.01 TYPE 0;1 POINTER TO DIAGNOSTIC PROCEDURE RESULT FILE (#9999999.68)
************************REQUIRED FIELD************************
DIAGNOSTIC PROCEDURE RESULT(#9999999.68)

  • LAST EDITED:  JAN 07, 1992
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDXR")
  • CROSS-REFERENCE:  9000010.21^B
    1)= S ^AUPNVDXP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVDXP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.21^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.21^AATOO^MUMPS
    1)= I $P(^AUPNVDXP(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVDXP(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.21^AE^MUMPS
    1)= S AUPNDXQF="S1" D ^AUPNVDXP
    2)= S AUPNDXQF="K1" D ^AUPNVDXP
  • CROSS-REFERENCE:  9000010.21^APTOO^MUMPS
    1)= N % S %=$P($G(^AUPNVDXP(DA,0)),U,7) I X,% S ^AUPNVDXP("AP",X,%,DA)=""
    2)= N % S %=$P($G(^AUPNVDXP(DA,0)),U,7) I X,% K ^AUPNVDXP("AP",X,%,DA)
  • CROSS-REFERENCE:  9000010.21^AQTOO^MUMPS
    1)= S AUPNDXQF="S1" D ^AUPNVDXP
    2)= S AUPNDXQF="K1" D ^AUPNVDXP
.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.21^AC
    1)= S ^AUPNVDXP("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVDXP("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.21^AATOO2^MUMPS
    1)= I $P(^AUPNVDXP(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVDXP("AA",X,$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVDXP(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVDXP("AA",X,$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(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(^AUPNVDXP(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 09, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVDXP(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.21^AD
    1)= S ^AUPNVDXP("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVDXP("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.21^AA^MUMPS
    1)= Q:$P(^AUPNVDXP(DA,0),U,2)=""  S ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVDXP(DA,0),U,2)=""  K ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.21^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
.04 VALUE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X D:$D(X) ^AUPNVDXP
  • OUTPUT TRANSFORM:  D ^AUPNVDXT
  • LAST EDITED:  OCT 04, 1994
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRQ")
  • EXECUTABLE HELP:  D HELP^AUPNVDXP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.21^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S AUPNDXTF=0 D ^AUPNVDXP X ^DD(9000010.21,.04,1,1,1.4)
    1.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.21,.04,1,1,2.4)
    2.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S AUPNDXTF=0 D ^AUPNVDXP
    DELETE VALUE)= @
    FIELD)= #.05
  • CROSS-REFERENCE:  9000010.21^AQ^MUMPS
    1)= S AUPNDXQF="S" D ^AUPNVDXP
    2)= S AUPNDXQF="K" D ^AUPNVDXP
.05 ABNORMAL 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  OCT 26, 1991
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTABN")
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the VALUE field of the V DIAGNOSTIC PROCEDURE RESULT File
    TRIGGERED by the PARAMS field of the V DIAGNOSTIC PROCEDURE RESULT File
.06 PARAMS 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  NOV 06, 1998
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPAR")
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.21^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S AUPNDXTF=1 D ^AUPNVDXP X ^DD(9000010.21,.06,1,1,1.4)
    1.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.21,.06,1,1,2.4)
    2.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S AUPNDXTF=1 D ^AUPNVDXP
    DELETE VALUE)= @
    FIELD)= #.05
.07 *PARENT 0;7 POINTER TO V DIAGNOSTIC PROCEDURE RESULT FILE (#9000010.21) V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)

  • LAST EDITED:  SEP 25, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
  • CROSS-REFERENCE:  9000010.21^AP^MUMPS
    1)= N % S %=+$G(^AUPNVDXP(DA,0)) I X,% S ^AUPNVDXP("AP",%,X,DA)=""
    2)= N % S %=+$G(^AUPNVDXP(DA,0)) I X,% K ^AUPNVDXP("AP",%,X,DA)
    Index to find non-value attribute given the parent
1201 EVENT DATE&TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1993
  • TECHNICAL DESCR:  
    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($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  APR 29, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 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))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEPR")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1208 PARENT 12;8 POINTER TO V DIAGNOSTIC PROCEDURE RESULT FILE (#9000010.21) V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)

  • LAST EDITED:  SEP 25, 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")
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.21^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.21,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.21^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.21,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 DIAGNOSTIC PROCEDURE RESULT 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 DIAGNOSTIC PROCEDURE RESULT File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.21^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.21,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 DIAGNOSTIC PROCEDURE RESULT File
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All