Global: ^AUPNVSIT

Type date of visit.  Must be between DOB and today.  In the VA this reflects the visit appointment and or event date time.

APCDALVR Variable = APCDALVR("APCDDATE")

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)=""

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.  Used by PCC Health Summary.

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 the visits by patient and inverse date.  It is used to find the last n visits by a particular patient.  Used by PCC Q-Man, PCC Health Summary, PCC Management Reports, etc.  The name AA-TOO

signifies that the cross-reference used several field values and therefore the index AA is set on all of the fields.

1)= S:$D(APCDLOOK) DIC("DR")=""

2)= Q

The AV9 cross-reference is used to set DIC("DR")="" in order to suppress the asking of identifiers during a file shift from visit to a V File.  When adding data  to V Files using input templates starting in the Visit file

this suppressing the asking of identifiers in the V File.

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.

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 the visits by hospital location and inverse date.  It is used to find a date/time range of visits by a particular hospital location.  The name AHL2 signifies that the cross-reference used

several field values and therefore the index AHL is set on all of the fields.

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.  It is set to Service Category.

A date between 1960 and today.

UNEDITABLE

1)= I '$D(DIU(0)),$G(DUZ("AG"))?1"I"0.1"HS",'$$MFI^AUPNVSIT(DA) S ^AUPNVSIT("APCIS",$E(X,1,30),DA)=""

2)= I '$D(DIU(0)),$G(DUZ("AG"))?1"I"0.1"HS" K ^AUPNVSIT("APCIS",$E(X,1,30),DA)

Flag for IHS data center transmission.  DIU(0) prevents user re-indexing through direct fileman, DUZ(AG) selectively sets the index for IHS sites.

1)= I '$D(^AUPNVSIT("AMRG",X)),DUZ'=.5 S ^(X,DA)=""

2)= I $O(^AUPNVSIT("B",$O(^AUPNVSIT("B",X))))'[X K ^AUPNVSIT("AMRG",X,DA)

If there is not a merge for this date - the first visit for this day, set this x-ref. This tells the merge where to start looking.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9000010,.02,1,3,1.4)

1.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000010,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9000010,.02,1,3,2.4)

2.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000010,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= I '$D(DIU(0)) S X=DT

DELETE VALUE)= I '$D(DIU(0)) S X=DT

FIELD)= DATE LAST MODIFIED

Triggers the setting of DT into field #13.

1)= I $D(^AUTTSITE(1,0)),$P(^(0),U,15)="Y",'$$MFI^AUPNVSIT(DA),'$D(DIU(0)) S ^AUPNVSIT("ABILL",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ABILL",X,DA)

Flag for IHS Billing System.  Set only if running the IHS Billing Package.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,.02,1,5,1.4)

1.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=9000010,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,.02,1,5,2.4)

2.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,23)=DIV,DIH=9000010,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= I '$D(DIU(0)) S X=DUZ

DELETE VALUE)= I '$D(DIU(0)) S X=DUZ

FIELD)= #.23

1)= I '$D(DIU(0)),'$$MFI^AUPNVSIT(DA),$P($G(^BDWSITE(1,0)),U,2)]"",X>$P(^BDWSITE(1,0),U,2) S ^AUPNVSIT("ADWO",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ADWO",X,DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$S($D(DIFGLINE):1,1:"") X ^DD(9000010,.02,1,7,1.4)

1.4)= S DIH=$G(^AUPNVSIT(DIV(0),11)),DIV=X S $P(^(11),U,13)=DIV,DIH=9000010,DIG=1113 D ^DICR

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$S($D(DIFGLINE):1,1:"") X ^DD(9000010,.02,1,7,2.4)

2.4)= S DIH=$G(^AUPNVSIT(DIV(0),11)),DIV=X S $P(^(11),U,13)=DIV,DIH=9000010,DIG=1113 D ^DICR

CREATE VALUE)= S X=$S($D(DIFGLINE):1,1:"")

DELETE VALUE)= S X=$S($D(DIFGLINE):1,1:"")

