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: 1440113.61

Package: Uncategorized

SOFTWARE LIBRARY(#1440113)-->1440113.06-->1440113.61

Sub-Field: 1440113.61


Information

Parent File Name Number Package
1440113.06 FACILITIES LOADED 1440113.61 Uncategorized

Details

Field # Name Loc Type Details
.01 FACILITIES LOADED 0;1 POINTER TO SOFTWARE SYSTEMS FILE (#2109078) SOFTWARE SYSTEMS(#2109078)

  • LAST EDITED:  SEP 06, 1994
  • CROSS-REFERENCE:  1440113.61^B
    1)= S ^AZBYLIB(1440113,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZBYLIB(1440113,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 ABREV FAC COMPUTED

  • MUMPS CODE:  X ^DD(1440113.61,1,9.4) S X=$P(Y(1440113.61,1,101),U,2) S D0=Y(1440113.61,1,80) S D1=Y(1440113.61,1,81) S D2=Y(1440113.61,1,82)
    9.2 = S Y(1440113.61,1,82)=$S($D(D2):D2,1:""),Y(1440113.61,1,81)=$S($D(D1):D1,1:""),Y(1440113.61,1,80)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(1440113.61,1,9.2) S Y(1440113.61,1,1)=$S($D(^AZBYLIB(1440113,D0,1,D1,1,D2,0)):^(0),1:"")
    9.4 = X ^DD(1440113.61,1,9.3) S D0=$P(Y(1440113.61,1,1),U,1) S:'$D(^AZBYLIB(2109078,+D0,0)) D0=-1 S Y(1440113.61,1,101)=$S($D(^AZBYLIB(2109078,D0,0)):^(0),1:"")
  • ALGORITHM:  FACILITIES LOADED:ABBREV NAME
  • LAST EDITED:  SEP 01, 1994
2 DATE INSTALLED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 01, 1994
Info |  Details |  All