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 | 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

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.

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 ^VAT(391.71 VAFHPIV2 VAFHPIVT VAFHPURG 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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All