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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRCD(420.9999

Package: IFCAP

Global: ^PRCD(420.9999


Information

FileMan FileNo FileMan Filename Package
420.9999 PRCD SD STANDARD FOR COPYING IFCAP

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IFCAP 2 ^PRCD(420.9999    ITEM SPECIFIC INFORMATION    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IFCAP 1 PRCD SD STATUS(#420.1999)[2]    
Kernel 1 NEW PERSON(#200)[4]    

Fields, Total: 6

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X K:$G(X)]""&$O(^PRCD(420.9999,"B",X,"")) X
  • LAST EDITED:  OCT 07, 1994
  • HELP-PROMPT:  Enter free text up to 15 characters and must be unique in file.
  • DESCRIPTION:  
    This field is the code of administrative office.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  420.9999^B
    1)= S ^PRCD(420.9999,"B",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.9999,"B",$E(X,1,30),DA)
1 DESCRIPTION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1." ".E) X
  • LAST EDITED:  NOV 24, 1993
  • HELP-PROMPT:  Enter free text up to 45 characters.
  • DESCRIPTION:  
    This field is the desription of the code.
  • CROSS-REFERENCE:  420.9999^C
    1)= S ^PRCD(420.9999,"C",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.9999,"C",$E(X,1,30),DA)
    This is used to look-up entries by description.
2 STATUS 0;3 POINTER TO PRCD SD STATUS FILE (#420.1999)
************************REQUIRED FIELD************************
PRCD SD STATUS(#420.1999)

  • LAST EDITED:  OCT 07, 1994
  • DESCRIPTION:  
    This field is the status of the entry in file.
  • CROSS-REFERENCE:  ^^TRIGGER^420.9999^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(420.9999,2,1,10,1.4)
    1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=420.9999,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS EDIT USER
  • CROSS-REFERENCE:  ^^TRIGGER^420.9999^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(420.9999,2,1,15,1.1) X ^DD(420.9999,2,1,15,1.4)
    1.1)= S X=DIV S X=$P($$DT^PRC0B2("N","E"),"^")
    1.4)= S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=420.9999,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P($$DT^PRC0B2("N","E"),"^")
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS EDIT DA
3 FIX VALUE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1." ".E) X
  • LAST EDITED:  DEC 10, 1993
  • HELP-PROMPT:  Enter free text up to 15 characters.
  • DESCRIPTION:  
    This field's value is used by programer for hard coding in programs.
  • TECHNICAL DESCR:  
    This field's value is used by programer for hard coding in programs. Always hardcode with this fix values. If this value is edited all programs referring to this value need to be edited.
  • CROSS-REFERENCE:  420.9999^AC
    1)= S ^PRCD(420.9999,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCD(420.9999,"AC",$E(X,1,30),DA)
    This is used to search entries in this file.
4 STATUS EDIT USER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 07, 1994
  • HELP-PROMPT:  Enter the user name.
  • DESCRIPTION:  
    User who changed the status.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File
5 STATUS EDIT DATE/TIME 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 07, 1994
  • HELP-PROMPT:  Enter date/time
  • DESCRIPTION:  
    The Time at which the status is edited.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the STATUS field of the PRCD SD STANDARD FOR COPYING File

External References

Name Field # of Occurrence
^%DT 5+1
^DICR 2(XREF 10n1.4), 2(XREF 15n1.4)
$$DT^PRC0B2 2(XREF 15n1.1)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 2(XREF 10n1.4), 2(XREF 15n1.4)
^DD(420.9999 2(XREF 10S), 2(XREF 15S)
^PRCD(420.9999 - [#420.9999] .01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4), 3(XREF 1S)
3(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 IDD1+1, 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 5+1*
>> D0 2(XREF 10S), 2(XREF 15S)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 15S), 3(XREF 1S), 3(XREF 1K)
>> DIG 2(XREF 10n1.4), 2(XREF 15n1.4)
>> DIH 2(XREF 10n1.4), 2(XREF 15n1.4)
>> DIU 2(XREF 10S), 2(XREF 15S)
DIV 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.1), 2(XREF 15n1.4)
DIV(0 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)
DUZ 2(XREF 10S)
U IDD1+1, 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 10S), 2(XREF 10n1.4), 2(XREF 15S), 2(XREF 15n1.1)
2(XREF 15n1.4), 3+1!, 3(XREF 1S), 3(XREF 1K), 5+1*!
Y 2(XREF 10S), 2(XREF 15S), 5+1
Y(1 2(XREF 10S), 2(XREF 15S)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All