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

Package: Equipment Turn-In Request

Global: ^PRCN(413.3


Information

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

Description

Directly Accessed By Routines, Total: 5

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

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 2

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

Fields, Total: 2

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

External References

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

Global Variables Directly Accessed

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)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID1+1*!
>> C ID1+1*
>> D0 .01(XREF 2S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S)
>> DIC ID1+1
>> DIG .01(XREF 2n1.4)
>> DIH .01(XREF 2n1.4)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4)
U ID1+1, .01(XREF 2S), .01(XREF 2n1.4)
>> X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4)
Y ID1+1*, .01(XREF 2S)
Y(1 .01(XREF 2S)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All