Global: ^PRCN(413.3

FileMan FileNo	FileMan Filename	Package
413.3	CONCURRING OFFICIALS	Equipment Turn-In Request

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Equipment Turn-In Request	6	PRCN109 PRCNMESG PRCNOTHR PRCNPRNT ^PRCN(413.3 ^PRCN(413.7

Package	Total	FileMan Files
Equipment Turn-In Request	1	EQUIPMENT REQUEST(#413)[#413.046(.01)]

Package	Total	FileMan Files
Kernel	2	TITLE(#3.1)[1] NEW PERSON(#200)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `AUG 05, 1995` DESCRIPTION: `This is the name of designated officials at a VA Medical Center which must concur with any particular equipment request.` CROSS-REFERENCE: `413.3^B` `1)= S ^PRCN(413.3,"B",$E(X,1,30),DA)=""` `2)= K ^PRCN(413.3,"B",$E(X,1,30),DA)` `This cross-reference is by concurring official.` CROSS-REFERENCE: `^^TRIGGER^413.3^1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^VA(200,X,0),U,9) X ^DD(413.3,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^PRCN(413.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=413.3,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= S X=$P(^VA(200,X,0),U,9)` `DELETE VALUE)= NO EFFECT` `FIELD)= #1` `This triggers the title from the New Person file.`
1	TITLE	0;2	POINTER TO TITLE FILE (#3.1)	TITLE(#3.1) LAST EDITED: `DEC 03, 1993` DESCRIPTION: `This is the title of the concurring official.` NOTES: `TRIGGERED by the NAME field of the CONCURRING OFFICIALS File`

NAME

0;1

POINTER TO NEW PERSON FILE (#200)

************************REQUIRED FIELD************************

LAST EDITED: AUG 05, 1995
DESCRIPTION:
This is the name of designated officials at a VA Medical Center which must concur with any particular equipment request.
CROSS-REFERENCE: 413.3^B
1)= S ^PRCN(413.3,"B",$E(X,1,30),DA)=""
2)= K ^PRCN(413.3,"B",$E(X,1,30),DA)
This cross-reference is by concurring official.
CROSS-REFERENCE: ^^TRIGGER^413.3^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^VA(200,X,0),U,9) X ^DD(413.3,.01,1,2,1.4)
1.4)= S DIH=$S($D(^PRCN(413.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=413.3,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=$P(^VA(200,X,0),U,9)
DELETE VALUE)= NO EFFECT
FIELD)= #1
This triggers the title from the New Person file.

TITLE

0;2

POINTER TO TITLE FILE (#3.1)

Name	Field # of Occurrence
^DICR	.01(XREF 2n1.4)
Y^DIQ	ID1+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD(3.1	ID1+1
^DD(413.3	.01(XREF 2S)
^DIC(3.1 - [#3.1]	ID1+1
^PRCN(413.3 - [#413.3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4)
^VA(200 - [#200]	.01(XREF 2S)

Name	Field # of Occurrence
^(0	ID1+1, .01(XREF 2S), .01(XREF 2n1.4)