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 |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^VAT(391.71

Package: Registration

Global: ^VAT(391.71


Information

FileMan FileNo FileMan Filename Package
391.71 ADT/HL7 PIVOT Registration

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Registration 19 DG53149P    DGRUGBJ    VAFCA04    VAFCCCAP    VAFCDD01    VAFCMG01    VAFCMS01    VAFCMS02
VAFCMS03    VAFCMSG    VAFCMSG3    VAFCQRY2    VAFCTFMF    VAFHBGJ    VAFHPIV2    VAFHPIVT
VAFHPURG    ^VAT(391.71    VAFHUTL    
Clinical Information Resource Network 3 RGACTIV    RGADTP3    RGMTUT98    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Registration 4 VAFCMS02    VAFCUTL    VAFHPURG    VAFHUTL    
Clinical Information Resource Network 1 RGADTP3    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Registration 2 PATIENT MOVEMENT(#405)[.05]    PATIENT(#2)[.03.05]    
Kernel 1 NEW PERSON(#200)[.09]    
Scheduling 1 OUTPATIENT ENCOUNTER(#409.68)[.05]    

Fields, Total: 12

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

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 19, 1995
  • DESCRIPTION:  
    This will contain the date time of the event.
  • CROSS-REFERENCE:  391.71^B
    1)= S ^VAT(391.71,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(391.71,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  391.71^AD^MUMPS
    1)= N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U,4),B=$P(M,U,5) I A'=""&(B'="") S ^VAT(391.71,"AKY",A,X,B,DA)=""
    2)= N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U,4),B=$P(M,U,5) I A'=""&(B'="") K ^VAT(391.71,"AKY",A,X,B,DA)
    This cross reference is one of the three fields used to create a unique key for the entries in this file.  .04 and .05 are the other fields.
.02 PIVOT NUMBER 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N)!($D(^VAT(391.71,"D",X))) X
  • LAST EDITED:  MAY 29, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits, and a pivot number that does not already exist in the file
  • DESCRIPTION:  
    This will contain a unique pivot number that is created by the system.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  391.71^D
    1)= S ^VAT(391.71,"D",$E(X,1,30),DA)=""
    2)= K ^VAT(391.71,"D",$E(X,1,30),DA)
.03 PATIENT 0;3 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  MAY 31, 1995
  • DESCRIPTION:  
    This is the pointer to the patient file (#2) to the patient this event belongs to.
  • CROSS-REFERENCE:  391.71^C
    1)= S ^VAT(391.71,"C",$E(X,1,30),DA)=""
    2)= K ^VAT(391.71,"C",$E(X,1,30),DA)
    This cross reference is a standard cross reference to be used by FM and programmers to indentify the patient this entry is related to.
.04 TYPE OF EVENT 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR INPATIENT EVENTS;
  • '2' FOR OUTPATIENT EVENTS;
  • '3' FOR REGISTRATION EVENTS;
  • '4' FOR UPDATES TO DATA;
  • '5' FOR TREATING FACILITY UPDATES;
  • '6' FOR COTS UPDATE EVENTS;

  • LAST EDITED:  OCT 04, 1999
  • DESCRIPTION:  
    This indicates the type of event that has occurred.
  • CROSS-REFERENCE:  391.71^AD2^MUMPS
    1)= N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,5) I A'=""&(B'="") S ^VAT(391.71,"AKY",X,A,B,DA)=""
    2)= N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,5) I A'=""&(B'="") K ^VAT(391.71,"AKY",X,A,B,DA)
    This cross reference is one of the three fields used to create a unique key for entries in this file.  .01 and .05 are the other two.
  • CROSS-REFERENCE:  391.71^AXMIT1^MUMPS
    1)= Q:($G(VAFCA08))  N A S A=$P(^VAT(391.71,DA,0),"^",8) S:(+A) ^VAT(391.71,"AXMIT",X,DA)=""
    2)= K ^VAT(391.71,"AXMIT",X,DA)
    This cross reference is used to gather the entries that need to be broadcasted because an update has occured to a patient's data.  The set logic will only be executed when the REQUIRES TRANSMISSION field (#.08) has a value
    of 'YES'.
    Resulting node:
    ^VAT(391.71,"AXMIT",[.04],DA) = ""
    Where:
    [.04] = Value contained in TYPE OF EVENT field (#.04)
    DA = Pointer to entry that requires transmission
.05 EVENT POINTER 0;5 VARIABLE POINTER PATIENT(#2)  PATIENT MOVEMENT(#405)  OUTPATIENT ENCOUNTER(#409.68)  

  • LAST EDITED:  MAY 21, 1995
  • DESCRIPTION:  This field is a variable pointer to the Patient Movement, Outpatient Encounter or Patient file. When the type of event is inpatient, it points to the event in the Patient Movement file. Outpatient, it points to either
    the Patient file or the Outpatient Encounter file.  Registration and Updates point to the Patient file.
  • CROSS-REFERENCE:  391.71^AD3^MUMPS
    1)= N B,A,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,4) I A'=""&(B'="") S ^VAT(391.71,"AKY",B,A,X,DA)=""
    2)= N B,A,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,4) I A'=""&(B'="") K ^VAT(391.71,"AKY",B,A,X,DA)
    This cross reference is one of the three fields used to create a unique key for entries in this file.  .01 and .04 are the other two.
