STANDARD DATA DICTIONARY #40.1 -- OPC FILE                                                                        3/24/25    PAGE 1
STORED IN ^SDASF(  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                           (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the Outpatient Visit records (Routing Sheet records) which are transmitted to Austin DPC.  


              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: @
             DEL ACCESS: D
           LAYGO ACCESS: @

CROSS
REFERENCED BY: RELEASE DATE(AREL), SUSPENDED DATE(ASUS), RELEASE DATE(ASUS1), VISIT DATE(AVD), NAME(B)



40.1,.01      NAME                   0;1 POINTER TO PATIENT FILE (#2) (Required)

              INPUT TRANSFORM:  S DINUM=X Q
              LAST EDITED:      MAY 27, 1987 
              DESCRIPTION:      Enter the applicant's name in 'Last,First Middle' format between 3-30 characters.  Do not use
                                numerics or lowercase alphabetic characters.  With the exception of the comma, period, space,
                                hyphen, dash and apostrophe punctuation characters should be avoided.  

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

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


40.1,1        VISIT DATE             1;0 DATE Multiple #40.11 (Add New Entry without Asking)

              DESCRIPTION:
                                This field is a multiple containing information about the Visit Date of a particular patient.  


40.11,.01       VISIT DATE             0;1 DATE (Required)

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
                LAST EDITED:      APR 01, 1987 
                DESCRIPTION:
                                  This field contains the date of the outpatient appointment for a patient.  

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

                CROSS-REFERENCE:  40.1^AVD^MUMPS 
                                  1)= S ^SDASF("AVD",$E(X,1,30),DA(1))=""
                                  2)= K ^SDASF("AVD",$E(X,1,30),DA(1))


40.11,.02       SEX                    0;6 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:
                                  This field contains 'M' if this applicant is a male, or 'F' if female.  


40.11,.03       BIRTH YEAR             0;4 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
                HELP-PROMPT:      ANSWER MUST BE 2 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains the year of birth of the patient, e.g. 43 for 1943.  


40.11,.09       SSN                    0;3 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
                HELP-PROMPT:      ANSWER MUST BE 9 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains the applicants social security number as nine digits, i.e., 123456789.  


40.11,.116      ZIP CODE               0;5 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
                HELP-PROMPT:      ANSWER MUST BE 5 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains the zip code [5 numerics] for the city in which this applicant resides.  


40.11,.16       TRANSMITTED PATIENT NAME 0;16 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>14!($L(X)<14) X
                LAST EDITED:      APR 24, 1992 
                HELP-PROMPT:      Answer must be 14 characters in length. 
                DESCRIPTION:      This field contains the patient's name as it appears in the transmitted record. The format used
                                  is the same as that used for PTF transmission.  
                                   
                                          Characters 1-12     last name 
                                                       13     first name initial 
                                                       14     middle name initial 
                                   
                                  Each segment is padded with blanks.  


40.11,.323      PERIOD OF SERVICE      0;8 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
                LAST EDITED:      APR 22, 1992 
                HELP-PROMPT:      Answer must be 1-2 characters in length. 
                DESCRIPTION:      This field contains the same period of service that has been designated for this patient in the
                                  patient file.  


40.11,.361      VETERAN ELIGIBILITY CODE 0;9 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:      If the eligibility is SC>50% it is converted prior to storage in this file as follows: 0=0% 9=10 
                                  8=20 7=30 3=40 


40.11,.3611     NON-VETERAN ELIGIBILTY CODE 0;10 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:      This field contains the eligibility code for a non-veteran patient.  If the patient is a veteran,
                                  this field will be empty.  


40.11,.525      POW                    0;7 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:      If this is a veteran applicant this field will contain a '1' if s/he was confined as a prisoner
                                  of war, '0' if not.  


40.11,2         PURPOSE OF VISIT       0;11 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:      This field contains the purpose of visit for the specific visit.  1 = C&P, 2 = 10/10, 3 =
                                  Scheduled, 4 = Unscheduled 


40.11,3         LOCATION OF VISIT      0;12 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                HELP-PROMPT:      ANSWER MUST BE 1 CHARACTER IN LENGTH 
                DESCRIPTION:      This field contains the location of visit for a specific outpatient appointment.  1 = this
                                  facility, 6 = other facility 


40.11,4         CLINIC STOPS           0;13 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>135!($L(X)<1) X
                LAST EDITED:      MAR 23, 1993 
                HELP-PROMPT:      Answer must be 1-135 characters in length. 
                DESCRIPTION:      This field contains the consoldated clinic stop codes for all appointments, add/edits, and
                                  registrations for a single visit date.  


40.11,5         SPECIAL SURVEY BLOCKS  0;14 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10) X
                HELP-PROMPT:      ANSWER MUST BE 10 CHARACTERS IN LENGTH 
                DESCRIPTION:      This field contains the special survey dispostion for a patient for the specified visit date.  It
                                  contains three numeric, either a '0' if the patient has been not been exposed or a '1' if s/he
                                  has been.  
                                   
                                  First column - Vietnam Service Claimed Second column - Agent Orange Exposure Claimed Third column
                                  - Ionizing Radiation Exposure Claimed 


40.11,6         *SPECIAL SERVICES BLOCKS 0;15 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12) X
                HELP-PROMPT:      ANSWER MUST BE 12 CHARACTERS IN LENGTH 

