2.0P656475UPDATE_2_0_439B VA-TERATOGENIC EDUCATION UPDATEPACKER,REMINDERFOIANATREM^NATREM^oitausdhctlexa.r02.domain.ext^NATREM:LEXR0TSVR06/15/2026@11:26:47GROUPING DIALOG COMPONENTS
]]>PXRMCWH12162554172
9 D Q
...S ELEMENT(1)=0 F S ELEMENT(1)=$O(^TMP("PXRMWHDATA",$J,IDX,ELEMENT,ELEMENT(1))) Q:'ELEMENT(1) D
....S DATA(IDX,ELEMENT,ELEMENT(1))=$P($G(^TMP("PXRMWHDATA",$J,IDX,ELEMENT,ELEMENT(1))),U,ELEMENTS(ELEMENT))
..I $D(^TMP("PXRMWHDATA",$J,IDX,ELEMENT))=1 D
...S DATA(IDX,ELEMENT)=$P($G(^TMP("PXRMWHDATA",$J,IDX,ELEMENT)),U,ELEMENTS(ELEMENT))
...I ELEMENT="EDD" D
....S DATA(IDX,(ELEMENT_"-GRACE"))=$$NEWDATE^PXRMDATE($G(DATA(IDX,ELEMENT)),"+",WHGRACE)
....S DATA(IDX,"TWENTY-EIGHT WEEKS' GESTATION")=$$NEWDATE^PXRMDATE($G(DATA(IDX,ELEMENT)),"-","12W")
.I $P($G(^TMP("PXRMWHDATA",$J,IDX,"MEDICALLY UNABLE TO CONCEIVE")),U) D
..S TEXT(IDX)="Medically unable to conceive "
..N SUBTEXT S SUBTEXT=$P($G(^TMP("PXRMWHDATA",$J,IDX,"MEDICAL REASON")),U,ELEMENTS("MEDICAL REASON"))
..I SUBTEXT'="" S TEXT(IDX)=TEXT(IDX)_"("_SUBTEXT_") "
..S TEXT(IDX)=TEXT(IDX)_"documented on "_WHDOCDT
.E S TEXT(IDX)=$P(WHTYPE(TEST),U,2)_" status "_$G(DATA(IDX,$P(WHTYPE(TEST),U,4)))_" documented on "_WHDOCDT
.I $G(DATA(IDX,"DOCUMENTATION STATUS"))="INCOMPLETE" D
..I $G(DATA(IDX,$$UP^XLFSTR($P(WHTYPE(TEST),U,2))_" DATA SOURCE"))="ORDER ENTRY/RESULTS REPORTING" D
...S SOURCE="on the Cover Sheet"
..E S SOURCE="via the "_$$TITLE^XLFSTR($G(DATA(IDX,$$UP^XLFSTR($P(WHTYPE(TEST),U,2))_" DATA SOURCE")))_" software package"
..S TEXT(IDX)=TEXT(IDX)_" was entered "_SOURCE_" but the clinical reminder dialog was not completed"
.S TEXT(IDX)=TEXT(IDX)_"."
.I $P($G(^TMP("PXRMWHDATA",$J,IDX,$P(WHTYPE(TEST),U,4))),U)=1,TEST="PREGNANCIES" D
..S TEXT(IDX)=TEXT(IDX)_"\\LAST MENSTRUAL PERIOD: "_$P($G(^TMP("PXRMWHDATA",$J,IDX,"LAST MENSTRUAL PERIOD DATE")),U,2)
..I $P($G(^TMP("PXRMWHDATA",$J,IDX,"PREGNANCY END DATE")),U)>0 D
...S TEXT(IDX)=TEXT(IDX)_"\\PREGNANCY ENDED: "_$P($G(^TMP("PXRMWHDATA",$J,IDX,"PREGNANCY END DATE")),U,2)
..E S TEXT(IDX)=TEXT(IDX)_"\\EDD: "_$P($G(^TMP("PXRMWHDATA",$J,IDX,"EDD")),U,2)
.I $P($G(^TMP("PXRMWHDATA",$J,IDX,$P(WHTYPE(TEST),U,4))),U)=0,TEST="LACTATIONS",$P($G(^TMP("PXRMWHDATA",$J,IDX,"END DATE")),U)>0 D
..S TEXT(IDX)=TEXT(IDX)_"\\END DATE: "_$P($G(^TMP("PXRMWHDATA",$J,IDX,"END DATE")),U,2)
.I $G(DATA(1,"DIALOG"))=1 S TEXT(IDX)=" "_TEXT(IDX)
I +$G(^TMP("PXRMWHDATA",$J))<0 D
.S TEXT(1)=$S($G(DATA(1,"DIALOG"))=1:" ",1:"")_"Unable to retrieve documentation due to a Women's Health package "
.S TEXT(1)=TEXT(1)_"error; "_$P(^TMP("PXRMWHDATA",$J),U,2)
.S DATA(1,"DOCUMENTATION STATUS")="NO DOCUMENTATION"
I +$G(^TMP("PXRMWHDATA",$J))=0 D
.S DATA(1,"DOCUMENTATION STATUS")="NO DOCUMENTATION"
S NFOUND=$S(+$G(^TMP("PXRMWHDATA",$J))>0:+$G(^TMP("PXRMWHDATA",$J)),1:1)
K ^TMP("PXRMWHDATA",$J)
Q
GETGRACE(TEST) ;Return the EDD grace period
S TEST=$G(TEST)
Q $S($P(TEST,U,3)'="":$P(TEST,U,3),1:$$DEFGRACE)
GETGRACD() ;Return number of days in the EDD grace period
N CFIEN,RDIEN,PERIOD,CDT
S CFIEN=+$O(^PXRMD(811.4,"B","VA-WH PATIENT DOCUMENTATION",0)) Q:'CFIEN 0
S CFIEN=CFIEN_";PXRMD(811.4,"
S RDIEN=+$O(^PXD(811.9,"B","VA-WH UPDATE PREGNANCY STATUS",0)) Q:'RDIEN 0
S CFIEN("SUB")=+$O(^PXD(811.9,RDIEN,20,"B",CFIEN,0)) Q:'CFIEN("SUB") 0
S PERIOD=$$GETGRACE($G(^PXD(811.9,RDIEN,20,CFIEN("SUB"),15)))
S CDT=$$NEWDATE^PXRMDATE(DT,"+",PERIOD)
Q $$FMDIFF^XLFDT(CDT,DT)
ORDERCNT(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Computed finding for
;number of unsafe orders returned by GETORDRS^WVRPCPT1 (TIU object driver)
N RETURN,TYPE
S TYPE=$$UP^XLFSTR($E($G(TEST),1))
I "^P^L^"'[(U_TYPE_U) S NFOUND=0 Q
;BRANCHING LOGIC EXECUTES BEFORE TIU OBJECT
I '$D(^TMP("WVGETORDERS",$J,TYPE)) S RETURN=$$GETORDRS^WVRPCPT1(DFN,TYPE,1)
S NFOUND=1,DATA(NFOUND,"COUNT")=+$G(^TMP("WVGETORDERS",$J,TYPE))
S TEST(NFOUND)=$S(DATA(NFOUND,"COUNT")>0:1,1:0),DATE(NFOUND)=$P($$NOW^PXRMDATE,".")
S TEXT(NFOUND)=$S(TEST(NFOUND):DATA(NFOUND,"COUNT"),1:"No")_" unsafe order"_$S(DATA(NFOUND,"COUNT")=1:" was",1:"s were")_" returned."
K ^TMP("WVGETORDERS",$J,TYPE)
I $D(RETURN) K @($P(RETURN,"@",2))
Q
PATIS(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;Computed finding for
;determining if the patient is documented as pregnant or lactating on a
;date or within a date range
N RETURN,DATES,ISWAS,EXTRA,CALEND
S DATES("START")=$P($G(BDT),"."),DATES("END")=$P($G(EDT),".")
I +DATES("START")<1 D
.I +DATES("END")>1 S DATES("START")=+DATES("END"),DATES("END")=""
.E S DATES("START")=$$TODAY^PXRMDATE
S TEST=$S($G(TEST)'="":$$UP^XLFSTR(TEST),1:"PREGNANT"),NFOUND=1,RETURN=0
S CALEND=$S(TEST="PREGNANT^DIALOG":1,1:0)
I $P(TEST,U)="PREGNANT" D
.S RETURN=$$ISPREG^WVUTL11(DFN,DATES("START"),DATES("END"),CALEND)
.S DATA(NFOUND,"STATUS")=$S(RETURN=1:"PREGNANT",1:"NOT PREGNANT OR UNKNOWN")
I $P(TEST,U)="LACTATING" D
.S RETURN=$$ISLACT^WVUTL11(DFN,DATES("START"),DATES("END"),CALEND)
.S DATA(NFOUND,"STATUS")=$S(RETURN=1:"LACTATING",1:"NOT LACTATING OR UNKNOWN")
S TEST(NFOUND)=RETURN,DATE(NFOUND)=DATES("START")
I +DATES("END")>1 S TEXT(NFOUND)="For the date range "_$$FMTE^XLFDT(DATES("START"))_" to "_$$FMTE^XLFDT(DATES("END"))_", ",ISWAS="was",EXTRA=$S(RETURN=1:" on at least one of those days",1:"")
I +DATES("END")<1 S TEXT(NFOUND)="On "_$$FMTE^XLFDT(DATES("START"))_", ",ISWAS=$S(DATES("START")=DT:"is",1:"was")
S TEXT(NFOUND)=TEXT(NFOUND)_"the patient "_ISWAS_" "_DATA(NFOUND,"STATUS")_$G(EXTRA)_"."
Q
ROCTEXT(DFN) ;TIU object that returns reminder evaluation information for
;inclusion in the text for a reminder order check
N OUTPUT,RIEN,RNAME,NUM,CNT
S OUTPUT=$NA(^TMP("PXRM ROC TEXT",$J))
K @OUTPUT
I '$D(^TMP("PXRM BL DATA",$J,"PXRHM")) S @OUTPUT@(1,0)="This object can only be used in the text for a reminder order check." Q "~@"_OUTPUT
S RIEN=$G(^TMP("PXRM BL DATA",$J,"REMINDER IEN")),RNAME=$G(^TMP("PXRM BL DATA",$J,"REMINDER NAME")),CNT=0
S NUM=0 F S NUM=+$O(^TMP("PXRM BL DATA",$J,"PXRHM",RIEN,RNAME,"TXT",NUM)) Q:NUM'>0 D
.S CNT=CNT+1
.S @OUTPUT@(CNT,0)="\\"_$G(^TMP("PXRM BL DATA",$J,"PXRHM",RIEN,RNAME,"TXT",NUM))
K ^TMP("PXRM BL DATA",$J)
I 'CNT S @OUTPUT@(1,0)="The reminder evaluation text is not available."
Q "~@"_OUTPUT
GETPREGT(DFN) ;TIU object that returns a summary for the most recent lab
;pregnancy test
N OUTPUT,TERMIEN,TERMARR,FIEVAL,PXRMPID,TYPE,CNT,FIND,STATE,DATE,ERROR
S OUTPUT=$NA(^TMP("PXRM PREGNANCY TEST",$J))
K @OUTPUT
S TERMIEN=+$O(^PXRMD(811.5,"B","VA-WH PREGNANCY TEST ORDERED",0))
I 'TERMIEN D Q "~@"_OUTPUT
.S @OUTPUT@(1,0)="ERROR: Could not find the VA-WH PREGNANCY TEST ORDERED reminder term."
.S @OUTPUT@(2,0)=""
D GETDATA^WVRPCPT("PXRMWHDATA",DFN,"P",,,1)
S STATE=$P($G(^TMP("PXRMWHDATA",$J,1,"PREGNANCY STATE")),U,2)
S DATE=$P($P($G(^TMP("PXRMWHDATA",$J,1,"PREGNANCY STATUS D/T ENTERED")),U),".")
K ^TMP("PXRMWHDATA",$J)
I STATE'="DO NOT KNOW" S @OUTPUT@(1,0)="" Q "~@"_OUTPUT
S PXRMPID="PXRM"_TERMIEN_$H
D TERM^PXRMLDR(TERMIEN,.TERMARR)
S $P(TERMARR(20,1,0),U,8)=DATE,$P(TERMARR(20,1,0),U,11)=DT
D IEVALTER^PXRMTERM(DFN,.TERMARR,.TERMARR,1,.FIEVAL)
I $D(^TMP(PXRMPID,$J,TERMIEN)) D
.S CNT=1
.S TYPE="" F S TYPE=$O(^TMP(PXRMPID,$J,TERMIEN,TYPE)) Q:TYPE="" D
..S ERROR="" F S ERROR=$O(^TMP(PXRMPID,$J,TERMIEN,TYPE,ERROR)) Q:ERROR="" D
...S @OUTPUT@(CNT,0)=$G(^TMP(PXRMPID,$J,TERMIEN,TYPE,ERROR,TERMIEN))
...S CNT=CNT+1
.K ^TMP(PXRMPID,$J,TERMIEN)
I '$D(^TMP(PXRMPID,$J,TERMIEN)) D
.S CNT=4
.S FIND=0 F S FIND=$O(FIEVAL(FIND)) Q:'+FIND D
..I FIEVAL(FIND)=0 S CNT=1 Q
..S @OUTPUT@(CNT,0)=$$LJ^XLFSTR($P($G(FIEVAL(FIND,"ORDER")),U,2),42)
..S @OUTPUT@(CNT,0)=@OUTPUT@(CNT,0)_$$FMTE^XLFDT($P($G(FIEVAL(FIND,"START DATE")),"."))
..S @OUTPUT@(CNT,0)=@OUTPUT@(CNT,0)_" "_$$TITLE^XLFSTR($G(FIEVAL(FIND,"STATUS")))
..S CNT=CNT+1
.Q:CNT=1
.S @OUTPUT@(1,0)="The following laboratory test"_$S(CNT>5:"s were",1:" was")_" found:"
.S @OUTPUT@(2,0)="TEST NAME START DATE STATUS"
.S @OUTPUT@(3,0)=$$REPEAT^XLFSTR("=",65)
S @OUTPUT@(CNT,0)=""
Q "~@"_OUTPUT
]]>
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.46TICKLER REMINDER COMMENT2242955810701NOREMINDER GENERAL FINDINGS801.46TICKLER REMINDER1071212368795NOREMINDER GENERAL FINDINGS801.46VIEW PROGRESS NOTE TEXT4541980651110NOHEALTH FACTORS9999999.64VA-REMINDER UPDATES [C]8722981639263NOHEALTH FACTORS9999999.64VA-UPDATE_2_0_439B467974059541237NOHEALTH FACTORS9999999.64VA-WH MEDICATION REVIEW [C]248402630100049NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS LACT COUNSELING NOT INDICATED337413865533607NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS COUNSELING COMPLETED248421479422204NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS LACT COUNSELING COMPLETED31203272192956NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS LACT COUNSELING BY ANOTHER312042619657504NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS COUNSELING NOT INDICATED248433918057038NOHEALTH FACTORS9999999.64VA-WH MED REVIEW HARMFUL MEDS COUNSELING BY ANOTHER24844674129027NOHEALTH FACTORS9999999.64VA-WH MEDICATION EDUCATION MEDICATION NAME37559356276249NOHEALTH FACTORS9999999.64WH PAP SMEAR [C]6600673558791779NOHEALTH FACTORS9999999.64WH HYSTERECTOMY W/CERVIX REMOVED6600763206566919NOHEALTH FACTORS9999999.64VA-MIMTF EDU PATIENT LEVEL OF UNDERSTANDING [C]236821963230660NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT UNABLE TO UNDERSTAND/MANAGE MEDICATIONS239491495325985NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT UNDERSTANDING OTHER236872872414949NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT UNDERSTANDING NEEDS PRACTICE/SUPERVISION236861771621932NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT UNDERSTANDING NEEDS FURTHER TEACHING236852672391720NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT DEMONSTRATED UNDERSTANDING236842959916115NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT VERBALIZED UNDERSTANDING236834149751224NOHEALTH FACTORS9999999.64VA-MIMTF EDU TYPE OF EDUCATION PROVIDED [C]239522260547708NOHEALTH FACTORS9999999.64VA-MIMTF EDUCATION PROVIDED IN OTHER FORMAT239583274627646NOHEALTH FACTORS9999999.64VA-MIMTF VIDEO EDUCATION PROVIDED23957939705088NOHEALTH FACTORS9999999.64VA-MIMTF DEMONSTRATED EDUCATION PROVIDED239482744416761NOHEALTH FACTORS9999999.64VA-MIMTF WRITTEN EDUCATIONAL MATERIALS PROVIDED23947255685883NOHEALTH FACTORS9999999.64VA-MIMTF VERBAL EDUCATION PROVIDED23946811693102NOHEALTH FACTORS9999999.64VA-MIMTF INDIVIDUAL(S) EDUCATED [C]239603096628904NOHEALTH FACTORS9999999.64VA-MIMTF OTHER INDIVIDUAL(S) EDUCATED ABOUT MEDICATION(S)239642833110913NOHEALTH FACTORS9999999.64VA-MIMTF HEALTHCARE AIDE EDUCATED ABOUT MEDICATION(S)239633024182425NOHEALTH FACTORS9999999.64VA-MIMTF CAREGIVER EDUCATED ABOUT MEDICATION(S)239624138047469NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT EDUCATED ABOUT MEDICATION(S)239612944039160NOHEALTH FACTORS9999999.64VA-MIMTF MEDICATION EDUCATION [C]235683812118646NOHEALTH FACTORS9999999.64VA-MIMTF EDUCATION ON CHANGED MEDICATION(S) PROVIDED239671907808629NOHEALTH FACTORS9999999.64VA-MIMTF EDUCATION ON NEW MEDICATION(S) PROVIDED239662058438413NOHEALTH FACTORS9999999.64VA-MIMTF DETAILED MEDICATION EDUCATION285151099476508NOHEALTH FACTORS9999999.64VA-MIMTF VERBAL EDUCATION AND UNDERSTANDING249351672286253NOHEALTH FACTORS9999999.64VA-MIMTF MEDICATION EDUCATION PROVIDED235712532469565NOHEALTH FACTORS9999999.64VA-MIMTF MEDICATION EDUCATION NOT PERFORMED - OTHER239511145141791NOHEALTH FACTORS9999999.64VA-MIMTF PATIENT/CAREGIVER DECLINE/UNABLE239502716586300NOHEALTH FACTORS9999999.64VA-MIMTF MEDS EDUC NOT PROVIDED-NO CHANGES TO MEDS THIS ENCTR235691019338649NOHEALTH FACTORS9999999.64VA-MEDICATION INFORMATION MANAGEMENT [C]279282645483875NOHEALTH FACTORS9999999.64VA-MIM TERATOGENIC EDUCATION279322629428735NOREMINDER SPONSOR811.6WOMEN VETERANS HEALTH PROGRAM453694242439NOREMINDER SPONSOR811.6VHA NATIONAL CENTER FOR HEALTH PROMOTION AND DISEASE PREVENTION (NCP) AND VHA OFFICE OF WOMEN'S HEALTH384090381963NOREMINDER SPONSOR811.6OFFICE OF NURSING INFORMATICS122996697189NOREMINDER COMPUTED FINDINGS811.4VA-SEX341887914893NOREMINDER COMPUTED FINDINGS811.4VA-WH PATIENT DOCUMENTATION20859043320NOREMINDER 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-WH TUBAL REANASTOMOSIS (TAXONOMY)76996925567NOREMINDER TAXONOMY811.2VA-WH TUBAL LIGATION CODES (TAXONOMY)753666490973NOREMINDER TAXONOMY811.2VA-WH HYSTERECTOMY W/CERVIX REMOVED582563969220NOREMINDER TAXONOMY811.2VA-WH TERATOGENIC MEDICATIONS EXCLUSIONS TAXONOMY601519103867NOREMINDER TERM811.5VA-REMINDER UPDATE_2_0_439B3519815752653YESREMINDER TERM811.5VA-WH TUBAL REANASTOMOSIS (TERM)4933345622512NOREMINDER TERM811.5VA-WH TUBAL LIGATION CODES (TERM)4923595003862NOREMINDER TERM811.5VA-AGE >4735002321518324NO
47
811.5;+3500,;100~NATIONAL
811.52;+3501,+3500,;.01~CF.VA-AGE
811.52;+3501,+3500,;14~I V>47
811.52;+3501,+3500,;15~NO
811.52;+3501,+3500,;22~I V>47
811.53;+3502,+3500,;.01~06/15/2026@11:26:59
811.53;+3502,+3500,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5VA-SEX MALE12293050564850NOREMINDER TERM811.5VA-BL LACTATING PATIENT23582333495297NOREMINDER TERM811.5VA-BL PREGNANT PATIENT23572120518085NOREMINDER DEFINITION811.9VA-WH MEDICALLY UNABLE TO CONCEIVE3313406628208NO
VALUE(6,1,"DATE")
811.925;+342,+331,;10~FN(1)>FN(2)
811.925;+342,+331,;41~0
811.925;+342,+331,;42~0
811.925;+343,+331,;.01~2
811.925;+343,+331,;3~(VALUE(1,1,"MEDICALLY UNABLE TO CONCEIVE")="YES")&(VALUE(1,1,"DATE")>VALUE(6,1,"DATE"))
811.925;+343,+331,;10~(FN(1)="YES")&(FN(2)>FN(3))
811.925;+343,+331,;41~0
811.925;+343,+331,;42~0
811.925;+344,+331,;.01~3
811.925;+344,+331,;3~(VALUE(1,1,"MEDICALLY UNABLE TO CONCEIVE")="NO")&(VALUE(1,1,"DATE/TIME")>MRD(2,3,4,5))
811.925;+344,+331,;10~(FN(1)="NO")&(FN(2)>FN(3))
811.925;+344,+331,;41~0
811.925;+344,+331,;42~0
811.9255;+345,+342,+331,;.01~1
811.9255;+345,+342,+331,;.02~VALUE
811.9255;+346,+343,+331,;.01~1
811.9255;+346,+343,+331,;.02~VALUE
811.9255;+347,+344,+331,;.01~1
811.9255;+347,+344,+331,;.02~VALUE
811.9255;+348,+342,+331,;.01~2
811.9255;+348,+342,+331,;.02~VALUE
811.9255;+349,+343,+331,;.01~2
811.9255;+349,+343,+331,;.02~VALUE
811.9255;+350,+344,+331,;.01~2
811.9255;+350,+344,+331,;.02~VALUE
811.9255;+351,+343,+331,;.01~3
811.9255;+351,+343,+331,;.02~VALUE
811.9255;+352,+344,+331,;.01~3
811.9255;+352,+344,+331,;.02~MRD
811.9256;+353,+345,+342,+331,;.01~5
811.9256;+354,+346,+343,+331,;.01~1
811.9256;+355,+347,+344,+331,;.01~1
811.9256;+356,+348,+342,+331,;.01~6
811.9256;+357,+349,+343,+331,;.01~1
811.9256;+358,+350,+344,+331,;.01~1
811.9256;+359,+351,+343,+331,;.01~6
811.9256;+360,+352,+344,+331,;.01~2
811.9256;+361,+345,+342,+331,;.01~1
811.9256;+362,+346,+343,+331,;.01~1
811.9256;+363,+347,+344,+331,;.01~1
811.9256;+364,+348,+342,+331,;.01~1
811.9256;+365,+349,+343,+331,;.01~1
811.9256;+366,+350,+344,+331,;.01~1
811.9256;+367,+351,+343,+331,;.01~1
811.9256;+368,+352,+344,+331,;.01~3
811.9256;+369,+345,+342,+331,;.01~DATE
811.9256;+370,+346,+343,+331,;.01~MEDICALLY UNABLE TO CONCEIVE
811.9256;+371,+347,+344,+331,;.01~MEDICALLY UNABLE TO CONCEIVE
811.9256;+372,+348,+342,+331,;.01~DATE
811.9256;+373,+349,+343,+331,;.01~DATE
811.9256;+374,+350,+344,+331,;.01~DATE/TIME
811.9256;+375,+351,+343,+331,;.01~DATE
811.9256;+376,+352,+344,+331,;.01~4
811.9256;+377,+352,+344,+331,;.01~5
811.97;+378,+331,;.01~99Y
811.97;+378,+331,;5~0
811.97;+378,+331,;6~0
]]>
HEALTH SUMMARY COMPONENT142.1CLINICAL REMINDERS FINDINGS2502778984169NOHEALTH SUMMARY TYPE142VA-WH MUC DX34301294291599YESHEALTH SUMMARY OBJECTS142.5VA-WH MUC DX (TIU)66009893633521953YESTIU DOCUMENT DEFINITION8925.1VA-WH POTENTIAL UNSAFE ORDERS25771084128512NOTIU DOCUMENT DEFINITION8925.1VA-WH POTENTIAL TERATOGENIC ORDERS25764036987403NOTIU DOCUMENT DEFINITION8925.1VA-WH MUC DX7815818071544YESREMINDER DIALOG801.41VA-WH TERATOGENIC EDUCATION TEMPLATE USE1098664124437320NOREMINDER DIALOG801.41BLANK SPACE (1)-TEMPLATE & NOTE445722467603722NO
801.41;+44572,;35~WP-start~1
\\
801.41;+44572,;51~SUPPRESS
801.41;+44572,;100~NATIONAL
801.44;+44573,+44572,;.01~06/15/2026@11:26:59
801.44;+44573,+44572,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41PXRM COMMENT13865933290NOREMINDER DIALOG801.41PXRM DATE TIME388461038344166NOREMINDER DIALOG801.41VA-TICKLER ELEMENT388472127705806NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW COUNSEL NOT INDICATED OTHER529112283530156NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW COUNSEL REVIEWED AND RISK LOW555252080149219NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW COUNSEL DONE PRIOR555241137574558NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSELING NOT INDICATED BF820973585212947NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEWED COUNSELED AGAINST559792256216800NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW VERBALIZED UNDERSTAND BF55671775890701NOREMINDER DIALOG801.41VA-WH TERATOGENIC MED COUNSELING LENGTH559801728282005NOREMINDER DIALOG801.41VA-WH TERATOGENIC MED COUNSELING COMMENT556731267198960NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW PUMP AND DUMP556702895889658NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW CHANGE MED BF55981940613400NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSELING COMPLETED BF COUNSEL879334293186498NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW REFER TO SPECIALIST559781002081745NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW REFER TO PHARMACY559771070170131NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSEL BY ANOTHER BF73188794900276NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS LACTATING ACTIONS COUNSEL266213809298942NOREMINDER DIALOG801.41VA-WH TD LACTATION STATUS ORDERS LIST38735651600010NOREMINDER DIALOG801.41VA-WH TD LACTATION STATUS ORDERS COUNSEL266201854267826NOREMINDER DIALOG801.41VA-GP WH NO BL MEDICATION REVIEW OPTIONS LACTATING COUNSEL1095591257136218NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSELING NOT INDICATED555221989130683NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW COUNSEL ON CONTRA555212055926331NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW PREGNANT STOP CHANGE55516752152454NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW PREGNANT VERBALIZED UNDERSTAND555151721039469NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSELING PREG EXCLUDED555183536400914NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW NOT PREGNANT RISK BENEFIT685303279045867NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEWED COUNSEL BY ANOTHER529171153395898NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS NOT PREGNANT ACTION COUNSEL266083070323270NOREMINDER DIALOG801.41VA-WH TD PREGNANCY STATUS ORDERS LIST388182013760926NOREMINDER DIALOG801.41VA-WH TD NOT PREGNANT STATUS ORDERS COUNSEL26607118287159NOREMINDER DIALOG801.41VA-GP WH NO BL MEDICATION REVIEW OPTIONS NOT PREGNANT COUNSEL1095581604906814NOREMINDER DIALOG801.41VA-WH MEDICATION REVIEW PREGNANT RISK BENEFIT555133111476468NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS PREGNANT ACTIONS COUNSEL266042278434900NOREMINDER DIALOG801.41VA-WH TD PREGNANCY STATUS ORDERS COUNSEL266023147758798NOREMINDER DIALOG801.41VA-GP WH NO BL MEDICATION REVIEW OPTIONS PREGNANT COUNSEL1095573649275101NOREMINDER DIALOG801.41VA-GP NO BL TERATOGENIC MED MASTER1095552571176354NOREMINDER DIALOG801.41VA-WH NO BL TERATOGENIC EDUCATION MEDICATION NAME109554581879513NOREMINDER DIALOG801.41VA-WH TERATOGENIC ED PROCEED109556986423496NOREMINDER DIALOG801.41PXRM GF VIEW EXCLUSION CRITERIA1096042964866786NOREMINDER DIALOG801.41VAL-WH MUC BUTTON109551138969119NOREMINDER DIALOG801.41VA-WH GP PATIENT UNABLE TO CONCEIVE W BUTTON1095524022450094NOREMINDER DIALOG801.41VA-WH GP PATIENT >47 WITH OPTION1095611180980853NO
47 WITH OPTION
801.41;+109561,;4~dialog group
801.41;+109561,;23~YES
801.41;+109561,;25~WP-start~2
\\This is a birth sex female patient over 47 years old classified as
unable to conceive, no additional action is needed.
801.41;+109561,;51~SUPPRESS
801.41;+109561,;100~NATIONAL
801.412;+109562,+109561,;.01~5
801.412;+109562,+109561,;2~BLANK SPACE (1)-TEMPLATE & NOTE
801.412;+109563,+109561,;.01~10
801.412;+109563,+109561,;2~VA-WH TERATOGENIC ED PROCEED
801.44;+109564,+109561,;.01~06/15/2026@11:27
801.44;+109564,+109561,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-WH GP PATIENT IS MALE W OPTION1095603370085188NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS LACTATING COUNSEL266192181840537NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS NOT PREGNANT COUNSEL26606877643512NOREMINDER DIALOG801.41VA-GP WH MEDICATION REVIEW OPTIONS PREGNANT COUNSEL26601258158770NOREMINDER DIALOG801.41VA-GP TERATOGENIC MED MASTER621273977846565NO
47
801.41143;+62129,+62127,;2~TRUE
801.41143;+62129,+62127,;3~REPLACE
801.41143;+62129,+62127,;4~VA-WH GP PATIENT >47 WITH OPTION
801.41143;+62130,+62127,;.01~3
801.41143;+62130,+62127,;1~RD.VA-WH MEDICALLY UNABLE TO CONCEIVE
801.41143;+62130,+62127,;2~DUE
801.41143;+62130,+62127,;3~REPLACE
801.41143;+62130,+62127,;4~VA-WH GP PATIENT UNABLE TO CONCEIVE W BUTTON
801.412;+62131,+62127,;.01~5
801.412;+62131,+62127,;2~VA-GP WH MEDICATION REVIEW OPTIONS PREGNANT COUNSEL
801.412;+62132,+62127,;.01~10
801.412;+62132,+62127,;2~VA-GP WH MEDICATION REVIEW OPTIONS NOT PREGNANT COUNSEL
801.412;+62133,+62127,;.01~20
801.412;+62133,+62127,;2~VA-GP WH MEDICATION REVIEW OPTIONS LACTATING COUNSEL
801.412;+62134,+62127,;.01~30
801.412;+62134,+62127,;2~VA-TICKLER ELEMENT
801.44;+62135,+62127,;.01~06/15/2026@11:27
801.44;+62135,+62127,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-WH TERATOGENIC EDUCATION MEDICATION NAME861772576031439NO
47
801.41143;+86179,+86177,;2~TRUE
801.41143;+86179,+86177,;3~HIDE
801.41143;+86180,+86177,;.01~15
801.41143;+86180,+86177,;1~RD.VA-WH MEDICALLY UNABLE TO CONCEIVE
801.41143;+86180,+86177,;2~DUE
801.41143;+86180,+86177,;3~HIDE
801.412;+86181,+86177,;.01~5
801.412;+86181,+86177,;2~PXRM COMMENT
801.412;+86181,+86177,;6~
801.412;+86181,+86177,;9~YES
801.44;+86182,+86177,;.01~06/15/2026@11:27
801.44;+86182,+86177,;2~WP-start~1
Exchange Stub
]]>
REMINDER DIALOG801.41VA-MED ED TERATOGENIC EDUCATION1092461382848773NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION RECOMMENDED USERS537382743790888NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION REVIEW53017390313622NOREMINDER DIALOG801.41VA-UNABLE TO UNDERSTAND/MANAGE MEDICATIONS53742155421447NOREMINDER DIALOG801.41VA-PATIENT UNDERSTANDING OTHER529871302976224NOREMINDER DIALOG801.41VA-PATIENT NEEDS PRACTICE/SUPERVISION529861486201514NOREMINDER DIALOG801.41VA-PATIENT NEEDS FURTHER TEACHING529852397529303NOREMINDER DIALOG801.41VA-PATIENT DEMONSTRATED UNDERSTANDING529841223801194NOREMINDER DIALOG801.41VA-PATIENT VERBALIZED UNDERSTANDING52983713533954NOREMINDER DIALOG801.41VA-ASSESSMENT OF PATIENT UNDERSTANDING536771658347308NOREMINDER DIALOG801.41VA-OTHER EDUCATION PROVIDED TO PATIENT536681185061659NOREMINDER DIALOG801.41VA-VIDEO EDUCATION PROVIDED TO PATIENT536672200670260NOREMINDER DIALOG801.41VA-DEMONSTRATED EDUCATION PROVIDED TO PATIENT536664126827172NOREMINDER DIALOG801.41VA-WRITTEN EDUCATION PROVIDED TO PATIENT536651815619456NOREMINDER DIALOG801.41VA-VERBAL EDUCATION PROVIDED TO PATIENT5366475753454NOREMINDER DIALOG801.41VA-TYPE OF EDUCATED PROVIDED536782739498293NOREMINDER DIALOG801.41VA-OTHER PERSON EDUCATED536744243825083NOREMINDER DIALOG801.41VA-HEALTHCARE AIDE EDUCATED536732700226987NOREMINDER DIALOG801.41VA-SPOUSE/FAMILY/PARTNER ETC EDUCATED53672470609116NOREMINDER DIALOG801.41VA-PATIENT WAS EDUCATED53671117000935NOREMINDER DIALOG801.41VA-EDUCATION PROVIDED TO WHOM536791117332249NOREMINDER DIALOG801.41VA-EDUCATION ON CHANGED MEDICATION(S)536761971806377NOREMINDER DIALOG801.41VA-EDUCATION ON NEW MEDICATION536753697991619NOREMINDER DIALOG801.41VA-EDUCATION ON WHAT MEDICATIONS536801758473211NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION DETAILED OPTION536811798975416NOREMINDER DIALOG801.41VA-MIMTF VERBAL EDU AND UNDERSTANDING576613811547189NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION VERBAL STATEMENT537391072067697NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION BRIEF STATEMENT537402172447445NOREMINDER DIALOG801.41COMMENT W/O HEADING301113346916473NOREMINDER DIALOG801.41VA-OTHER REASON MEDICATION ED NOT PERFORMED536843577637804NOREMINDER DIALOG801.41VA-PATIENT/CAREGIVER DECLINED OR UNABLE53683697862731NOREMINDER DIALOG801.41VA-NO MEDICATION CHANGES536823216207892NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION ONE VIEW OPTIONS537602619010152NOREMINDER DIALOG801.41VA-MED ED WAS EDUCATION PERFORMED ON NEW PRESCRIPTIONS694373976490812NOREMINDER DIALOG801.41VA-MEDICATION EDUCATION REVIEW TEMPLATE694402260923000YESREMINDER DIALOG801.41VA-MIM TERATOGENIC EDUCATION650771234489981NOREMINDER DIALOG801.41VA-WH TERATOGENIC ED UPDATE 439B1109221050338927YESREMINDER DIALOG801.41VA-WH TERATOGENIC EDUCATION VERSION590911792889707NOREMINDER DIALOG801.41VA-WH TERATOGENIC EDUCATION555271435068937YES16036218412225212275385345255585515425765715625925895806166055966226216466356266516516776646556836827076966877127127387257167447437707577487767758007897808058058318188098378368628508418688678868818728918919109048959359239149449409669579489729719949859761000999102310131004103010281054104310341062105910841075106610901089111211031094111811171143113111221152114811751165115611821180120411951186121012091239122312141249124412751262125312851280130912981289131713141340133013211347134513691360135113751374139713881379140314021430141614071438143514601451144214661465148714791470149414921516150714981522152115461535152615541551157815671558158315831604159615871609160916331622161316411638166216541645166716671688168016711693169317201706169717311725175617441735176217611787177517661793179218131806179718191818183618321823184118411859185418451865186418861878186920721899189020972085207621302110210121422135220921552146223822142423225122422571242828412584257529712846299129842975299729963019301030013025302430473038302930533052307430663057308030793101309330843107310631303120311131363135315931493140316531643302317831693353330733663366335733843379337033903389341934033394343234323423344534453436346334583449348834763467349334933516350634973521352135413534352535463546356635593550357135713604358435753612360936363625361636423641366436553646367036693692368336743698369737283711370237363733376037493740376637653789377937703795379438203808379938263825385038393830385638553883386938603890388839123903389439183917395039313922395939553981397239633987398640094000399140154014404340284019405040484081406340544089408641134102409341184118414541314122415241504177416541564183418242134196418742214218424642344225425242514274426542564280427943034293428443094308433443224313434043394373435343444383437844114396438744184416445144314422445944564483447244634488448845154501449245224520454745354526455345524582456645574590458746214603459446294626465646424633466346614688467646674694469347224707469847314727475747444735476347624791477647674798479648194811480248244824485048374828485648554886486948604894489149214907489849284926495449414932496149594990497449654997499550265010500150335031506250465037506950675117508250735129512251675142513351765172520951895180521752145246523052215251525152735264525552785278530252915282530853075333532153125339533853635352534353695368539353825373539953985423541254035429542854535442543354595458549954725463551055045535552355145541554055655554554555715570559555845575560156005625561456055631563056555644563556615660569856745665570857035733572157125739573857605752574357655765578657785769579157915812580457955817581758525830582158615857588558745865589158905915590458955921592059525934592559595957599459725963600359996023601660076028602860546041603260606059608960736064609560946114610860996119611961466132612361526151617761656156618361826210619661876216621562496229622062596254629262726263629862976325631163026334633063686347633863766373639863896380640564036430641864096435643564626448643964716467