.06 TRANSMITTED 0;6 SET
  • '1' FOR NEED TO TRANSMIT;

  • LAST EDITED:  FEB 03, 1997
  • CROSS-REFERENCE:  391.71^AC^MUMPS
    1)= S:+X ^VAT(391.71,"AC",$E(X,1,30),DA)=""
    2)= K ^VAT(391.71,"AC",$E(X,1,30),DA)
    This cross reference is used to gather the entries that need to be broadcasted because an update has occured to a patient's data.  The set logic will not be executed for anything other than a postive send.
.07 DELETED 0;7 SET
  • '1' FOR DELETED;

  • LAST EDITED:  MAY 25, 1995
  • DESCRIPTION:  
    This field is used to mark the given entry for the event as being deleted.  It indicates that the ADT event was deleted, but an ancillary system may still hold the PIVOT number.
.08 REQUIRES TRANSMISSION 0;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 12, 1996
  • HELP-PROMPT:  Enter 'Yes' if this entry needs to be transmitted
  • DESCRIPTION:  
    This field denotes whether or not the entry requires transmission.
  • CROSS-REFERENCE:  391.71^AXMIT2^MUMPS
    1)= Q:(($G(VAFCA08))!('X))  N A S A=$P(^VAT(391.71,DA,0),"^",4) S:(+A) ^VAT(391.71,"AXMIT",A,DA)=""
    2)= N A S A=$P(^VAT(391.71,DA,0),"^",4) K:(+A) ^VAT(391.71,"AXMIT",A,DA)
    This cross reference is used to gather the entries that need to be broadcasted because an update has occured to a patient's data.  The set logic will only be executed when the REQUIRES TRANSMISSION field (#.08) has a value
    of 'YES'.
    Resulting node:
    ^VAT(391.71,"AXMIT",[.04],DA) = ""
    Where:
    [.04] = Value contained in TYPE OF EVENT field (#.04)
    DA = Pointer to entry that requires transmission
.09 USER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 17, 1997
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.1 EVENT REASON CODE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 22, 1998
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  This field may contain an HL7 event reason code for certain entries in the pivot file. For example, if a user causes an ADT-A08 message to be generated, by adding a patient to the security log file the event reason code is
    97, indicating a 'Sensitivity Update' triggered the A08.
1.1 RESULTING MESSAGE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JUL 22, 1997
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    This field will store the result from attempting to build and send an HL7 message.  The result will either be a message ID when the attempt is successful or an error message.
2.1 FIELD(S) EDITED 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  AUG 21, 1997
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
  • DESCRIPTION:  
    This field will be used to store the fields edited, delimited by ; for the event.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3422
  • Clinical Information Resource Network
  • ICR #5616
  • LAB SERVICE
  • External References

    Name Field # of Occurrence
    ^%DT .01+1
    Y^DIQ ID.03+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2 ID.03+1
    ^DPT - [#2] ID.03+1
    ^VAT(391.71 - [#391.71] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1, .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S)
    .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .08(XREF 1S), .08(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, ID.03+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*
    %I ID.03+1*!
    A .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .05(XREF 1S), .05(XREF 1K), .08(XREF 1S), .08(XREF 1K)
    B .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    >> C ID.03+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
    .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .08(XREF 1S), .08(XREF 1K)
    >> DIC ID.03+1, ID.04+1
    M .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05(XREF 1S), .05(XREF 1K)
    >> VAFCA08 .04(XREF 2S), .08(XREF 1S)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .08(XREF 1S), .1+1!
    , 1.1+1!, 2.1+1!
    >> Y ID.03+1*, .01+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All