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

Package: Kernel

XQAB ERRORS LOGGED(#8991.5)-->8991.51-->8991.511

Sub-Field: 8991.511


Information

Parent File Name Number Package
8991.51 SITE 8991.511 Kernel

Details

Field # Name Loc Type Details
.01 SITE 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<2) X
  • LAST EDITED:  SEP 24, 1991
  • HELP-PROMPT:  Answer must be 2-45 characters in length.
  • CROSS-REFERENCE:  8991.511^B
    1)= S ^XTV(8991.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^XTV(8991.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.99 NUMBER LOGGED COMPUTED

  • MUMPS CODE:  X ^DD(8991.511,.99,9.4) S X=Y(8991.511,.99,104) S D0=Y(8991.511,.99,80) S D1=Y(8991.511,.99,81) S D2=Y(8991.511,.99,82) S D3=Y(8991.511,.99,83) S X=$J(X,0,0)
    9.2 = S Y(8991.511,.99,80)=$S($D(D0):D0,1:""),Y(8991.511,.99,81)=$S($D(D1):D1,1:""),Y(8991.511,.99,82)=$S($D(D2):D2,1:""),Y(8991.511,.99,83)=$S($D(D3):D3,1:"")
    9.3 = X ^DD(8991.511,.99,9.2) S Y(8991.511,.99,104)=""
    9.4 = X ^DD(8991.511,.99,9.3) X "F D3=0:0 S D3=$N(^XTV(8991.5,D0,1,D1,1,D2,1,D3)) Q:D3'>0 S Y(8991.511,.99,104)=Y(8991.511,.99,104)+$S($D(^(D3,0)):$P(^(0),U,2),1:"""")" S D(3)=D3
  • ALGORITHM:  TOTAL(VOL,UCI:NUMBER LOGGED) (ALWAYS 0 DECIMAL DIGITS)
1 VOL,UCI 1;0 Multiple #8991.5111 8991.5111
Info |  Details