40.11,7         FACILITY NUMBER        0;2 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
                LAST EDITED:      JAN 29, 1987 
                HELP-PROMPT:      ANSWER MUST BE 5 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains the station number and any suffix applicable.  


40.11,8         MEANS TEST INDICATOR   MT;1 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
                LAST EDITED:      MAY 13, 1988 
                HELP-PROMPT:      ANSWER MUST BE 2 CHARACTERS IN LENGTH 
                DESCRIPTION:      This field contains the means test indicator for the veteran that applies to the specific visit.  
                                   
                                  AS - SC Category A or Special Category AN - Category A, not SC or Speical Category CO - Category
                                  C NO - Non-Veteran XO - Means Test Not Applicable 


40.11,9         DEPENDENTS             MT;2 FREE TEXT (Required)

                INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
                LAST EDITED:      MAY 13, 1988 
                HELP-PROMPT:      ANSWER MUST BE 2 CHARACTERS IN LENGTH 
                DESCRIPTION:      This field contains the number of dependents for the veteran.  It will contain 'XX' if it is not
                                  applicable.  


40.11,9.5       MEANS TEST INCOME      MT;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
                LAST EDITED:      JUN 21, 1991 
                HELP-PROMPT:      Answer must be 6 characters in length. 
                DESCRIPTION:      This field holds the means test income - if applicable to patient - for visit dates beginning in
                                  FY 92 or so indicated in the OPC MT INCOME DATE field in the MAS PARAMETERS file.  

                TECHNICAL DESCR:  Income determined by passing visit date in X and calling INC^DGPTUTL1.  The Y output variable is
                                  padded with leading zero's, as length of field must be six numerics.  (MTI^SDOPC2) 

                EXECUTABLE HELP:  W !,"Use leading zero's as space holders."

40.11,10        AMBULATORY PROCEDURE BLOCK AP;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>228!($L(X)<12) X
                LAST EDITED:      MAR 23, 1993 
                HELP-PROMPT:      Answer must be 12-228 characters in length. 
                DESCRIPTION:      This field contains the ambulatory procedure codes (numbers) related to a special survey stop
                                  code add/edit.  

                TECHNICAL DESCR:
                                   


40.11,15        APPOINTMENT TYPE       AT;1 POINTER TO APPOINTMENT TYPE FILE (#409.1)

                LAST EDITED:      MAR 19, 1989 
                DESCRIPTION:      This field contains the appointment type for the visit.  It is used to determine the means test
                                  indicator, and billable appointments.  


40.11,17        FISCAL YEAR            0;17 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
                LAST EDITED:      APR 06, 1993 
                HELP-PROMPT:      Answer must be 2 characters in length. 

40.11,18        PSEUDO SSN             0;18 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
                LAST EDITED:      MAR 30, 1994 
                HELP-PROMPT:      Answer must be 1 character in length. 

40.11,20        SUSPENDED DATE         SUS;1 DATE

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      MAR 27, 1986 
                DESCRIPTION:      This field contains a date.  During generation if an error was found, it places the record in the
                                  error file.   When transmission occurs it places the record in a suspense status by placing a
                                  date in this field.  

                CROSS-REFERENCE:  40.1^ASUS^MUMPS 
                                  1)= S SDX=$S($D(^SDASF(DA(1),1,DA,"SUS")):+^("SUS"),1:0) S:SDX ^SDASF("ASUS",X,DA(1),DA)="" K SDX
                                  2)= S SDX=$S($D(^SDASF(DA(1),1,DA,"SUS")):+^("SUS"),1:0) K:SDX ^SDASF("ASUS",X,DA(1),DA),SDX


40.11,21        RELEASE DATE           SUS;2 DATE

                INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      MAR 27, 1986 
                DESCRIPTION:      If during OPC generation an error was encountered, it places the record in suspense.  When the
                                  error is corrected it places a release date in this field indicating it now can be transmitted.  

                CROSS-REFERENCE:  40.1^AREL^MUMPS 
                                  1)= S ^SDASF("AREL",X,DA(1),DA)=""
                                  2)= K ^SDASF("AREL",X,DA(1),DA)

                CROSS-REFERENCE:  40.1^ASUS1^MUMPS 
                                  1)= S SDX=$S($D(^SDASF(DA(1),1,DA,"SUS")):+^("SUS"),1:0) K:SDX ^SDASF("ASUS",SDX,DA(1),DA),SDX
                                2)= S SDX=$S($D(^SDASF(DA(1),1,DA,"SUS")):+^("SUS"),1:0) S:SDX ^SDASF("ASUS",SDX,DA(1),DA)="" K SDX





      FILES POINTED TO                      FIELDS

APPOINTMENT TYPE (#409.1)         VISIT DATE:APPOINTMENT TYPE (#15)

PATIENT (#2)                      NAME (#.01)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):
SDASUSP                       MAY 21, 1987        USER #0                                        AMIS SAMPLE SUSPENDED RECORDS LIST

SORT TEMPLATE(S):
SDASUSP                       SEP 10, 1986        USER #0    
SORT BY: NAME//
  WITHIN NAME, SORT BY: VISIT DATE//
  VISIT DATE SUB-FIELD: SUSPENDED DATE//     From 'JAN 1,1986'
    WITHIN SUSPENDED DATE, SORT BY: VISIT DATE//
    VISIT DATE SUB-FIELD: RELEASE DATE//     From '@'  To '@'


FORM(S)/BLOCK(S):