STANDARD DATA DICTIONARY #69.91 -- LR ROUTINE INTEGRITY CHECKER FILE 9/29/25 PAGE 1
STORED IN ^LAB(69.91, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains routine size (^%ZOSF("SIZE")) AND ROUTINE BIT SIZE (^LRNITEG) FOR EXPORTED LAB PACKAGES BY VERSION NUMBER.
CAN BE USED TO IDENTIFY DIFFERENCE BETWEEN VERSION'S ROUTINE AND TO DOUBLE CHECK PATCH APPLICATIONS.
IDENTIFIED BY: Distribution Date (#2)[R]
CROSS
REFERENCED BY: Version #(B), Patch #(C)
69.91,.01 Version # 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-6 CHARACTERS IN LENGTH
DESCRIPTION:
The version number for this set of exported routines
CROSS-REFERENCE: 69.91^B
1)= S ^LAB(69.91,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,"B",$E(X,1,30),DA)
69.91,1 Routine ROU;0 Multiple #69.911
DESCRIPTION:
Enter the name of the routine to be exported
GROUP: LR
69.911,.01 Routine 0;1 FREE TEXT (Multiply asked)
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
69.911,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
69.911,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
69.911,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
69.911,3 Patch # 1;0 Multiple #69.9113
69.9113,.01 Patch # 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1988
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
Enter a patch number if appropriate.
CROSS-REFERENCE:69.911^C
1)= S ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(69.91,DA(2),"ROU","C",$E(X,1,30),DA(1),DA)
CROSS-REFERENCE:69.91^C
1)= S ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LAB(69.91,"C",$E(X,1,30),DA(2),DA(1),DA)
69.91,2 Distribution Date 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This field contains the distrubution date of this version.
69.91,3 DELETED OPTIONS DO;0 Multiple #69.913
DESCRIPTION: This field contains a list of options which are being deleted or being moved from one menu to
another during version installation.
69.913,.01 DELETED OPTIONS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: FEB 24, 1993
HELP-PROMPT: Enter the MENU TEXT of the option being deleted.
CROSS-REFERENCE: 69.913^B
1)= S ^LAB(69.91,DA(1),"DO","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,DA(1),"DO","B",$E(X,1,30),DA)
69.913,1 OPTION NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X
LAST EDITED: FEB 24, 1993
HELP-PROMPT: Answer must be 3-60 characters in length.
CROSS-REFERENCE: 69.913^C
1)= S ^LAB(69.91,DA(1),"DO","C",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,DA(1),"DO","C",$E(X,1,30),DA)
69.913,2 REPOINT 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 29, 1989
69.913,3 REPOINT TO OPTION 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: MAR 29, 1989
HELP-PROMPT: Enter the name of the option to which repointing.
69.91,4 DELETE PRINT TEMPLATE PRT;0 Multiple #69.914 (Add New Entry without Asking)
DESCRIPTION: A list of print templates which are obsolete or being replaced by another template using new file
structure.
TECHNICAL DESCR:
The post init routine LROPUD uses this field during clean up/deletion process.
69.914,.01 DELETE PRINT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 17, 1993
HELP-PROMPT: Answer must be 1-50 characters in length.
CROSS-REFERENCE: 69.914^B
1)= S ^LAB(69.91,DA(1),"PRT","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,DA(1),"PRT","B",$E(X,1,30),DA)
69.91,5 DELETE SORT TEMPLATE SORT;0 Multiple #69.915 (Add New Entry without Asking)
DESCRIPTION:
This field contains a list of obsolete or replaced sort templates using the new file structure.
TECHNICAL DESCR:
The post init routine LROPUD uses this field to delete sort templates.
69.915,.01 DELETE SORT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 17, 1993
HELP-PROMPT: Answer must be 1-50 characters in length.
CROSS-REFERENCE: 69.915^B
1)= S ^LAB(69.91,DA(1),"SORT","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,DA(1),"SORT","B",$E(X,1,30),DA)
69.91,6 DELETE EDIT TEMPLATE EDIT;0 Multiple #69.916 (Add New Entry without Asking)
DESCRIPTION: This field contains a list of edit/input templates which are obsolete or being replaced by
templates based on the new file structure.
TECHNICAL DESCR: The post init routine LROPUD uses this field to delete edit templates which are obsolete or being
replaced by new templates based on the new file structure.
69.916,.01 DELETE EDIT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 17, 1993
HELP-PROMPT: Answer must be 1-50 characters in length.
CROSS-REFERENCE: 69.916^B
1)= S ^LAB(69.91,DA(1),"EDIT","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.91,DA(1),"EDIT","B",$E(X,1,30),DA)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
LRINTEG VERSION COMPARE PRINT DEC 09, 1988 USER #0 LR INTEGRITY CHECKER VERSION COMPARE LIST
SORT TEMPLATE(S):
LRINTEG VERSION COMPARE DEC 09, 1988 USER #0
SORT BY: Routine//
Routine SUB-FIELD: Routine//
WITHIN Routine, SORT BY: Version #//
FORM(S)/BLOCK(S):