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

Package: IHS Patient

Global: ^AUPNVREF


Information

FileMan FileNo FileMan Filename Package
9000010.59 V REFERRAL IHS Patient

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Referred Care Information System 6 BMC4P10    BMC4P11    BMC4P12    BMC4P13    BMCADD3    BMCMOD    
IHS GPRA Information System 3 BGP8PC12    BGP8PC13    BGP8PC14    
IHS Mods To Text Integration Utilities 3 BTIUPRV2    BTIUPRVI    BTIUPV1    
IHS Uniform Data System 3 BUDHRP6Q    BUDHRP6R    BUDHUTL3    
Patient Care Component Table Maintiance 3 APCM14E5    APCM24E5    APCM25E5    
Patient Care Component 1 APCDVREF    

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
Referred Care Information System 8 BMC4P10    BMC4P11    BMC4P12    BMC4P13    BMCADD    BMCAPIS    BMCMOD    BMCRPC4
IHS Mods To Text Integration Utilities 3 BTIUPRV2    BTIUPRVI    BTIUPV1    
Patient Care Component 2 APCDVREF    APCHS81    
GUI Objects 1 BGOVTR    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V REFERRAL(#9000010.59)[1208]    
Referred Care Information System 1 RCIS REFERRAL(#90001)[1303]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 4 PATIENT(#9000001)[.02]    PROBLEM(#9000011)[.04]    V REFERRAL(#9000010.59)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Kernel 1 NEW PERSON(#200)[1202, 1204, 1217, 1219]    
Referred Care Information System 1 RCIS REFERRAL(#90001)[.06]    

Fields, Total: 19

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 21, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  9000010.59^B
    1)= S ^AUPNVREF("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVREF("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.59^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.59^AATOO^MUMPS
    1)= I $P(^AUPNVREF(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVREF("AA",$P(^AUPNVREF(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVREF(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVREF(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVREF("AA",$P(^AUPNVREF(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVREF(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





.019
SNOMED PREFERRED TERM

COMPUTED

  • MUMPS CODE:  S Y(9000010.59,.019,1)=$S($D(^AUPNVREF(D0,0)):^(0),1:"") S X=$P(Y(9000010.59,.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#.01)





.02
PATIENT NAME
0;2
POINTER TO PATIENT FILE (#9000001) 

************************REQUIRED FIELD************************
PATIENT(#9000001)
  • LAST EDITED:  MAR 20, 2013
  • HELP-PROMPT:  Enter the patient name.
  • DESCRIPTION:  
    Patient Name.
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.59^AC
    1)= S ^AUPNVREF("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVREF("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.59^AATOO2^MUMPS
    1)= I $P(^AUPNVREF(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVREF("AA",X,$P(^AUPNVREF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVREF(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVREF(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVREF("AA",X,$P(^AUPNVREF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVREF(DA,0),U,3),0),".",1)),DA)
  • RECORD INDEXES:  APRB (#499)





.03
VISIT
0;3
POINTER TO VISIT FILE (#9000010) 

************************REQUIRED FIELD************************
VISIT(#9000010)
  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVREF(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 30, 2013
  • HELP-PROMPT:  Enter the encounter from the Visit file.  Always stuffed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVREF(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.59^AD
    1)= S ^AUPNVREF("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVREF("AD",$E(X,1,30),DA)
    This is used for programmed lookup by visit internal entry number.
  • CROSS-REFERENCE:  9000010.59^AA^MUMPS
    1)= Q:$P(^AUPNVREF(DA,0),U,2)=""  S ^AUPNVREF("AA",$P(^AUPNVREF(DA,0),U,2),$P(^AUPNVREF(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVREF(DA,0),U,2)=""  K ^AUPNVREF("AA",$P(^AUPNVREF(DA,0),U,2),$P(^AUPNVREF(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.59^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.
  • RECORD INDEXES:  APRB (#499), APRV (#500)





.04
PROBLEM
0;4
POINTER TO PROBLEM FILE (#9000011)
PROBLEM(#9000011)
  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=$P(^AUPNVREF(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 30, 2013
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=$P(^AUPNVREF(DA,0),U,2)"
  • EXPLANATION:  MUST BE FOR CURRENT PATIENT
  • RECORD INDEXES:  APRB (#499), APRV (#500)





.05
DISCONTINUED?
0;5
SET

  • '1' FOR YES;
  • LAST EDITED:  FEB 22, 2013





.06
REFERRAL IEN
0;6
POINTER TO RCIS REFERRAL FILE (#90001)
RCIS REFERRAL(#90001)
  • LAST EDITED:  MAY 07, 2013





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.59^AB
    1)= S ^AUPNVREF("AB",$E(X,1,30),DA)=""
    2)= K ^AUPNVREF("AB",$E(X,1,30),DA)
    This is in place of the "B" xref on the GMRV VITAL MEASUREMENT .01 field.
  • CROSS-REFERENCE:  9000010.59^AE^MUMPS
    1)= Q:$P(^AUPNVREF(DA,0),U,2)=""  S ^AUPNVREF("AE",$P(^AUPNVREF(DA,0),U,2),$P(^AUPNVREF(DA,0),U,1),9999999-X,DA)=""
    2)= Q:$P(^AUPNVREF(DA,0),U,2)=""  K ^AUPNVREF("AE",$P(^AUPNVREF(DA,0),U,2),$P(^AUPNVREF(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:  MAY 30, 2013
  • HELP-PROMPT:  Enter the provider.
  • RECORD INDEXES:  APRV (#500)





1208
PARENT
12;8
POINTER TO V REFERRAL FILE (#9000010.59)
V REFERRAL(#9000010.59)
  • 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.59^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVREF(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.59,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVREF(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.59,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.59^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVREF(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.59,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVREF(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.59,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 REFERRAL 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 REFERRAL File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.59^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVREF(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.59,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVREF(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.59,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 REFERRAL File







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All