STANDARD DATA DICTIONARY #8973.2 -- CP TIMING FILE 9/29/25 PAGE 1
STORED IN ^KMPD(8973.2, *** 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: @
IDENTIFIED BY:
"W": D:$G(Y) ID1^KMPDUT2(Y)
CROSS
REFERENCED BY: CLIENT NAME(ACLNM), SERVER START DATE/TIME(ADT), NEW PERSON(ANEWPER), KMPTMP SUBSCRIPT(ASSCLDTTM),
KMPTMP SUBSCRIPT(ASSDTPT), KMPTMP SUBSCRIPT(ASSDTTM), KMPTMP SUBSCRIPT(ASSIPDTTM), KMPTMP SUBSCRIPT(ASSNPDTTM),
SERVER START DATE/TIME(ASTDTTM), KMPTMP SUBSCRIPT(ASVDTSS), TITLE(ATITLE), KMPTMP SUBSCRIPT(ATMPSS),
IDENTIFIER(B), SERVER START DATE/TIME(C)
8973.2,.01 IDENTIFIER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 15, 2003
HELP-PROMPT: Answer must be 3-40 characters in length
CROSS-REFERENCE: 8973.2^B
1)= S ^KMPD(8973.2,"B",$E(X,1,40),DA)=""
2)= K ^KMPD(8973.2,"B",$E(X,1,40),DA)
8973.2,.02 SENT TO NATIONAL DATABASE 0;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 15, 2003
8973.2,.03 SERVER START DATE/TIME 0;3 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:X<1 X
LAST EDITED: DEC 11, 2003
HELP-PROMPT: (No range limit on date)
CROSS-REFERENCE: 8973.2^ASTDTTM
1)= S ^KMPD(8973.2,"ASTDTTM",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"ASTDTTM",$E(X,1,30),DA)
^KMPD(8973.2,"ASTDTTM",StartDateTime,X)=""
CROSS-REFERENCE: 8973.2^C
1)= S ^KMPD(8973.2,"C",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 8973.2^ADT^MUMPS
1)= S:$P(X,".") ^KMPD(8973.2,"ADT",$P(X,"."),DA)=""
2)= K:$P(X,".") ^KMPD(8973.2,"ADT",$P(X,"."),DA)
^KMPD(8973.2,"ADT",Date,Ien)=""
8973.2,.04 SERVER DELTA 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 18, 2003
HELP-PROMPT: Answer must be 1-15 characters in length
8973.2,.05 NEW PERSON 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 15, 2003
CROSS-REFERENCE: 8973.2^ANEWPER
1)= S ^KMPD(8973.2,"ANEWPER",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"ANEWPER",$E(X,1,30),DA)
^KMPD(8973.2,"ANEWPER",NewPerson,X)=""
8973.2,.06 CLIENT NAME 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 26, 2003
HELP-PROMPT: Answer must be 1-40 characters in length
CROSS-REFERENCE: 8973.2^ACLNM
1)= S ^KMPD(8973.2,"ACLNM",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"ACLNM",$E(X,1,30),DA)
^KMPD(8973.2,"ACLNM",ClientName,X)=""
8973.2,.07 KMPTMP SUBSCRIPT 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: AUG 28, 2003
HELP-PROMPT: Answer must be 1-12 characters in length
CROSS-REFERENCE: 8973.2^ATMPSS
1)= S ^KMPD(8973.2,"ATMPSS",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"ATMPSS",$E(X,1,30),DA)
^KMPD(8973.2,"ATMPSS",KmptmpSubscript,X)=""
CROSS-REFERENCE: 8973.2^ASVDTSS^MUMPS
1)= D XREFT1^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT1^KMPDUT2($G(DA),$G(X),2)
^KMPD(8973.2,"ASVDTSS",KmptmpSubscript,ServerDate,Ien)=""
CROSS-REFERENCE: 8973.2^ASSDTPT^MUMPS
1)= D XREFT2^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT2^KMPDUT2($G(DA),$G(X),2)
^KMPD(8973.2,"ASSDTPT",KmptmpSubscript,ServerDateTime,PrimeTime,DA)=""
CROSS-REFERENCE: 8973.2^ASSDTTM^MUMPS
1)= D XREFT3^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT3^KMPDUT2($G(DA),$G(X),2)
^KMPD(8973.2,"ASSDTTM",KmptmpSusbscript,ServerDateTime,Ien)=""
CROSS-REFERENCE: 8973.2^ASSCLDTTM^MUMPS
1)= D XREFT4^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT4^KMPDUT2($G(DA),$G(X),2)
S ^KMPD(8973.2,"ASSCLDTTM",KmptmpSubscript,ClientName,ServerDateTime,DA)
CROSS-REFERENCE: 8973.2^ASSNPDTTM^MUMPS
1)= D XREFT5^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT5^KMPDUT2($G(DA),$G(X),2)
^KMPD(8973.2,"ASSNPDTTM",KmptmpSubscript,NewPerson,ServerDateTime,DA)=""
CROSS-REFERENCE: 8973.2^ASSIPDTTM^MUMPS
1)= D XREFT6^KMPDUT2($G(DA),$G(X),1)
2)= D XREFT6^KMPDUT2($G(DA),$G(X),2)
^KMPD(8973.2,"ASSIPDTTM",KmptmpSubscript,IpAddress,ServerDateTime,DA)=""
8973.2,.08 TITLE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 15, 2003
HELP-PROMPT: Answer must be 1-30 characters in length
CROSS-REFERENCE: 8973.2^ATITLE
1)= S ^KMPD(8973.2,"ATITLE",$E(X,1,30),DA)=""
2)= K ^KMPD(8973.2,"ATITLE",$E(X,1,30),DA)
^KMPD(8973.2,"ATITLE",Title,X)=""
8973.2,.09 IP ADDRESS 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 16, 2003
HELP-PROMPT: Answer must be 1-15 characters in length
8973.2,.1 DAILY - SENT TO NATIONAL DB 0;10 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: FEB 10, 2004
FILES POINTED TO FIELDS
NEW PERSON (#200) NEW PERSON (#.05)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):