STANDARD DATA DICTIONARY #356.023 -- HCSR WORKLIST DELETE REASON CODE FILE                                        9/29/25    PAGE 1
STORED IN ^IBT(356.023,  (12 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                   (VERSION 2.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Reason for removal of an entry from the HCSR 278 Request/Inquiry for Authorization for service.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @
IDENTIFIED BY: DESCRIPTION (#.02)

POINTED TO BY: DELETE REASON field (#.25) of the HCS REVIEW TRANSMISSION File (#356.22) 
               

CROSS
REFERENCED BY: CODE(B)

INDEXED BY:    DESCRIPTION (C)


    LAST MODIFIED: SEP 2,2016@13:49:11

356.023,.01   CODE                   0;1 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      MAY 15, 2015 
              HELP-PROMPT:      Type a number between 0 and 99, 0 decimal digits. 
              DESCRIPTION:      This is the Delete Reason Code to be used when removing a 278 Request or Inquiry from the HCSR
                                Worklist.  

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


356.023,.02   DESCRIPTION            0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
              LAST EDITED:      SEP 22, 2015 
              HELP-PROMPT:      Answer must be 1-50 characters in length. 
              DESCRIPTION:
                                This is the description of the Delete Reason Code.  

              FIELD INDEX:      C (#456)    REGULAR    IR    LOOKUP & SORTING
                  Short Descr:  Convert to upper case
                  Description:  Used to lookup by description field up to 50 characters.  Also, convert to upper case to allow for
                                lower or upper case lookup.  
                    Set Logic:  S ^IBT(356.023,"C",$E(X,1,50),DA)=""
                   Kill Logic:  K ^IBT(356.023,"C",$E(X,1,50),DA)
                   Whole Kill:  K ^IBT(356.023,"C")
                         X(1):  DESCRIPTION  (356.023,.02)  (Subscr 1)  (Len 50)  (forwards)
                                  Transform (Storage):  S X=$$UP^XLFSTR($E(X,1,60))



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):