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

Package: IHS Patient

Global: ^AUPNVMEO


Information

FileMan FileNo FileMan Filename Package
9000010.706 V VA MOBILE EXAMS ORDERED IHS Patient

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Local Area Programs 1 AZAXDPM1    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IHS Patient 2 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    
Kernel 1 NEW PERSON(#200)[1217, 1219]    
PCE Patient Care Encounter 1 PCE DEVICE INTERFACE MODULE ERRORS(#839.01)[.01]    

Fields, Total: 8

Field # Name Loc Type Details
.01 EXAM/TEST 0;1 POINTER ** TO AN UNDEFINED FILE **
************************REQUIRED FIELD************************

  • LAST EDITED:  MAR 11, 1993
  • CROSS-REFERENCE:  9000010.706^B
    1)= S ^AUPNVMEO("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVMEO("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.706^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.706^AATOO^MUMPS
    1)= I $P(^AUPNVMEO(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMEO("AA",$P(^AUPNVMEO(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMEO(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMEO(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMEO("AA",$P(^AUPNVMEO(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMEO(DA,0),U,3),0),".",1)),DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.706^AC
    1)= S ^AUPNVMEO("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVMEO("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.706^AATOO2^MUMPS
    1)= I $P(^AUPNVMEO(DA,0),U,3)]"" S ^AUPNVMEO("AA",X,+^AUPNVMEO(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMEO(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMEO(DA,0),U,3)]"" K ^AUPNVMEO("AA",X,+^AUPNVMEO(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMEO(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(^AUPNVMEO(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVMEO(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.706^AD
    1)= S ^AUPNVMEO("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVMEO("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.706^AA^MUMPS
    1)= Q:$P(^AUPNVMEO(DA,0),U,2)=""  S ^AUPNVMEO("AA",$P(^AUPNVMEO(DA,0),U,2),+^AUPNVMEO(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVMEO(DA,0),U,2)=""  K ^AUPNVMEO("AA",$P(^AUPNVMEO(DA,0),U,2),+^AUPNVMEO(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.706^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
.04 WHERE ORDERED 0;4 SET
  • 'I' FOR IN CLINIC;
  • 'V' FOR AT VAMC;
  • 'N' FOR AT NON-VAMC;

  • LAST EDITED:  MAR 11, 1993
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.706^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMEO(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.706,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMEO(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.706,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.706^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMEO(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.706,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVMEO(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.706,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 VA MOBILE EXAMS ORDERED 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 VA MOBILE EXAMS ORDERED File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.706^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMEO(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.706,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMEO(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.706,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 VA MOBILE EXAMS ORDERED File
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All