Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AZBYLIB(1440113

Package: Uncategorized

Global: ^AZBYLIB(1440113


Information

FileMan FileNo FileMan Filename Package
1440113 SOFTWARE LIBRARY Uncategorized

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Uncategorized 1 SOFTWARE SYSTEMS(#2109078)[#2109078.02(.01)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Uncategorized 2 SOFTWARE DEVELOPER(#2109077)[#1440113.04(.01)]    SOFTWARE SYSTEMS(#2109078)[#1440113.61(.01)]    
Kernel 1 NEW PERSON(#200)[5]    

Fields, Total: 10

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

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  MAR 04, 1994
  • HELP-PROMPT:  Answer must be 2-5 characters in length.
  • CROSS-REFERENCE:  1440113^B
    1)= S ^AZBYLIB(1440113,"B",$E(X,1,30),DA)=""
    2)= K ^AZBYLIB(1440113,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^1440113^.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZBYLIB(1440113,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(1440113,.01,1,2,1.1) X ^DD(1440113,.01,1,2,1.4)
    1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0)
    1.4)= S DIH=$S($D(^AZBYLIB(1440113,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=1440113,DIG=.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NUMBER
    DELETE VALUE)= NO EFFECT
    FIELD)= BOX NUMBER
.5 BOX NUMBER 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 03, 1994
  • HELP-PROMPT:  Type a Number between 1 and 500, 0 Decimal Digits
    UNEDITABLE
  • NOTES:  TRIGGERED by the PREFIX field of the SOFTWARE LIBRARY File
  • CROSS-REFERENCE:  1440113^C
    1)= S ^AZBYLIB(1440113,"C",$E(X,1,30),DA)=""
    2)= K ^AZBYLIB(1440113,"C",$E(X,1,30),DA)
1 NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 03, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  1440113^D
    1)= S ^AZBYLIB(1440113,"D",$E(X,1,30),DA)=""
    2)= K ^AZBYLIB(1440113,"D",$E(X,1,30),DA)
2 CURRENT VERSION 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAR 03, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
3 CURRENT DISTRIBUTION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  MAR 03, 1994
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
4 DEVELOPER 3;0 POINTER Multiple #1440113.04 1440113.04
5 TUCSON ADP SUPPORT 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 01, 1994
6 PATCH SYSTEM 1;0 Multiple #1440113.06 1440113.06
7 LAST PATCH COMPUTED

  • MUMPS CODE:  X ^DD(1440113,7,9.3) S X=Y(1440113,7,102) S D0=Y(1440113,7,80) S D1=Y(1440113,7,81)
    9.2 = S Y(1440113,7,80)=$S($D(D0):D0,1:""),Y(1440113,7,81)=$S($D(D1):D1,1:""),Y(1440113,7,102)=""
    9.3 = X ^DD(1440113,7,9.2) X "F D1=0:0 S D1=$N(^AZBYLIB(1440113,D0,1,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" Y(1440113,7,102)=Y" S D(1)=D1
  • ALGORITHM:  LAST(PATCH SYSTEM:PATCH SYSTEM)
  • LAST EDITED:  MAR 03, 1994
8 BETA TEST COMPUTED

  • MUMPS CODE:  X ^DD(1440113,8,9.4) S Y(1440113,8,106)=X S X="NO",X=$S(Y(1440113,8,104):Y(1440113,8,105),Y(1440113,8,106):X) S D0=Y(1440113,8,80) S D1=Y(1440113,8,81)
    9.2 = S Y(1440113,8,80)=$S($D(D0):D0,1:""),Y(1440113,8,81)=$S($D(D1):D1,1:"") S Y(1440113,8,103)=$C(59)_$S($D(^DD(1440113.06,2,0)):$P(^(0),U,3),1:"")
    9.3 = X ^DD(1440113,8,9.2) S Y(1440113,8,102)="" X "F D1=0:0 S D1=$N(^AZBYLIB(1440113,D0,1,D1)) Q:D1'>0  S Y=$S($D(^(D1,2)):$P(^(2),U,1),1:"""") S:Y'?."" "" Y(1440113,8,102)=Y" S D(1)=D1
    9.4 = X ^DD(1440113,8,9.3) S X=Y(1440113,8,102) S X=$P($P(Y(1440113,8,103),$C(59)_X_":",2),$C(59),1)="YES",Y(1440113,8,104)=X S X="YES",Y(1440113,8,105)=X S X=1
  • ALGORITHM:  $S(LAST(PATCH SYSTEM:BETA TEST)="YES":"YES",1:"NO")
  • LAST EDITED:  NOV 21, 1994

Found Entries, Total: 70

PREFIX: A4A7    PREFIX: AAPC    PREFIX: ABM    PREFIX: ABP    PREFIX: ACD    PREFIX: ACG    PREFIX: ACHS    PREFIX: ACM    
PREFIX: ACPT    PREFIX: ACR    PREFIX: ADC    PREFIX: ADE    PREFIX: ADEK    PREFIX: ADPT    PREFIX: AEQ    PREFIX: AFH    
PREFIX: AFUN    PREFIX: AG    PREFIX: AGSS    PREFIX: AIB    PREFIX: AICD    PREFIX: AKMO    PREFIX: ALR    PREFIX: AMCH    
PREFIX: AMCP    PREFIX: AMER    PREFIX: AMH    PREFIX: AMQQ    PREFIX: ANS    PREFIX: APCC    PREFIX: APCD    PREFIX: APCH    
PREFIX: APCL    PREFIX: APCM    PREFIX: APCP    PREFIX: APCT    PREFIX: APMF    PREFIX: APS    PREFIX: APSK    PREFIX: AQAC    
PREFIX: AQAL    PREFIX: AQAO    PREFIX: AQAQ    PREFIX: ASA    PREFIX: ASUA    PREFIX: ATA    PREFIX: ATFA    PREFIX: ATFL    
PREFIX: ATS    PREFIX: ATX    PREFIX: AU    PREFIX: AUG    PREFIX: AUM    PREFIX: AUPN    PREFIX: AUT    PREFIX: AVA    
PREFIX: BW    PREFIX: DG    PREFIX: DI    PREFIX: FH    PREFIX: ICD    PREFIX: LR    PREFIX: PS    PREFIX: PSJ    
PREFIX: PSN    PREFIX: RA    PREFIX: SD    PREFIX: XB    PREFIX: XDR    PREFIX: XU    
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All