2.0P653276UPDATE_2_0_476A VA-ALCOHOL FOLLOW UP REMINDER UPDATEPACKER,REMINDERFOIANATREM^NATREM^oitausdhctlexa.r02.domain.ext^NATREM:LEXR0TSVR01/13/2026@09:32:29GROUPING 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
;
]]>
MH TESTS AND SURVEYS601.71AUDC52677785074NOREMINDER GENERAL FINDINGS801.46VIEW PROGRESS NOTE TEXT4541980651110NOHEALTH FACTORS9999999.64VA-REMINDER UPDATES [C]8722981639263NOHEALTH FACTORS9999999.64VA-UPDATE_2_0_476A455293982695639NOHEALTH FACTORS9999999.64ALCOHOL USE [C]122616240385NOHEALTH FACTORS9999999.64REFUSED REFERRAL TO SUBSTANCE ABUSE6121973485422367NOHEALTH FACTORS9999999.64VA-ALCOHOL OTHER7489316694901NOHEALTH FACTORS9999999.64VA-ALCOHOL REFER TO SUD PROGRAM74882901590737NOHEALTH FACTORS9999999.64VA-ALCOHOL REFER TO PCMHI74873836293947NOHEALTH FACTORS9999999.64VA-ALCOHOL TREAT IN PRIMARY CARE74864268019649NOHEALTH FACTORS9999999.64VA-ALCOHOL SELF HELP/AA MEETINGS7485379000168NOHEALTH FACTORS9999999.64ALCOHOL - ADVISE TO ABSTAIN6631553379991648NOHEALTH FACTORS9999999.64ALCOHOL - ADVISE ON SAFE LIMITS6634531417447286NOHEALTH FACTORS9999999.64VA-ALCOHOL FOLLOW UP DISCUSSION DECLINED3919413356115NOHEALTH FACTORS9999999.64REFER FOR ALCOHOL TREATMENT6634502573549816NOHEALTH FACTORS9999999.64ALCOHOL USE WITHIN SAFE LIMITS6126094294354317NOHEALTH FACTORS9999999.64VA-ALCOHOL ABSTAIN OTHER ADVICE84522237832924NOREMINDER SPONSOR811.6NATIONAL CLINICAL PRACTICE GUIDELINE COUNCIL141325969906NOREMINDER SPONSOR811.6OFFICE OF PATIENT CARE SERVICES213048485220NOREMINDER SPONSOR811.6MENTAL HEALTH SERVICES112255961059NOREMINDER SPONSOR811.6OFFICE OF MENTAL HEALTH SERVICES541121561012NOREMINDER COMPUTED FINDINGS811.4VA-SEX341887914893NOREMINDER 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 TAXONOMY811.2VA-SUBSTANCE ABUSE DISORDER9152027790710NOREMINDER TERM811.5VA-REMINDER UPDATE_2_0_476A3467615545642YESREMINDER TERM811.5VA-BL AUDIT-C >76120332496676351NO
7
811.5;+612033,;100~NATIONAL
811.5;+612033,;101~OFFICE OF PATIENT CARE SERVICES
811.52;+612034,+612033,;.01~MH.AUDC
811.52;+612034,+612033,;13~276
811.52;+612034,+612033,;14~I +V>7
811.52;+612034,+612033,;22~I +V>7
811.53;+612035,+612033,;.01~01/13/2026@09:32:38
811.53;+612035,+612033,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-SEX7133362511438NOREMINDER TERM811.5VA-BL AGE>65 MALE AUDC FLEX30584229200687NO
65 MALE AUDC FLEX
811.5;+3058,;1~WP-start~3
This term is used in branching logic for the alcohol follow up to notify
the user that the patient is older than 65 and will display a different
message to the user based on age
811.5;+3058,;100~NATIONAL
811.52;+3059,+3058,;.01~CF.VA-AGE
811.52;+3059,+3058,;14~I PXRMSEX="M"&(V>65)
811.52;+3059,+3058,;15~NO
811.52;+3059,+3058,;22~I PXRMSEX="M"&(V>65)
811.53;+3060,+3058,;.01~01/13/2026@09:32:38
811.53;+3060,+3058,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-SUBSTANCE ABUSE DISORDER33963014758395NOREMINDER TERM811.5VA-ALC USE INTERVENTIONS6120352407313248NOREMINDER DEFINITION811.9VA-BL AUDIT-C NOT DONE6441916951024NOREMINDER DEFINITION811.9VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL9253697906131YES
4
811.902;+928,+925,;15~NO
811.902;+928,+925,;17~5
811.902;+928,+925,;22~I +V>4
811.902;+928,+925,;24~4
811.902;+928,+925,;25~0
811.902;+929,+925,;.01~RT.VA-ALC USE INTERVENTIONS
811.902;+929,+925,;7~OR
811.902;+929,+925,;11~0
811.902;+929,+925,;17~4
811.902;+929,+925,;24~0
811.902;+929,+925,;25~0
811.902;+930,+925,;.01~RT.VA-SUBSTANCE ABUSE DISORDER
811.902;+930,+925,;9~FIEVAL(1,"DATE")-90D
811.902;+930,+925,;12~FIEVAL(1,"DATE")+30D
811.902;+930,+925,;14~I $E(V("STOP CODE"),1,1)=5
811.902;+930,+925,;15~NO
811.902;+930,+925,;18~YES
811.902;+930,+925,;22~I $E($G(V("STOP CODE")),1,1)=5
811.902;+930,+925,;23~"STOP CODE";
811.902;+930,+925,;24~0
811.902;+930,+925,;25~0
811.902;+930,+925,;28~YES
811.925;+931,+925,;.01~1
811.925;+931,+925,;3~FI(1)&(MRD(1)'>MRD(3))
811.925;+931,+925,;10~FN(1)&(FN(2)'>FN(3))
811.925;+931,+925,;11~AND
811.925;+931,+925,;41~0
811.925;+931,+925,;42~0
811.925;+932,+925,;.01~4
811.925;+932,+925,;3~DIFF_DATE(1,3)=0
811.925;+932,+925,;10~FN(1)=0
811.925;+932,+925,;41~0
811.925;+932,+925,;42~0
811.925;+933,+925,;.01~9
811.925;+933,+925,;3~MRD(1)>MRD(3)
811.925;+933,+925,;10~FN(1)>FN(2)
811.925;+933,+925,;41~0
811.925;+933,+925,;42~0
811.9255;+934,+931,+925,;.01~1
811.9255;+934,+931,+925,;.02~FI
811.9255;+935,+932,+925,;.01~1
811.9255;+935,+932,+925,;.02~DIFF_DATE
811.9255;+936,+933,+925,;.01~1
811.9255;+936,+933,+925,;.02~MRD
811.9255;+937,+931,+925,;.01~2
811.9255;+937,+931,+925,;.02~MRD
811.9255;+938,+933,+925,;.01~2
811.9255;+938,+933,+925,;.02~MRD
811.9255;+939,+931,+925,;.01~3
811.9255;+939,+931,+925,;.02~MRD
811.9256;+940,+934,+931,+925,;.01~1
811.9256;+941,+935,+932,+925,;.01~1
811.9256;+942,+936,+933,+925,;.01~1
811.9256;+943,+937,+931,+925,;.01~1
811.9256;+944,+938,+933,+925,;.01~3
811.9256;+945,+939,+931,+925,;.01~3
811.9256;+946,+935,+932,+925,;.01~3
811.97;+947,+925,;.01~99Y
811.97;+947,+925,;5~0
811.97;+947,+925,;6~0
]]>
TIU DOCUMENT DEFINITION8925.1AUDIT-C22700134847NOREMINDER DIALOG801.41VA-HF ALC DECLINES REFERRAL TO MHC6630012103460912532NOREMINDER DIALOG801.41PXRM COMMENT13865933290NOREMINDER DIALOG801.41VA-ALC OTHER119683777649071NOREMINDER DIALOG801.41VA-ALC REFER TO SPECIALTY SUD PROG119673572676948NOREMINDER DIALOG801.41VA-ALC REFER TO PCMHI119661573849618NOREMINDER DIALOG801.41VA-ALC TREAT IN PRIMARY CARE119652364650578NOREMINDER DIALOG801.41VA-ALC SELF-HELP/AA MEETINGS119634220292930NOREMINDER DIALOG801.41VA-GP AUDC SCORE >7 OFFER SERVICES REQUIRED873931626643535NO
7 OFFER SERVICES REQUIRED
801.41;+87393,;4~dialog group
801.41;+87393,;5~At least one item required
801.41;+87393,;6~YES
801.41;+87393,;7~4
801.41;+87393,;9~ONE OR MORE SELECTIONS
801.41;+87393,;13~OTHER
801.41;+87393,;23~YES
801.41;+87393,;25~WP-start~1
Services offered:*
801.41;+87393,;50~SHOW
801.41;+87393,;51~SUPPRESS
801.41;+87393,;52~INDENT
801.41;+87393,;100~NATIONAL
801.412;+87394,+87393,;.01~5
801.412;+87394,+87393,;2~VA-ALC SELF-HELP/AA MEETINGS
801.412;+87395,+87393,;.01~10
801.412;+87395,+87393,;2~VA-ALC TREAT IN PRIMARY CARE
801.412;+87396,+87393,;.01~15
801.412;+87396,+87393,;2~VA-ALC REFER TO PCMHI
801.412;+87397,+87393,;.01~20
801.412;+87397,+87393,;2~VA-ALC REFER TO SPECIALTY SUD PROG
801.412;+87398,+87393,;.01~25
801.412;+87398,+87393,;2~VA-ALC OTHER
801.412;+87399,+87393,;.01~30
801.412;+87399,+87393,;2~VA-HF ALC DECLINES REFERRAL TO MHC
801.44;+87400,+87393,;.01~01/13/2026@09:32:38
801.44;+87400,+87393,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-GP AUDC SCORE 5-7 OFFER SERVICES OPTIONAL873911908274984NO
7
801.41143;+87392,+87391,;2~TRUE
801.41143;+87392,+87391,;3~REPLACE
801.41143;+87392,+87391,;4~VA-GP AUDC SCORE >7 OFFER SERVICES REQUIRED
801.412;+87393,+87391,;.01~5
801.412;+87393,+87391,;2~VA-ALC SELF-HELP/AA MEETINGS
801.412;+87394,+87391,;.01~10
801.412;+87394,+87391,;2~VA-ALC TREAT IN PRIMARY CARE
801.412;+87395,+87391,;.01~15
801.412;+87395,+87391,;2~VA-ALC REFER TO PCMHI
801.412;+87396,+87391,;.01~20
801.412;+87396,+87391,;2~VA-ALC REFER TO SPECIALTY SUD PROG
801.412;+87397,+87391,;.01~25
801.412;+87397,+87391,;2~VA-ALC OTHER
801.412;+87398,+87391,;.01~30
801.412;+87398,+87391,;2~VA-HF ALC DECLINES REFERRAL TO MHC
801.44;+87399,+87391,;.01~01/13/2026@09:32:38
801.44;+87399,+87391,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-GP ALC ADVISE ABSTENTION86435876743808NOREMINDER DIALOG801.41VA-HF ALC ADVISE SAFE LIMITS WOMEN119893096881749NOREMINDER DIALOG801.41VA-HF ALC ADVISE SAFE LIMITS MEN6630006864071510724NO
65 MALE AUDC FLEX
801.41143;+663000688,+663000686,;2~TRUE
801.41143;+663000688,+663000686,;3~REPLACE
801.41143;+663000688,+663000686,;4~VA-HF ALC ADVISE SAFE LIMITS WOMEN
801.44;+663000689,+663000686,;.01~01/13/2026@09:32:38
801.44;+663000689,+663000686,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-ALCOHOL F/U EXPESS CONCERNS ALCOHOL OFFER EDUCATION ON LIMITS862694056811550NOREMINDER DIALOG801.41VA-ALCOHOL F/U EXPRESS CONCERNS ALCOHOL DECLINED862723381278560NOREMINDER DIALOG801.41VA-GP ALCOHOL F/U EXPRESS CONCERNS ABOUT ALCOHOL INTAKE862661608910128NOREMINDER DIALOG801.41PXRM GF VIEW BUTTON388611501895938NOREMINDER DIALOG801.41VA-ALCOHOL RELATED HEALTH ISSUES864373013257189NOREMINDER DIALOG801.41VA-AUDC SCORE >7 VERBIAGE783171988946503NO
7 VERBIAGE
801.41;+78317,;4~dialog element
801.41;+78317,;23~YES
801.41;+78317,;25~WP-start~2
Patients AUDC score was 8 or greater, brief intervention required and
services offered required
801.41;+78317,;51~SUPPRESS
801.41;+78317,;100~NATIONAL
801.44;+78318,+78317,;.01~01/13/2026@09:32:39
801.44;+78318,+78317,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-AUDC SCORE 5-7 VERBIAGE873684077565427NO
7
801.41143;+87369,+87368,;2~TRUE
801.41143;+87369,+87368,;3~REPLACE
801.41143;+87369,+87368,;4~VA-AUDC SCORE >7 VERBIAGE
801.41143;+87370,+87368,;.01~10
801.41143;+87370,+87368,;1~RD.VA-BL AUDIT-C NOT DONE
801.41143;+87370,+87368,;2~DUE
801.41143;+87370,+87368,;3~HIDE
801.44;+87371,+87368,;.01~01/13/2026@09:32:39
801.44;+87371,+87368,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41TEXT AUDC PRIOR RESULTS12515883697NOREMINDER DIALOG801.41VA-ALC FOLLOW UP EVIDENCE STATEMENT862642355640994NOREMINDER DIALOG801.41VA-POS ALCOHOL FOLLOW UP VERSION20155689289501NOREMINDER DIALOG801.41VA-GP ALCOHOL FOLLOW UP939992987461433NOREMINDER DIALOG801.41VA-AUD-C POS BRIEF ALCOHOL COUNSELING6630007192302051646YES5831330363433433343613563473773743654013903814074064234204114414364274594544454774724634954904815135084995315265175495445355675625535945805716015996196146056366326236546496406716676586766766936896806986987217117027277267507407317567557777697608027907811576815806202715812047204020312053205220752066205720812080210320942085210921082134212221132140213921602153214421662165219921792170221022042253222322142260225823952273226424212400243424342425246124472438246624662486247924702491249125152504249525212520254625342525255225512577256525562583258226102596258726162615264426292620265026492691266326542702269627472715270627592752278527722763279027902815280327942820282028592833282428662864289828792870290529032928291829092933293329642946293729712969299229842975299729973043301030013049304830723062305330773077310930903081311631143138312931203143314331653156314731703170319331833174319831983232321132023244323732663257324832723271