STANDARD DATA DICTIONARY #71.5 -- IMAGING STOP CODES FILE                                                         9/29/25    PAGE 1
STORED IN ^RAMIS(71.5,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 5.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains valid imaging stop codes.  It is not pointed to by any other file.  The Rad/Nuc Med ADPAC should make sure this
file is updated.  Obsolete or unused entries should be deleted.  This file should contain all stop codes that can be assigned to
imaging locations at the facility.  


              DD ACCESS: @
IDENTIFIED BY: 
      "WRITE": N RA S RA(0)=$G(^DIC(40.7,+$G(Y),0)),RA(3)=$S($P(RA(0),"^",3)]"":"(Inactive)",1:"") W:RA(3)]"" "   "_RA(3)

CROSS
REFERENCED BY: VALID CODE(B)



71.5,.01      VALID CODE             0;1 POINTER TO CLINIC STOP FILE (#40.7) (Required)

              VALID STOP CODE   
              INPUT TRANSFORM:  S DINUM=X S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)" D ^DIC K DIC S
                                 DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      AUG 19, 1994 
              HELP-PROMPT:      Enter a stop code that is currently valid for Imaging procedures. 
              DESCRIPTION:      Only stop codes valid for imaging should be entered in this file.  When a stop code becomes
                                invalid, it should be deleted from this file.  When a new stop code becomes valid for imaging
                                procedures, it should be added to this file.  Entries are used as a selection list when editing the
                                DSS ID of an imaging location.  

              TECHNICAL DESCR:  The entries in this file are used as a screen for selecting stop codes to associate with
                                Radiology/Nuclear Medicine procedures.  The principal clinic field of the Imaging Locations file is
                                also screened using the entries in this file to make sure the principal clinic chosen has an 
                                imaging stop code.  Keeping these codes in a separate file makes them maintainable by the sites.  

              SCREEN:           S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)"
              EXPLANATION:      Inactive Stop Codes are invalid.  Stop Code 900 cannot be used.
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  71.5^B 
                                1)= S ^RAMIS(71.5,"B",$E(X,1,30),DA)=""
                                2)= K ^RAMIS(71.5,"B",$E(X,1,30),DA)
                                3)= DO NOT DELETE
                                Regular B cross-reference used for look-up.  




      FILES POINTED TO                      FIELDS

CLINIC STOP (#40.7)               VALID CODE (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):