STANDARD DATA DICTIONARY #690.5 -- ASTM FILE 6/27/25 PAGE 1 STORED IN ^MCAR(690.5, (1327 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains ASTM codes for the HL7 messaging builder for Medicine. DD ACCESS: @ AUDIT ACCESS: @ IDENTIFIED BY: ASTM EXTENSION (#1) "WRITE": W " ",$P(^(0),U,3) POINTED TO BY: ASTM field (#2) of the FIELD sub-field (#690.22) of the MEDICINE VIEW File (#690.2) ASTM field (#2) of the SUB-FIELD sub-field (#690.231) of the SUB-FILE sub-field (#690.23) of the MEDICINE VIEW File (#690.2) CROSS REFERENCED BY: CPT CODE(B), ASTM EXTENSION(C) 690.5,.01 CPT CODE 0;1 POINTER TO CPT FILE (#81) (Required) LAST EDITED: OCT 07, 1993 CROSS-REFERENCE: 690.5^B 1)= S ^MCAR(690.5,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(690.5,"B",$E(X,1,30),DA) 690.5,1 ASTM EXTENSION 0;2 FREE TEXT INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X LAST EDITED: OCT 13, 1993 HELP-PROMPT: Please type in a number from .01 to .99 or &IMP, &REC, or &DEV CROSS-REFERENCE: 690.5^C 1)= S ^MCAR(690.5,"C",$E(X,1,30),DA)="" 2)= K ^MCAR(690.5,"C",$E(X,1,30),DA) 690.5,2 DESCRIPTIONS 0;3 FREE TEXT INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X LAST EDITED: OCT 15, 1993 HELP-PROMPT: Answer must be 1-50 characters in length. FILES POINTED TO FIELDS CPT (#81) CPT CODE (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):