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 |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBD(359.2

Package: Automated Information Collection System

Global: ^IBD(359.2


Information

FileMan FileNo FileMan Filename Package
359.2 FORM SPECS Automated Information Collection System

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Automated Information Collection System 9 IBD3KPT    IBDFBK1    IBDFBKS    IBDFBKS4    IBDFESP    IBDFPRG1    ^IBD(359.2    ^SDAUDIT
IBDY325    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDFBKS    

Fields, Total: 4

Field # Name Loc Type Details
.01 NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  This the form ID number. Type a Number between 1 and 999999999, 0 Decimal Digits
  • CROSS-REFERENCE:  359.2^B
    1)= S ^IBD(359.2,"B",$E(X,1,30),DA)=""
    2)= K ^IBD(359.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^359.2^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(359.2,.01
    ,1,2,1.4)
    1.4)= S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=359.2,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.02=""
    CREATE VALUE)= S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= #.02
    This triggers the date created into the DATE CREATED field. The date created is used by the purge utilities.
  • CROSS-REFERENCE:  ^^TRIGGER^359.2^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(359.2,.01,1,3,1.1) X ^DD
    (359.2,.01,1,3,1.4)
    1.1)= S X=DIV S X=$P($G(^IBE(357,+$O(^IBE(357,"ADEF",+DA,0)),0)),"^")
    1.4)= S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=359.2,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= #.03=""
    CREATE VALUE)= S X=$P($G(^IBE(357,+$O(^IBE(357,"ADEF",+DA,0)),0)),"^")
    DELETE VALUE)= NO EFFECT
    FIELD)= #.03
    This triggers the name of the form into this file.
.02 DATE CREATED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 03, 1995
  • DESCRIPTION:  
    This is the date that this entry was created. This is triggered by the creation of a new entry.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the NUMBER field of the FORM SPECS File
.03 FORM NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the name of the form that this form specification is for. This is triggered on creation of the entry
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the NUMBER field of the FORM SPECS File
10 FORM SPEC DESCRIPTION 10;0 WORD-PROCESSING #359.21

  • LAST EDITED:  JUN 13, 1995
  • DESCRIPTION:  
    This is the form spec as created by the routines IBDFBKS* and stored in this file. The form spec description is then retrieved to the AICS workstation thru standard broker calls.

External References

Name Field # of Occurrence
^%DT .02+1
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(359.2 .01(XREF 2S), .01(XREF 3S)
^IBD(359.2 - [#359.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
^IBE(357 - [#357] .01(XREF 3n1.1)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
>> D0 .01(XREF 2S), .01(XREF 3S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.1)
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
DT .01(XREF 2S)
U ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .02+1*!, .03+1!
Y .01(XREF 2S), .01(XREF 3S), .02+1
Y(0 .01(XREF 2S), .01(XREF 3S)
Y(1 .01(XREF 2S), .01(XREF 3S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All