STANDARD DATA DICTIONARY #690.2 -- MEDICINE VIEW FILE 9/29/25 PAGE 1
STORED IN ^MCAR(690.2, (36 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file allows Order Entry and Health Summary to pick-up the fields within the Medicine Data base.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PRIMARY FILE (#1)
CROSS
REFERENCED BY: PRINT VIEW TEMPLATE NAME(B), PRIMARY FILE(C), PROCEDURE(D)
690.2,.01 PRINT VIEW TEMPLATE NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
The Name of the print template name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 690.2^B
1)= S ^MCAR(690.2,"B",$E(X,1,60),DA)=""
2)= K ^MCAR(690.2,"B",$E(X,1,60),DA)
690.2,1 PRIMARY FILE 0;2 POINTER TO FILE FILE (#1)
INPUT TRANSFORM: S DIC("S")="I X'<690,X<705" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 02, 1993
HELP-PROMPT: Only the FileMan FILE NUMBER will be accepted.
DESCRIPTION:
This is the procedure file that the print template uses as the primary file.
SCREEN: S DIC("S")="I X'<690,X<705"
EXPLANATION: Only Medicine files may be selected.
CROSS-REFERENCE: 690.2^C
1)= S ^MCAR(690.2,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(690.2,"C",$E(X,1,30),DA)
This allow lookups on file number
690.2,2 FIELD 1;0 Multiple #690.22
IDENTIFIED BY: ASTM(#2)
690.22,.01 FIELD NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"."7N.N) X
LAST EDITED: NOV 20, 1992
HELP-PROMPT: Type a Number between .001 and 999999999, 6 Decimal Digits
DESCRIPTION:
This is a pointer to the field in the Data Dictionary.
CROSS-REFERENCE: 690.22^B
1)= S ^MCAR(690.2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(690.2,DA(1),1,"B",$E(X,1,30),DA)
690.22,1 ORDER ENTRY USAGE 0;2 SET
'D' FOR DIAGNOSIS;
'I' FOR INDICATION;
'T' FOR IDENTIFICATION;
'O' FOR OTHER;
'U' FOR UNKNOWN;
'S' FOR SUMMARY;
INPUT TRANSFORM: S:X="" X=U
LAST EDITED: NOV 19, 1992
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
690.22,2 ASTM 0;3 POINTER TO ASTM FILE (#690.5)
LAST EDITED: OCT 12, 1993
690.22,3 VALUE TYPE 0;4 SET
'ST' FOR String data;
'TX' FOR Text;
'TS' FOR Time stamp;
'CE' FOR Code entry;
LAST EDITED: OCT 12, 1993
690.22,4 UNITS 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: OCT 12, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
690.22,5 RANGES 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: OCT 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
690.22,6 SEG 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: OCT 26, 1993
HELP-PROMPT: Answer must be 3 characters in length.
690.22,7 PIECE 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>254)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 26, 1993
HELP-PROMPT: Type a Number between 1 and 254, 0 Decimal Digits
690.22,8 CODING METHOD 0;9 SET
'ICD9' FOR ICD9 CODING;
'ASTM' FOR ASTM CODING;
'DD' FOR DATA DICITIONARY CODING;
'SUM' FOR SUMMARY CODING;
'MIS' FOR MISS;
'INFO' FOR PROGRAMMERS ONLY;
'OBR' FOR ADDTION TO OBR;
'IMA' FOR IMAGE;
LAST EDITED: JUN 21, 1994
HELP-PROMPT: Enter the segment should be ex: .01|12|"ICD9"
690.2,3 SUB-FILE 2;0 Multiple #690.23
690.23,.01 SUB-FILE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999999.999)!(X<.001)!(X?.E1"."7N.N) X
LAST EDITED: NOV 20, 1992
HELP-PROMPT: Type a Number between .001 and 999999999.999, 6 Decimal Digits
CROSS-REFERENCE: 690.23^B
1)= S ^MCAR(690.2,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(690.2,DA(1),2,"B",$E(X,1,30),DA)
690.23,1 SUB-FIELD 1;0 Multiple #690.231
IDENTIFIED BY: ASTM(#2)
690.231,.01 SUB-FIELD 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999999.999)!(X<.001)!(X?.E1"."4N.N) X
LAST EDITED: NOV 16, 1992
HELP-PROMPT: Type a Number between .001 and 999999999.999, 3 Decimal Digits
CROSS-REFERENCE: 690.231^B
1)= S ^MCAR(690.2,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(690.2,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
690.231,1 ORDER ENTRY USAGE 0;2 SET
'D' FOR DIAGNOSIS;
'I' FOR INDICATION;
'T' FOR IDENTIFIER;
'O' FOR OTHER;
'U' FOR UNKNOWN;
'S' FOR SUMMARY;
LAST EDITED: NOV 16, 1992
690.231,2 ASTM 0;3 POINTER TO ASTM FILE (#690.5)
LAST EDITED: OCT 12, 1993
690.231,3 VALUE TYPE 0;4 SET
'ST' FOR String data;
'TX' FOR Text;
'TS' FOR Time stamp;
'CE' FOR Coded entry;
LAST EDITED: OCT 12, 1993
690.231,4 UNITS 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: OCT 12, 1993
HELP-PROMPT: Answer must be 1-20 characters in length.
690.231,5 RANGES 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: OCT 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
690.231,6 SEG 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: OCT 26, 1993
HELP-PROMPT: Answer must be 3 characters in length.
690.231,7 PIECE 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>254)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 26, 1993
HELP-PROMPT: Type a Number between 1 and 254, 0 Decimal Digits
690.231,8 CODING 0;9 SET
'ICD9' FOR ICD9 CODING;
'ASTM' FOR ASTM CODING;
'DD' FOR DATA DICTIONARY CODING;
'SUM' FOR SUMMARY CODING;
'MIS' FOR MISS;
'INFO' FOR PROGRAMMERS ONLY;
'OBR' FOR ADDITION TO OBR;
LAST EDITED: OCT 26, 1993
HELP-PROMPT: Type a Number between 1 and 254, o Decimal Digits
690.2,4 PROCEDURE 3;0 POINTER Multiple #690.24
690.24,.01 PROCEDURE 0;1 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Multiply asked)
LAST EDITED: OCT 18, 1993
CROSS-REFERENCE: 690.24^B
1)= S ^MCAR(690.2,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(690.2,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 690.2^D
1)= S ^MCAR(690.2,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^MCAR(690.2,"D",$E(X,1,30),DA(1),DA)
690.2,5 Type 0;3 SET
'F' FOR Full;
'B' FOR Brief;
'C' FOR Custom;
LAST EDITED: JUN 20, 1994
FILES POINTED TO FIELDS
ASTM (#690.5) FIELD:ASTM (#2)
SUB-FIELD:ASTM (#2)
FILE (#1) PRIMARY FILE (#1)
PROCEDURE/SUBSPECIALTY (#697.2) PROCEDURE:PROCEDURE (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
MCARGENV MAY 22, 1997@12:22 USER #0 PRINT VIEW TEMPLATE NAME EQUALS "Full Generic"
Or PRINT VIEW TEMPLATE NAME EQUALS "Brief Generic"
This sort template is to export entries in Medicine View for the
Generalized Procedure module.
FORM(S)/BLOCK(S):