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

Package: Lab Service

LR ROUTINE INTEGRITY CHECKER(#69.91)-->69.911

Sub-Field: 69.911


Information

Parent File Name Number Package
LR ROUTINE INTEGRITY CHECKER(#69.91) Routine 69.911 Lab Service

Details

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

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3)!'("L"[$E(X)) X I $D(X) X ^%ZOSF("TEST") K:'$T X I $D(X) D SCREEN^LRNITEG
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  ANSWER MUST BE 3-8 CHARACTERS IN LENGTH WHICH BEGIN WITH 'L'
  • DESCRIPTION:  
    Enter name of a Laboratory Routine  Must begin with 'L'
    SOURCE OF DATA:   LABORATORY PACKAGE ROUTINES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.911^B
    1)= S ^LAB(69.91,DA(1),"ROU","B",$E(X,1,30),DA)=""
    2)= K ^LAB(69.91,DA(1),"ROU","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^69.911^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(69.911,.01,1,2,1.1) X ^DD(69.911,.01,1,2,1.4)
    1.1)= S X=DIV D EN^LRNITEG,SIZE^LRNITEG S X=SIZE
    1.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=69.911,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(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(69.911,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=69.911,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= D EN^LRNITEG,SIZE^LRNITEG S X=SIZE
    DELETE VALUE)= @
    FIELD)= Routine Size ($L)
  • CROSS-REFERENCE:  ^^TRIGGER^69.911^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(69.911,.01,1,3,1.1) X ^DD(69.911,.01,1,3,1.4)
    1.1)= S X=XBIT
    1.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.911,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(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(69.911,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.911,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= D EN^LRNITEG,SIZE^LRNITEG S X=XBIT
    DELETE VALUE)= @
    FIELD)= Routine Bit Size ($A)
  • CROSS-REFERENCE:  ^^TRIGGER^69.911^2.5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(69.911,.01,1,4,1.1) X ^DD(69.911,.01,1,4,1.4)
    1.1)= S X=DIV D CKSUM^LRNITEG S X=XSUM
    1.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=69.911,DIG=2.5 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(^LAB(69.91,D0,"ROU",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(69.911,.01,1,4,2.4)
    2.4)= S DIH=$S($D(^LAB(69.91,DIV(0),"ROU",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=69.911,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= D CKSUM^LRNITEG S X=XSUM
    DELETE VALUE)= @
    FIELD)= Check Sum
1 Routine Size ($L) 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4500)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Type a Number between 1 and 4500, 0 Decimal Digits
  • DESCRIPTION:  
    This is the size ($L) of the routine determined by LRNITEG This does not include the 1 st. line of the routine.. It is not Editable.
    UNEDITABLE
  • NOTES:  TRIGGERED by the Routine field of the Routine sub-field of the LR ROUTINE INTEGRITY CHECKER File
2 Routine Bit Size ($A) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  Enter the routine bit size as derived by LRNITEG This value does not include the 1 st Line or the routine.
    Sum of all the ASCI charaters in the routines.
    UNEDITABLE
  • NOTES:  TRIGGERED by the Routine field of the Routine sub-field of the LR ROUTINE INTEGRITY CHECKER File
2.5 Check Sum 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S Y(0)=Y S Y=$S(Y=1:"Can't Compute",+Y=0:"Not Computed",1:Y)
  • LAST EDITED:  OCT 31, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  This is the check sum provided by the ^%ZOSF("RSUM") node and the CHECKSUM value shown on the FORUM patch module. This is a True check sum value. It does not include the second line of the routine in the calculation,
    therefore it does not ensure that the patch number has been placed in that line. ie **45**. This line is checked however by the $L and the $A nodes.
    UNEDITABLE
  • NOTES:  TRIGGERED by the Routine field of the Routine sub-field of the LR ROUTINE INTEGRITY CHECKER File
3 Patch # 1;0 Multiple #69.9113 69.9113
Info |  Details |  All