STANDARD DATA DICTIONARY #138 -- ELECTROGROUND POSITIONS FILE                                                     9/29/25    PAGE 1
STORED IN ^SRO(138,  (14 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                         (VERSION 3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the various body sites to which the electroground may be applied.  



POINTED TO BY: ELECTROGROUND POSITION field (#.55) of the SURGERY File (#130) 
               ELECTROGROUND POSITION (2) field (#6) of the SURGERY File (#130) 
               

CROSS
REFERENCED BY: NAME(B), CODE(C)



138,.01       NAME                   0;1 FREE TEXT (Required)

              Electroground Position   
              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 
              DESCRIPTION:      This is the name of the Electroground Position.  
                                 

              DELETE TEST:      1,0)= W !,"Deletion from the Electroground Positions file is not allowed !! ",*7 I 1

              CROSS-REFERENCE:  138^B 
                                1)= S ^SRO(138,"B",$E(X,1,30),DA)=""
                                2)= K ^SRO(138,"B",$E(X,1,30),DA)


138,1         CODE                   0;2 FREE TEXT

              Code   
              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X
              HELP-PROMPT:      Your answer must be 1 to 4 characters in length. 
              DESCRIPTION:      This is the code corresponding to the name of the electroground position.  
                                 

              CROSS-REFERENCE:  138^C 
                                1)= S ^SRO(138,"C",$E(X,1,30),DA)=""
                                2)= K ^SRO(138,"C",$E(X,1,30),DA)


138,10        INACTIVE?              0;3 SET

              Inactive?   
                                '1' FOR Y; 
              LAST EDITED:      JUN 03, 1992 
              HELP-PROMPT:      Enter 'YES' to inactivate this file entry. 
              DESCRIPTION:
                                Enter 'YES' to inactivate this entry and to prevent its selection by Surgery users.  



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):