STANDARD DATA DICTIONARY #741.4 -- QA OCCURRENCE CLINICAL REFERRAL FILE                                           9/29/25    PAGE 1
STORED IN ^QA(741.4,  (155 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 3.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains the list of reasons for Clinical referral for further review, itemized for each screen, as defined by the Occurrence 
Screen circular.  This data is used in the review process.  This file arrives populated, but may be edited at the site.  


              DD ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
IDENTIFIED BY: SCREEN (#2), REASON - SHORT (#3)

POINTED TO BY: PRIMARY REASON CLIN REFERRAL field (#3) of the REVIEWER sub-field (#741.01) of the QA OCCURRENCE SCREEN File (#741) 
               

CROSS
REFERENCED BY: SCREEN(AC), REASON (SCREEN CODE)(AC1), REASON (SCREEN CODE)(B), REASON - SHORT(C)



741.4,.01     REASON (SCREEN CODE)   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1)!(X'?1.2N.1U) X
              LAST EDITED:      FEB 02, 1990 
              HELP-PROMPT:      Answer must be 1-3 characters in length. 
              DESCRIPTION:      This is a short code used to identify the reason for clinical referral.  It must be one to two
                                digits and it may be followed by one upper case letter, e.g., 4, 12, 1B, 23X, etc.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

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

              CROSS-REFERENCE:  741.4^AC1^MUMPS 
                                1)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") S:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/10
                                0),DA)="" K QA

                                2)= S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),"^",2),1:"") K:QA]"" ^QA(741.4,"AC",QA,+X+($A(X,$L(X))/10
                                0),DA) K QA


741.4,1       REASON - EXPANDED      1;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>225!($L(X)<1) X
              LAST EDITED:      FEB 02, 1990 
              HELP-PROMPT:      Answer must be 1-225 characters in length. 
              DESCRIPTION:
                                This is the long version of the reason for clinical referral.  


741.4,2       SCREEN                 1;2 POINTER TO QA OCCURRENCE SCREEN CRITERIA FILE (#741.1)

              LAST EDITED:      FEB 02, 1990 
              DESCRIPTION:
                                This is the screen that this reason for clinical referral is associated with.  

              CROSS-REFERENCE:  741.4^AC^MUMPS 
                                1)= S QA=$P(^QA(741.4,DA,0),"^"),^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA)="" K QA
                                2)= S QA=$P(^QA(741.4,DA,0),"^") K ^QA(741.4,"AC",X,+QA+($A(QA,$L(QA))/100),DA),QA


741.4,3       REASON - SHORT         2;1 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>111!($L(X)<1) X
              LAST EDITED:      FEB 02, 1990 
              HELP-PROMPT:      Answer must be 1-111 characters in length. 
              DESCRIPTION:
                                This is the shortened version of the reason for clinical referral.  

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



      FILES POINTED TO                      FIELDS

QA OCCURRENCE SCREEN CRITERIA 
                   (#741.1)       SCREEN (#2)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):