PXRMCOND ; SLC/PKR - Routines for evaluating conditions. ;06/01/2007
Source file <PXRMCOND.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | EN^DDIOL $$GET1^DID ^DIM |
Clinical Reminders | 1 | $$STRREP^PXRMUTIL |
Kernel | 1 | $$UP^XLFSTR |
Package | Total | Caller Graph |
---|---|---|
Clinical Reminders | 7 | PXRMCF PXRMINDL PXRMINDX PXRMLOCF PXRMLOCL PXRMTAX PXRMV2IC |
IHS Mods To Patient Care Encounter | 1 | BPXRMREF |
Name | Comments | DBIA/ICR reference |
---|---|---|
RECSUB(IND,V,VA,NSTAR,VSTAR,NM,VM,CASESEN,ICOND,CONVAL) | ;Called recursively,
|
|
STARCOND(CASESEN,ICOND,V,VA,NSTAR,VSTAR) | ;Execute a star condition,
|
|
SCPAR(FINDPA,CASESEN,COND,UCIFS,ICOND,VSLIST) | ;Set the Condition parameters.
|
|
VSPACE(COND) | ;Make sure all spaces in the condition that come after
|
|
CASESEN(X,DA,FILENUM) | ;
|
|
MV(VSLIST,CASESEN,V,VA) | ;Move the elements of VA included in VSLIST
|
|
SICOND(X,DA,FILENUM) | ;Set the internal condition field. Wrap all V() in $G.
|
|
COND(CASESEN,ICOND,VSLIST,VA) | ;Evaluate the condition.
|
|
VSUB(COND) | ;Make sure all V subscripts are quoted strings, numbers
|
|
KICOND(X,DA,FILENUM) | ;
|
|
VCOND(X) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXD(811.9 - [#811.9] | KICOND+7!, SICOND+27* |
^PXRMD(811.5 - [#811.5] | KICOND+6!, SICOND+26* |
Name | Line Occurrences |
---|---|
$$STARCOND | COND+13 |
$$VSPACE | VCOND+21 |
$$VSUB | VCOND+22 |
MV | COND+11 |
RECSUB | RECSUB+12, STARCOND+28 |
SICOND | CASESEN+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CASESEN | COND~, COND+9, COND+11, COND+13, MV~, MV+10, RECSUB~, RECSUB+11, RECSUB+12, SCPAR~ , SCPAR+7*, SCPAR+8*, SICOND+7~, SICOND+10*, SICOND+11*, SICOND+14, SICOND+15, STARCOND~, STARCOND+28 |
CHAR | VSPACE+2~, VSPACE+6*, VSPACE+7, VSPACE+10 |
COND | CASESEN+2~, CASESEN+5*, CASESEN+6, SCPAR~, SCPAR+3*, SCPAR+6, VCOND+19~, VCOND+20*, VCOND+21, VCOND+22 , VSPACE~, VSPACE+5, VSPACE+6, VSUB~, VSUB+4, VSUB+5, VSUB+8, VSUB+11 |
CONDS | SCPAR+1~, SCPAR+2*, SCPAR+3, SCPAR+5, SCPAR+7 |
CONVAL | COND+1~, COND+2*, COND+12*, COND+13*, COND+14, RECSUB~, RECSUB+6, RECSUB+12, RECSUB+13*, RECSUB+16* , STARCOND+3~, STARCOND+27*, STARCOND+28, STARCOND+29 |
DA | CASESEN~, CASESEN+4, CASESEN+6, KICOND~, KICOND+6, KICOND+7, SICOND~, SICOND+9, SICOND+26, SICOND+27 |
DA(1 | CASESEN+4, KICOND+6, KICOND+7, SICOND+9, SICOND+26, SICOND+27 |
>> DIUTIL | KICOND+2, SICOND+4 |
FILENUM | CASESEN~, CASESEN+3, CASESEN+6, KICOND~, KICOND+5*, KICOND+6, KICOND+7, SICOND~, SICOND+8, SICOND+26 , SICOND+27 |
FINDPA | SCPAR~ |
FINDPA(10 | SCPAR+9 |
FINDPA(11 | SCPAR+9 |
FINDPA(3 | SCPAR+2 |
GBL | CASESEN+2~, CASESEN+3*, CASESEN+4*, CASESEN+5, SICOND+7~, SICOND+8*, SICOND+9*, SICOND+10 |
ICOND | COND~, COND+4, COND+12, COND+13, RECSUB~, RECSUB+12, RECSUB+13, RECSUB+16, SCPAR~, SCPAR+9* , SICOND+7~, SICOND+14*, SICOND+15*, SICOND+25*, SICOND+26, SICOND+27, STARCOND~, STARCOND+28 |
IND | COND+1~, COND+6*, MV+2~, MV+4*, MV+5, RECSUB~, RECSUB+6, RECSUB+7, RECSUB+9, RECSUB+12 , RECSUB+13, RECSUB+16, SICOND+7~, STARCOND+3~, STARCOND+13*, STARCOND+15, STARCOND+16, STARCOND+25, STARCOND+26, STARCOND+28* , VSPACE+2~, VSPACE+5*, VSPACE+6, VSPACE+8, VSPACE+9, VSPACE+10, VSPACE+12*, VSPACE+18*, VSUB+2~, VSUB+12* , VSUB+13 |
IQ | VSPACE+2~, VSPACE+14*, VSPACE+16*, VSPACE+17 |
JND | COND+1~, RECSUB+5~, RECSUB+6*, RECSUB+7, STARCOND+3~, STARCOND+17*, STARCOND+18, STARCOND+19, VSPACE+2~, VSPACE+15* , VSPACE+16* |
KND | STARCOND+3~, STARCOND+21*, STARCOND+22, STARCOND+24* |
LQ | VSPACE+2~, VSPACE+4*, VSPACE+8*, VSPACE+9* |
MATCH | STARCOND+3~, STARCOND+20*, STARCOND+24*, STARCOND+25 |
NE | MV+2~, MV+3*, MV+4 |
NEWV | STARCOND+3~ |
NIQ | VSPACE+2~, VSPACE+11*, VSPACE+17*, VSPACE+18, VSPACE+19 |
NM | RECSUB~, RECSUB+12, STARCOND+3~, STARCOND+14*, STARCOND+25*, STARCOND+26, STARCOND+28 |
NM( | RECSUB+6, RECSUB+16, STARCOND+26* |
NQP | VSPACE+2~, VSPACE+4*, VSPACE+8*, VSPACE+15, VSPACE+16 |
NSP | VSPACE+2~, VSPACE+4*, VSPACE+10*, VSPACE+12, VSPACE+13, VSPACE+18 |
NSTAR | COND+1~, COND+5*, COND+7*, COND+12, COND+13, RECSUB~, RECSUB+12, RECSUB+13, RECSUB+16, STARCOND~ , STARCOND+13, STARCOND+28 |
NVA | STARCOND+3~, STARCOND+6*, STARCOND+11*, STARCOND+17 |
ORV | STARCOND+3~ |
>> PXRMEXCH | KICOND+4, SICOND+6, VCOND+3 |
QP | VSPACE+2~ |
QP( | VSPACE+8*, VSPACE+16 |
REF | STARCOND+3~, STARCOND+6*, STARCOND+7*, STARCOND+8 |
RP | VSUB+2~, VSUB+5*, VSUB+6, VSUB+11 |
RV | MV+2~, MV+7*, MV+10, RECSUB+5~, RECSUB+10*, RECSUB+11 |
RVA | MV+2~, MV+7*, MV+9, MV+10, RECSUB+5~, RECSUB+8*, RECSUB+11 |
SE | SICOND+7~, SICOND+18*, SICOND+19 |
SP | VSPACE+2~ |
SP( | VSPACE+10*, VSPACE+13 |
SPACE | VSPACE+2~, VSPACE+13*, VSPACE+16 |
SS | SICOND+7~, SICOND+16*, SICOND+17*, SICOND+18, SICOND+19, VSUB+2~, VSUB+3*, VSUB+4*, VSUB+5, VSUB+8 , VSUB+11 |
SUB | COND+1~, COND+6*, COND+7, MV+2~, MV+5*, MV+6, MV+7, RECSUB+9*, RECSUB+10, SICOND+7~ , SICOND+19*, SICOND+20, SICOND+21, SICOND+22, SICOND+23, STARCOND+3~, STARCOND+8*, STARCOND+9*, STARCOND+10, STARCOND+11 , STARCOND+19*, STARCOND+24, STARCOND+25, VSUB+2~, VSUB+13*, VSUB+15, VSUB+17, VSUB+19 |
SUBL | STARCOND+3~, STARCOND+10*, STARCOND+11, STARCOND+16*, STARCOND+18, STARCOND+21, STARCOND+24, VSUB+2~, VSUB+11*, VSUB+12 , VSUB+13 |
SUBLIST | SICOND+7~ |
SUBLIST( | SICOND+20, SICOND+21* |
TCOND | STARCOND+3~ |
TEMP | COND+1~, SICOND+7~, SICOND+24*, SICOND+25, STARCOND+3~, STARCOND+22*, STARCOND+23, STARCOND+24, VCOND+19~ |
TEXT | VSUB+7~, VSUB+8*, VSUB+9 |
U | CASESEN+5, COND+7, RECSUB+9, SCPAR+3, SCPAR+5, SCPAR+7, SICOND+10, STARCOND+11, STARCOND+15, STARCOND+19 , VSPACE+8, VSPACE+16 |
UCIFS | SCPAR~, SCPAR+5* |
V | COND+1~, COND+8*, COND+9*, COND+11, COND+13, MV~, RECSUB~, RECSUB+12, STARCOND~, STARCOND+28 |
VA | COND~, COND+11, COND+13, MV~, RECSUB~, RECSUB+12, STARCOND~, STARCOND+28 |
VA("VALUE" | COND+8 |
VALID | VCOND+19~, VCOND+21*, VCOND+22*, VCOND+23, VCOND+27*, VCOND+28, VSPACE+2~, VSPACE+3*, VSPACE+21*, VSPACE+22 , VSUB+2~, VSUB+3*, VSUB+4, VSUB+10*, VSUB+19*, VSUB+20, VSUB+21 |
VASUB | RECSUB+5~, RECSUB+7*, RECSUB+8, STARCOND+4~ |
VASUB( | STARCOND+11*, STARCOND+18, STARCOND+19 |
VM | RECSUB~, RECSUB+12, STARCOND+4~, STARCOND+28 |
VM( | RECSUB+7, STARCOND+25* |
VSLIST | COND~, COND+6, COND+11, MV~, MV+3, MV+5, SCPAR~, SCPAR+9*, SICOND+7~, SICOND+16* , SICOND+22*, SICOND+26, SICOND+27 |
VSSUB | STARCOND+4~, STARCOND+15*, STARCOND+22 |
VSTAR | COND+1~, COND+13, RECSUB~, RECSUB+12, STARCOND~, STARCOND+28 |
VSTAR( | COND+7*, RECSUB+9, STARCOND+15, STARCOND+16 |
VSUB | RECSUB+5~ |
VWSUB | SICOND+7~, SICOND+23*, SICOND+24, SICOND+25 |
X | CASESEN~, KICOND~, SICOND~, SICOND+2, SICOND+13, SICOND+14*, SICOND+15, SICOND+18, SICOND+19, VCOND~ , VCOND+5*, VCOND+6, VCOND+7*, VCOND+10, VCOND+11*, VCOND+14, VCOND+15*, VCOND+20, VCOND+25 |
XUP | SICOND+7~, SICOND+13*, SICOND+14, SICOND+17 |