Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | 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

This file serves as a funnel for all of the ADT events that need to be broadcast to any system. The VISIT file may replace this file in the future. The entries in this file will contain information on how to get back to its parent event in PIMS. There are no parent child relationships stored here.

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 4

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

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All