Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields
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

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
Info |  Desc |  Pointer To FileMan Files |  Fields