FIELD)= #1113

1)= I $T(^BCDMSNDR)]"",'$$MFI^AUPNVSIT(DA),'$D(DIU(0)) S ^AUPNVSIT("ACDMP",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ACDMP",X,DA)

CDMP means Comprehensive Diabetes Management Program.  I think they may be changing the name to Chronic Disease Management Program.  The software sends HL7 messages to an Oracle based database that has a web interface.

IHS- The type of visit.  Differentiates between various categories of visit types.  E.g.  A visit provided by contract care funds versus a visit directing provided by IHS.  I-IHS, C-Contract, V-VA, O-Other, 6-638 Program.

APCDALVR Variable = APCDALVR("APCDTYPE")

Flag denoting whether the visit has been billed for.  Pointer to 3P PCC VISIT BILLING STATUS File.

APCDALVR Variable = APCDALVR ("APCDTPB")

Pointer to the Patient file.

APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

1)= S ^AUPNVSIT("AC",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("AC",$E(X,1,30),DA)

Regular cross-reference of Patient field.

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 made by a patient.  Used by PCC Q-Man, PCC Health Summary, etc.

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, inverse visit date.  Used to find the last n Hospitaliations for a given patient. Used by PCC Health Summary.

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,

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,11)):^(11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$UIDV^AUPNVSIT(DA) S DIH=$G(^AUPNVSIT(DIV(0),11)),DIV=X S $P(^(11),U,14)=DIV,DIH=9000010,DIG=1114

D ^DICR

2)= Q

CREATE VALUE)= S X=$$UIDV^AUPNVSIT(DA)

DELETE VALUE)= NO EFFECT

FIELD)= #1114

Pointer to the location file.  Location where the visit took place.  Eg. Sells Hospital, Home, School

APCDALVR Variable = APCDALVR("APCDLOC")

APCDALVR Variable = APCDALVR("APCDCAT")

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 given patient.

1)= I "DI"[X,'$P(^AUPNVSIT(DA,0),U,12) S ^AUPNVSIT("AI",DA)=""

2)= K ^AUPNVSIT("AI",DA)

Short Descr:  FACE TO FACE MAPPING CLINIC/SERVICE CATEGORY/PROVIDER CLASS

Set Logic:  D SCEDIT^AUPNMAP

Kill Logic:  Q

X(1):  SERVICE CATEGORY  (9000010,.07)  (forwards)

Pointer to the Clinic Stop file.  Organized clinic in which this visit took place.  E.g.  Pediatrics, General

APCDALVR Variable = APCDALVR("APCDCLN")

SUB^AUPNVSIT.

WRITE AUTHORITY:  ^

UNEDITABLE

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

Flag set to signify that the visit has been deleted.

WRITE AUTHORITY:  ^

UNEDITABLE

The PARENT VISIT LINK field points back to the VISIT file.

APCDALVR Variable = APCDALVR("APCDPVL")

1)= S ^AUPNVSIT("AD",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("AD",$E(X,1,30),DA)

PARENT VISIT LINK

1)= K ^AUPNVSIT("AI",DA)

2)= S:"DI"[$P(^AUPNVSIT(DA,0),U,7) ^AUPNVSIT("AI",DA)=""

This cross-reference is set only for main visits and killed for secondary visits.

1)= D ADD^AUPNVSIT

2)= D SUB^AUPNVSIT

THIS UPDATES THE DEPENDENT ENTRY COUNT WHEN A CHILD VISIT IS CREATED.

Date on which 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.

TRIGGERED by the DATE VISIT CREATED field of the VISIT File

