STANDARD DATA DICTIONARY #8972.1 -- CP CODE EVALUATOR FILE 3/24/25 PAGE 1
STORED IN ^KMPD(8972.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B)
8972.1,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
CROSS-REFERENCE: 8972.1^B
1)= S ^KMPD(8972.1,"B",$E(X,1,30),DA)=""
2)= K ^KMPD(8972.1,"B",$E(X,1,30),DA)
8972.1,.02 DATE/TIME ENTERED 0;2 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 20, 1999
8972.1,.03 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 20, 1999
8972.1,.04 CPU TIME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.05 DIO REFERENCES 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.06 BIO REFERENCES 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.07 PAGE FAULTS 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.08 M COMMANDS 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.09 GLOBAL REFERENCES 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: AUG 20, 1999
HELP-PROMPT: Answer must be 1-15 characters in length.
8972.1,.1 COUNT 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: MAR 15, 2000
HELP-PROMPT: Answer must be 1-15 characters in length
8972.1,.11 ACTIVE 0;11 SET
'0' FOR not active;
'1' FOR active;
LAST EDITED: JUL 06, 2009
8972.1,.12 ELAPSED TIME (SECONDS) 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: NOV 15, 2005
HELP-PROMPT: Answer must be 1-12 characters in length
8972.1,1.01 BRIEF DESCRIPTION 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: MAR 16, 2000
HELP-PROMPT: Answer must be 1-60 characters in length
8972.1,2.01 DATE/TIME LAST EDITED 2;1 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAR 29, 2000
HELP-PROMPT: (No range limit on date)
8972.1,2.02 LAST EDITED BY 2;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 29, 2000
8972.1,10 COMMENTS 10;0 WORD-PROCESSING #8972.11
LAST EDITED: AUG 20, 1999
8972.1,11 ASSOCIATED ROUTINE 11;0 Multiple #8972.111
8972.111,.01 ASSOCIATED ROUTINE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
LAST EDITED: APR 05, 2000
HELP-PROMPT: Answer must be 1-8 characters in length
CROSS-REFERENCE: 8972.111^B
1)= S ^KMPD(8972.1,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^KMPD(8972.1,DA(1),11,"B",$E(X,1,30),DA)
8972.1,99.04 AVE CPU TIME ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.04,9.4) S X=$E(Y(8972.1,99.04,5),Y(8972.1,99.04,6),X)
9.2 = S Y(8972.1,99.04,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.04,1),U,10),Y(897
2.1,99.04,2)=X S X=$P(Y(8972.1,99.04,1),U,4),X=$S($P(Y(8972.1,99.04,1),U,10):X/$P(Y(8972.1,99.04,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.04,9.2) S Y(8972.1,99.04,3)=X S X=1,Y(8972.1,99.04,4)=X S X=$P(Y(8972.1,99.04
,1),U,4)
9.4 = X ^DD(8972.1,99.04,9.3) S X=$S(Y(8972.1,99.04,2):Y(8972.1,99.04,3),Y(8972.1,99.04,4):X),Y(897
2.1,99.04,5)=X S X=1,Y(8972.1,99.04,6)=X S X=15
ALGORITHM: $E($S(COUNT:CPU TIME/COUNT,1:CPU TIME),1,15)
LAST EDITED: APR 04, 2000
8972.1,99.05 AVE DIO REFERENCES ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.05,9.4) S X=$E(Y(8972.1,99.05,5),Y(8972.1,99.05,6),X)
9.2 = S Y(8972.1,99.05,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.05,1),U,10),Y(897
2.1,99.05,2)=X S X=$P(Y(8972.1,99.05,1),U,5),X=$S($P(Y(8972.1,99.05,1),U,10):X/$P(Y(8972.1,99.05,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.05,9.2) S Y(8972.1,99.05,3)=X S X=1,Y(8972.1,99.05,4)=X S X=$P(Y(8972.1,99.05
,1),U,5)
9.4 = X ^DD(8972.1,99.05,9.3) S X=$S(Y(8972.1,99.05,2):Y(8972.1,99.05,3),Y(8972.1,99.05,4):X),Y(897
2.1,99.05,5)=X S X=1,Y(8972.1,99.05,6)=X S X=15
ALGORITHM: $E($S(COUNT:DIO REFERENCES/COUNT,1:DIO REFERENCES),1,15)
LAST EDITED: APR 04, 2000
8972.1,99.06 AVE BIO REFERENCES ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.06,9.4) S X=$E(Y(8972.1,99.06,5),Y(8972.1,99.06,6),X)
9.2 = S Y(8972.1,99.06,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.06,1),U,10),Y(897
2.1,99.06,2)=X S X=$P(Y(8972.1,99.06,1),U,6),X=$S($P(Y(8972.1,99.06,1),U,10):X/$P(Y(8972.1,99.06,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.06,9.2) S Y(8972.1,99.06,3)=X S X=1,Y(8972.1,99.06,4)=X S X=$P(Y(8972.1,99.06
,1),U,6)
9.4 = X ^DD(8972.1,99.06,9.3) S X=$S(Y(8972.1,99.06,2):Y(8972.1,99.06,3),Y(8972.1,99.06,4):X),Y(897
2.1,99.06,5)=X S X=1,Y(8972.1,99.06,6)=X S X=15
ALGORITHM: $E($S(COUNT:BIO REFERENCES/COUNT,1:BIO REFERENCES),1,15)
LAST EDITED: APR 04, 2000
8972.1,99.07 AVE PAGE FAULTS ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.07,9.4) S X=$E(Y(8972.1,99.07,5),Y(8972.1,99.07,6),X)
9.2 = S Y(8972.1,99.07,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.07,1),U,10),Y(897
2.1,99.07,2)=X S X=$P(Y(8972.1,99.07,1),U,7),X=$S($P(Y(8972.1,99.07,1),U,10):X/$P(Y(8972.1,99.07,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.07,9.2) S Y(8972.1,99.07,3)=X S X=1,Y(8972.1,99.07,4)=X S X=$P(Y(8972.1,99.07
,1),U,7)
9.4 = X ^DD(8972.1,99.07,9.3) S X=$S(Y(8972.1,99.07,2):Y(8972.1,99.07,3),Y(8972.1,99.07,4):X),Y(897
2.1,99.07,5)=X S X=1,Y(8972.1,99.07,6)=X S X=15
ALGORITHM: $E($S(COUNT:PAGE FAULTS/COUNT,1:PAGE FAULTS),1,15)
LAST EDITED: APR 04, 2000
8972.1,99.08 AVE M COMMANDS ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.08,9.4) S X=$E(Y(8972.1,99.08,5),Y(8972.1,99.08,6),X)
9.2 = S Y(8972.1,99.08,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.08,1),U,10),Y(897
2.1,99.08,2)=X S X=$P(Y(8972.1,99.08,1),U,8),X=$S($P(Y(8972.1,99.08,1),U,10):X/$P(Y(8972.1,99.08,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.08,9.2) S Y(8972.1,99.08,3)=X S X=1,Y(8972.1,99.08,4)=X S X=$P(Y(8972.1,99.08
,1),U,8)
9.4 = X ^DD(8972.1,99.08,9.3) S X=$S(Y(8972.1,99.08,2):Y(8972.1,99.08,3),Y(8972.1,99.08,4):X),Y(897
2.1,99.08,5)=X S X=1,Y(8972.1,99.08,6)=X S X=15
ALGORITHM: $E($S(COUNT:M COMMANDS/COUNT,1:M COMMANDS),1,15)
LAST EDITED: APR 04, 2000
8972.1,99.09 AVE GLOBAL REFERENCES ; COMPUTED
MUMPS CODE: X ^DD(8972.1,99.09,9.4) S X=$E(Y(8972.1,99.09,5),Y(8972.1,99.09,6),X)
9.2 = S Y(8972.1,99.09,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"") S X=$P(Y(8972.1,99.09,1),U,10),Y(897
2.1,99.09,2)=X S X=$P(Y(8972.1,99.09,1),U,9),X=$S($P(Y(8972.1,99.09,1),U,10):X/$P(Y(8972.1,99.09,1)
,U,10),1:"*******")
9.3 = X ^DD(8972.1,99.09,9.2) S Y(8972.1,99.09,3)=X S X=1,Y(8972.1,99.09,4)=X S X=$P(Y(8972.1,99.09
,1),U,9)
9.4 = X ^DD(8972.1,99.09,9.3) S X=$S(Y(8972.1,99.09,2):Y(8972.1,99.09,3),Y(8972.1,99.09,4):X),Y(897
2.1,99.09,5)=X S X=1,Y(8972.1,99.09,6)=X S X=15
ALGORITHM: $E($S(COUNT:GLOBAL REFERENCES/COUNT,1:GLOBAL REFERENCES),1,15)
LAST EDITED: APR 04, 2000
FILES POINTED TO FIELDS
NEW PERSON (#200) ENTERED BY (#.03)
LAST EDITED BY (#2.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):