©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXRMLOG ;SLC/PKR - Clinical Reminders logic routines. ;11/06/2013
Source file <PXRMLOG.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 4 | ($$AGECHECK,MMF)^PXRMAGE $$FRQINDAY^PXRMDATE ($$POP,POSTFIX,PUSH)^PXRMSTAC $$STRREP^PXRMUTIL |
| VA Fileman | 2 | EN^DDIOL ^DIM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SEX(DEFARR,SEX) | ;Return FALSE (0) if the patient is the wrong sex for
; the reminder, TRUE (1) is the patient is the right sex. |
|
| EVALPCL(DEFARR,PXRMPDEM,FREQ,PCLOGIC,FIEVAL) | ;Evaluate the Patient Cohort
|
|
| EVAL | ;
|
|
| RESDATE(RESLSTR,FIEVAL) | ;Return the resolution date based on the following
|
|
| VALIDR(LOGSTR,DA,MINLEN,MAXLEN) | ;Make sure that LOGSTR is a valid resolution
|
|
| VALID(LOGSTR,DA,MINLEN,MAXLEN) | ;Make sure that LOGSTR is a valid logic string.
|
|
| EVALRESL(DEFARR,RESDATE,RESLOGIC,FIEVAL) | ;Evaluate the
|
|
| ACHK | ;
|
|
| LOGOP(DT1,DT2,LOP) | ;Given two dates return the most recent if the logical
|
|
| VELEM(ELEMENT) | ;Make sure that the element is valid.
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | VALID+12, VALID+14, VALID+23, VALID+48, VALIDR+11, VALIDR+14, VELEM+7 |
| ^DIM | VALID+19 |
| $$AGECHECK^PXRMAGE | ACHK+9 |
| MMF^PXRMAGE | EVALPCL+5 |
| $$FRQINDAY^PXRMDATE | EVALPCL+22 |
| $$POP^PXRMSTAC | RESDATE+29, RESDATE+31, RESDATE+32, RESDATE+37, VALID+37, VALID+43 |
| POSTFIX^PXRMSTAC | RESDATE+9, VALID+34 |
| PUSH^PXRMSTAC | RESDATE+27, RESDATE+29, RESDATE+35 |
| $$STRREP^PXRMUTIL | EVAL+26, EVAL+27, EVAL+29, EVALRESL+21 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXD(811.9 - [#811.9] | VALID+45 |
| ^TMP( | ACHK+4*, ACHK+8*, EVAL+15*, EVAL+16*, EVAL+21*, EVAL+31*, EVALRESL+23*, SEX+6*, SEX+7* |
| Name | Line Occurrences |
|---|---|
| $$LOGOP | RESDATE+33 |
| $$RESDATE | EVALRESL+24 |
| $$VALID | VALIDR+16 |
| $$VELEM | VALID+38 |
| ACHK | EVALPCL+13, EVALPCL+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | EVAL+1~, EVAL+8* |
| AGEFI | EVALPCL+3~, ACHK+2*, ACHK+9*, ACHK+10, EVAL+14 |
| DA | VALID~, VALID+45, VALIDR~, VALIDR+16 |
| DATE | RESDATE+5~, RESDATE+16*, RESDATE+17 |
| DEFARR | EVALPCL~, EVALPCL+5, EVALRESL~, SEX~ |
| DEFARR( | EVALPCL+19, EVALPCL+33 |
| DEFARR(0 | SEX+3 |
| DEFARR(31 | EVAL+4 |
| DEFARR(32 | EVAL+2 |
| DEFARR(35 | ACHK+4, EVALRESL+6 |
| DEFARR(36 | EVALRESL+3 |
| DEFARR(40 | EVALPCL+10 |
| DPCLOG | EVAL+1~, EVAL+23*, EVAL+26*, EVAL+27*, EVAL+29*, EVAL+30 |
| DRESLOG | EVALRESL+2~, EVALRESL+17*, EVALRESL+21*, EVALRESL+22 |
| DT1 | LOGOP~, LOGOP+3, LOGOP+4, LOGOP+7, LOGOP+8, LOGOP+9, LOGOP+10, LOGOP+12, LOGOP+13, LOGOP+14 , RESDATE+5~, RESDATE+29*, RESDATE+31*, RESDATE+33 |
| DT2 | LOGOP~, LOGOP+3, LOGOP+4, LOGOP+7, LOGOP+8, LOGOP+9, LOGOP+10, LOGOP+12, LOGOP+13, LOGOP+14 , RESDATE+5~, RESDATE+32*, RESDATE+33 |
| DT3 | RESDATE+5~, RESDATE+33*, RESDATE+35 |
| ELE1 | VALID+25~, VALID+35*, VALID+36, VALID+37*, VALID+38, VALID+39, VALID+41, VALID+47 |
| ELE2 | VALID+25~, VALID+43*, VALID+44, VALID+45, VALID+47 |
| ELEMENT | VELEM~, VELEM+1, VELEM+2, VELEM+3, VELEM+4, VELEM+5, VELEM+6, VELEM+7 |
| FF | EVAL+1~, EVALRESL+2~ |
| FF( | EVAL+10*, EVALRESL+12* |
| FI | EVAL+1~, EVALRESL+2~ |
| FI( | EVAL+11*, EVALRESL+13* |
| FIEVAL | EVALPCL~, EVALPCL+5, EVALRESL~, EVALRESL+24, RESDATE~ |
| FIEVAL( | EVALPCL+17, EVAL+10, EVAL+11, EVAL+26, EVAL+27, EVAL+29, EVALRESL+11, EVALRESL+12, EVALRESL+13, EVALRESL+21 , RESDATE+16 |
| FIEVAL("AGE" | EVALPCL+39!, ACHK+10*, EVAL+8 |
| FIEVAL("CONTRAINDICATED" | EVALRESL+11* |
| FIEVAL("SEX" | EVAL+9 |
| FIFREQ | EVALPCL+3~, EVALPCL+6*, EVALPCL+37*, ACHK+8 |
| FINDING | EVALPCL+3~, EVALPCL+16*, EVALPCL+17, EVALPCL+18, EVALPCL+19, EVALPCL+24, EVALPCL+30*, EVALPCL+31, EVALPCL+32, EVALPCL+33 , EVALPCL+37, EVAL+7*, EVAL+8, EVAL+9, EVAL+10, EVAL+11, EVAL+25*, EVAL+26, EVAL+27, EVAL+28 , EVAL+29, EVALRESL+2~, EVALRESL+9*, EVALRESL+11, EVALRESL+12, EVALRESL+13, EVALRESL+19*, EVALRESL+20, EVALRESL+21 |
| FINUM | RESDATE+5~, RESDATE+14*, RESDATE+16 |
| FLIST | EVALPCL+3~, EVALPCL+14*, EVALPCL+16, EVAL+5*, EVAL+7, EVAL+25, EVALRESL+2~, EVALRESL+7*, EVALRESL+9, EVALRESL+19 |
| FREQ | EVALPCL~, EVALPCL+5, EVALPCL+34*, ACHK+1, ACHK+8, ACHK+9 |
| FREQDAY | EVALPCL+3~, EVALPCL+22*, EVALPCL+24, EVALPCL+29*, EVALPCL+30 |
| FUN | EVAL+1~ |
| FUNCTION | EVAL+1~ |
| FUNLIST | EVAL+1~ |
| IND | EVALPCL+3~, EVALPCL+15*, EVALPCL+16, EVAL+6*, EVAL+7, EVAL+24*, EVAL+25, EVALRESL+2~, EVALRESL+8*, EVALRESL+9 , EVALRESL+18*, EVALRESL+19, RESDATE+5~, RESDATE+10*, RESDATE+11, RESDATE+12*, RESDATE+14*, RESDATE+20*, RESDATE+25*, RESDATE+26 |
| JND | RESDATE+5~, RESDATE+10*, RESDATE+17*, RESDATE+20*, RESDATE+21*, RESDATE+22 |
| LEN | VALID+9~, VALID+10*, VALID+11, VALID+13 |
| LOGSTR | VALID~, VALID+6, VALID+10, VALID+18, VALID+21, VALID+27, VALIDR~, VALIDR+6, VALIDR+9, VALIDR+12 , VALIDR+16 |
| LOP | LOGOP~, LOGOP+6, LOGOP+11 |
| MAXAGE | EVALPCL+3~, EVALPCL+5, EVALPCL+36*, ACHK+8, ACHK+9 |
| MAXLEN | VALID~, VALID+13, VALIDR~, VALIDR+16 |
| MINAGE | EVALPCL+3~, EVALPCL+5, EVALPCL+35*, ACHK+8, ACHK+9 |
| MINLEN | VALID~, VALID+11, VALIDR~, VALIDR+16 |
| MNUM | VALID+25~, VALID+41*, VALID+42, VALID+45 |
| NODE | EVALPCL+3~, EVALPCL+18*, EVALPCL+19, EVALPCL+32*, EVALPCL+33 |
| NUM | EVAL+1~, EVAL+3*, EVAL+6, EVAL+24, EVALRESL+2~, EVALRESL+4*, EVALRESL+5, EVALRESL+8, EVALRESL+18 |
| NUMAFI | EVALPCL+3~, EVALPCL+11*, EVALPCL+13, EVALPCL+15 |
| OPER | RESDATE+5~, RESDATE+8*, RESDATE+9, RESDATE+21, RESDATE+27 |
| PCLOG | EVALPCL+4~, EVAL+4*, EVAL+12, EVAL+23 |
| PCLOGIC | EVALPCL~, EVAL+20*, EVAL+30*, EVAL+31 |
| PCLSTR | EVALPCL+4~, EVAL+4*, EVAL+14, EVAL+20 |
| PFSTACK | RESDATE+5~, RESDATE+9, RESDATE+23!, RESDATE+27, RESDATE+29, RESDATE+31, RESDATE+32, RESDATE+35, RESDATE+37 |
| PFSTACK( | RESDATE+12, RESDATE+14 |
| PFSTACK(0 | RESDATE+11, RESDATE+24* |
| >> PXRMDEBG | EVAL+22, EVAL+31, EVALRESL+16, EVALRESL+23 |
| >> PXRMEXCH | VALID+5, VALIDR+5 |
| >> PXRMIDOD | EVAL+19 |
| >> PXRMITEM | ACHK+4, ACHK+8, EVAL+15, EVAL+16, EVAL+21, EVAL+31, EVALRESL+23, SEX+6, SEX+7 |
| PXRMPDEM | EVALPCL~, EVALPCL+5 |
| PXRMPDEM("AGE" | ACHK+9 |
| PXRMPDEM("DOD" | EVAL+19 |
| >> PXRMPID | ACHK+4, ACHK+8, EVAL+15, EVAL+16, EVAL+21, EVAL+31, EVALRESL+23, SEX+6, SEX+7 |
| RANK | EVALPCL+4~, EVALPCL+20*, EVALPCL+21*, EVALPCL+24, EVALPCL+27*, EVALPCL+28*, EVALPCL+29, EVALPCL+30 |
| RANKAR | EVALPCL+4~, EVALPCL+26 |
| RANKAR( | EVALPCL+24*, EVALPCL+28, EVALPCL+29, EVALPCL+30 |
| RANKFI | EVALPCL+4~ |
| REMSEX | SEX+2~, SEX+3*, SEX+4, SEX+5 |
| RESDATE | EVALRESL~, EVALRESL+24* |
| RESLOG | EVALRESL+2~, EVALRESL+6*, EVALRESL+14, EVALRESL+17 |
| RESLOGIC | EVALRESL~, EVALRESL+22*, EVALRESL+23 |
| RESLSTR | EVALRESL+2~, EVALRESL+6*, EVALRESL+22, EVALRESL+24, RESDATE~, RESDATE+7*, RESDATE+9 |
| SEP | VALID+25~, VALID+32*, VALID+34, VALID+39 |
| SEX | EVAL+1~, EVAL+9*, SEX~, SEX+5 |
| STACK | RESDATE+5~, VALID+25~, VALID+34, VALID+37, VALID+43 |
| STACK( | RESDATE+17*, RESDATE+20*, RESDATE+21*, RESDATE+26 |
| STACK(0 | RESDATE+22*, RESDATE+25 |
| T1 | RESDATE+5~, RESDATE+12*, RESDATE+13, RESDATE+18, RESDATE+21, RESDATE+26*, RESDATE+27, RESDATE+29, RESDATE+33 |
| T2 | RESDATE+5~ |
| TEMP | EVALPCL+4~, EVALPCL+10*, EVALPCL+11, EVALPCL+14, EVALPCL+19*, EVALPCL+20, EVALPCL+22, EVALPCL+33*, EVALPCL+34, EVALPCL+35 , EVALPCL+36, EVAL+2*, EVAL+3, EVAL+5, EVAL+10*, EVAL+28*, EVAL+29, EVALRESL+2~, EVALRESL+3*, EVALRESL+4 , EVALRESL+7, EVALRESL+12*, EVALRESL+20*, EVALRESL+21 |
| TEST | EVALPCL+4~, EVAL+13*, EVAL+19*, EVAL+20, EVAL+21, EVALRESL+2~, EVALRESL+15*, EVALRESL+22, EVALRESL+24, VALID+17~ |
| TEXT | VALID+23, VALID+25~, VALID+47*, VALID+48, VALIDR+7~, VALIDR+10*, VALIDR+11, VALIDR+13*, VALIDR+14 |
| TEXT(1 | VALID+21* |
| TEXT(2 | VALID+22* |
| TSTSTR | VALID+25~, VALID+27*, VALID+28*, VALID+29*, VALID+30*, VALID+34 |
| U | EVALPCL+11, EVALPCL+14, EVALPCL+20, EVALPCL+22, EVALPCL+34, EVALPCL+35, EVALPCL+36, ACHK+8, EVAL+3, EVAL+5 , EVAL+20, EVAL+30, EVALRESL+4, EVALRESL+7, EVALRESL+22, SEX+3, VALID+29, VALID+30 |
| VALID | VALID+25~, VALID+35*, VALID+36, VALID+38*, VALID+44*, VALID+45*, VALID+46, VALID+49 |
| VALUE | LOGOP+5~, LOGOP+6, LOGOP+7*, LOGOP+8*, LOGOP+9*, LOGOP+10* |
| VAR | EVAL+1~ |
| X | VALID+17~, VALID+18*, VALID+20 |