Sub-Field: 40.11

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`

Customize PDF page

Package: Registration

OPC(#40.1)-->40.11

Sub-Field: 40.11

Information

Details