Global: ^AUPNVSIT

FileMan FileNo	FileMan Filename	Package
9000010	VISIT	PCE Patient Care Encounter

Package	Total	Routines
PCE Patient Care Encounter	138	AUPNVSIT PXAIPL PXAIPOV PXAIPRV PXAPI PXAPIIM PXBAPI1 PXBDPRV PXBGPRV PXBGPRV2 PXBGSTP PXBGVST PXBMPRV PXBPCPT PXBPSTP PXBSTOR1 PXCE ADD/EDIT KNOWN ENCOUNTER PXCE ENCOUNTER EDIT PXCECPT PXCEEXP PXCEHLOC PXCEICR PXCEPRV PXCESC PXCESK PXCOMPACT PXICLN17 PXKMAIN PXRRPRDP PXRRWLS2 VSITPUT1 ^AUPDVIMM ^AUPNVPED PXAAVSIT PXAI PXAICPT PXAICPTV PXAIPRVV PXAIVSTV PXAPIDEL PXAPIOE PXBAPI PXBGCPT PXBGPRV3 PXBGPRV4 PXBMCPT2 PXBMPOV PXBMSTP PXCAVST1 PXCE PXCECCLS PXCEPAT PXCEPOV1 PXCEVFIL PXCPTAPI PXHFMEASREPAIR PXKMASC PXPXRMI1 ^AUPNVSK ^AUPNVXAM PXAIPOVV PXAIVST PXBAPI21 PXBMCPT PXBPL PXBSTOR PXCEAE PXCEAE1 PXCEC800 PXCECPT1 PXCECSTP PXCED800 PXCEINTR PXCESDAM PXCEVFI1 PXCEVFI2 PXCEVFI5 PXDXUTL PXICLN1 PXICLN27 PXICLN9B PXKCO PXKENC PXKENCOUNTER PXKFCPT1 PXKMAIN2 PXKMCODE PXPNARR PXPXRM1 PXRRMDR PXUTLVST PXVRPC8 ^AUPNVCPT ^AUPNVHF ^AUPNVICR ^AUPNVTRT PXKVST PXMCEVNT PXMCLINK PXPXRM PXPXRMI2 PXQGVST PXQMAIN1 PXQMAIN4 PXQPPUTIL PXQPPUTILR PXQUTL PXQUTL3A PXRHS04 PXRRECSE PXRRFDSE PXRRPCE1 PXRRPCE3 PXRRWLSE PXUTL1 PXUTLSTP PXVDIS PXVP217 PXVRESP PXVRPC4A PXVRPC7A PXVSC PXVUTIL PXVUTL PXVWPXML PXVXR VSIT VSITDEF VSITGET VSITKIL VSITSTAT VSITVAR VSITVID ^AUPNVIMM ^AUPNVPOV ^AUPNVPRV ^AUPNVSIT VSITOE
Scheduling	32	SCCVPCE SCENIA2 SCRPW1 SCRPW18 SCRPW24 SD53103A SD5396PT SD53P491 SDAMEVT3 SDAMOL1 SDAMVSC SDCED SDCO22 SDEC25B SDECALV SDECALV1 SDECALVR SDECAPI4 SDECUTL SDECV SDES2CRTVISIT SDES2GETVISIT SDES2SETCHECKOUT SDES2UNDOCHKOUT SDESCHECKOUT SDESUNDOCHECKOUT SDOEOE SDSCAPI SDSCEDT SDSCUTL SDVSIT SDVSIT2
Text Integration Utility	16	TIUCCRHL7P2 TIUEDS TIUENV TIUEPN TIULV TIUP134 TIUP146 TIUPNCVX TIUPXAP3 TIUPXPM TIUSRVLC TIUSRVLV TIUSRVP TIUVISIT TIUXRC1 TIUXRC3
Virtual Patient Record	16	VPRDJ04 VPRDJ04A VPRDJ09 VPRDPXAM VPRDPXED VPRDPXHF VPRDPXSK VPRDVSIT VPRENC VPREVNT VPRHSX2 VPRP20 VPRSDADG VPRSDAHX VPRSDAV VPRSDAVF
Clinical Reminders	13	PXRMDATE PXRMDLLC PXRMETXR PXRMFNFT PXRMG2E1 PXRMGECV PXRMIMM PXRMLOCF PXRMLOCL PXRMMST PXRMNTFY PXRMVSIT PXRMXX
Order Entry Results Reporting	6	ORFSKT ORWGAPI6 ORWGAPI8 ORWPCE1 ORWPCE3 ORWPT2
Enterprise Health Management Platform	5	HMPDJ02 HMPDJ02A HMPDJ04 HMPDJ04E HMPWB5
Oncology	4	ONC DISEASE INDEX ONC DISEASE INDEX CASEFINDING ^ONCO(169.99 ONCFUNC
Womens Health	4	PROCEDURE ACTIONS ^WV(790.8 ^WV(791 WVUTL11
Clinical Case Registries	3	RORHL18 RORHL19 RORUTL21
VA FileMan	3	ITEM ^DDE YEAR
Integrated Billing	2	IB20P565 IBEFUNC3
Prosthetics	2	RMPR145P RMPRPCED
Accounts Receivable	1	RCXVDC5
Automated Medical Information Exchange	1	DVBABTIU
Barcode Medication Administration	1	PSBVITFL
Clinical Information Resource Network	1	RGHOUT
DSS Extracts	1	ECXSURG
Enrollment Application System	1	EASUER
Kernel	1	^ORD(101
Lab Service	1	LREPI3
Medicine	1	MCPOS04
Mental Health	1	YSBWHIGH
Pharmacy Benefits Management	1	PSUDEM2
Registration	1	DGPMVBUR

Package	Total	Routines
Scheduling	23	SCENIA2 SCMCENCT SCRPW1 SD53P491 SDAMVSC SDCO0 SDEC25 SDEC25B SDECAPI4 SDECUTL SDECV SDES25 SDES2CRTVISIT SDES2GETVISIT SDES2SETCHECKOUT SDESCHECKOUT SDRPA08 SDSCAPI SDSCEDT SDSCLM SDSCNSCP SDSCOMP SDVSIT
PCE Patient Care Encounter	14	PXAAVSIT PXAIVSTV PXCAVST PXCEPAT PXCESIT PXQMAIN4 PXRRECSC PXRRGPRT PXRRMDR PXRRMDR1 VSITKIL VSITOE VSITPUT1 VSITVID
Text Integration Utility	5	TIUHL7P2 TIUP134P TIUP146P TIUP149P TIUVISIT
Clinical Reminders	4	PXRMLOCF PXRMXGPR PXRMXSC PXRMXTD
Integrated Billing	4	IBCD IBCD2 IBCSC10B IBCU41
Enterprise Health Management Platform	3	HMPDJ04 HMPDJ09 HMPEQLM
Clinical Case Registries	2	RORHL18 RORHL19
Accounts Receivable	1	RCXVUTIL
Automated Information Collection System	1	IBDFRPC6
Automated Medical Information Exchange	1	DVBCREPT
Clinical Information Resource Network	1	RGHOUT
Master Patient Index VistA	1	MPIFDODC
Oncology	1	ONCOPRT
Prosthetics	1	RMPR145P
Womens Health	1	WVMGRP1

Package	Total	FileMan Files
Medicine	15	ECHO(#691)[900] CARDIAC CATHETERIZATION(#691.1)[900] ELECTROCARDIOGRAM (EKG)(#691.5)[900] HOLTER(#691.6)[900] EXERCISE TOLERANCE TEST(#691.7)[900] ELECTROPHYSIOLOGY (EP)(#691.8)[900] HEMATOLOGY(#694)[900] GENERATOR IMPLANT(#698)[900] V LEAD IMPLANT(#698.1)[900] A LEAD IMPLANT(#698.2)[900] PACEMAKER SURVEILLANCE(#698.3)[900] ENDOSCOPY/CONSULT(#699)[900] GENERALIZED PROCEDURE/CONSULT(#699.5)[900] PULMONARY FUNCTION TESTS(#700)[900] RHEUMATOLOGY(#701)[900]
PCE Patient Care Encounter	15	V IMMUNIZATION DELETED(#9000080.11)[.03] V CPT(#9000010.18)[.03] V HEALTH FACTORS(#9000010.23)[.03] V IMM CONTRA/REFUSAL EVENTS(#9000010.707)[.03] V IMMUNIZATION(#9000010.11)[.03] V PATIENT ED(#9000010.16)[.03] V POV(#9000010.07)[.03] V PROVIDER(#9000010.06)[.03] V STANDARD CODES(#9000010.71)[.03] VISIT(#9000010)[.12] V SKIN TEST(#9000010.12)[.03] V TREATMENT(#9000010.15)[.03] V EXAM(#9000010.13)[.03] PCE DEVICE INTERFACE MODULE ERRORS(#839.01)[.03] COMPACT ACT EPISODE OF CARE(#818)[#818.141(.01)]
Womens Health	3	WV PATIENT(#790)[#790.05(4), #790.16(4)] WV PROCEDURE(#790.1)[#790.23(2)] WV DATA NEEDING REVIEW(#790.8)[2, #790.801(12)]
Registration	2	PATIENT MOVEMENT(#405)[.27] PTF(#45)[#45.06(.06)]
Text Integration Utility	2	TIU DOCUMENT(#8925)[.03, 1207] TIU AUDIT TRAIL(#8925.5)[1.11, 1.12]
Clinical Procedures	1	CP TRANSACTION(#702)[.13]
Clinical Reminders	1	REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.07)]
Emergency Department Integration Software	1	ED LOG(#230)[.12]
Event Capture	1	EVENT CAPTURE PATIENT(#721)[28]
Integrated Billing	1	CLAIMS TRACKING(#356)[.03]
Prosthetics	1	RECORD OF PROS APPLIANCE/REPAIR(#660)[8.12]
Radiology Nuclear Medicine	1	RAD/NUC MED PATIENT(#70)[#70.03(27)]
Scheduling	1	OUTPATIENT ENCOUNTER(#409.68)[.05]
Surgery	1	SURGERY(#130)[.015]

Package	Total	FileMan Files
Kernel	4	OPTION(#19)[.24] PACKAGE(#9.4)[81202] PROTOCOL(#101)[.25] NEW PERSON(#200)[.23]
PCE Patient Care Encounter	4	PATIENT/IHS(#9000001)[.05] VISIT(#9000010)[.12] LOCATION(#9999999.06)[.06] PCE DATA SOURCE(#839.7)[81203]
Scheduling	2	CLINIC STOP(#40.7)[.08] HOSPITAL LOCATION(#44)[.22]
Integrated Billing	1	PFSS ACCOUNT(#375)[.26]
Registration	1	ELIGIBILITY CODE(#8)[.21]

Fields, Total: 41

Field #	Name	Loc	Type	Details
.01	VISIT/ADMIT DATE&TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter the Visit/Admit Date and Time` DESCRIPTION: `VISIT/ADMIT DATE & TIME must be between the patient's date of birth and today. In the VA this reflects the visit appointment and or event date time.` DELETE TEST: `.01,0)= I 1` GROUP: `VA/IHS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010^B` `1)= S ^AUPNVSIT("B",$E(X,1,30),DA)=""` `2)= K ^AUPNVSIT("B",$E(X,1,30),DA)` `Regular B cross reference on .01 Visit/Admit Date&Time ^AUPNVSIT("B",Visit/Admit Date&Time,ien)=""` CROSS-REFERENCE: `9000010^AAHTOO^MUMPS` `1)= I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"",$P(^(0),U,7)="H" S ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=""` `2)= I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"",$P(^(0),U,7)="H" K ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)` `This cross-reference indexes hospitalization visits (#.07=H) by patient and inverse visit date. Used to get at the last N hospitalizations.` CROSS-REFERENCE: `9000010^AA-TOO^MUMPS` `1)= I $P(^AUPNVSIT(DA,0),U,5) S ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"")` `2)= I $P(^AUPNVSIT(DA,0),U,5) K ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)` `This cross-reference indexes visits by patient and inverse date. It is used to find the last N visits for a patient. The name AA-TOO signifies that the cross-reference uses several field values and therefore, the index AA` `is set on all the fields.` CROSS-REFERENCE: `9000010^AET1^MUMPS` `1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)=""` `2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)` `Cross-reference for OE 3 and CPRS, this gives the patient, visit date/time, hospital location, encounter type, visit IEN.` CROSS-REFERENCE: `9000010^ADEL2^MUMPS` `1)= I $G(DUZ("AG"))'?1"I"0.1"HS",+$P(^AUPNVSIT(DA,0),"^",9)'>0 S ^AUPNVSIT("ADEL",+X,DA)=""` `2)= K ^AUPNVSIT("ADEL",+X,DA)` `This sets the "delete" flag based upon the Dependent Entry Count.` CROSS-REFERENCE: `9000010^AHL2^MUMPS` `1)= I $P(^AUPNVSIT(DA,0),U,22) S ^AUPNVSIT("AHL",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=""` `2)= I $P(^AUPNVSIT(DA,0),U,22) K ^AUPNVSIT("AHL",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)` `This cross-reference indexes visits by hospital location and inverse date. It is used to find a date/time range of visits by hospital location. The cross-reference uses several field values and therefore, the index 'AHL'` `is set on all the fields. The name AHL2 signifies that the cross-reference uses several field values and therefore, the index AHL is set on all the fields.`
.02	DATE VISIT CREATED	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXRS" D ^%DT S X=Y K:DTX) X` LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the date and time the visit was created.` DESCRIPTION: `The date and time when a new visit is added. It is generated automatically and set to NOW.` GROUP: `IHS/VA` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'I' FOR IHS; 'C' FOR CONTRACT; 'T' FOR TRIBAL; 'O' FOR OTHER; '6' FOR 638 PROGRAM; 'V' FOR VA; 'AF' FOR AIR FORCE; 'N' FOR NAVY; 'E' FOR EHR; 'ARMY' FOR ARMY; 'USCG' FOR COAST GUARD; LAST EDITED: `SEP 25, 2019` HELP-PROMPT: `Select the type of visit.` DESCRIPTION: `The type of visit. The purpose is to differentiate between various categories of visits, such as a visit provided by contract care funds versus a regular VA visit. This field is set automatically.` GROUP: `IHS`
.05	PATIENT NAME	0;5	POINTER TO PATIENT/IHS FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT/IHS(#9000001) LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the patient.` DESCRIPTION: `Pointer to the Patient file.` GROUP: `IHS` `UNEDITABLE` CROSS-REFERENCE: `9000010^C` `1)= S ^AUPNVSIT("C",$E(X,1,30),DA)=""` `2)= K ^AUPNVSIT("C",$E(X,1,30),DA)` CROSS-REFERENCE: `9000010^AA^MUMPS` `1)= S ^AUPNVSIT("AA",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"")` `2)= K ^AUPNVSIT("AA",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)` `Indexes visits by patient and inverse visit date. Used to find the last N visits of a patient.` CROSS-REFERENCE: `9000010^AAHTOO2^MUMPS` `1)= I $P(^AUPNVSIT(DA,0),U,7)]"",$P(^(0),U,7)="H" S ^AUPNVSIT("AAH",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=""` `2)= I $P(^AUPNVSIT(DA,0),U,7)]"",$P(^(0),U,7)="H" K ^AUPNVSIT("AAH",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)` `Indexes hospitalization visits by patient and inverse visit date. Used to find the last N hospitalizations for a given patient.` CROSS-REFERENCE: `9000010^AET2^MUMPS` `1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" S ^AUPNVSIT("AET",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)=""` `2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" K ^AUPNVSIT("AET",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)` `Cross-reference for OE 3 and CPRS, this gives the patient, visit date/time, hospital location, encounter type, and visit IEN.`
.06	LOC. OF ENCOUNTER	0;6	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `SEP 12, 2018` HELP-PROMPT: `Enter the Institution where the Visit took place.` DESCRIPTION: `Pointer to the Location file, location where the visit took place. In the VA, the Location file entries will be based on the current entries in the Institution file, so this field represents the institution.` GROUP: `IHS`
.07	SERVICE CATEGORY	0;7	SET	**********************REQUIRED FIELD********************** 'A' FOR AMBULATORY; 'H' FOR HOSPITALIZATION; 'I' FOR IN HOSPITAL; 'C' FOR CHART REVIEW; 'T' FOR TELECOMMUNICATIONS; 'N' FOR NOT FOUND; 'S' FOR DAY SURGERY; 'O' FOR OBSERVATION; 'E' FOR EVENT (HISTORICAL); 'R' FOR NURSING HOME; 'D' FOR DAILY HOSPITALIZATION DATA; 'X' FOR ANCILLARY PACKAGE DAILY DATA; LAST EDITED: `SEP 12, 2018` HELP-PROMPT: `Enter the Service Category` DESCRIPTION: `Service Category represents what kind of service was provided.` `The population of this field is dependent upon entries provided by applications as well as default values and calculated codes.` GROUP: `IHS` CROSS-REFERENCE: `9000010^AAH^MUMPS` `1)= I X="H",$P(^AUPNVSIT(DA,0),U,5)]"" S ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),".",1))_$S($P(+^(0),".",2):"."_$P(+^(0),".",2),1:"")),DA)=""` `2)= I X="H",$P(^AUPNVSIT(DA,0),U,5)]"" K ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),".",1))_$S($P(+^(0),".",2):"."_$P(+^(0),".",2),1:"")),DA)` `Indexes hospitalization visits by patient and inverse visit date. Used to find the last N hospitalizations for a patient.`
.08	DSS ID	0;8	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the clinic in which the visit took place.` DESCRIPTION: `This is a pointer to the Clinic Stop file. It is the clinic in which this visit took place.` SCREEN: `S DIC("S")="I $P(^(0),U,3)=""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))"` EXPLANATION: `ALLOW PAST VISITS` GROUP: `IHS/VA`
.09	DEPENDENT ENTRY COUNT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter an integer between 0 and 999.` DESCRIPTION: `This is a count of how many "V" file entries are pointing to this visit. If the count is zero, the visit should be deleted. This field is updated by a cross-reference in each "V" file that calls routine ADD^AUPNVSIT or` `SUB^AUPNVSIT. This field should never be edited by hand.` `WRITE AUTHORITY: ^` GROUP: `IHS/VA` `UNEDITABLE` CROSS-REFERENCE: `9000010^ADEL^MUMPS` `1)= I $G(DUZ("AG"))'?1"I"0.1"HS" S:X'>0 ^AUPNVSIT("ADEL",+^AUPNVSIT(DA,0),DA)="" K:X>0 ^AUPNVSIT("ADEL",+^AUPNVSIT(DA,0),DA)` `2)= Q`
.11	DELETE FLAG	0;11	SET	'0' FOR ACTIVE; '1' FOR DELETED; LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter 1 to signify the visit has been deleted, 0 otherwise.` DESCRIPTION: `Flag set to signify that the visit has been deleted.` `WRITE AUTHORITY: ^` GROUP: `IHS/VA` `UNEDITABLE`
.12	PARENT VISIT LINK	0;12	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `OCT 22, 2018` HELP-PROMPT: `Enter the Parent Visit Link.` DESCRIPTION: `The Parent Visit Link field points back to the Visit file.` GROUP: `IHS/VA` CROSS-REFERENCE: `9000010^AD` `1)= S ^AUPNVSIT("AD",$E(X,1,30),DA)=""` `2)= K ^AUPNVSIT("AD",$E(X,1,30),DA)` `PARENT VISIT LINK` CROSS-REFERENCE: `9000010^APV^MUMPS` `1)= D ADD^AUPNVSIT` `2)= D SUB^AUPNVSIT` `This updates the dependent entry count when a child visit is created.`
.13	DATE LAST MODIFIED	0;13	DATE	INPUT TRANSFORM: `S %DT="EXRS" D ^%DT S X=Y K:DTX) X` LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the date and time when visit was last modified.` DESCRIPTION: `Date and time when the visit was last modified. Any time a field in the visit file or a V-File is added or deleted, this field is automatically updated with the current date and time. This field is set automatically.` GROUP: `IHS/VA` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.18	CHECK OUT DATE&TIME	0;18	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 17, 1994` HELP-PROMPT: `Enter the date and time the patient checked out.` DESCRIPTION: `This field is the date and time the patient checked out for this visit.` TECHNICAL DESCR: `This data is passed from the MCCR event data capture and then passed from PCE to PIMS 5.3 for automated check-out.`
.21	ELIGIBILITY	0;21	POINTER TO ELIGIBILITY CODE FILE (#8)	ELIGIBILITY CODE(#8) INPUT TRANSFORM: `S DIC("S")="I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""^"",5)),""E"",+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 13, 2018` HELP-PROMPT: `Select the eligibility which best describes the patient's entitlement to care for this visit.` DESCRIPTION: `Defines the patient's eligibility for this visit.` SCREEN: `S DIC("S")="I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""^"",5)),""E"",+Y,0))"` EXPLANATION: `Only valid eligibilities for this patient.` GROUP: `VA` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010^AVAA2^MUMPS` `1)= I +$P(^AUPNVSIT(DA,0),"^",5) S ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),"^",5),((9999999-$P(+^AUPNVSIT(DA,0),"."))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=$S(+X:+X,1:"")` `2)= I +$P(^AUPNVSIT(DA,0),"^",5),$D(^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),"^",5),((9999999-$P(+^AUPNVSIT(DA,0),"."))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)) S ^(DA)=""` `3)= This is a required field.` `Set the "AA" cross-reference equal to the patient's eligibility (pointer).`
.22	HOSPITAL LOCATION	0;22	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 23, 2007` HELP-PROMPT: `Answer with the name of the hospital location where this visit occurred.` DESCRIPTION: `The hospital location where this visit occurred.` GROUP: `VA` CROSS-REFERENCE: `9000010^AHL^MUMPS` `1)= S ^AUPNVSIT("AHL",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),".",1))_$S($P($P(^(0),U,1),".",2)'="":"."_$P($P(^(0),U,1),".",2),1:""),DA)=""` `2)= K ^AUPNVSIT("AHL",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),".",1))_$S($P($P(^(0),U,1),".",2)'="":"."_$P($P(^(0),U,1),".",2),1:""),DA)` `This cross-reference indexes visits by hospital location and inverse date. It is used to find a date/time range of visits by hospital location. The cross-reference uses several field values and therefore, the index 'AHL'` `is set on all the fields.` CROSS-REFERENCE: `9000010^AET3^MUMPS` `1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)=""` `2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)` `Cross-reference for OE 3 and CPRS, this gives the patient, visit date/time, hospital location, encounter type, and visit IEN.`
.23	CREATED BY USER	0;23	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the user who created or updated the visit.` DESCRIPTION: `This field contains the USER passed in by the application calling the PCE API ($$DATA2PCE^PXAPI) to create or update the visit. If USER is not defined DUZ will be used.` `If something other than $$DATA2PCE^PXAPI is used to create or update the entry then DUZ will be used.` GROUP: `VA`
.24	OPTION USED TO CREATE	0;24	POINTER TO OPTION FILE (#19)	OPTION(#19) LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `Enter the option under which this visit was created.` DESCRIPTION: `If known, the option under which this visit was created.` GROUP: `VA`
.25	PROTOCOL	0;25	POINTER TO PROTOCOL FILE (#101)	PROTOCOL(#101) LAST EDITED: `OCT 15, 2018` HELP-PROMPT: `Select the Protocol that was used to create this visit.` DESCRIPTION: `This is the protocol which was used to create this visit. This field is set automatically.`
.26	PFSS ACCOUNT REFERENCE	0;26	POINTER TO PFSS ACCOUNT FILE (#375)	PFSS ACCOUNT(#375) LAST EDITED: `JUN 02, 2005` DESCRIPTION: `The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.` TECHNICAL DESCR: `A pointer to the PFSS ACCOUNT FILE (#375)`
2101	OUTSIDE LOCATION	21;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<2) X` LAST EDITED: `JUN 03, 1992` HELP-PROMPT: `Answer must be 2-50 characters in length.` DESCRIPTION: `Free text location of service.`
15001	VISIT ID	150;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<8)!'(X?4.10NU1"-"3.4U) X` LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter the unique visit ID.` DESCRIPTION: `This is the unique visit ID, it is set by Visit Tracking and cannot be changed.` `UNEDITABLE` CROSS-REFERENCE: `9000010^VID` `1)= S ^AUPNVSIT("VID",$E(X,1,30),DA)=""` `2)= K ^AUPNVSIT("VID",$E(X,1,30),DA)`
15002	PATIENT STATUS IN/OUT	150;2	SET	'1' FOR IN; '0' FOR OUT; LAST EDITED: `OCT 15, 2018` HELP-PROMPT: `Enter the patient's status at the time of the visit.` DESCRIPTION: `This is an indicator of the patient's status at the time of the visit. It is set automatically using the API $$IP^VSITCK1.`
15003	ENCOUNTER TYPE	150;3	SET	'P' FOR PRIMARY; 'O' FOR OCCASION OF SERVICE; 'S' FOR STOP CODE; 'A' FOR ANCILLARY; 'C' FOR CREDIT STOP; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter the Encounter Type.` DESCRIPTION: `This field notes the encounter type.` CROSS-REFERENCE: `9000010^AET^MUMPS` `1)= I $P($G(^AUPNVSIT(DA,0)),U,5)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)=""` `2)= I $P($G(^AUPNVSIT(DA,0)),U,5)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)` `Cross-reference for OE 3 and CPRS, this gives the patient, visit date/time, hospital location, encounter type, and visit IEN.`
80001	SERVICE CONNECTED	800;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `If this visit is treating a service connected problem, enter 'YES' here.` DESCRIPTION: `This field will be used to indicate if this visit was for treating a VA patient based on a service connected problem.` TECHNICAL DESCR: `This field may be passed to the Visit based on the MCCR event data capture.`
80002	AGENT ORANGE EXPOSURE	800;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `If this visit is treating an agent orange exposure problem, enter 'YES' here.` DESCRIPTION: `This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Agent Orange Exposure.` TECHNICAL DESCR: `This data may be passed to the Visit from MCCR event data capture.`
80003	IONIZING RADIATION EXPOSURE	800;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `If this visit is treating a problem related to Ionizing Radiation Exposure, enter 'YES'.` DESCRIPTION: `This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Ionizing Radiation Exposure.` TECHNICAL DESCR: `This data may be passed to the Visit from MCCR event data capture.`
80004	SW ASIA CONDITIONS	800;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `If this visit is treating a problem related to SW Asia Conditions Exposure, enter 'YES'.` DESCRIPTION: `This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Southwest Asia Conditions Exposure.` TECHNICAL DESCR: `This data may be passed to the Visit from the MCCR event data capture.`
80005	MILITARY SEXUAL TRAUMA	800;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `If this visit is treating a problem related to Military Sexual Trauma, enter 'YES'.` DESCRIPTION: `Indicates whether the patient's visit was related to Military Sexual Trauma.`
80006	HEAD AND/OR NECK CANCER	800;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `If this visit is treating a problem related to Head/Neck Cancer, enter 'YES'.` DESCRIPTION: `This field is used to indicate that the visit represents treatment of a VA patient for a problem that is related to Head and/or Neck Cancer.`
80007	COMBAT VETERAN	800;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 2018` HELP-PROMPT: `If this visit is treating a problem related to combat, enter 'YES'.` DESCRIPTION: `This field is used to indicate that the visit represents treatment of a VA patient for a problem that is related to combat.`
80008	PROJ 112/SHAD	800;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 02, 2005` HELP-PROMPT: `If this visit is treating a problem related to PROJ 112/SHAD, enter 'YES'.` DESCRIPTION: `Project 112/SHAD was the name of the overall program for both shipboard and land-based biological and chemical testing that was conducted by the United States (U.S.) military between 1962 and 1973. Project SHAD (Shipboard` `Hazard and Defense) was the shipboard portion of these tests.`
80011	SERVICE CONNECTION EDIT FLAG	800;11	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the Service Connection classification.` DESCRIPTION: `This field is used to determine if the Service Connection Classification for the Visit can be edited by the user.` TECHNICAL DESCR: `The Service Connected classification is not editable if either any of the diagnosis Service Connection classifications are 'Yes' or all the diagnosis Service Connection classifications are 'No'.`
80012	AGENT ORANGE EDIT FLAG	800;12	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the Agent Orange classification.` DESCRIPTION: `This field is used to determine if the Agent Orange Classification for the Visit can be edited by the user.` TECHNICAL DESCR: `The Agent Orange classification is not editable if either any of the diagnosis Agent Orange classifications are 'Yes' or all the diagnosis Agent Orange classifications are 'No'.`
80013	IONIZING RADIATION EDIT FLAG	800;13	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the Ionizing Radiation classification` DESCRIPTION: `This field is used to determine if the Ionizing Radiation classification for the Visit can be edited by the user.` TECHNICAL DESCR: `The Ionizing Radiation classification is not editable if either any of the diagnosis Ionizing Radiation classifications are 'Yes' or all the diagnosis Ionizing Radiation classifications are 'No'.`
80014	SW ASIA CONDITIONS EDIT FLAG	800;14	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the SW Asia Conditions classification.` DESCRIPTION: `This field is used to determine if the Southwest Asia Conditions classification for the Visit can be edited by the user.` TECHNICAL DESCR: `The Southwest Asia Conditions classification is not editable if either any of the diagnosis Southwest Asia Conditions classifications are 'Yes', or all the diagnosis Southwest Asia Conditions classifications are 'No'.`
80015	MST EDIT FLAG	800;15	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the Military Sexual Trauma classification` DESCRIPTION: `This field is used to determine if the Military Sexual Trauma classification for the Visit can be edited by the user.` TECHNICAL DESCR: `The Military Sexual Trauma classification is not editable if either any of the diagnosis Military Sexual Trauma classifications are 'Yes', or all the diagnosis Military Sexual Trauma classifications are 'No'.`
80016	HEAD AND NECK CANCER EDIT FLAG	800;16	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the Head and Neck Cancer classification` DESCRIPTION: `This field is used to determine if the Head and/or Neck Cancer classification can be edited by the user.` TECHNICAL DESCR: `The Head and/or Neck Cancer classification is not editable if either any of the diagnosis Head and/or Neck Cancer classifications are 'Yes', or all the diagnosis Head and/or Neck Cancer classifications are 'No'.`
80017	COMBAT VETERAN EDIT FLAG	800;17	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 22, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the combat Veteran classification.` DESCRIPTION: `This field is used to determine if the Combat Veteran classification can be edited by the user.` TECHNICAL DESCR: `The Combat Veteran classification is not editable if either any of the diagnosis Combat Veteran classifications are 'Yes', or all the diagnosis Combat Veteran classifications are 'No'.`
80018	PROJ 112/SHAD EDIT FLAG	800;18	SET	'0' FOR EDITABLE; '1' FOR NOT EDITABLE; LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Enter 1 to prevent user editing of the PROJ 112/SHAD classification.` DESCRIPTION: `This field is used to determine if the PROJ 112/SHAD classification can be edited by the user.` TECHNICAL DESCR: `The PROJ 112/SHAD classification is not editable if either any of the diagnosis PROJ 112/SHAD classifications are 'Yes, or all the diagnosis PROJ 112/SHAD classifications are 'No'.`
81101	COMMENTS	811;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` `MAXIMUM LENGTH: 245` LAST EDITED: `SEP 13, 2018` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `A field to add comments as they pertain to a visit.`
81202	PACKAGE	812;2	POINTER TO PACKAGE FILE (#9.4)	PACKAGE(#9.4) LAST EDITED: `OCT 22, 2018` HELP-PROMPT: `Enter the Package that wanted the visit created.` DESCRIPTION: `This is a pointer to the Package that wanted the visit created.` `UNEDITABLE`
81203	DATA SOURCE	812;3	POINTER TO PCE DATA SOURCE FILE (#839.7)	PCE DATA SOURCE(#839.7) LAST EDITED: `OCT 22, 2018` HELP-PROMPT: `Enter the PCE Data Source that wanted this visit created.` DESCRIPTION: `This is a pointer to the PCE Data Source file and is the source that wanted the visit created.` `UNEDITABLE`

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #907	Clinical Reminders Emergency Department Integration Software Womens Health ADVANCED PROSTHETICS ACQUISITION TOOL
ICR #7033	Scheduling
ICR #2598	Clinical Information Resource Network ADVANCED PROSTHETICS ACQUISITION TOOL	VISIT/ADMIT DATE&TIME (.01). Access: Read w/Fileman
ICR #2617	Clinical Information Resource Network	VISIT/ADMIT DATE&TIME (.01). Access: Read w/Fileman PATIENT NAME (.05). Access: Read w/Fileman LOC. OF ENCOUNTER (.06). Access: Read w/Fileman PARENT VISIT LINK (.12). Access: Read w/Fileman CHECK OUT DAT&TIME (.18). Access: Read w/Fileman HOSPITAL LOCATION (.22). Access: Read w/Fileman ENCOUNTER TYPE (15003). Access: Read w/Fileman VISIT ID (15001). Access: Read w/Fileman PATIENT STATUS IN/OUT (15002). Access: Read w/Fileman
ICR #6264	VA Point of Service	TYPE (.03). Access: Write w/Fileman PATIENT NAME (.05). Access: Write w/Fileman SERVICE CATEGORY (.07). Access: Write w/Fileman

Name	Field # of Occurrence
^%DT	.01+1, .02+1, .13+1, .18+1
ADD^AUPNVSIT	.12(XREF 3S)
POSTSLCT^AUPNVSIT	ACT+1
SUB^AUPNVSIT	.12(XREF 3K)
^DIC	.08+1, .21+1
Y^DIQ	ID.22+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ACT+1
^AUPNVSIT - [#9000010]	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), .01(XREF 6K), .05(XREF 2S) , .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .09(XREF 1S), .21(XREF 1S), .21(XREF 1K) , .22(XREF 1S), .22(XREF 1K), .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
^AUPNVSIT("AA"	.01(XREF 3S), .01(XREF 3K), .05(XREF 2S), .05(XREF 2K), .21(XREF 1S), .21(XREF 1K)
^AUPNVSIT("AAH"	.01(XREF 2S), .01(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 1S), .07(XREF 1K)
^AUPNVSIT("AD"	.12(XREF 1S), .12(XREF 1K)
^AUPNVSIT("ADEL"	.01(XREF 5S), .01(XREF 5K), .09(XREF 1S)
^AUPNVSIT("AET"	.01(XREF 4S), .01(XREF 4K), .05(XREF 4S), .05(XREF 4K), .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
^AUPNVSIT("AHL"	.01(XREF 6S), .01(XREF 6K), .22(XREF 1S), .22(XREF 1K)
^AUPNVSIT("B"	.01(XREF 1S), .01(XREF 1K)
^AUPNVSIT("C"	.05(XREF 1S), .05(XREF 1K)
^AUPNVSIT("VID"	15001(XREF 1S), 15001(XREF 1K)
^DD(44	ID.22+1
^DPT - [#2]	ID.05+1
^SC - [#44]	ID.22+1

Name	Field # of Occurrence
^(	.21(XREF 1K)
^(0	ID.05+1, ID.22+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 1S) , .07(XREF 1K), .21(XREF 1S), .21(XREF 1K), .22(XREF 1S), .22(XREF 1K)
^(150	ID15001+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: PCE Patient Care Encounter

Global: ^AUPNVSIT

Information

Description

Directly Accessed By Routines, Total: 259

Accessed By FileMan Db Calls, Total: 63

Pointed To By FileMan Files, Total: 46

Pointer To FileMan Files, Total: 12

Fields, Total: 41

ICR, Total: 5

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
>> %DT	.01+1, .02+1, .13+1, .18+1
%I	ID.22+1*!
>> C	ID.22+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K) , .01(XREF 6S), .01(XREF 6K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K) , .07(XREF 1S), .07(XREF 1K), .09(XREF 1S), .12(XREF 1S), .12(XREF 1K), .21(XREF 1S), .21(XREF 1K), .22(XREF 1S), .22(XREF 1K), .22(XREF 2S) , .22(XREF 2K), 15001(XREF 1S), 15001(XREF 1K), 15003(XREF 1S), 15003(XREF 1K)
DIC	ID.05+1, ID.22+1, .08+1!, .21+1!
DIC("S"	.08+1, .08SCR+1, .21+1, .21SCR+1
>> DIE	.08+1, .21+1
DT	.02+1, .13+1
DUZ("AG"	ACT+1, .01(XREF 5S), .09(XREF 1S)
U	ID.05+1, ID.22+1, ID15001+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S) , .01(XREF 6K), .05(XREF 2S), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .22(XREF 1S), .22(XREF 1K) , .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
X	ACT+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K) , .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02+1!, .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S) , .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .08+1!, .09+1!, .09(XREF 1S), .12(XREF 1S), .12(XREF 1K) , .13+1!, .18+1!, .21+1*!, .21(XREF 1S), .22(XREF 1S), .22(XREF 1K), .22(XREF 2S), .22(XREF 2K), 2101+1!, 15001+1! , 15001(XREF 1S), 15001(XREF 1K), 15003(XREF 1S), 15003(XREF 1K), 81101+1!
>> Y	ID.22+1*, .01+1, .02+1, .08+1, .13+1, .18+1, .21+1