Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 2109078.02

Package: Uncategorized

SOFTWARE SYSTEMS(#2109078)-->2109078.02

Sub-Field: 2109078.02


Information

Parent File Name Number Package
SOFTWARE SYSTEMS(#2109078) PACKAGE LIST 2109078.02 Uncategorized

Details

Field # Name Loc Type Details
.01 PACKAGE PREFIX 0;1 POINTER TO SOFTWARE LIBRARY FILE (#1440113) SOFTWARE LIBRARY(#1440113)

  • LAST EDITED:  NOV 09, 1994
  • CROSS-REFERENCE:  2109078.02^B
    1)= S ^AZBYLIB(2109078,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZBYLIB(2109078,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^2109078.02^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,2,1.1) X ^DD(2109078.02,.01,1,2,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=2109078.02,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,2,2.1) X ^DD(2109078.02,.01,1,2,2.4)
    2.1)= S X=DIV X ^DD(2109078.02,.01,1,2,59.2) S D0=$P(Y(1),U,1) S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=2109078.02,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"")
    CREATE VALUE)= PACKAGE PREFIX:NAME
    DELETE VALUE)= PACKAGE PREFIX:NAME
    FIELD)= PACKAGE NAME
  • CROSS-REFERENCE:  ^^TRIGGER^2109078.02^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,3,1.1) X ^DD(2109078.02,.01,1,3,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=2109078.02,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,3,2.1) X ^DD(2109078.02,.01,1,3,2.4)
    2.1)= S X=DIV X ^DD(2109078.02,.01,1,3,59.2) S D0=$P(Y(1),U,1) S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=2109078.02,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"")
    CREATE VALUE)= PACKAGE PREFIX:CURRENT VERSION
    DELETE VALUE)= PACKAGE PREFIX:CURRENT VERSION
    FIELD)= PACKAGE VERSION
  • CROSS-REFERENCE:  ^^TRIGGER^2109078.02^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,4,1.1) X ^DD(2109078.02,.01,1,4,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2109078.02,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,4,2.1) X ^DD(2109078.02,.01,1,4,2.4)
    2.1)= S X=DIV X ^DD(2109078.02,.01,1,4,59.2) S D0=$P(Y(1),U,1) S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2109078.02,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"")
    CREATE VALUE)= PACKAGE PREFIX:CURRENT DISTRIBUTION
    DELETE VALUE)= PACKAGE PREFIX:CURRENT DISTRIBUTION
    FIELD)= PACKAGE DISTRIBUTION
  • CROSS-REFERENCE:  ^^TRIGGER^2109078.02^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,5,1.1) X ^DD(2109078.02,.01,1,5,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,2)):^(2),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=2109078.02,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(2109078.02,.01,1,5,2.1) X ^DD(2109078.02,.01,1,5,2.4)
    2.1)= S X=DIV X ^DD(2109078.02,.01,1,5,59.2) S D0=$P(Y(1),U,1) S:'$D(^AZBYLIB(1440113,+D0,0)) D0=-1 S Y(101)=$S($D(^AZBYLIB(1440113,D0,2)):^(2),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AZBYLIB(2109078,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=2109078.02,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AZBYLIB(2109078,D0,1,D1,0)):^(0),1:"")
    CREATE VALUE)= PACKAGE PREFIX:BOX NUMBER
    DELETE VALUE)= PACKAGE PREFIX:BOX NUMBER
    FIELD)= PACKAGE BOX
    THIS TRIGGER STUFFS THE VALUE OF THE BOX NUMBER FROM THE SOFTWARE LIBRARY FILE - WHENEVER A PACKAGE IS SELECTED AS A VIABLE INSTALL SITE.
1 PACKAGE NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 09, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the PACKAGE PREFIX field of the PACKAGE LIST sub-field of the SOFTWARE SYSTEMS File
2 PACKAGE VERSION 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  NOV 09, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • NOTES:  TRIGGERED by the PACKAGE PREFIX field of the PACKAGE LIST sub-field of the SOFTWARE SYSTEMS File
3 PACKAGE DISTRIBUTION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  NOV 09, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • NOTES:  TRIGGERED by the PACKAGE PREFIX field of the PACKAGE LIST sub-field of the SOFTWARE SYSTEMS File
4 PACKAGE BOX 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 16, 1994
  • HELP-PROMPT:  Type a Number between 1 and 500, 0 Decimal Digits
    UNEDITABLE
  • NOTES:  TRIGGERED by the PACKAGE PREFIX field of the PACKAGE LIST sub-field of the SOFTWARE SYSTEMS File
Info |  Details |  All