2.0P658481UPDATE_2_0_512 VA-BREAST CANCER RISK ASSESSMENT UPDATEPACKER,REMINDERFOIANATREM^NATREM^oitausdhctlexa.r02.domain.ext^NATREM:LEXR0TSVR03/03/2026@05:33:33GROUPING DIALOG COMPONENTS
]]>PXRMCDEF1411016913
0 S DATE=VALUE("DUEDATE")
I PARAM="LAST DONE",+VALUE("LASTDONE")>0 S DATE=VALUE("LASTDONE")
Q
;
]]>
PXRMMSER3282939841
EDT) S TEST=0 Q
S NFOUND=1
S TEST(NFOUND)=1,DATE(NFOUND)=RDATE
S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=$P(^TMP($J,"SVC",DFN,2,5),U,2)
S TEXT(NFOUND)="Agent orange exposure registration date: "_$$FMTE^XLFDT(RDATE,"5Z")_"; location: "_DATA(NFOUND,"LOCATION")
Q
;
;===============
COMBAT(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will be true if combat service is found in the
;date range the date range specified by Beginning Date/Time
;and Ending Date/Time. VA-COMBAT SERVICE.
N FDATE,TDATE
S NFOUND=0
D GETSVCD(DFN)
S TEST=^TMP($J,"SVC",DFN,5)
I 'TEST Q
S FDATE=$P(^TMP($J,"SVC",DFN,5,1),U,1)
S TDATE=$P(^TMP($J,"SVC",DFN,5,2),U,1)
I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" S TEST=0 Q
S NFOUND=1
S TEST(NFOUND)=1,DATE(NFOUND)=FDATE
S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=$P(^TMP($J,"SVC",DFN,5,3),U,2)
S TEXT(NFOUND)="Combat service from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")_"; location: "_DATA(NFOUND,"LOCATION")
Q
;
;===============
CVELIG(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Computed finding for
;combat vet eligibility data. VA-COMBAT VET ELIGIBILITY.
N CV,EDATE,ELIG,RESULT
;DBIA #4156
S RESULT=$$CVEDT^DGCV(DFN,$$NOW^PXRMDATE)
;RESULT=(1,0,-1)^End Date (if populated, otherwise null)^CV
; (piece 1) 1 - qualifies as a CV
; 0 - does not qualify as a CV
; -1 - bad DFN or date
; (piece 3) 1 - vet was eligible on date specified (or DT)
; 0 - vet was not eligible on date specified (or DT)
S CV=$P(RESULT,U,1),EDATE=$P(RESULT,U,2),ELIG=$P(RESULT,U,3)
I 'CV S NFOUND=0 Q
S NFOUND=1
S TEST(NFOUND)=CV,DATE(NFOUND)=$$NOW^PXRMDATE
S TEXT(NFOUND)="End date is "_$$FMTE^XLFDT(EDATE,"5Z")
S DATA(NFOUND,"END DATE")=EDATE
S DATA(NFOUND,"VALUE")=$S(ELIG:"ELIGIBLE",1:"EXPIRED")
S DATA(NFOUND,"STATUS")=DATA(NFOUND,"VALUE")
Q
;
;===============
DISCHDT(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;
;This computed finding returns the service separation date.
;CF.VA-SERVICE SEPARATION DATES
N IND
D MSDATA(DFN,NGET,BDT,EDT,.NFOUND,.TEST,.DATE,.DATA,.TEXT,1)
F IND=1:1:NFOUND S DATA(IND,"VALUE")=DATE(IND)
Q
;
;===============
ELIG(DFN,TEST,DATE,DATA,TEXT) ;
;This computed finding gets a list of the patient's eligibilities
;using ELIG^VADPT. The Computed Finding Parameter can be used to
;check for a particular eligibility.
;CF.VA-ELIGIBILITY
N DONE,CFPARAM,DEFTEXT,IND,P1,P2,PARAM,PS1,PS2,PSUB,SUB,SUB1,SUB2
N TEMP,TPARAM,VAEL,VAERR,VAL
S CFPARAM=TEST
I CFPARAM="" S TEST=0 Q
S PARAM=$P(CFPARAM,"|",1)
S DEFTEXT=$P(CFPARAM,"|",2)
S DATE=$$NOW^PXRMDATE
D ELIG^VADPT
;Store secondary eligibilities by name.
S IND=0
F S IND=+$O(VAEL(1,IND)) Q:IND=0 D
. S TEMP=$P(VAEL(1,IND),U,2)
. S VAEL("SE",TEMP)=1
;Initialize undefined VAEL elements in CFPARAM.
S (DONE,P1)=0
S TPARAM=$TR(PARAM,"""","")
F Q:DONE D
. S P1=$F(TPARAM,"VAEL(",P1)
. I P1=0 S DONE=1 Q
. S P2=$F(TPARAM,")",P1)
. S SUB=$E(TPARAM,P1,P2-2)
. I SUB'["," D Q
.. I '$D(VAEL(SUB)) S VAEL(SUB)=""
. S SUB1=$P(SUB,",",1),SUB2=$P(SUB,",",2)
. I '$D(VAEL(SUB1,SUB2)) S VAEL(SUB1,SUB2)=""
I $G(PXRMDEBG)=1 M ^TMP("PXRMELIG",$J)=VAEL
I VAERR=1 S TEST=0 Q
S TEST=0
I @PARAM D
. N PSUB
. I DEFTEXT'="" S TEXT=DEFTEXT_"\\"_" CFPARAM="_PARAM
. E S TEXT="CFPARAM="_PARAM
. S TEST=1
. S (DONE,P1,PS1)=0
. F Q:DONE D
.. S P1=$F(TPARAM,"VAEL(",P1)
.. I P1=0 S DONE=1 Q
.. S P2=$F(TPARAM,")",P1)
.. S SUB=$E(TPARAM,P1,P2-2)
.. S PS1=$F(PARAM,"VAEL(",PS1)
.. S PS2=$F(PARAM,")",PS1)
.. S PSUB=$E(PARAM,PS1,PS2-2)
.. S VAL=$S(SUB'[",":VAEL(SUB),1:VAEL($P(SUB,",",1),$P(SUB,",",2)))
.. S TEXT=TEXT_"\\"_" VAEL("_PSUB_")="_VAL
D KVAR^VADPT
Q
;
;===============
GETSVCD(DFN) ;Get the SVC^VADPT service data.
I $D(^TMP($J,"SVC",DFN)) Q
N VAERR,VAROOT
S VAROOT="^TMP($J,""SVC"",DFN)"
D SVC^VADPT
D KVAR^VADPT
Q
;
;===============
MSDATA(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT,SEPDTR) ;This computed
;finding will return service branch information.
;CF.VA-SERVICE BRANCH.
;DBIA #5354
N ENTRYDTA,MSDATA,NEPS
D MSDATA^DGMSE(DFN,.NEPS,.ENTRYDTA,.MSDATA)
I NEPS=0 S NFOUND=0 Q
N BRANCH,DISTYPE,ENTRYDT,ENTRYDTO,IND,NOW
N SCOMP,SDIR,SEPDT,SEPDTC,SEPDTO
S NOW=$$NOW^PXRMDATE
S SDIR=$S(NGET>0:-1,1:1)
S NGET=$S(NGET<0:-NGET,1:NGET)
S NFOUND=0,ENTRYDT=""
F S ENTRYDT=$O(ENTRYDTA(ENTRYDT),SDIR) Q:(ENTRYDT="")!(NFOUND=NGET) D
. S IND=ENTRYDTA(ENTRYDT)
. S SEPDT=MSDATA(IND,"SEPARATION DATE")
.;Check for separation date required.
. I SEPDTR,SEPDT="" Q
. I SEPDTR,(SEPDT>EDT) Q
.;If there is no Separation Date use the evaluation date and time.
. S SEPDTC=$S(SEPDT'="":SEPDT,1:NOW)
. I $$OVERLAP^PXRMINDX(ENTRYDT,SEPDTC,BDT,EDT)'="O" Q
. S NFOUND=NFOUND+1
. S TEST(NFOUND)=1
. S DATE(NFOUND)=MSDATA(IND,"DATE")
. S BRANCH=MSDATA(IND,"BRANCH")
. I BRANCH="" S BRANCH=""
. S DATA(NFOUND,"BRANCH")=BRANCH
. S SCOMP=MSDATA(IND,"SERVICE COMPONENT")
. S SCOMP=$S(SCOMP="":"",1:SCOMP)
. S DATA(NFOUND,"SERVICE COMPONENT")=SCOMP
. S DISTYPE=MSDATA(IND,"DISCHARGE TYPE")
. S DISTYPE=$S(DISTYPE="":"",1:DISTYPE)
. S DATA(NFOUND,"DISCHARGE TYPE")=DISTYPE
. S ENTRYDTO=$$FMTE^XLFDT(ENTRYDT,"5Z")
. S SEPDTO=$S(SEPDT="":"",1:$$FMTE^XLFDT(SEPDT,"5Z"))
. S TEXT(NFOUND)="Service from "_ENTRYDTO_" to "_SEPDTO_" in "_BRANCH_"; service component "_SCOMP_"; discharge "_DISTYPE_"."
Q
;
;===============
OEF(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will return OEF service information in the date range
;specified by Beginning Date/Time and Ending Date/Time.
;VA-OEF SERVICE.
N FDATE,IND,SDIR,TDATE,TEMP
S NFOUND=0
S SDIR=$S(NGET<0:1,1:-1)
S NGET=$S(NGET<0:-NGET,1:NGET)
D GETSVCD(DFN)
I ^TMP($J,"SVC",DFN,12)=0 Q
S IND=""
F S IND=$O(^TMP($J,"SVC",DFN,12,IND)) Q:IND="" D
. S FDATE=$P(^TMP($J,"SVC",DFN,12,IND,2),U,1)
. I FDATE="" Q
. S TDATE=$P(^TMP($J,"SVC",DFN,12,IND,3),U,1)
. I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" Q
. S TEMP(FDATE,"TEST")=1
. S TEMP(FDATE,"DATA","LOCATION")=$P(^TMP($J,"SVC",DFN,12,IND,1),U,2)
. S TEMP(FDATE,"TEXT")="OEF service from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")_"; location: "_TEMP(FDATE,"DATA","LOCATION")
S FDATE=""
F S FDATE=$O(TEMP(FDATE),SDIR) Q:(FDATE="")!(NFOUND=NGET) D
. S NFOUND=NFOUND+1
. S TEST(NFOUND)=TEMP(FDATE,"TEST"),DATE(NFOUND)=FDATE
. S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=TEMP(FDATE,"DATA","LOCATION")
. S TEXT(NFOUND)=TEMP(FDATE,"TEXT")
Q
;
;===============
OEIF(NGET,BDT,EDT,TGLIST,PARAM) ;List computed finding to build patient
;list based on OEF/OIF/UNK data.
;VA-OEF/OIF
N DA,DATE,DFN,FDATE,LOC,LOCATION,NFOUND,TDATE
K ^TMP($J,TGLIST)
;DBIA #5354
D OEIF^DGMSE(BDT,EDT,"OEIF")
S DATE=$$NOW^PXRMDATE
S NGET=$S(NGET<0:-NGET,1:NGET)
S LOCATION=$G(PARAM)
I LOCATION="" S LOCATION="ANY"
S DFN=""
F S DFN=$O(^TMP($J,"OEIF",DFN)) Q:DFN="" D
. S FDATE=""
. F S FDATE=$O(^TMP($J,"OEIF",DFN,FDATE)) Q:FDATE="" D
.. S TDATE=""
.. F S TDATE=$O(^TMP($J,"OEIF",DFN,FDATE,TDATE)) Q:TDATE="" D
... S LOC=""
... F S LOC=$O(^TMP($J,"OEIF",DFN,FDATE,TDATE,LOC)) Q:LOC="" D
.... S NFOUND=+$O(^TMP($J,TGLIST,DFN,""))
.... I NFOUND=NGET Q
.... I (LOCATION["ANY")!(LOCATION[LOC) D
..... S DA=""
..... F S DA=$O(^TMP($J,"OEIF",DFN,FDATE,TDATE,LOC,DA)) Q:DA="" D
...... S NFOUND=NFOUND+1
...... S ^TMP($J,TGLIST,DFN,NFOUND)=DFN_";"_DA_U_DATE_U_2_U_LOC_U_TDATE_";"_FDATE
K ^TMP($J,"OEIF")
Q
;
;===============
OIF(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will return OIF service information in the date range
;specified by Beginning Date/Time and Ending Date/Time.
;VA-OIF SERVICE.
N FDATE,IND,SDIR,TDATE,TEMP
S NFOUND=0
S SDIR=$S(NGET<0:1,1:-1)
S NGET=$S(NGET<0:-NGET,1:NGET)
D GETSVCD(DFN)
I ^TMP($J,"SVC",DFN,11)=0 Q
S IND=""
F S IND=$O(^TMP($J,"SVC",DFN,11,IND)) Q:IND="" D
. S FDATE=$P(^TMP($J,"SVC",DFN,11,IND,2),U,1)
. I FDATE="" Q
. S TDATE=$P(^TMP($J,"SVC",DFN,11,IND,3),U,1)
. I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" Q
. S TEMP(FDATE,"TEST")=1
. S TEMP(FDATE,"DATA","LOCATION")=$P(^TMP($J,"SVC",DFN,11,IND,1),U,2)
. S TEMP(FDATE,"TEXT")="OIF service from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")_"; location: "_TEMP(FDATE,"DATA","LOCATION")
S FDATE=""
F S FDATE=$O(TEMP(FDATE),SDIR) Q:(FDATE="")!(NFOUND=NGET) D
. S NFOUND=NFOUND+1
. S TEST(NFOUND)=TEMP(FDATE,"TEST"),DATE(NFOUND)=FDATE
. S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=TEMP(FDATE,"DATA","LOCATION")
. S TEXT(NFOUND)=TEMP(FDATE,"TEXT")
Q
;
;===============
PGULF(DFN,TEST,DATE,VALUE,TEXT) ;Single value computed finding for
; PERSIAN GULF INDICATOR
D GETSVCD(DFN)
S TEST=+$G(^TMP($J,"SVC",DFN,16))
I 'TEST Q
S DATE=$$NOW^PXRMDATE
Q
;
;===============
PHEART(DFN,TEST,DATE,VALUE,TEXT) ;Single value computed finding for
;purple heart data. VA-PURPLE HEART.
N CV,EDATE,ELIG,RESULT
D GETSVCD(DFN)
S TEST=^TMP($J,"SVC",DFN,9)
I 'TEST Q
S DATE=$$NOW^PXRMDATE
S VALUE=""
S TEXT="Patient is a Purple Heart recipient."
Q
;
;===============
POW(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will be true if the patient was a POW in the date range
;specified by Beginning Date/Time and Ending Date/Time.
;VA-POW.
N FDATE,TDATE
S NFOUND=0
D GETSVCD(DFN)
S TEST=^TMP($J,"SVC",DFN,4)
I 'TEST Q
S FDATE=$P(^TMP($J,"SVC",DFN,4,1),U,1)
S TDATE=$P(^TMP($J,"SVC",DFN,4,2),U,1)
I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" S TEST=0 Q
S NFOUND=1
S TEST(NFOUND)=1,DATE(NFOUND)=FDATE
S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=$P(^TMP($J,"SVC",DFN,4,3),U,2)
S TEXT(NFOUND)="Patient was a POW from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")_"; location: "_DATA(NFOUND,"LOCATION")
Q
;
;===============
RADEXP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;;This computed
;finding will be true if the radiation exposure registration
;date is in the date range specified by Beginning Date/Time
;and Ending Date/Time. DVA-RADIATION EXPOSURE.
N RDATE
S NFOUND=0
D GETSVCD(DFN)
S TEST=^TMP($J,"SVC",DFN,3)
I 'TEST Q
S RDATE=$P(^TMP($J,"SVC",DFN,3,1),U,1)
I (RDATEEDT) S TEST=0 Q
S NFOUND=1
S TEST(NFOUND)=1,DATE(NFOUND)=RDATE
S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"EXPOSURE METHOD"))=$P(^TMP($J,"SVC",DFN,3,2),U,2)
S TEXT(NFOUND)="Radiation exposure registration date: "_$$FMTE^XLFDT(RDATE,"5Z")_"; exposure method: "_DATA(NFOUND,"EXPOSURE METHOD")
Q
;
;===============
SBRANCH(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will return service branch information.
;CF.VA-SERVICE BRANCH.
N IND
D MSDATA(DFN,NGET,BDT,EDT,.NFOUND,.TEST,.DATE,.DATA,.TEXT,0)
F IND=1:1:NFOUND S DATA(IND,"VALUE")=DATA(IND,"BRANCH")
Q
;
;===============
UNKOEIF(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed
;finding will return unknown OEF/OIF service information in the date
;range specified by Beginning Date/Time and Ending Date/Time.
;VA-UNKNOWN OEF/OIF SERVICE.
N FDATE,IND,SDIR,TDATE,TEMP
S NFOUND=0
S SDIR=$S(NGET<0:1,1:-1)
S NGET=$S(NGET<0:-NGET,1:NGET)
D GETSVCD(DFN)
I ^TMP($J,"SVC",DFN,13)=0 Q
S IND=""
F S IND=$O(^TMP($J,"SVC",DFN,13,IND)) Q:IND="" D
. S FDATE=$P(^TMP($J,"SVC",DFN,13,IND,2),U,1)
. I FDATE="" Q
. S TDATE=$P(^TMP($J,"SVC",DFN,13,IND,3),U,1)
. I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" Q
. S TEMP(FDATE,"TEST")=1
. S TEMP(FDATE,"DATA","LOCATION")=$P(^TMP($J,"SVC",DFN,13,IND,1),U,2)
. S TEMP(FDATE,"TEXT")="OEF/OIF service from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")_"; location: "_TEMP(FDATE,"DATA","LOCATION")
S FDATE=""
F S FDATE=$O(TEMP(FDATE),SDIR) Q:(FDATE="")!(NFOUND=NGET) D
. S NFOUND=NFOUND+1
. S TEST(NFOUND)=TEMP(FDATE,"TEST"),DATE(NFOUND)=FDATE
. S (DATA(NFOUND,"VALUE"),DATA(NFOUND,"LOCATION"))=TEMP(FDATE,"DATA","LOCATION")
. S TEXT(NFOUND)=TEMP(FDATE,"TEXT")
Q
;
;===============
VETERAN(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for checking if a
;patient is a veteran. VA-VETERAN.
N VAEL
S DATE=$$NOW^PXRMDATE
D ELIG^VADPT
S TEST=VAEL(4)
S VALUE=""
D KVAR^VADPT
Q
;
;===============
VIET(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;This computed will be
;true if Vietnam service in the date range specified by BDT and EDT
;is found. Note even though it is a multi structure it can only
;return one occurrence. VA-VIETNAM SERVICE.
N FDATE,TDATE
S NFOUND=0
D GETSVCD(DFN)
S TEST=^TMP($J,"SVC",DFN,1)
I 'TEST Q
S FDATE=$P(^TMP($J,"SVC",DFN,1,1),U,1)
S TDATE=$P(^TMP($J,"SVC",DFN,1,2),U,1)
I $$OVERLAP^PXRMINDX(FDATE,TDATE,BDT,EDT)'="O" S TEST=0 Q
S NFOUND=1
S TEST(NFOUND)=1,DATE(NFOUND)=FDATE
S TEXT(NFOUND)="Vietnam service from "_$$FMTE^XLFDT(FDATE,"5Z")_" to "_$$FMTE^XLFDT(TDATE,"5Z")
Q
;
]]>
PXRMPDEM380043725
0 S VALUE("DECEASED")=1,TEXT="Patient is deceased"
I '$D(PXRMPDEM) D
. N DOB,DOD
.;DBIA #10035
. S DOB=$P(^DPT(DFN,0),U,3)
. S DOD=$P($G(^DPT(DFN,.35)),U,1)
. S VALUE=$$AGE^PXRMAGE(DOB,DOD,$$NOW^PXRMDATE)
. I +DOD=0 S VALUE("DECEASED")=0 Q
. I +DOD>0 S VALUE("DECEASED")=1,TEXT="Patient is deceased"
Q
;
;======================================================
DFA(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding
;returns the date the patient turns a specified age. Based on
;work by AJM: 9/16/08.
;DBIA #10035 DATE OF BIRTH is a required field.
I TEST="" S NFOUND=0,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0 Q
S TEST=$P(TEST,".",1)
N BDAY,DOB,YEAR,YOB
S NFOUND=1
S DOB=$S($D(PXRMDOB):PXRMDOB,1:$P(^DPT(DFN,0),U,3))
S YOB=$E(DOB,1,3)
S BDAY=$E(DOB,4,7)
S YEAR=YOB+TEST
I BDAY="0229",'$$ISLEAP^PXRMDATE(YEAR) S BDAY="0228"
S (DATE(1),VALUE(1,"VALUE"))=YEAR_BDAY
S TEST(1)=1
S TEXT(1)="Patient "_$S(DATE(1)>$$NOW^PXRMDATE:"will be ",1:"was ")_+TEST_" years old on "_$$FMTE^XLFDT(DATE(1),"5Z")
Q
;
;======================================================
DOB(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's
;date of birth.
I $D(PXRMPDEM) S VALUE=PXRMPDEM("DOB")
;DBIA #10035 DATE OF BIRTH is a required field.
I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,3)
S TEST=$S(VALUE<$$NOW^PXRMDATE:1,1:0)
I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE)
Q
;
;======================================================
DOD(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's
;date of death.
I $D(PXRMPDEM) S VALUE=+PXRMPDEM("DOD")
;DBIA #10035
I '$D(PXRMPDEM) S VALUE=+$P($G(^DPT(DFN,.35)),U,1)
S TEST=$S(VALUE=0:0,VALUE>$$NOW^PXRMDATE:0,1:1)
I TEST S DATE=VALUE,TEXT=$$EDATE^PXRMDATE(VALUE)
Q
;
;======================================================
EMPLOYE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;This computed finding
;will return true if the patient is an employee.
;DBIA #10035, #10060
N EDATE,IEN,PAID,SSN,TDATE
S NFOUND=0,DATE(1)=$$NOW^PXRMDATE,TEST(1)=0
S SSN=$P($G(^DPT(DFN,0)),U,9)
I SSN="" Q
;Use SSN to make the link to file #200.
S IEN=+$O(^VA(200,"SSN",SSN,""))
I IEN=0 Q
S PAID=+$P($G(^VA(200,IEN,450)),U,1)
I PAID=0 Q
;Get the entered date.
S EDATE=+$P(^VA(200,IEN,1),U,7)
S VALUE(1,"DATE ENTERED")=EDATE
I (EDATE=0)!(EDATE>EDT) Q
;Check for a termination date.
S TDATE=+$P(^VA(200,IEN,0),U,11)
S VALUE(1,"TERMINATION DATE")=TDATE
I (TDATE>0),(TDATE0,DDATE'EDT S NFOUND=NFOUND+1,DDATEL(DDATE,NFOUND)=^DGPT(IEN,0)
I NFOUND=0 Q
S SDIR=$S(NGET<0:1,1:-1)
S NGET=$S(NGET<0:-NGET,1:NGET)
S (DONE,NF)=0
S DDATE=""
F IND=1:1:NFOUND Q:DONE D
. S DDATE=$O(DDATEL(DDATE),SDIR)
. I DDATE="" S DONE=1 Q
. S IEN=0
. F S IEN=$O(DDATEL(DDATE,IEN)) Q:(IEN="")!(DONE) D
.. S FEEBASIS=$P(DDATEL(DDATE,IEN),U,4)
.. I FEEBASIS=1,'INFEE Q
..;Type 1 is PTF, Type 2 is Census
.. S TYPE=$P(DDATEL(DDATE,IEN),U,11)
.. I TYPE=2,'INCEN Q
.. S NF=NF+1
.. S TEST(NF)=1,(DATE(NF),VALUE(NF))=DDATE
.. I FEEBASIS=1 S TEXT(NF)="Fee basis"
.. I TYPE=2 S TEXT(NF)="Census"
.. I NF=NGET S DONE=1
S NFOUND=NF
Q
;
;======================================================
INP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for
;determining if a patient is an inpatient on the evaluation date.
N VAIN,VAINDT
S NFOUND=1
S (DATE(1),VAINDT)=$$NOW^PXRMDATE
D INP^VADPT
I VAIN(1)="" S TEST(1)=0 D KVAR^VADPT Q
S TEST(1)=1
S VALUE(1,"PRIMARY PROVIDER")=$P(VAIN(2),U,2)
S VALUE(1,"TREATING SPECIALTY")=$P(VAIN(3),U,2)
S VALUE(1,"WARD LOCATION")=$P(VAIN(4),U,2)
S VALUE(1,"ADMISSION DATE/TIME")=$P(VAIN(7),U,1)
S VALUE(1,"ADMISSION TYPE")=$P(VAIN(8),U,2)
S VALUE(1,"ATTENDING PHYSICIAN")=$P(VAIN(11),U,2)
S TEXT(1)="Patient is an inpatient; admission date/time: "_$$FMTE^XLFDT(VALUE(1,"ADMISSION DATE/TIME"),"5Z")
D KVAR^VADPT
Q
;
;======================================================
NEWRACE(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding
;for returning a patient's multi-valued race.
N IND,VADM
D DEM^VADPT
S NFOUND=VADM(12)
I NFOUND=0 D KVA^VADPT Q
S NGET=$S(NGET<0:-NGET,1:NGET)
I NFOUND>NGET S NFOUND=NGET
F IND=1:1:NFOUND D
. S TEST(IND)=1,DATE(IND)=$$NOW^PXRMDATE,TEXT(IND)=""
. S (VALUE(IND,"VALUE"),VALUE(IND,"RACE"))=$P(VADM(12,IND),U,2)
D KVA^VADPT
Q
;
;======================================================
PATTYPE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding to return the patient
;type
N VAEL
S VALUE=""
S DATE=$$NOW^PXRMDATE
D ELIG^VADPT
S TEST=$S($G(VAEL(6))'="":1,1:0)
S VALUE=$P(VAEL(6),U,2)
D KVAR^VADPT
Q
;
;======================================================
RACE(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for checking a patient's race.
N RACE
S DATE=$$NOW^PXRMDATE
;DBIA #10035
S RACE=$P($G(^DPT(DFN,0)),U,6)
I RACE="" S TEST=0,VALUE="" Q
Q
;
;======================================================
SEX(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for returning a patient's
;sex.
S DATE=$$NOW^PXRMDATE,TEST=1
I $D(PXRMPDEM) S VALUE=PXRMPDEM("SEX") Q
;DBIA #10035 SEX is a required field.
I '$D(PXRMPDEM) S VALUE=$P(^DPT(DFN,0),U,2)
Q
;
SEXOR(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;
N ARRAY,IDX,CNT,SDIR,SOSTATUS,SO,SOTYPE,TMPDATE,VADM
D DEM^VADPT
S SOSTATUS=$G(TEST),NFOUND=0
;collect data from file 2
S IDX=0 F S IDX=$O(VADM(14,1,IDX)) Q:IDX'>0 D
.I SOSTATUS'="",SOSTATUS'=$P(VADM(14,1,IDX,1),U) Q
.S SO=$P(VADM(14,1,IDX),U),SOTYPE=$P(VADM(14,1,IDX),U,2)
.S TMPDATE=$S(+$P(VADM(14,1,IDX,3),U,2)>0:$P(VADM(14,1,IDX,3),U,2),1:$P(VADM(14,1,IDX,2),U,2))
.I TMPDATEEDT Q
.S ARRAY(TMPDATE)=""
.S ARRAY(TMPDATE,IDX,"SEXUAL ORIENTATION")=SO
.S ARRAY(TMPDATE,IDX,"SEXUAL ORIENTATION TYPE CODE")=SOTYPE
.S ARRAY(TMPDATE,IDX,"SO STATUS")=$P(VADM(14,1,IDX,1),U)
;handle return based off positive or negative NGET value
S SDIR=$S(NGET<0:+1,1:-1)
S TMPDATE=""
F S TMPDATE=$O(ARRAY(TMPDATE),SDIR) Q:TMPDATE="" D
.S NFOUND=NFOUND+1 I NFOUND>NGET Q
.S DATE(NFOUND)=TMPDATE,TEST(NFOUND)=1
.S VALUE(NFOUND,"SEXUAL ORIENTATION DAS")=DFN
.S TEXT(NFOUND)="List of sexual orientation:"
.S IDX=0,CNT=0 F S IDX=$O(ARRAY(TMPDATE,IDX)) Q:IDX'>0 D
..S VALUE(NFOUND,"SEXUAL ORIENTATION",IDX)=ARRAY(TMPDATE,IDX,"SEXUAL ORIENTATION")
..S VALUE(NFOUND,"SEXUAL ORIENTATION TYPE CODE",IDX)=ARRAY(TMPDATE,IDX,"SEXUAL ORIENTATION TYPE CODE")
..S CNT=CNT+1,TEXT(NFOUND,CNT)=" "_VALUE(NFOUND,"SEXUAL ORIENTATION",IDX)
..I VALUE(NFOUND,"SEXUAL ORIENTATION",IDX)="Another Option, please describe",$G(VADM(14,2))'="" D
...S VALUE(NFOUND,"OTHER DESCRIPTION")=VADM(14,2)
...S CNT=CNT+1,TEXT(NFOUND,CNT)=" Description: "_VALUE(NFOUND,"OTHER DESCRIPTION")
..S VALUE(NFOUND,"SO STATUS",IDX)=ARRAY(TMPDATE,IDX,"SO STATUS")
..S VALUE(NFOUND,"DIALOG")=1,VALUE(NFOUND,"PACKAGE")="REGISTRATION",VALUE(NFOUND,"PACKAGE PREFIX")="DG"
Q
;
;======================================================
WASINP(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,VALUE,TEXT) ;Computed finding for
;determining if a patient was an inpatient in the period defined
;by BDT and EDT.
;Access to DGPM covered by DBIA #1378
N ADATE,ADM,ADML,AWARD,DDATE,DWARD,IEN,INDT,FDATE,LOS,NOCC,SDIR,TEMP
S FDATE=$S(TEST="DISCH":"DISCH",1:"ADM")
S SDIR=$S(NGET<0:1,1:-1)
S NOCC=$S(NGET<0:-NGET,1:NGET)
S NFOUND=0
;Use the "ATID3" index to build a list of past admissions and
;discharges.
S INDT=""
F S INDT=$O(^DGPM("ATID3",DFN,INDT)) Q:INDT="" D
. S IEN=$O(^DGPM("ATID3",DFN,INDT,""))
. S TEMP=^DGPM(IEN,0)
. S DDATE=$P(TEMP,U,1)
. S ADM=$P(TEMP,U,14)
. S ADATE=$P(^DGPM(ADM,0),U,1)
. I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)'="O" Q
. S AWARD=$$GET1^DIQ(405,ADM,.06),DWARD=$$GET1^DIQ(405,IEN,200)
. S ADML(ADATE)=DDATE_U_AWARD_U_DWARD
;Check for the last admission and add it if it is not on the list.
S INDT=$O(^DGPM("ATID1",DFN,""))
I INDT'="" D
. S IEN=$O(^DGPM("ATID1",DFN,INDT,""))
. S TEMP=^DGPM(IEN,0)
. S ADATE=$P(TEMP,U,1),AWARD=$$GET1^DIQ(405,IEN,.06)
. I $D(ADML(ADATE)) Q
. S IEN=$P(TEMP,U,17)
.;Since this is the last admission there may not be a discharge.
. S DDATE=$S(IEN="":$$NOW^PXRMDATE,1:$P(^DGPM(IEN,0),U,1))
. I $$OVERLAP^PXRMINDX(ADATE,DDATE,BDT,EDT)="O" D
.. S DWARD=$S(IEN="":"",1:$$GET1^DIQ(405,IEN,200))
.. S ADML(ADATE)=DDATE_U_AWARD_U_DWARD
;Sort the list.
S ADATE=""
F S ADATE=$O(ADML(ADATE),SDIR) Q:(NFOUND=NOCC)!(ADATE="") D
. S NFOUND=NFOUND+1,TEST(NFOUND)=1
. S DDATE=$P(ADML(ADATE),U,1),AWARD=$P(ADML(ADATE),U,2),DWARD=$P(ADML(ADATE),U,3)
. I DDATE="" S DDATE=PXRMDATE
. S DATE(NFOUND)=$S(FDATE="DISCH":DDATE,1:ADATE)
. S LOS=$$FMDIFF^XLFDT(DDATE,ADATE)+1
. S TEMP="Inpatient from: "_$$FMTE^XLFDT(ADATE,"5Z")_" to "
. S TEMP=TEMP_$S(DDATE=PXRMDATE:"now",1:$$FMTE^XLFDT(DDATE,"5Z"))
. S TEMP=TEMP_"; Length of stay "_LOS_" days"
. S TEMP=TEMP_"; Admission ward: "_AWARD
. I DWARD'="" S TEMP=TEMP_"; Discharge ward: "_DWARD
. S TEXT(NFOUND)=TEMP
. S VALUE(NFOUND,"ADMISSION DATE")=ADATE
. S VALUE(NFOUND,"ADMISSION WARD")=AWARD
. S VALUE(NFOUND,"DISCHARGE DATE")=DDATE
. S VALUE(NFOUND,"DISCHARGE WARD")=DWARD
. S VALUE(NFOUND,"LENGTH OF STAY")=LOS
Q
;
]]>
REMINDER GENERAL FINDINGS801.46VIEW PROGRESS NOTE TEXT4541980651110NOREMINDER DIALOG LINK TYPE801.48VA-WH SABCRA NEG PH HIDE641946049458NOREMINDER DIALOG LINK TYPE801.48VA-WH SABCRA POS PH 46331157301NOREMINDER DIALOG LINK TYPE801.48VA-WH SABCRA POS PH 3621793425006NOREMINDER DIALOG LINK TYPE801.48VA-WH SABCRA POS PH 2612967249030NOREMINDER DIALOG LINK TYPE801.48VA-WH SABCRA POS PH 16099075583NOTIU TEMPLATE FIELD8927.1NCI BREAST CA RISK TOOL8895845665069NOTIU TEMPLATE FIELD8927.1WORD PROCESSING (REQ)19281705206043NOHEALTH FACTORS9999999.64VA-REMINDER UPDATES [C]8722981639263NOHEALTH FACTORS9999999.64VA-UPDATE_2_0_51239323768950104NOHEALTH FACTORS9999999.64VA-WH BREAST CANCER RISK ASSESSMENT [C]26192842142618NOHEALTH FACTORS9999999.64VA-WH BCRA SERVICE ACT AREA NO285224132533080NOHEALTH FACTORS9999999.64WH MAMMOGRAM [C]22091906272922NOHEALTH FACTORS9999999.64WH ORDER MAMMOGRAM SCREEN HF 6601051791296550NOHEALTH FACTORS9999999.64VA-WH BCRA PT DECLINES DETAILED-RISK EVAL338344205250920NOHEALTH FACTORS9999999.64VA-WH BCRA PT DECLINES SCREENING MAMMOGRAM338322553735733NOHEALTH FACTORS9999999.64VA-WH BCRA WAIT FOR RISK EVALUATION RECOMMENDATIONS33833656201547NOHEALTH FACTORS9999999.64VA-WH BCRA MAMMOGRAM PERFORMED WITHIN 12 MONTHS33831217647393NOHEALTH FACTORS9999999.64VA-WH BCRA TOXIC EXPOSURE POSITIVE28545517907998NOHEALTH FACTORS9999999.64VA-WH BCRA TOXIC EXPOSURE NEGATIVE285443114874428NOHEALTH FACTORS9999999.64VA-WH BCRA PERSONAL/FAMILY HISTORY POSITIVE285433264793826NOHEALTH FACTORS9999999.64VA-WH BCRA PERSONAL/FAMILY HISTORY NEGATIVE285421170762692NOHEALTH FACTORS9999999.64VA-WH BCRA FHRA PT DECLINES DETAILED-RISK ASSMNT REFERRAL338373488073075NOHEALTH FACTORS9999999.64VA-WH BCRA FHRA NATL TELEONC HIGH RISK BREAST CLINIC IFC ORDERED3383627603187NOHEALTH FACTORS9999999.64VA-WH BCRA FHRA REFER DETAILED RISK ASSMNT/GENETIC COUNSELING338353415568029NOHEALTH FACTORS9999999.64VA-WH BCRA FHRA DEFERRED OR UNKNOWN338391368286070NOHEALTH FACTORS9999999.64VA-WH BCRA FHRA NEGATIVE338381005598506NOHEALTH FACTORS9999999.64VA-WH BREAST CA ASHKENAZI JEWISH ANCESTRY262454153565838NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX BIOL MALE RELATIVE262442824418878NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE>50 2 OR MORE CASES SAME SIDE FAM26243834975761NO
50 2 OR MORE CASES SAME SIDE FAM
9999999.64;+26243,;.03~VA-WH BREAST CANCER RISK ASSESSMENT [C]
9999999.64;+26243,;.08~YES
9999999.64;+26243,;.1~FACTOR
9999999.64;+26243,;100~NATIONAL
9999999.64;+26243,;200~2 or more cases of breast CA age>50 on same side of family
9999999.64;+26243,;201~WP-start~1
2 or more cases of breast cancer after age 50 on same side of the family
9999999.65;+26244,+26243,;.01~SEP 30, 2022@11:03:10
9999999.65;+26244,+26243,;2~WP-start~1
Creation.
9999999.65;+26245,+26243,;.01~NOV 10, 2022@12:22:06
]]>
HEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC PATERNAL AUNT262423417295848NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC PGM262412360041975NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC MATERNAL AUNT262401036046950NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC MGM26239859297148NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC DAUGHTER262382972970719NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC SISTER262372381579659NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX BIOLOGIC MOTHER262362201741785NOHEALTH FACTORS9999999.64VA-WH OVARIAN CA/FTC/PPC HX PERSONAL262353521537840NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC PATERNAL AUNT262343035830508NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC PGM262332293539241NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC MATERNAL AUNT262313911854279NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC MGM262281638376100NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC DAUGHTER262253227864054NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC SISTER26223486619943NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 BIOLOGIC MOTHER262201599033484NOHEALTH FACTORS9999999.64VA-WH BREAST CA HX AGE<51 PERSONAL262182269291261NOHEALTH FACTORS9999999.64VA-WH BREAST CA FH RISK ASSMNT NEGATIVE26226599269993NOHEALTH FACTORS9999999.64VA-WH PERSONAL HX CHEST WALL RADIATION 10-30YO26205683808101NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX CHEK2422413583772997NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX ATM422404054523636NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX BRCA 1/BCRA 2261982919411756NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX OTHER BC GENETIC CONDITIONS26204696816362NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX BRRS262032369964083NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX COWDEN SYNDROME262011520787167NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR HX LI-FRAUMENI SYNDROME262001151881183NOHEALTH FACTORS9999999.64VA-WH PERSONAL HX BREAST CANCER26193719970927NOHEALTH FACTORS9999999.64VA-WH PERSONAL HISTORY ADH261963956287610NOHEALTH FACTORS9999999.64VA-WH PERSONAL HX LCIS261952936055711NOHEALTH FACTORS9999999.64VA-WH PERSONAL HX DCIS261942004684540NOHEALTH FACTORS9999999.64VA-WH BREAST CA PERSONAL/FH RISK ASSMNT TOTAL262464063573519NOHEALTH FACTORS9999999.64VA-WH PERSONAL/FDR BREAST CA HX NEGATIVE2620699483465NOHEALTH FACTORS9999999.64VA-TOXIC EXPOSURE SCREEN [C]250022265798384NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN TOXIC EXP NO MED CONCERNS263622101867302NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN TOXIC EXP MED CONCERNS263631563836080NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN RADIATION EXPOSURE250072873101521NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN OTHER EXPOSURE25008601401192NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN NONE250093943465191NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN GULF WAR EXPOSURE250063568308063NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN DOESNT KNOW253741599976531NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN DECLINED253601637354162NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN CAMP LEJEUNE EXPOSURE250051424256850NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN AIRBORNE HAZARD BURN PIT250043024770820NOHEALTH FACTORS9999999.64VA-TOX EXP SCRN VETERAN CONCERN AGENT ORANGE250032409888737NOHEALTH FACTORS9999999.64VA-WH BCRA CONTACT ATTEMPT452984213545687NOHEALTH FACTORS9999999.64WH BILATERAL MASTECTOMY6601013677992590NOHEALTH FACTORS9999999.64REMINDER FACTORS [C]41661145171NOHEALTH FACTORS9999999.64LIFE EXPECTANCY < 5 YEARS6120151540797093NOHEALTH FACTORS9999999.64VA-WH BCRA N/A MALE, NO ESTROGEN 5 YEARS285403470787862NOHEALTH FACTORS9999999.64VA-WH BCRA DECLINES ASSESSMENT285393815354617NOHEALTH FACTORS9999999.64VA-WH BCRA DEFER ASSESSMENT285383729748831NOHEALTH FACTORS9999999.64LIFE EXPECTANCY <6 MONTHS674060989549039NOHEALTH FACTORS9999999.64VA LIFE EXPECTANCY [C]660173201029449NOHEALTH FACTORS9999999.64VA LIMITED LIFE EXPECTANCY6601743378799499NOHEALTH FACTORS9999999.64LIFE EXPECTANCY < 1 YEAR4944039017764NOHEALTH FACTORS9999999.64LIFE EXPECTANCY < 6 MONTHS4843068813852NOREMINDER SPONSOR811.6NATIONAL CENTER FOR HEALTH PROMOTION AND DISEASE PREVENTION (NCP)281637069496NOREMINDER COMPUTED FINDINGS811.4VA-AGE241443113549NO
50.
If the patient is deceased the age will be their age on the date of
death and V("DECEASED")=1.
811.4;+24,;5~SINGLE
811.4;+24,;100~NATIONAL
]]>
REMINDER COMPUTED FINDINGS811.4VA-REMINDER DEFINITION351262865029NO
3051010.1220
I V("LASTDONE")=3051010.1220
***WARNING*** This computed finding can be used to evaluate a reminder
inside of a reminder evaluation - do not have this computed finding
evaluate the same reminder as the one being evaluated.
811.4;+35,;5~SINGLE
811.4;+35,;6~YES
811.4;+35,;100~NATIONAL
]]>
REMINDER COMPUTED FINDINGS811.4VA-ELIGIBILITY884162962212NOREMINDER TAXONOMY811.2VA-TERMINAL CANCER PATIENTS563960364409NOREMINDER TERM811.5VA-REMINDER UPDATE_2_0_51231932325705467YESREMINDER TERM811.5VA-WH BL AGE 30-3424302826728917NO
29&(V<35)
811.52;+2431,+2430,;15~NO
811.52;+2431,+2430,;22~I V>29&(V<35)
811.53;+2432,+2430,;.01~03/03/2026@05:33:42
811.53;+2432,+2430,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE<3013102740118096NOREMINDER TERM811.5VA-WH BL AGE 35-3924313244064993NO
34&(V<40)
811.52;+2432,+2431,;15~NO
811.52;+2432,+2431,;22~I V>34&(V<40)
811.53;+2433,+2431,;.01~03/03/2026@05:33:42
811.53;+2433,+2431,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-WH BL AGE>3424022624693757NO
34
811.5;+2402,;100~NATIONAL
811.52;+2403,+2402,;.01~CF.VA-AGE
811.52;+2403,+2402,;14~I V>34
811.52;+2403,+2402,;15~NO
811.52;+2403,+2402,;22~I V>34
811.53;+2404,+2402,;.01~03/03/2026@05:33:42
811.53;+2404,+2402,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-WH BL TES REMINDER24423645372722NOREMINDER TERM811.5VA-WH BCRA OUTCOME26752891331338NOREMINDER TERM811.5VA-WH BCRA DEFER26734294225741NOREMINDER TERM811.5VA-WH BCRA DECLINE26741881047021NOREMINDER TERM811.5VA-WH BCRA NOT INDICATED2680711886252NOREMINDER TERM811.5VA-WH BCRA CONTACT ATTEMPTS34341552449491NOREMINDER TERM811.5VA-WH CHAMP VA PATIENT20733372500300NO
64
811.52;+2074,+2073,;15~NO
811.52;+2074,+2073,;22~I PXRMAGE>64
811.52;+2074,+2073,;26~VAEL(1)["CHAMP"|Patient is a Champ VA patient age 65 or older|
811.53;+2075,+2073,;.01~03/03/2026@05:33:42
811.53;+2075,+2073,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-WH BCRA TOXIC EXPOSURE26812328090171NOREMINDER TERM811.5VA-WH BCRA PERSONAL/FAMILY HISTORY26793609884514NOREMINDER DEFINITION811.9VA-REPLACE DEFINITION3783958308980NOREMINDER DEFINITION811.9VA-WH BREAST CANCER RISK ASSESSMENT57922676195YES
2
811.925;+589,+579,;10~FN(1)>2
811.925;+589,+579,;41~3
811.925;+589,+579,;42~0
811.9255;+590,+589,+579,;.01~1
811.9255;+590,+589,+579,;.02~COUNT
811.9256;+591,+590,+589,+579,;.01~4
811.97;+592,+579,;.01~5Y
811.97;+592,+579,;2~39
811.97;+592,+579,;5~0
811.97;+592,+579,;6~0
]]>
HEALTH SUMMARY COMPONENT142.1PCE HEALTH FACTORS SELECTED2031531877056NOHEALTH SUMMARY TYPE142VA-WH BREAST CA RISK ASSMNT HX26493555105903YES
50 2 OR MORE CASES SAME SIDE FAM
142.14;+2673,+2650,+2649,;.01~F.VA-WH PERSONAL HX LCIS
142.14;+2674,+2650,+2649,;.01~F.VA-WH BREAST CA HX BIOL MALE RELATIVE
142.14;+2675,+2650,+2649,;.01~F.VA-WH BREAST CA ASHKENAZI JEWISH ANCESTRY
142.14;+2676,+2650,+2649,;.01~F.VA-WH BREAST CA PERSONAL/FH RISK ASSMNT TOTAL
142.14;+2677,+2650,+2649,;.01~F.VA-WH PERSONAL HISTORY ADH
142.14;+2678,+2650,+2649,;.01~F.VA-WH PERSONAL/FDR HX BRCA 1/BCRA 2
142.14;+2679,+2650,+2649,;.01~F.VA-WH PERSONAL/FDR HX LI-FRAUMENI SYNDROME
142.14;+2680,+2650,+2649,;.01~F.VA-WH PERSONAL/FDR HX COWDEN SYNDROME
142.14;+2681,+2650,+2649,;.01~F.VA-WH PERSONAL/FDR HX BRRS
142.14;+2682,+2650,+2649,;.01~F.VA-WH PERSONAL/FDR HX OTHER BC GENETIC CONDITIONS
]]>
HEALTH SUMMARY TYPE142VA WH TES REMINDER RESULTS26512908793698YESHEALTH SUMMARY TYPE142VA-WH BCRA CONTACT ATTEMPTS34024120655780YESHEALTH SUMMARY OBJECTS142.5VA-WH BREAST CA RISK ASSMNT HX (TIU)66006803325745866YESHEALTH SUMMARY OBJECTS142.5VA-WH TES REMINDER RESULTS (TIU)66006821871018597YESHEALTH SUMMARY OBJECTS142.5VA-WH BCRA CONTACT ATTEMPTS (TIU)6600949274065620YESTIU DOCUMENT DEFINITION8925.1VA-WH BREAST CA RISK ASSMNT HX52032463208258YESTIU DOCUMENT DEFINITION8925.1VA-WH TES REMINDER RESULTS5208145659892YESTIU DOCUMENT DEFINITION8925.1VA-WH BCRA CONTACT ATTEMPTS6921579391557YESREMINDER DIALOG801.41PXRM GF VIEW BUTTON388611501895938NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA NO INFO688943305461276NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA NO687983067279396NOREMINDER DIALOG801.41VA-BLANK LINE DIALOG & NOTE124082965937357NO
801.41;+12408,;35~WP-start~1
\\
801.41;+12408,;51~SUPPRESS
801.41;+12408,;100~NATIONAL
801.44;+12409,+12408,;.01~03/03/2026@05:33:42
801.44;+12409,+12408,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-WH BCRA ORDER MAMMOGRAM60621202294845NOREMINDER DIALOG801.41VA-BCRA DECLINES DETAILED-RISK EVAL688111607649057NOREMINDER DIALOG801.41VA-WH BCRA DECLINES SCREENING MAMMOGRAM296702836394686NOREMINDER DIALOG801.41VA-BCRA DETAILED-RISK EVAL688102242318267NOREMINDER DIALOG801.41VA-WH BCRA FH POS MEH POS 30-34 INFO620233725580725NOREMINDER DIALOG801.41VA-WH BCRA FH POS MEH POS <30 INFO296883472835268NOREMINDER DIALOG801.41VA-BCRA SCREENING PERFORMED W/IN 12M295861603320138NOREMINDER DIALOG801.41VA-BCRA FH POS MEH POS INFO606252690129393NOREMINDER DIALOG801.41VA-BCRA FH POS MEH POS606202033907038NOREMINDER DIALOG801.41VA-BCRA FH POS MEH NEG606192348401603NOREMINDER DIALOG801.41VA-BCRA FH POS606163177871795NOREMINDER DIALOG801.41VA-WH BCRA FH NEG MEH POS 35-39 INFO620211236200725NOREMINDER DIALOG801.41VA-WH BCRA PT AGREES MAMM NOT INDICATED688151020232542NOREMINDER DIALOG801.41VA-WH BCRA MAMMOGRAM ORDER DECISION620193187174391NOREMINDER DIALOG801.41VA-WH BCRA FH NEG MEH POS 30-34 INFO62018953315870NOREMINDER DIALOG801.41VA-WH BCRA FH NEG MEH POS <30 INFO295833608536821NOREMINDER DIALOG801.41VA-WH BCRA MAMMOGRAM WITHIN LAST 12M62016592615749NOREMINDER DIALOG801.41VA-BCRA FH NEG MEH POS NOTE295421511295431NOREMINDER DIALOG801.41VA-BCRA FH NEG MEH POS606182193494993NOREMINDER DIALOG801.41VA-WH BCRA FH NEG MEH NEG 35-39 INFO620151792358698NOREMINDER DIALOG801.41VA-BCRA FH NEG MEH NEG INFO60622211265019NOREMINDER DIALOG801.41VA-BCRA FH NEG MEH NEG606174150862356NOREMINDER DIALOG801.41VA-BCRA FH NEG606152409915000NOREMINDER DIALOG801.41VA-BCRA OPTIONS60614423434096NOREMINDER DIALOG801.41VA-WH BCRA CONCERNED TOXIC EXPOSURE NO692582409826902NOREMINDER DIALOG801.41VA-WH BCRA CONCERNED TOXIC EXPOSURE YES6925790706337NOREMINDER DIALOG801.41VA-WH BCRA CONCERNED TOXIC EXPOSURE692563898807161NOREMINDER DIALOG801.41VA-WH BCRA PH RISK ASSMNT POSITIVE DECLINES6877881595622NOREMINDER DIALOG801.41VAL-WH BCRA PH RISK ASSMNT POSITIVE TELEONC687773472320019NOREMINDER DIALOG801.41VAL-WH BCRA PH RISK ASSMNT POSITIVE LOCAL REFER687751478180079NOREMINDER DIALOG801.41VA-WH BCRA PERSONAL HISTORY RISK ASSMNT OUTCOME687742201942921NOREMINDER DIALOG801.41VA-WH BCRA FH RISK ASSMNT DEFER687853815366618NOREMINDER DIALOG801.41VA-WH BCRA FH RISK ASSMNT NEGATIVE687842784634191NOREMINDER DIALOG801.41VA-WH BCRA FH RISK ASSMNT DECLINES687831981005254NOREMINDER DIALOG801.41VAL-WH BCRA FH RISK ASSMNT REFER TELEONC68782939436965NOREMINDER DIALOG801.41VAL-WH BCRA FH RISK ASSMNT REFER LOCAL687813402603161NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY RISK ASSMNT OUTCOME68780168158273NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY JEWISH ANCESTRY606011265243516NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY MALE606003798789161NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY 2 OR MORE CASES605993343674395NO
50 2 OR MORE CASES SAME SIDE FAM
801.41;+60599,;25~WP-start~1
2 or more cases of breast cancer after age 50 on same side of the family
801.41;+60599,;100~NATIONAL
801.44;+60600,+60599,;.01~03/03/2026@05:33:42
801.44;+60600,+60599,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY OTHER605983851530498NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO PAT AUNT OFP CA605963611435553NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO PAT GRANDMOTHER OFP CA605952816804036NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MAT AUNT OFP CA605941754927311NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MAT GRANDMOTHER OFP CA605934226454052NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO DAUGHTER OFP CA605923176201197NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO SISTER OFP CA605913320218178NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MOTHER OFP CA605902553539312NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY PERSONAL OFP CA605893714332064NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY OVARIAN/FALLOPIAN/PERITONEAL CANCER605973787155191NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO PAT AUNT605882848573908NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO PAT GRANDMOTHER605871466343315NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MAT AUNT605863907453920NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MAT GRANDMOTHER605851177840272NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO DAUGHTER605841316564000NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO SISTER605831868434466NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BIO MOTHER605824188371288NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY PERSONAL60581310646840NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY BREAST CANCER 50605794126906745NOREMINDER DIALOG801.41VA-WH BCRA RISK ASSESSMENT TOOL605723419681198NO
34
801.41143;+60573,+60572,;2~FALSE
801.41143;+60573,+60572,;3~HIDE
801.44;+60574,+60572,;.01~03/03/2026@05:33:43
801.44;+60574,+60572,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY NONE6057667224209NOREMINDER DIALOG801.41VA-WH BCRA FAMILY HISTORY RISK ASSMNT605741556973140NOREMINDER DIALOG801.41VA-WH BCRA PH RISK ASSMNT NEGATIVE687794286368519NOREMINDER DIALOG801.41VA-WH BCRA HISTORY RADIATION605693862238941NOREMINDER DIALOG801.41VA-WH BCRA HISTORY GENETIC PROPENSITY CHECKPOINT1012903798851025NOREMINDER DIALOG801.41VA-WH BCRA HISTORY GENETIC PROPENSITY ATAXIA1012891403392428NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY VA-WH BCBCRA1012873571480369NOREMINDER DIALOG801.41PXRM COMMENT13865933290NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY OTHER60568499969346NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY BANNAAYAN60567201434360NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY COWDEN60566619109989NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY LI-FRAUMENI605651836997422NOREMINDER DIALOG801.41VA-WH BCRA HISTORY GENETIC PROPENSITY605631249810443NOREMINDER DIALOG801.41VA-WH BCRA GENETIC PROPENSITY BRCA605644175199519NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST CANCER DETAILS68772980832144NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST CANCER687711323246208NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST PRECANCER ADH605571424442297NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST PRECANCER LCIS60555840920255NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST PRECANCER DCIS605522978807987NOREMINDER DIALOG801.41VA-WH BCRA HISTORY BREAST CANCER/PRECANCER605452535903220NOREMINDER DIALOG801.41VA-WH BCRA PERSONAL HISTORY RISK ASSMNT INITIAL687734070734990NOREMINDER DIALOG801.41VA-WH BCRA PERSONAL HISTORY RISK ASSMNT605293837019504NOREMINDER DIALOG801.41VA-WH BCRA PERSONAL AND FAMILY HISTORY PRIOR605391210677238NOREMINDER DIALOG801.41VA-WH BCRA ENROLLED NO688923381112297NOREMINDER DIALOG801.41VA-WH BCRA TES RESULTS622503861487532NOREMINDER DIALOG801.41VAL-WH BCRA TOXIC EXPOSURE SCREEN605323035806474NOREMINDER DIALOG801.41VA-WH BCRA ENROLLED YES688913107694211NOREMINDER DIALOG801.41VA-WH BCRA ENROLLED688901355620904NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA YES68796723477119NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA INFO68795301604881NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA687932382277490NOREMINDER DIALOG801.41VA-WH BCRA VERSION68792312025170NOREMINDER DIALOG801.41VA-WH BREAST CANCER RISK ASSESSMENT694973569175838YESREMINDER DIALOG801.41VA-WH BCRA CALL ATTEMPTS OBJECT1064883519392880NOREMINDER DIALOG801.41PXRM VISIT DATE404262247822NOREMINDER DIALOG801.41VA-WH BCRA CALL SECOND1064763748059195NOREMINDER DIALOG801.41VA-WH BCRA CALL FIRST1064752856269694NOREMINDER DIALOG801.41VA-WH BCRA CALL ADDITIONAL1064771261808705NOREMINDER DIALOG801.41VA-WH BCRA CALL ATTEMPT GROUP1064803165880372NOREMINDER DIALOG801.41VA-WH BCRA CALL ATTEMPTS1064742322117578NOREMINDER DIALOG801.41VA-WH BCRA PERMANENTLY N/A BILAT MASTECTOMY692502405466440NOREMINDER DIALOG801.41VA-WH BCRA PERMANENTLY N/A LIMITED LIFE EXPECTANCY688873835386028NOREMINDER DIALOG801.41VA-WH BCRA PERMANENTLY N/A MALE, NO ESTROGEN688864174871368NOREMINDER DIALOG801.41VA-WH BCRA PERMANENTLY NOT APPLICABLE688851731194452NOREMINDER DIALOG801.41VA-WH BCRA DECLINE ASSESSMENT688841194810062NOREMINDER DIALOG801.41VA-WH BCRA DEFER ASSESSMENT688833941498150NOREMINDER DIALOG801.41VAL-WH BCRA SERVICE ACT AREA YES DEF706043050514032NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA INFO DEF7060699157597NOREMINDER DIALOG801.41VA-WH BCRA SERVICE ACT AREA DEF706053674095802NOREMINDER DIALOG801.41VA-WH BCRA COMPLETE REMINDER688821358500108NOREMINDER DIALOG801.41VA-WH BCRA HEADER68893198247012NOREMINDER DIALOG801.41VA-WH BCRA REMINDER DEF VERSION709901368558130NOREMINDER DIALOG801.41VA-WH BREAST CANCER RISK ASSESSMENT DEFINITION VERSION687903771281446YES23629843488485934897884948068017928218198108368348258518498408668648558818798709088948859339219129499469379739629539799781002992983100710071031102010111036103610521049104010711065105610951084107511001100112411131104112911291153114211331158115811821171116211871187121212001191121812171243123112221249124812751262125312821280130912951286131713141342133013211348134713731361135213781378140213911382140714071431142014111436143614601449144014651465148814781469149314931516150614971521152115451534152515511550157615641555158315811610159615871618161516431631162216501648167816631654168716831712170016911719171717441732172317511749177617641755178317811808179617871815181318411828181918481846187418611852188118791908189418851916191319431929192019511948197719641955198519822011199819892019201620452032202320532050207720662057208320822108209620872115211321382128211921432143216821562147217421732199218721782205220422282218220922332233225922462237226622642291227922702297229623212310230123272326235123402331235723562381237023612387238624112400239124172416244324302421245124482476246424552483248125062496248725112511253425242515253925392565255225432573257026012586257726092606263626222613264326412672265626472681267727112694268527212716275327342725276527582794277827692803279928312816280728392836286528522843287128702900288428752909290529402922291329512945297929642955298729843013300029913020301830393033302430563052304330743069306030983087307831033103312731163107313231323156314531363161316131793174316531963192318332183209320032233223324132363227325932543245327632723263328132813306329432853375331933103439338833793598345234433703360337233716370737293728375037423733375637553777376937603783378238043796378738103809383138233814383738363859385038413865386438843878386938893889391239023893391839173940393139223946394539913959395040043996402640174008403240314054404540364060405940834073406440904088411341034094412041184168413341244174417343104187417843274315434043404331439343534344443043984461444344344477446645004490448145064505453845194510456845514542459845814572461646114602463446294620465246474638467346654656467846784701469146824706470647364719471047424741476547554746477047704791478347744796479648184809480048234823484448364827484948494871486248534876487649094889488049184914494649314922495349514975496649574980498050264993498450385031506450515042507050695098508350745105510351375118510951445142517451575148518151795202519451855207520752275220521152325232526252455236526952675292528252735297529753185310530153235323537353365327538453785410539753885416541554375429542054425442546854555446547454735500548754785506550555385519551055455543558055585549558755855609560055915614561456375627561856425642567256555646567956775700569256835705570557275718570957325732575357455736575857585789577157625797579458185810580158235823584458365827584958495871586258535876587658985889588059035903592559165907593059305966594359345976597159975989598060026002602360156006602860286049604160326054605460856067605860936090611461066097611961196140613261236145614561666158614961716171619261846175619761976218621062016223622362446236622762496249627062626253627562756296628862796301630163436314630563566348637763696360638263826403639563866408640864296421641264346434645564476438646064606481647364646486648665076499649065126512653365256516653865386559655165426564656466056577656866186610664966316622665566546684666866596690668967406703669467496745678067626753678767856812680067916817681768386830682168436843686468566847686968696890688268736895689569156908689969206920694669336924695269516974696569566979697970006992698370057005702670187009703170317070704470357082707571057095708671107110713171237114713671367161714971407167716671917180717171977196722172107201722772267251724072317257725672917270726173007296734473137304735473497385736773587392739074207405739674267425746474397430747574697499748874797504750475357517750875417540757775547545758775827617760075917624762276507637762876567655770376697660771177087735772477157741774077657754774577707770779377837774780077987823781378047828782878487841783278537853788178667857788878867916790178927923792179537936792779607958798779737964799579928025800879998032803080538045803680588058808180718062808680868108809980908113811381468126811781548151817781678158818281828210819581868216821582508229822082608255830782738264831583128339832883198345834483708358834983768375840983898380841984148442843284238447844784708460845184778475