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 | Found Entries | All

Print Page as PDF

Global: ^VAT(394.84

Package: Patient Data Exchange

Global: ^VAT(394.84

Information

FileMan FileNo	FileMan Filename	Package
394.84	VAQ - SEGMENT GROUP	Patient Data Exchange

Description

This file contains groups of data segments commonly referenced by the facility. Groups marked as 'Public' may be referenced by all users of PDX. Groups marked as 'Private' may only be referenced by the individual that created the group.

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	Group Name	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `SEP 28, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Name of group.` CROSS-REFERENCE: `394.84^B` `1)= S ^VAT(394.84,"B",$E(X,1,30),DA)=""` `2)= K ^VAT(394.84,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^394.84^.03` `1)= X ^DD(394.84,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.84,.01,1,2,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))=""` `1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.84,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= Created By=""` `CREATE VALUE)= S X=$G(DUZ)` `DELETE VALUE)= NO EFFECT` `FIELD)= Created By` `User creating segment group automatically stored.` CROSS-REFERENCE: `^^TRIGGER^394.84^.04` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(394.84,.01,1,3,1.1) X` `^DD(394.84,.01,1,3,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%` `1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=394.84,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= Date Created=""` `CREATE VALUE)= NOW` `DELETE VALUE)= NO EFFECT` `FIELD)= Date Created` `Date/time segment group was created automatically stored.`
.02	Group Type	0;2	SET	'1' FOR PUBLIC; '0' FOR PRIVATE; LAST EDITED: `SEP 27, 1993` DESCRIPTION: `Set to PRIVATE if the group can only be referenced by the person who created the group. Set to PUBLIC if the group can be referenced by all users.` CROSS-REFERENCE: `394.84^AE1^MUMPS` `1)= S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF` `2)= S VAQXRF=$$AE^VAQXRF2(DA,0,.02,X) K VAQXRF` `Creates a cross reference based on the group type and creator for each segment group entered.` `Resulting node ==> ^VAT(394.84,"A-SEGGRP",[.02],[.03],DA)` `Where: [.02] is field number .02` `[.03] is field number .03` `DA is the entry number` `The resulting node is created by the AE1 and AE2 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.`
.03	Created By	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 27, 1993` DESCRIPTION: `Person who created this group.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the Group Name field of the VAQ - SEGMENT GROUP File` CROSS-REFERENCE: `394.84^AE2^MUMPS` `1)= S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF` `2)= S VAQXRF=$$AE^VAQXRF2(DA,0,.03,X) K VAQXRF` `Creates a cross reference based on the group type and creator for each segment group entered.` `Resulting node ==> ^VAT(394.84,"A-SEGGRP",[.02],[.03],DA)` `Where: [.02] is field number .02` `[.03] is field number .03` `DA is the entry number`
.04	Date Created	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 02, 1992` DESCRIPTION: `Date the group was created.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the Group Name field of the VAQ - SEGMENT GROUP File`
10	Data Segment	SEG;0	POINTER Multiple #394.841	394.841 DESCRIPTION: `Multiple containing data segments contained in this group.`

Found Entries, Total: 1

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