Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 40.11

Package: Registration

OPC(#40.1)-->40.11

Sub-Field: 40.11


Information

Parent File Name Number Package
OPC(#40.1) VISIT DATE 40.11 Registration

Details

Field # Name Loc Type Details
.01 VISIT DATE 0;1 DATE
************************REQUIRED FIELD************************

  • 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))
.02 SEX 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.03 BIRTH YEAR 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.09 SSN 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.116 ZIP CODE 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.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.
.323 PERIOD OF SERVICE 0;8 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.361 VETERAN ELIGIBILITY CODE 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • 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
.3611 NON-VETERAN ELIGIBILTY CODE 0;10 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.525 POW 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
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
3 LOCATION OF VISIT 0;12 FREE TEXT
************************REQUIRED FIELD************************

  • 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
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.
5 SPECIAL SURVEY BLOCKS 0;14 FREE TEXT
************************REQUIRED FIELD************************

  • 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
6 *SPECIAL SERVICES BLOCKS 0;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12) X
  • HELP-PROMPT:  ANSWER MUST BE 12 CHARACTERS IN LENGTH
7 FACILITY NUMBER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
8 MEANS TEST INDICATOR MT;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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
9 DEPENDENTS MT;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
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."
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:  
15 APPOINTMENT TYPE AT;1 POINTER TO APPOINTMENT TYPE FILE (#409.1) APPOINTMENT TYPE(#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.
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.
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.
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
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
Info |  Details |  All