1)= Q:DUZ("AG")["V"  I '$D(DIU(0)),'$$MFI^AUPNVSIT(DA) K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("APCIS",$P(^AUPNVSIT(DA,0),U,2),DA) S ^AUPNVSIT("APCIS",$E(X,1,30),DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("APCIS",$E(X,1,30),DA)

APCIS X-REF FOR IHS FOR DATA CENTER TRANSMISSION.

1)= Q:DUZ("AG")["V"  I $D(^AUTTSITE(1,0)),$P(^(0),U,15)="Y",'$$MFI^AUPNVSIT(DA),'$D(DIU(0)) K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("ABILL",$P(^(0),U,2),DA) S ^AUPNVSIT("ABILL",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ABILL",X,DA)

IHS BILLING X-REF.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)),'$G(BDWRXP) S X=DUZ X ^DD(9000010,.13,1,3,1.4)

1.4)= S DIH=$G(^AUPNVSIT(DIV(0),0)),DIV=X S $P(^(0),U,27)=DIV,DIH=9000010,DIG=.27 D ^DICR

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)),'$G(BDWRXP) S X=DUZ X ^DD(9000010,.13,1,3,2.4)

2.4)= S DIH=$G(^AUPNVSIT(DIV(0),0)),DIV=X S $P(^(0),U,27)=DIV,DIH=9000010,DIG=.27 D ^DICR

CREATE VALUE)= I '$D(DIU(0)),'$G(BDWRXP) S X=DUZ

DELETE VALUE)= I '$D(DIU(0)),'$G(BDWRXP) S X=DUZ

FIELD)= #.27

1)= I '$D(DIU(0)),'$D(ZTQUEUED),'$D(APCP) S AQAJSAV=$G(X),X="AQAJUPD" X ^%ZOSF("TEST") S X=AQAJSAV K AQAJSAV I $T D UPDATE^AQAJUPD(DA) D KILLNM^AQAJUTIL

2)= Q

UPDATES QI JCAHO IMS FILE If a facility is running the QI Linkages-JCAHO package, this xref will update the QI JCAHO IMS file for hospitalizations only that have been modified after the coding is complete.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT X ^DD(9000010,.13,1,5,1.4)

1.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,9)=DIV,DIH=9000010,DIG=1109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,11)):^(11),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$$NOW^XLFDT X ^DD(9000010,.13,1,5,2.4)

2.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,9)=DIV,DIH=9000010,DIG=1109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT

DELETE VALUE)= I '$D(DIU(0)) S X=$$NOW^XLFDT

FIELD)= #1109

1)= Q:DUZ("AG")["V"  I '$D(DIU(0)),'$$MFI^AUPNVSIT(DA),$P($G(^BDWSITE(1,0)),U,2)]"",X>$P(^BDWSITE(1,0),U,2) K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("ADWO",$P(^AUPNVSIT(DA,0),U,2),DA) S ^AUPNVSIT("ADWO",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ADWO",$E(X,1,30),DA)

1)= I $T(^BCDMSNDR)]"",'$$MFI^AUPNVSIT(DA),'$D(DIU(0)) K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("ACDMP",$P(^(0),U,2),DA) S ^AUPNVSIT("ACDMP",X,DA)=""

2)= I '$D(DIU(0)) K ^AUPNVSIT("ACDMP",X,DA)

1)= S ^AUPNVSIT("ADLM",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("ADLM",$E(X,1,30),DA)

Date that a transaction record was generated and sent to the IHS Data Center.

Flag for MFI.  Tells what type of filegram should be generated.  Add, Modify or Delete.

1)= I DUZ'=.5,'$D(DIU(0)),$P($G(^AUTTSITE(1,0)),U,16)="V" S ^AUPNVSIT("AMFI",DA)=X

2)= I '$D(DIU(0)) K ^AUPNVSIT("AMFI",DA)

APCDALVR Variable = APCDALVR("APCDAPPT")

APCDALVR Variable = APCDALVR("APCDEVM")

This field is the date and time the patient checked out for this visit.  This field will only store the information temporarily and will be empty.

This data is passed from the MCCR event data capture and then passed from PCE to PIMS 5.3 for automated check-out.

APCDALVR Variable = APCDALVR("APCDLS")

Defines the patient's eligibility for this visit.

APCDALVR Variable = APCDALVR("APCDVELG")

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 pt's eligibility (pointer).

