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

Package: Uncategorized

DSM REMOTE ERROR REPORTING(#8008907)-->8008907.01-->8008907.11

Sub-Field: 8008907.11


Information

Parent File Name Number Package
8008907.01 ERROR NUMBER 8008907.11 Uncategorized

Details

Field # Name Loc Type Details
.01 ERROR NUMBER 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  JUN 09, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  8008907.11^B
    1)= S ^AZHLRER(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AZHLRER(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
.02 NAMESPACE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1)!'(X?1.4U) X
  • LAST EDITED:  JUN 12, 1992
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • CROSS-REFERENCE:  8008907^C
    1)= S ^AZHLRER("C",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^AZHLRER("C",$E(X,1,30),DA(2),DA(1),DA)
.03 VERSION 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  JUN 11, 1992
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
.04 $ZE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X S:$D(X) X=$TR(X,"^","~")
  • OUTPUT TRANSFORM:  S Y=$TR(Y,"~","^")
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
.05 ERROR 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  8008907^D
    1)= S ^AZHLRER("D",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^AZHLRER("D",$E(X,1,30),DA(2),DA(1),DA)
.06 ROUTINE 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  JUN 23, 1992
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  8008907^E
    1)= S ^AZHLRER("E",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^AZHLRER("E",$E(X,1,30),DA(2),DA(1),DA)
1 VARIABLES 1;0 Multiple #8008907.111 8008907.111
50 LL-ASUFAC COMPUTED

  • MUMPS CODE:  S Y(8008907.11,50,1)=$S($D(^AZHLRER(D0,0)):^(0),1:"") S X=$P(Y(8008907.11,50,1),U,1)
  • ALGORITHM:  ASUFAC
51 LL-ERROR-DATE COMPUTED

  • MUMPS CODE:  S Y(8008907.11,51,1)=$S($D(^AZHLRER(D0,1,D1,0)):^(0),1:"") S X=$P(Y(8008907.11,51,1),U,1)
  • ALGORITHM:  ERROR DATE
Info |  Details |  All