STANDARD DATA DICTIONARY #161.45 -- FEE BASIS PAYMENT MOVES FILE                                                  3/24/25    PAGE 1
STORED IN ^FBAA(161.45,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                     (VERSION 3.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the original internal entry numbers (IENs) and the new IENs for payments that have been moved. This is expected to
occur when the patient merge process causes data in the FEE BASIS PAYMENT file to move.  The Fee Basis special patient merge
routines (FBPMRG*) automatically populate this file during patient merges.  
 
The server routines that process data from the Austin Automation Center use the information in this file to link data received from
Austin with payments that are moved after being reported to Austin.  


              DD ACCESS: @
              RD ACCESS: 
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

PRIMARY KEY:        A (#11)
  Uniqueness Index: C (#66)
       File, Field: 1) FILE # (161.45,.01)  2) OLD IENS (161.45,1)

CROSS
REFERENCED BY: FILE #(B)

INDEXED BY:    FILE # & NEW IENS (AN), FILE # & OLD IENS (C)




161.45,.01    FILE #                 0;1 FREE TEXT (Required) (Key field)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
              LAST EDITED:      DEC 08, 2011 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 
              DESCRIPTION:      Identifies the file (or subfile) number where the payment is stored. For example, subfile 162.03
                                contains medical payments and subfile 162.04 contains travel payments.  

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

              RECORD INDEXES:   AN (#1096), C (#66)

161.45,1      OLD IENS               0;2 FREE TEXT (Required) (Key field)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
              LAST EDITED:      FEB 08, 2000 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 
              DESCRIPTION:      The internal entry numbers (iens) that describe the original location of the payment before the
                                patient merge. The iens are delimited by commas (,) beginning with the ien of the lowest level
                                subentry. For example, a travel payment (subfile 162.04) with iens "1,2000," would be located at 
                                ^FBAAC(2000,3,1,0).  

              RECORD INDEXES:   C (#66)

161.45,2      NEW IENS               0;3 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
              LAST EDITED:      DEC 08, 2011 
              HELP-PROMPT:      Answer must be 1-30 characters in length. 
              DESCRIPTION:      The internal entry numbers (iens) that describe the new location of the payment after the patient
                                merge has completed. The iens are delimited by commas (,) beginning with the ien of the lowest
                                level subentry. For example, a travel payment (subfile 162.04) with iens "1,3000," would be located
                                at ^FBAAC(3000,3,1,0).  

              RECORD INDEXES:   AN (#1096)

File #161.45

  Record Indexes:

  AN (#1096)    RECORD    REGULAR    IR    SORTING ONLY
      Short Descr:  Index of the FILE # and NEW IENS.
      Description:  This index will be used to locate the entry containing the OLD IENS value given a FILE # and NEW IENS value for
                    a payment line item that was moved by a patient merge process.  
        Set Logic:  S ^FBAA(161.45,"AN",$E(X(1),1,30),$E(X(2),1,30),DA)=""
       Kill Logic:  K ^FBAA(161.45,"AN",$E(X(1),1,30),$E(X(2),1,30),DA)
       Whole Kill:  K ^FBAA(161.45,"AN")
             X(1):  FILE #  (161.45,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  NEW IENS  (161.45,2)  (Subscr 2)  (Len 30)  (forwards)

  C (#66)    RECORD    REGULAR    IR    LOOKUP & SORTING
       Unique for:  Key A (#11), File #161.45
      Short Descr:  Index of file and old iens
        Set Logic:  S ^FBAA(161.45,"C",$E(X(1),1,30),$E(X(2),1,30),DA)=""
       Kill Logic:  K ^FBAA(161.45,"C",$E(X(1),1,30),$E(X(2),1,30),DA)
       Whole Kill:  K ^FBAA(161.45,"C")
             X(1):  FILE #  (161.45,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  OLD IENS  (161.45,1)  (Subscr 2)  (Len 30)  (forwards)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):