2.0P655368UPDATE_2_0_443 VA-CRC COLONOSCOPY RESULTS PT LETTER WITH S LOGICPACKER,REMINDERFOIANATREM^NATREM^oitausdhctlexa.r02.domain.ext^NATREM:LEXR0TSVR05/11/2026@19:07:17GROUPING DIALOG COMPONENTS
]]>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
;
]]>
TIU TEMPLATE FIELD8927.1WORD 1 LINE120053142759886NOTIU TEMPLATE FIELD8927.1DATE REQ234213063732728NOTIU TEMPLATE FIELD8927.1VA-CRC COMMUNICATION18334099829794NOTIU TEMPLATE FIELD8927.1TEXT 2 LINES16474651649982NOTIU TEMPLATE FIELD8927.1VA-CRC COLONOSCOPY SCHEDULE INSTRUCTIONS101781741661012NOTIU TEMPLATE FIELD8927.1CRC TIU TEMPLATE FIELD1025429651406NOHEALTH FACTORS9999999.64VA-REMINDER UPDATES [C]8722981639263NOHEALTH FACTORS9999999.64VA-UPDATE_2_0_44332475181266432NOHEALTH FACTORS9999999.64VA-COLONOSCOPY FOLLOW UP [C]25261136847078NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U CANCER252621755135419NOHEALTH FACTORS9999999.64VA-COLONOSCOPY SURVEILLANCE [C]2526323049874NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U NORMAL252641427120574NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYPS CLINICAL DX SSL25265998373317NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U > 10 POLYPS559678301687177NO
10 POLYPS
9999999.64;+559678,;.03~VA-COLONOSCOPY FOLLOW UP [C]
9999999.64;+559678,;.08~YES
9999999.64;+559678,;.1~FACTOR
9999999.64;+559678,;100~NATIONAL
9999999.64;+559678,;101~VHA GI FIELD ADVISORY COMMITTEE
9999999.64;+559678,;200~Colonoscopy Follow-Up: > 10 Polyps
9999999.65;+559679,+559678,;.01~OCT 02, 2024@12:22:54
]]>
HEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYPS ADENOMAS/SSL MODERATE56022676169308NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYPS LESIONS5596743139909445NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY POLYPS NORMAL5596722120063055NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYPS ADENOMAS/SSL ADVANCED5596753643219527NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYPS ADENOMAS5596731301643226NOHEALTH FACTORS9999999.64VA-CRC HF CATEGORY [C]71251948703665NOHEALTH FACTORS9999999.64VA-CRC COLON SCREEN NOT INDICATED7126782603495NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 2.5YR8729521723498NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 1.5YR87282741414322NOHEALTH FACTORS9999999.64VA-CRC AVG RISK ORDER COLONOSCOPY7165102218936NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 1M8727765500327NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 10YR71561862376385NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 9YR71571154106938NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 8YR71583206208283NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 7YR71592197484083NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 6YR71602032824082NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 5YR71612922040880NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 4YR71621442468625NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 3YR71633680143925NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 2YR7164545920788NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 1YR71664153062966NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 6M71923416943953NOHEALTH FACTORS9999999.64VA-CRC PROMPT COLONOSCOPY 3M71913848015109NOHEALTH FACTORS9999999.64VA-CRC AVG RISK SET FUTURE USPTF AGE132063656890466NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 2.5 YR87311701998094NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 1.5 YR87302837638212NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 10 YR7189571287267NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 9 YR71882756538493NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 8 YR71871303316035NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 7 YR71862672092878NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 6 YR71851990627568NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 5 YR71842549157107NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 4 YR71832115205837NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 3 YR71822385457844NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 2 YR71811741505674NOHEALTH FACTORS9999999.64VA-CRC AVG RISK 1 YR71802258294921NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U CONCERN PRIOR HIGH RISK POLYPS39767380036892NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U INFLAMMATORY BOWEL DIS5595162835615640NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U HEREDITARY SYNDROME/POLYPOSIS392744003932449NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U FAMILY HX5596981339266643NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U PRIOR CRC5596813906591642NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U PIECEMEAL5596793823963887NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POLYP NOT/INCOMPLETELY REMOVED392723909348623NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U PRIOR HIGH RISK POLYPS5596992179179434NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U EXAM INCOMPLETE5596762456350457NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U POOR PREP5596771086566263NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY NO FACTORS PRESENT392731793911555NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY F/U OTHER252663801230267NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY INDICATION: FOLLOW UP OF ABNORMAL SCREENING252704136539849NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY INDICATION: DIAGNOSTIC 252713004619436NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY INDICATION: SURVEILLANCE252723159715323NOHEALTH FACTORS9999999.64VA-CRC COLONOSCOPY INDICATION: SCREENING252733781682851NOREMINDER SPONSOR811.6VHA GI FIELD ADVISORY COMMITTEE34821535220NOREMINDER 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 TERM811.5VA-REMINDER UPDATE_2_0_44328891863206217YESREMINDER TERM811.5VA-AGE <507471357420928NOREMINDER TERM811.5VA-AGE <40!>747372256416621NO
74
811.5;+737,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >74 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >74, hence the name.
811.5;+737,;100~LOCAL
811.52;+738,+737,;.01~CF.VA-AGE
811.52;+738,+737,;14~I V<35!(V>74)
811.52;+738,+737,;22~I V<35!(V>74)
811.53;+739,+737,;.01~05/11/2026@19:07:35
811.53;+739,+737,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>657463318880602NO
65
811.5;+746,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >65 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >65, hence the name.
811.5;+746,;100~LOCAL
811.52;+747,+746,;.01~CF.VA-AGE
811.52;+747,+746,;14~I V<35!(V>65)
811.52;+747,+746,;15~NO
811.52;+747,+746,;22~I V<35!(V>65)
811.53;+748,+746,;.01~05/11/2026@19:07:35
811.53;+748,+746,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>6674531176870NO
66
811.5;+745,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >66 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >66, hence the name.
811.5;+745,;100~LOCAL
811.52;+746,+745,;.01~CF.VA-AGE
811.52;+746,+745,;14~I V<35!(V>66)
811.52;+746,+745,;15~NO
811.52;+746,+745,;22~I V<35!(V>66)
811.53;+747,+745,;.01~05/11/2026@19:07:35
811.53;+747,+745,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>67744868648835NO
67
811.5;+744,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >67 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >67, hence the name.
811.5;+744,;100~LOCAL
811.52;+745,+744,;.01~CF.VA-AGE
811.52;+745,+744,;14~I V<35!(V>67)
811.52;+745,+744,;22~I V<35!(V>67)
811.53;+746,+744,;.01~05/11/2026@19:07:35
811.53;+746,+744,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>68743735940771NO
68
811.5;+743,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >68 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >68, hence the name.
811.5;+743,;100~LOCAL
811.52;+744,+743,;.01~CF.VA-AGE
811.52;+744,+743,;14~I V<35!(V>68)
811.52;+744,+743,;22~I V<35!(V>68)
811.53;+745,+743,;.01~05/11/2026@19:07:35
811.53;+745,+743,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>697423140814863NO
69
811.5;+742,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >69 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >69, hence the name.
811.5;+742,;100~LOCAL
811.52;+743,+742,;.01~CF.VA-AGE
811.52;+743,+742,;14~I V<35!(V>69)
811.52;+743,+742,;22~I V<35!(V>69)
811.53;+744,+742,;.01~05/11/2026@19:07:35
811.53;+744,+742,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>707412823767838NO
70
811.5;+741,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >70 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >70, hence the name.
811.5;+741,;100~LOCAL
811.52;+742,+741,;.01~CF.VA-AGE
811.52;+742,+741,;14~I V<35!(V>70)
811.52;+742,+741,;22~I V<35!(V>70)
811.53;+743,+741,;.01~05/11/2026@19:07:35
811.53;+743,+741,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>717402097418041NO
71
811.5;+740,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >71 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >71, hence the name.
811.5;+740,;100~LOCAL
811.52;+741,+740,;.01~CF.VA-AGE
811.52;+741,+740,;14~I V<35!(V>71)
811.52;+741,+740,;15~NO
811.52;+741,+740,;22~I V<35!(V>71)
811.53;+742,+740,;.01~05/11/2026@19:07:35
811.53;+742,+740,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>727393541569338NO
72
811.5;+739,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >72 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >72, hence the name.
811.5;+739,;100~LOCAL
811.52;+740,+739,;.01~CF.VA-AGE
811.52;+740,+739,;14~I V<35!(V>72)
811.52;+740,+739,;22~I V<35!(V>72)
811.53;+741,+739,;.01~05/11/2026@19:07:35
811.53;+741,+739,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-AGE <40!>737384040670225NO
73
811.5;+738,;1~WP-start~4
Used as branching logic in the VA-CRC Screen reminders. The term will be
evaluated as true if the patient is <35 or >73 years old. This was
updated in May 2021 with new CRC screening guidance. The original version
was true if the patient was <40 or >73, hence the name.
811.5;+738,;100~LOCAL
811.52;+739,+738,;.01~CF.VA-AGE
811.52;+739,+738,;14~I V<35!(V>73)
811.52;+739,+738,;22~I V<35!(V>73)
811.53;+740,+738,;.01~05/11/2026@19:07:35
811.53;+740,+738,;2~WP-start~1
Exchange Stub
]]>
TIU DOCUMENT DEFINITION8925.1TODAY'S DATE5661730461700NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY FAMILY HX26636504106384NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U CA COMMENT TXT600971754327293NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U CA COMMENT600981962157278NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYPS CA600992231633329NOREMINDER DIALOG801.41VAL-CRC HF COLONOSCOPY F/U NORMAL266653189936206NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYPS CLINICAL DX67518138737691NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY POLYPS FOUND RO TXT675161960238120NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U NO INCREASE RISK266572025112654NOREMINDER DIALOG801.41VAL-CRC LETTER POLYPS >10813801326685342NO
10
801.41;+81380,;4~dialog element
801.41;+81380,;15~HF.VA-CRC COLONOSCOPY F/U > 10 POLYPS
801.41;+81380,;25~WP-start~1
>10 adenomas or SSLs [US MSTF recommended interval: 1 year]
801.41;+81380,;35~WP-start~5
The pathology report on your colon polyp showed adenomas or serrated
lesions. These types of polyps are common and benign, but they rarely can
progress into cancer over time. The polyp(s) have been removed and
should not cause you problems, but you may develop more in the
future.
801.41;+81380,;100~LOCAL
801.44;+81381,+81380,;.01~05/11/2026@19:07:35
801.44;+81381,+81380,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U ADENOMA POLYP SSL MODERATE266593958670760NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U ADENOMA POLYP SSA266602609108142NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYPS NORMAL266622927506319NOREMINDER DIALOG801.41VAL-CRC LETTER COLONOSCOPY F/U POLYPS ADENOMAS/HYPERPLASTIC266583931150402NO
/= 5 small adenomas/SSLs and/or advanced adenoma/SSL (>/= 10mm,
tubulovillous, or high-grade dysplasia) [US MSTF recommended interval: 3
Years]
801.41;+26658,;35~WP-start~4
The pathology report on your colon polyp showed adenomas or serrated
lesions. These types of polyps are common and benign, but they rarely can
progress into cancer over time. The polyp(s) have been removed and should
not cause you problems, but you may develop more in the future.
801.41;+26658,;52~INDENT
801.41;+26658,;100~LOCAL
801.44;+26659,+26658,;.01~05/11/2026@19:07:35
801.44;+26659,+26658,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYPS ADENOMAS26661808145293NOREMINDER DIALOG801.41VAL-CRC LETTER COLONOSCOPY F/U POLYPS FOUND TYPE266633752752774NO
10
801.44;+26670,+26663,;.01~05/11/2026@19:07:35
801.44;+26670,+26663,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYPS FOUND266642168219729NOREMINDER DIALOG801.41VA-CRC LETTER COLONOSCOPY LETTER F/U NOR/ABN266681230850710NOREMINDER DIALOG801.41VA-CRC RESULT LETTER REC CRC NO FUTURE123562560797612NOREMINDER DIALOG801.41PXRM VISIT DATE FORCED TODAY1455602000215NOREMINDER DIALOG801.41PXRM COMMENT13865933290NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 2.5YR164941281781229NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 1.5YR164933713148730NOREMINDER DIALOG801.41VAL-CRC TEXT FIELD WITH CHECKBOX109192620286329NOREMINDER DIALOG801.41VA-CRC RESULT LETTER CONTACT PCP123841001426708NOREMINDER DIALOG801.41VAL-CRC FUTURE COLON 1 YR WARNING190251979939110NOREMINDER DIALOG801.41VAL-CRC RL ORDER COLONOSCOPY16421726195577NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 1M123831493294156NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 10Y123953885124813NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 9YR12394526512391NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 8YR123933450642289NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 7YR123923979979821NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 6YR123911850645619NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 5YR123903261606056NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 4YR12389279267038NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 3YR123881096042335NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 2YR123872476288297NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 1YR123862084730120NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 6M12385659547506NOREMINDER DIALOG801.41VA-CRC RL FUTURE COLONOSCOPY 3M123821744380863NOREMINDER DIALOG801.41VA-CRC RESULT LETTER RESET COLONOSCOPY123693337940790NOREMINDER DIALOG801.41VA-CRC RESULT LETTER REC CRC F/U123554120970536NOREMINDER DIALOG801.41VA-CRC RESULT LETTER REC CRC 50123541739346711NOREMINDER DIALOG801.41VA-CRC RL AVG RISK 2.5 YR164924269543651NO
74
801.41143;+16493,+16492,;2~TRUE
801.41143;+16493,+16492,;3~HIDE
801.412;+16494,+16492,;.01~5
801.412;+16494,+16492,;2~PXRM COMMENT
801.412;+16494,+16492,;6~Comments (optional):
801.412;+16495,+16492,;.01~2
801.412;+16495,+16492,;2~PXRM VISIT DATE FORCED TODAY
801.412;+16495,+16492,;9~YES
801.44;+16496,+16492,;.01~05/11/2026@19:07:36
801.44;+16496,+16492,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 1.5 YR164911511957193NO
74
801.41143;+16492,+16491,;2~TRUE
801.41143;+16492,+16491,;3~HIDE
801.412;+16493,+16491,;.01~5
801.412;+16493,+16491,;2~PXRM COMMENT
801.412;+16493,+16491,;6~Comments (optional):
801.412;+16494,+16491,;.01~2
801.412;+16494,+16491,;2~PXRM VISIT DATE FORCED TODAY
801.412;+16494,+16491,;9~YES
801.44;+16495,+16491,;.01~05/11/2026@19:07:36
801.44;+16495,+16491,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 10 YR124063599086792NO
65
801.41143;+12407,+12406,;2~TRUE
801.41143;+12407,+12406,;3~HIDE
801.412;+12408,+12406,;.01~5
801.412;+12408,+12406,;2~PXRM COMMENT
801.412;+12408,+12406,;6~Comments (optional):
801.412;+12409,+12406,;.01~2
801.412;+12409,+12406,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12409,+12406,;9~YES
801.44;+12410,+12406,;.01~05/11/2026@19:07:36
801.44;+12410,+12406,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 9 YR12405847906859NO
66
801.41143;+12406,+12405,;2~TRUE
801.41143;+12406,+12405,;3~HIDE
801.412;+12407,+12405,;.01~5
801.412;+12407,+12405,;2~PXRM COMMENT
801.412;+12407,+12405,;6~Comments (optional):
801.412;+12408,+12405,;.01~2
801.412;+12408,+12405,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12408,+12405,;9~YES
801.44;+12409,+12405,;.01~05/11/2026@19:07:36
801.44;+12409,+12405,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 8 YR124042879332270NO
67
801.41143;+12405,+12404,;2~TRUE
801.41143;+12405,+12404,;3~HIDE
801.412;+12406,+12404,;.01~5
801.412;+12406,+12404,;2~PXRM COMMENT
801.412;+12406,+12404,;6~Comments (optional):
801.412;+12407,+12404,;.01~2
801.412;+12407,+12404,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12407,+12404,;9~YES
801.44;+12408,+12404,;.01~05/11/2026@19:07:36
801.44;+12408,+12404,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 7 YR124033248020505NO
68
801.41143;+12404,+12403,;2~TRUE
801.41143;+12404,+12403,;3~HIDE
801.412;+12405,+12403,;.01~5
801.412;+12405,+12403,;2~PXRM COMMENT
801.412;+12405,+12403,;6~Comments (optional):
801.412;+12406,+12403,;.01~2
801.412;+12406,+12403,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12406,+12403,;9~YES
801.44;+12407,+12403,;.01~05/11/2026@19:07:36
801.44;+12407,+12403,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 6 YR124021485687708NO
69
801.41143;+12403,+12402,;2~TRUE
801.41143;+12403,+12402,;3~HIDE
801.412;+12404,+12402,;.01~5
801.412;+12404,+12402,;2~PXRM COMMENT
801.412;+12404,+12402,;6~Comments (optional):
801.412;+12405,+12402,;.01~2
801.412;+12405,+12402,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12405,+12402,;9~YES
801.44;+12406,+12402,;.01~05/11/2026@19:07:36
801.44;+12406,+12402,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 5 YR124012414529130NO
70
801.41143;+12402,+12401,;2~TRUE
801.41143;+12402,+12401,;3~HIDE
801.412;+12403,+12401,;.01~5
801.412;+12403,+12401,;2~PXRM COMMENT
801.412;+12403,+12401,;6~Comments (optional):
801.412;+12404,+12401,;.01~2
801.412;+12404,+12401,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12404,+12401,;9~YES
801.44;+12405,+12401,;.01~05/11/2026@19:07:36
801.44;+12405,+12401,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 4 YR12400385867247NO
71
801.41143;+12401,+12400,;2~TRUE
801.41143;+12401,+12400,;3~HIDE
801.412;+12402,+12400,;.01~5
801.412;+12402,+12400,;2~PXRM COMMENT
801.412;+12402,+12400,;6~Comments (optional):
801.412;+12403,+12400,;.01~2
801.412;+12403,+12400,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12403,+12400,;9~YES
801.44;+12404,+12400,;.01~05/11/2026@19:07:36
801.44;+12404,+12400,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 3 YR1239974758067NO
72
801.41143;+12400,+12399,;2~TRUE
801.41143;+12400,+12399,;3~HIDE
801.412;+12401,+12399,;.01~5
801.412;+12401,+12399,;2~PXRM COMMENT
801.412;+12401,+12399,;6~Comments (Optional):
801.412;+12402,+12399,;.01~2
801.412;+12402,+12399,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12402,+12399,;9~YES
801.44;+12403,+12399,;.01~05/11/2026@19:07:36
801.44;+12403,+12399,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 2 YR123983690923619NO
73
801.41143;+12399,+12398,;2~TRUE
801.41143;+12399,+12398,;3~HIDE
801.412;+12400,+12398,;.01~5
801.412;+12400,+12398,;2~PXRM COMMENT
801.412;+12400,+12398,;6~Comments (optional):
801.412;+12401,+12398,;.01~2
801.412;+12401,+12398,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12401,+12398,;9~YES
801.44;+12402,+12398,;.01~05/11/2026@19:07:36
801.44;+12402,+12398,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RL AVG RISK 1 YR12397696263777NO
74
801.41143;+12398,+12397,;2~TRUE
801.41143;+12398,+12397,;3~HIDE
801.412;+12399,+12397,;.01~5
801.412;+12399,+12397,;2~PXRM COMMENT
801.412;+12399,+12397,;6~Comments (optional):
801.412;+12400,+12397,;.01~2
801.412;+12400,+12397,;2~PXRM VISIT DATE FORCED TODAY
801.412;+12400,+12397,;9~YES
801.44;+12401,+12397,;.01~05/11/2026@19:07:36
801.44;+12401,+12397,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RESULT LETTER RESET WARNING124073205333602NOREMINDER DIALOG801.41VA-CRC RESULT LETTER REC CRC IN:123534205606288NO
74
801.41143;+12354,+12353,;2~TRUE
801.41143;+12354,+12353,;3~HIDE
801.412;+12355,+12353,;.01~5
801.412;+12355,+12353,;2~VA-CRC RESULT LETTER RESET WARNING
801.44;+12356,+12353,;.01~05/11/2026@19:07:36
801.44;+12356,+12353,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-CRC RESULT LETTER RECOMMEND12352894891937NOREMINDER DIALOG801.41VA-BLANK LINE DIALOG & NOTE124081078733788NO
801.41;+12408,;35~WP-start~1
\\
801.41;+12408,;51~SUPPRESS
801.41;+12408,;100~LOCAL
801.44;+12409,+12408,;.01~05/11/2026@19:07:36
801.44;+12409,+12408,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U CONCERN FOR HIGH RISK96721581302237NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U IBD266383888796417NOREMINDER DIALOG801.41VAL-CRC LETTER COLONOSCOPY F/U ADENOMA POLYP266513290873215NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U PRIOR POLYPS266472205555831NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U PRIOR CRC266492035420819NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U PIECEMEAL26650876003818NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POLYP SEEN937612079189339NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U PRIOR HIGH RISK POLYPS26648744706363NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U INCOMPLETE26653897034133NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U POOR PREP266523512421954NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U YES937622003267026NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U NONE675173534624908NOREMINDER DIALOG801.41VAL-CRC LETTER COLONOSCOPY F/U FINDINGS26654230057663NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U OTHER266552416388353NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U OTHER FINDINGS266563656794788NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U LETTER PRINT INFO266333655281958NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY F/U CONCLUSION266353015895089NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY SCREENING HR601013539125602NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY DIAGNOSTIC26672723740065NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY SURVEILLANCE26673134717623NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY SCREENING AVG601022799690024NOREMINDER DIALOG801.41VAL-CRC LETTER COLONOSCOPY REASON26674966736704NOREMINDER DIALOG801.41VAL-CRC COLONOSCOPY PT LETTER INTRO266811524997986NOREMINDER DIALOG801.41VA-CRC COLONOSCOPY RESULTS PT LETTER WITH SURVEILLANCE LOGIC266823239583843YES16431330363553433343813683594093943854344224134624474384914754665075044955315205115375365565505415615615875745655945926136075986186186406316226456456706586496766756966896807017017247147057307297537437347597587817727637867868097997908158148388288198448438608578488788738648968918829149099009329279189509459369689639549869819721004999990102210171008104010351026105810531044107610711062109410891080111211071098113011251116114811431134116611611152118411791170120211971188122012151206123812331224125612511242127412691260129212871278131013051296132813231314134613411332136413591350138213771368140013951386142614131404143314311453144614371458145814831471146214891488151115021493151615161538152915201543154315631556154715681568159315811572159915981619161216031624162416441637162816491649166916621653167416741698168716781703170317261716170717321731175917451736176717641794178017711802179918281815180618351833186318481839187218681889188518761894189419191907189819391932192319451944197119581949197719762002199019812008200720342021201220402039206620532044207220712097208520762103210221282116210721342133215921472138216521642190217821692196219522222209220022282227225322412232225922582284227222632290228923032303229423342316230723392339236023522343236523652389237823692394239424212407239824282426245424412432245924592489247224632494249425182507249825232523255125362527255625562583256925602588258826152601259226202620264726332624265226522679266526562684268427142697268827192719274727322723275227522791276527562802279628332815280628422838287328552846288128782908289428852913291329342926291729392939295929522943296429642997297729683004300230373017300830443042306430573048306930693092308230733097309731223110310131273127314931403131315431543195316731583205320032383218320932453243327832583249328532833318329832893325332333573338332933643362339733773368340434023437341734083444344234773457344834843482351734973488352435223557353735283564356236043577356836133609365536263617366536603706367836693716371137733729372037933778382138063797382738263857384038313863386239013876386739093906394639223913395439513991396739583999399640364012400340444041408140574048408940864126410240934134413141714147413841794176421641924183422442214261423742284269426643064282427343144311435143274318435943564396437243634404440144554417440844724460450544854476451245104547452545164556455245794569456045844584460945974588461446144637462746184642464246654655464646704670469646834674470147014724471447054729472947524742473347574757478047704761478547854808479847894813481348364826481748414841486648544845487148714918488448754933492349554946493749604960499049734964499749955019501050015024502450495037502850555054507950685059508450845107509750885112511251355125511651405140516351535144516851685191518151725196519652195209520052245224525652375228526552615303527852695310530853495323531453645354