STANDARD DATA DICTIONARY #409.55 -- APPOINTMENT PFSS ACCOUNT REFERENCE FILE                                       6/27/25    PAGE 1
STORED IN ^SD(409.55,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                       (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file provides a linkage between the scheduled appointment identifiers: DFN-Appointment Date/Time-Clinic IEN and the PFSS
ACCOUNT File (#375).  Indexes allow the lookup of the PFSS Account Reference by using the appointment identifiers.  


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

PRIMARY KEY:        A (#70)
  Uniqueness Index: D (#639)
       File, Field: 1) APPOINTMENT DATE/TIME (409.55,.01)  2) PATIENT (409.55,.02)  3) CLINIC (409.55,.03)

CROSS
REFERENCED BY: APPOINTMENT DATE/TIME(B), PATIENT(C), PFSS ACCOUNT REFERENCE(E)

INDEXED BY:    APPOINTMENT DATE/TIME & PATIENT & CLINIC (D)




409.55,.001   APPOINTMENT ENTRY          NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
              LAST EDITED:      APR 19, 2005 
              HELP-PROMPT:      Type a number between 1 and 999999999, 0 Decimal Digits 
              DESCRIPTION:
                                This field is the unique record identifier for the appointment /  account number reference.  

              TECHNICAL DESCR:
                                XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 

                                UNEDITABLE

409.55,.01    APPOINTMENT DATE/TIME  0;1 DATE (Required) (Key field)

              INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
              LAST EDITED:      APR 19, 2005 
              HELP-PROMPT:      Enter the date/time for the scheduled appointment. 
              DESCRIPTION:
                                This is the Date/Time of the scheduled appointment.  

              EXECUTABLE HELP:  S %DT="ESTX" D HELP^%DTC
              CROSS-REFERENCE:  409.55^B 
                                1)= S ^SD(409.55,"B",$E(X,1,30),DA)=""
                                2)= K ^SD(409.55,"B",$E(X,1,30),DA)

              RECORD INDEXES:   D (#639)

409.55,.02    PATIENT                0;2 POINTER TO PATIENT FILE (#2) (Required) (Key field)

              LAST EDITED:      APR 19, 2005 
              HELP-PROMPT:      Select patient for this appointment reference. 
              DESCRIPTION:
                                Reference to Patient File (#2) for patient's appointment 

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

              RECORD INDEXES:   D (#639)

409.55,.03    CLINIC                 0;3 POINTER TO HOSPITAL LOCATION FILE (#44) (Required) (Key field)

              LAST EDITED:      MAY 31, 2005 
              HELP-PROMPT:      Enter clinic location for appointment. 
              DESCRIPTION:
                                This field is the pointer to the HOSPITAL LOCATION File (#44) 

              RECORD INDEXES:   D (#639)

409.55,.04    PFSS ACCOUNT REFERENCE 0;4 POINTER TO PFSS ACCOUNT FILE (#375)

              LAST EDITED:      JUN 20, 2005 
              HELP-PROMPT:      The PFSS ACCOUNT file reference must be set through the PFSS event driver 
              DESCRIPTION:      This is the file reference to the PFSS ACCOUNT File (#375) which contains the IBB Account Number
                                reference.  This is the reference to the account number returned from the external system.  

              TECHNICAL DESCR:
                                XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 

                                UNEDITABLE
              CROSS-REFERENCE:  409.55^E 
                                1)= S ^SD(409.55,"E",$E(X,1,30),DA)=""
                                2)= K ^SD(409.55,"E",$E(X,1,30),DA)
                                Cross-reference to return appointment information for an account number reference.  




      FILES POINTED TO                      FIELDS

HOSPITAL LOCATION (#44)           CLINIC (#.03)

PATIENT (#2)                      PATIENT (#.02)

PFSS ACCOUNT (#375)               PFSS ACCOUNT REFERENCE (#.04)


File #409.55

  Record Indexes:

  D (#639)    RECORD    REGULAR    IR    LOOKUP & SORTING
       Unique for:  Key A (#70), File #409.55
      Short Descr:  Uniqueness Index for Key 'A' of File #409.55
        Set Logic:  S ^SD(409.55,"D",X(1),X(2),X(3),DA)=""
       Kill Logic:  K ^SD(409.55,"D",X(1),X(2),X(3),DA)
       Whole Kill:  K ^SD(409.55,"D")
             X(1):  APPOINTMENT DATE/TIME  (409.55,.01)  (Subscr 1)
             X(2):  PATIENT  (409.55,.02)  (Subscr 2)
             X(3):  CLINIC  (409.55,.03)  (Subscr 3)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):