The hospital location where this visit occurred.

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 the visits by hospital location and inverse date.  It is used to find a date/time range of visits by a particular hospital location.  The cross-reference used several field values and therefore

the index AHL is set on all of the fields.

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, visit IEN. It is set to Service Category.

The name of the user who created this visit entry.  In the VA using scanned encounter forms, this is the user who is performing the scans.

WRITE AUTHORITY:  ^

If known, the option under which this visit was created.

APCDALVR Variable = APCDALVR("APCDOPT")

This is the protocol which was used to create this visit.

APCDALVR Variable = APCDALVR("APCDPROT")

APCDALVR Variable = APCDALVR("APCDAPDT")

WRITE AUTHORITY:  ^

This field contains a pointer back to the visit on which Billing information is obtained.  This field is updated by the 3P Billing software.

1)= S ^AUPNVSIT("ABP",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("ABP",$E(X,1,30),DA)

This field is updated by the IHS Third Party Billing package and will contain, when updated, the amount billed by IHS to a Third Party payor.

This field is currently updated only by the IHS Third Party Billing package.

UNEDITABLE

1)= S ^AUPNVSIT("VCN",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("VCN",$E(X,1,30),DA)

1)= Q:$P(^AUPNVSIT(DA,0),U,5)=""  I +$P(X,".",2)>$G(^AUPNVSIT("AVCN",$P(^AUPNVSIT(DA,0),U,5))) S ^AUPNVSIT("AVCN",$P(^AUPNVSIT(DA,0),U,5))=+$P(X,".",2)

2)= Q

UNEDITABLE

AUPN*99.1*8 Field added to flag a visit as being created by PCC Plus.  Data entry has a mnemonic to use to set this field value.  Requested by Chinle Hospital.

WRITE AUTHORITY:  ^

WRITE AUTHORITY:  ^

1)= S ^AUPNVSIT("AVDEL",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("AVDEL",$E(X,1,30),DA)

1)= S ^AUPNVSIT("AXK",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("AXK",$E(X,1,30),DA)

1)= S ^AUPNVSIT("AXT",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("AXT",$E(X,1,30),DA)

Cross reference for external account number

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,12)):^(12),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,1211,1,2,1.4)

1.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),12)):^(12),1:""),DIV=X S $P(^(12),U,12)=DIV,DIH=9000010,DIG=1212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,12)):^(12),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,1211,1,2,2.4)

2.4)= S DIH=$S($D(^AUPNVSIT(DIV(0),12)):^(12),1:""),DIV=X S $P(^(12),U,12)=DIV,DIH=9000010,DIG=1212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= I '$D(DIU(0)) S X=DUZ

DELETE VALUE)= I '$D(DIU(0)) S X=DUZ

FIELD)= #1212

WRITE AUTHORITY:  ^

Free text location of service.

APCDALVR Variable = APCDALVR("APCDOLOC")

UNEDITABLE

1)= S ^AUPNVSIT("VID",$E(X,1,30),DA)=""

2)= K ^AUPNVSIT("VID",$E(X,1,30),DA)

This is an indicator of the patient's status at the time of the visit.

This field notes the primary type of visits, the stop code visit and the occasion of service visit that were manual entered.

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, visit IEN. It is set to Service Category.

This field will be used to indicate if this visit was for treating a VA patient based on a service connected problem.

This field may be passed to the Visit based on the MCCR event data capture.

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.

This data may be passed to the Visit from MCCR event data capture.

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.

This data may be passed to the Visit from MCCR event data capture.

This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Persian Gulf Exposure.

This data may be passed to the Visit from the MCCR event data capture.

Indicates whether the patient visit was related to their Military Sexual Trauma.

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.

A FIELD TO ADD COMMENTS AS THEY PERTAIN TO A VISIT

This is a pointer to the package that wanted the visit created.

UNEDITABLE

This is a pointer to the PCE DATA SOURCE file and is the source that wanted the visit created.

UNEDITABLE