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):