PXRMICHK ;SLC/PKR - Integrity checking routines. ;11/14/2013
;;2.0;CLINICAL REMINDERS;**18,24,26**;Feb 04, 2005;Build 404
;
;======================================================
CCRLOGIC(COHOK,RESOK,DEFARR) ;Check cohort and resolution logic.
N AGE,FIEVAL,FINDING,FF,FLIST,IND,JND,NUM,OCCN,PCLOG
N RESLOG,RESLSTR,SEX,TEMP,TEST,TEXT
N PXRMAGE,PXRMDOB,PXRMDOD,PXRMLAD,PXRMSEX
S (PXRMAGE,PXRMDOB,PXRMDOD,PXRMLAD)=0
S PXRMSEX=""
;Set all findings false.
S (FIEVAL("AGE"),FIEVAL("SEX"))=0
S IND=0
F S IND=+$O(DEFARR(20,IND)) Q:IND=0 D
. S FIEVAL(IND)=0
. S OCCN=$P(DEFARR(20,IND,0),U,14)
. F JND=1:1:OCCN S FIEVAL(IND,JND)=0
;Evaluate function findings with all findings false.
D EVAL^PXRMFF(0,.DEFARR,.FIEVAL)
I COHOK D
. S TEMP=DEFARR(32)
. S NUM=+$P(TEMP,U,1)
. I NUM=0 Q
. S PCLOG=DEFARR(31)
. S FLIST=$P(TEMP,U,2)
. F IND=1:1:NUM D
.. S FINDING=$P(FLIST,";",IND)
.. I FINDING="AGE" S AGE=+$G(FIEVAL("AGE"))
.. I FINDING="SEX" S SEX=+$G(FIEVAL("SEX"))
.. I FINDING["FF" S TEMP=$P(FINDING,"FF",2),FF(TEMP)=FIEVAL(FINDING)
.. E S FI(FINDING)=FIEVAL(FINDING)
. I @PCLOG
. S TEST=$T
. I TEST D
.. S TEXT(1)="WARNING: Cohort logic is true even when there are no true findings!"
.. D OUTPUT(1,.TEXT)
I RESOK D
. S TEMP=DEFARR(36)
. S NUM=+$P(TEMP,U,1)
. I NUM=0 Q
. S (RESLOG,RESLSTR)=DEFARR(35)
. S FLIST=$P(TEMP,U,2)
. F IND=1:1:NUM D
.. S FINDING=$P(FLIST,";",IND)
.. I FINDING["FF" S TEMP=$P(FINDING,"FF",2),FF(TEMP)=FIEVAL(FINDING)
.. E S FI(FINDING)=FIEVAL(FINDING)
. I @RESLOG
. S TEST=$T
. I TEST D
.. S TEXT(1)="WARNING: Resolution logic is true even when there are no true findings!"
.. D OUTPUT(1,.TEXT)
Q
;
;======================================================
CFCHK(USAGE,IND,FIEN,DEF,DEFARR,TYPE) ;Check computed findings.
N CFPR,CFNAME,CFPAR,CFTYPE,OK,TEXT
S OK=1
;Is the Computed Finding Parameter required?
S CFPR=$P(^PXRMD(811.4,FIEN,0),U,6)
S CFNAME=$P(^PXRMD(811.4,FIEN,0),U,1)
S CFPAR=$P(DEFARR(20,IND,15),U,1)
I CFPR,CFPAR="" D
. I TYPE="D" S TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
. I TYPE="T" S TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
. S TEXT(2)="This computed finding will not work properly unless the"
. S TEXT(3)="Computed Finding Parameter is defined and in this case it is not."
. D OUTPUT(3,.TEXT)
. S OK=0
;If USAGE is 'L' make sure the CF is list type.
S CFTYPE=$P(^PXRMD(811.4,FIEN,0),U,5)
I CFTYPE="" S CFTYPE="S"
I (USAGE["L"),(CFTYPE'="L") D
. S CFNAME=$P(^PXRMD(811.4,FIEN,0),U,1)
. K TEXT
. I TYPE="D" S TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
. I TYPE="T" S TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
. S TEXT(2)="Usage is 'L' and this computed finding's Type is "_CFTYPE_";"
. S TEXT(3)="the Type must be 'L'."
. D OUTPUT(3,.TEXT)
. S OK=0
;If the CF is VA-REMINDER DEFINITION check for recursion.
I (CFNAME="VA-REMINDER DEFINITION"),(CFPAR=DEF) D
. K TEXT
. I TYPE="D" S TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
. I TYPE="T" S TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
. S TEXT(2)="It is recursively calling "_CFPAR
. D OUTPUT(2,.TEXT)
. S OK=0
Q OK
;
;======================================================
CHECKALL ;Check all definitions.
N IEN,NAME,OK,POP,PXRMDONE,TEXT
W #!,"Check the integrity of all reminder definitions."
D ^%ZIS Q:POP
U IO
S NAME="",PXRMDONE=0
F S NAME=$O(^PXD(811.9,"B",NAME)) Q:(NAME="")!(PXRMDONE) D
. S IEN=$O(^PXD(811.9,"B",NAME,""))
. S TEXT(1)=" "
. S TEXT(2)="Checking "_NAME_" (IEN="_IEN_")"
. D OUTPUT(2,.TEXT)
. S OK=$$DEF^PXRMICHK(IEN)
D ^%ZISC
Q
;
;======================================================
CHECKONE ;Check selected definitions.
N DIC,DTOUT,DUOUT,IEN,OK,Y
S DIC="^PXD(811.9,"
S DIC(0)="AEMQ"
S DIC("A")="Select Reminder Definition: "
GETDEF ;Get the definition to check.
W !
D ^DIC
I ($D(DTOUT))!($D(DUOUT)) Q
I Y=-1 Q
S IEN=$P(Y,U,1)
W #
S OK=$$DEF^PXRMICHK(IEN)
G GETDEF
Q
;
;======================================================
DATECHK(FINDING,DATE,TYPE,DEFARR) ;Check Beginning and Ending Date/Times if
;they contain FIEVAL.
N ARGS,DFI,DTYPE,OCC,OCN,OK,TEXT
S OK=1
S ARGS=$E(DATE,$F(DATE,"FIEVAL("),$F(DATE,"""DATE"")")-9)
I ARGS="" Q OK
S DFI=$P(ARGS,",",1)
I '$D(DEFARR(20,DFI)) D
. S DTYPE=$S(TYPE="BDT":"Beginning Date/Time",TYPE="EDT":"Ending Date/Time")
. S TEXT(1)="FATAL: "_DTYPE_" for finding number "_FINDING_" uses finding number "_DFI_" which does not exist."
. D OUTPUT(1,.TEXT)
. S OK=0
I OK D
. S OCN=$P(ARGS,",",2)
. I OCN="" Q
. S OCC=+$P(DEFARR(20,DFI,0),U,14)
. S OCC=$S(OCC=0:1,OCC>0:OCC,1:-OCC)
. I OCN>OCC D
.. S DTYPE=$S(TYPE="BDT":"Beginning Date/Time",TYPE="EDT":"Ending Date/Time")
.. S TEXT(1)="FATAL: "_DTYPE_" for finding number "_FINDING_" uses occurrence "_OCN_" of finding number "_DFI_";"
.. S TEXT(2)="the Occurrence Count for finding "_DFI_" is "_OCC_"."
.. D OUTPUT(2,.TEXT)
.. S OK=0
Q OK
;
;======================================================
DEF(IEN) ;Definition integrity check.
N ARGTYPE,BDT,COHOK,DEF,DEFARR,EDT
N FFNUM,FI,FIEN,FLIST,FNUM,FUNCTION,GBL,IND,JND,KND
N OCC,OCN,LOGCHK,LOGINTR,LOGSTR,NFI,NBFREQ,NFFREQ,OK,RESOK
N TEXT,USAGE,ZNODE
S OK=1
;Check usage.
S ZNODE=^PXD(811.9,IEN,100)
S USAGE=$P(ZNODE,U,4)
I $P(ZNODE,U,1)'="N",USAGE["P" D
. K TEXT
. S TEXT(1)="WARNING: Usage field contains a ""P"" and this is not a national reminder definition."
. D OUTPUT(1,.TEXT)
;
D DEF^PXRMLDR(IEN,.DEFARR)
S DEF=$P(DEFARR(0),U,1)
;Check findings and finding modifiers.
S IND=0
F S IND=+$O(DEFARR(20,IND)) Q:IND=0 D
. S ZNODE=DEFARR(20,IND,0)
. S FI=$P(ZNODE,U,1)
. S FIEN=$P(FI,";",1)
. S GBL=$P(FI,";",2)
. I (FIEN'=+FIEN)!(GBL="") D Q
.. K TEXT
.. S TEXT(1)="FATAL: Finding number "_IND_" is invalid."
.. D OUTPUT(1,.TEXT)
.. S OK=0
. S FNUM=$$GETFNUM^PXRMEXPS(GBL)
. I '$$FIND1^DIC(FNUM,"","XU","`"_FIEN) D
.. K TEXT
.. S TEXT(1)="FATAL: Finding number "_IND_", does not exist! It is entry number "_FIEN_" in file #"_FNUM_"."
.. D OUTPUT(1,.TEXT)
.. S OK=0
. S BDT=$P(ZNODE,U,8)
. I BDT["FIEVAL",'$$DATECHK(IND,BDT,"BDT",.DEFARR) S OK=0
. S EDT=$P(ZNODE,U,11)
. I EDT["FIEVAL",'$$DATECHK(IND,EDT,"EDT",.DEFARR) S OK=0
.;Check computed findings.
. I (GBL="PXRMD(811.4,"),'$$CFCHK(USAGE,IND,FIEN,DEF,.DEFARR,"D") S OK=0
.;Check terms.
. I (GBL="PXRMD(811.5,"),'$$TERMCHK(USAGE,FIEN,DEF,.DEFARR) S OK=0
;
;Check function findings.
S FFNUM="FF"
F S FFNUM=$O(DEFARR(25,FFNUM)) Q:FFNUM="" D
. S IND=$P(FFNUM,"FF",2)
.;Check for an invalid function string.
. I $L($G(DEFARR(25,FFNUM,3)))<2 D Q
.. K TEXT
.. S TEXT(1)="FATAL: Function finding number "_IND_" has an invalid function string."
.. D OUTPUT(1,.TEXT)
.. S OK=0
. S JND=0
. F S JND=+$O(DEFARR(25,FFNUM,5,JND)) Q:JND=0 D
.. S FUNCTION=$P(DEFARR(25,FFNUM,5,JND,0),U,2)
.. S FUNCTION=$P(^PXRMD(802.4,FUNCTION,0),U,1)
.. S KND=0
.. F S KND=+$O(DEFARR(25,FFNUM,5,JND,20,KND)) Q:KND=0 D
... S ARGTYPE=$$ARGTYPE^PXRMFFAT(FUNCTION,KND)
... I ARGTYPE="F" D
.... S FI=DEFARR(25,FFNUM,5,JND,20,KND,0)
.... I '$D(DEFARR(20,FI,0)) D
..... K TEXT
..... S TEXT(1)="FATAL: Function finding number "_IND_" depends on finding number "_FI_" which does not exist."
..... D OUTPUT(1,.TEXT)
..... S OK=0
... I OK,ARGTYPE="N" D
.... S OCN=DEFARR(25,FFNUM,5,JND,20,KND,0)
.... S OCC=+$P(DEFARR(20,FI,0),U,14)
.... S OCC=$S(OCC=0:1,OCC>0:OCC,1:-OCC)
.... I OCN>OCC D
..... K TEXT
..... S TEXT(1)="FATAL: Function finding number "_IND_" uses occurrence number "_OCN
..... S TEXT(2)="of finding number "_FI_"."
..... S TEXT(3)="The Occurrence Count for finding "_FI_" is "_OCC_"."
..... D OUTPUT(3,.TEXT)
..... S OK=0
;
;Check custom date due.
S IND=0
F S IND=+$O(DEFARR(47,IND)) Q:IND=0 D
. S FI=$P(DEFARR(47,IND,0),U,1)
. I '$D(DEFARR(20,FI,0)) D
.. K TEXT
.. S TEXT(1)="FATAL: Custom Date Due depends on finding number "_FI_" which does not exist."
.. D OUTPUT(1,.TEXT)
.. S OK=0
;
;Check cohort logic structure and dependencies.
S LOGSTR=$G(DEFARR(31))
;Run the input transform.
S LOGINTR=$S(LOGSTR'="":$$VALID^PXRMLOG(LOGSTR,IEN,3,512),1:1)
S NFI=+$P($G(DEFARR(32)),U,1)
S FLIST=$P($G(DEFARR(32)),U,2)
S LOGCHK=$$LOGCHECK(NFI,FLIST,LOGSTR,"Patient Cohort",.DEFARR)
S COHOK=LOGINTR&LOGCHK
I 'COHOK D
. S TEXT(1)="FATAL: Definition has invalid cohort logic.\\"
. S TEXT(2)=" "_LOGSTR
. D OUTPUT(2,.TEXT)
. S OK=0
;
;If the USAGE is List, check the cohort logic to make sure it
;meets the special requirements.
I USAGE["L",COHOK S COHOK=$$LCOHORTC(.DEFARR)
I 'COHOK S OK=0
;
;Check resolution structure and dependencies.
S LOGSTR=$G(DEFARR(35))
;Run the input transform.
S LOGINTR=$S(LOGSTR'="":$$VALIDR^PXRMLOG(LOGSTR,IEN,5,512),1:1)
S NFI=+$P($G(DEFARR(36)),U,1)
S FLIST=$P($G(DEFARR(36)),U,2)
S LOGCHK=$$LOGCHECK(NFI,FLIST,LOGSTR,"Resolution",.DEFARR)
S RESOK=LOGINTR&LOGCHK
I 'RESOK D
. S TEXT(1)="FATAL: Definition has invalid resolution logic.\\"
. S TEXT(2)=" "_LOGSTR
. D OUTPUT(2,.TEXT)
. S OK=0
;
;Make other checks for bad cohort and resolution logic; these are
;all just warnings.
D CCRLOGIC(COHOK,RESOK,.DEFARR)
;
;A frequency is required if there is resolution logic.
I $G(DEFARR(35))'="" D
. S (IND,NBFREQ,NFFREQ)=0
. F S IND=+$O(DEFARR(7,IND)) Q:IND=0 S NBFREQ=NBFREQ+1
. I NBFREQ=0 D
.. S IND=0
.. F S IND=+$O(DEFARR(20,IND)) Q:IND=0 I $P(DEFARR(20,IND,0),U,4)'="" S NFFREQ=NFFREQ+1
.. S IND="FF"
.. F S IND=$O(DEFARR(25,IND)) Q:IND="" I $P(DEFARR(25,IND,0),U,4)'="" S NFFREQ=NFFREQ+1
. I NBFREQ=0,NFFREQ=0 D
.. S TEXT(1)="FATAL: Definition has resolution logic but no baseline frequencies."
.. S TEXT(2)="Also there are no findings or function findings that set a frequency."
.. D OUTPUT(2,.TEXT)
.. S OK=0
. I NBFREQ=0,NFFREQ>0 D
.. S TEXT(1)="WARNING: definition has resolution logic but no baseline frequencies."
.. S TEXT(2)="There are findings that set a frequency but if they are all false there will not be a frequency."
.. D OUTPUT(2,.TEXT)
K TEXT
I OK S TEXT(1)="No fatal errors were found."
E S TEXT(1)="This definition has fatal errors and it will not work!"
D OUTPUT(1,.TEXT)
Q OK
;
;======================================================
LCOHORTC(DEFARR) ;Check list type reminder cohort logic for special
;requirements.
N IND,MAXAGE,MINAGE,NL,OK,PCLOG,TEXT
S (OK,NL)=1
S PCLOG=DEFARR(31)
;The cohort logic cannot start with a logical not.
I $E(PCLOG,1)="'" D
. S NL=NL+1
. S TEXT(NL)="The cohort logic cannot start with a logical not.\\"
. S OK=0
I PCLOG["!'" D
. S NL=NL+1
. S TEXT(NL)="The cohort logic cannot contain !' (OR NOT).\\"
. S OK=0
I PCLOG["AGE" D
.;Make sure a baseline age range is defined.
. S IND=0 F S IND=$O(DEFARR(7,IND)) Q:(IND="") Q:(DEFARR(7,IND,0)'="")
. S MINAGE=$S(IND="":0,1:+$P($G(DEFARR(7,IND,3)),U,1))
. S MAXAGE=$S(IND="":0,1:+$P($G(DEFARR(7,IND,3)),U,2))
. I (MINAGE=0),(MAXAGE=0) D
.. S NL=NL+1
.. S TEXT(NL)="The cohort logic contains AGE but no baseline age range is defined.\\"
.. S OK=0
I PCLOG["SEX" D
. I $P(DEFARR(0),U,9)="" D
.. S NL=NL+1
.. S TEXT(NL)="The cohort logic contains SEX but the SEX SPECIFIC field is not defined.\\"
.. S OK=0
I PCLOG["SEX" D
. N PFSTACK
. D POSTFIX^PXRMSTAC(PCLOG,"!&",.PFSTACK)
. I PFSTACK(1)'="SEX" Q
. I (PFSTACK(2)'="AGE")!(PFSTACK(3)'="&") D
.. S NL=NL+1
.. S TEXT(NL)="The cohort logic starts with SEX but SEX is not logically ANDED with AGE.\\"
.. S OK=0
I 'OK D
. S TEXT(1)="FATAL: List type definitions have the following restrictions:\\"
. D OUTPUT(NL,.TEXT)
Q OK
;
;======================================================
LOGCHECK(NFI,FLIST,LOGSTR,TYPE,DEFARR) ;Verify logic strings. Make sure the
;findings exist and the syntax is correct.
N FFNUM,FI,IND,OK,TEXT,X
S OK=1
I NFI=0 D Q OK
. S TEXT(1)="Warning, there is no "_TYPE_" logic."
. D OUTPUT(1,.TEXT)
F IND=1:1:NFI D
. S FI=$P(FLIST,";",IND)
. I FI=+FI D
.. I '$D(DEFARR(20,FI,0)) D
... S TEXT(1)="FATAL: "_TYPE_" logic uses finding "_FI_" which does not exist."
... D OUTPUT(1,.TEXT)
... S OK=0
. I FI["FF" D
.. I '$D(DEFARR(25,FI,0)) D
... S FFNUM=$P(FI,"FF",2)
... S TEXT(1)="Fatal :"_TYPE_" logic uses function finding "_FFNUM_" which does not exist."
... D OUTPUT(1,.TEXT)
... S OK=0
S X="S Y="_LOGSTR
D ^DIM
I '$D(X) D
. S TEXT(1)="FATAL: "_TYPE_" logic syntax is invalid."
. D OUTPUT(1,.TEXT)
. S OK=0
Q OK
;
;======================================================
OUTPUT(NIN,TEXT) ;Format and output TEXT.
I $G(PXRMDONE) Q
N ANS,EXIT,IND,NOUT,TEXTOUT
D FORMAT^PXRMTEXT(1,80,NIN,.TEXT,.NOUT,.TEXTOUT)
S EXIT=0
F IND=1:1:NOUT D
. W !,TEXTOUT(IND)
. I ($Y+2>IOSL),$E(IOST,1,2)="C-" D
.. W !,"Press ENTER to continue or '^' to exit: "
.. R ANS:DTIME
.. S EXIT=('$T)!(ANS="^")
.. I 'EXIT W #
. I EXIT Q
I EXIT S PXRMDONE=1
Q
;
;======================================================
TERMCHK(USAGE,TIEN,DEF,DEFARR) ;Check terms.
N FI,FIEN,FNUM,GBL,JND,OK,TERMARR,TNAME,TTEXT,ZNODE
S TNAME=$P(^PXRMD(811.5,TIEN,0),U,1)_" ("_TIEN_")"
S TTEXT=" The term is "_TNAME_"."
S OK=1
D TERM^PXRMLDR(TIEN,.TERMARR)
;Check findings and finding modifiers.
S JND=0
F S JND=+$O(TERMARR(20,JND)) Q:JND=0 D
. S ZNODE=TERMARR(20,JND,0)
. S FI=$P(ZNODE,U,1)
. S FIEN=$P(FI,";",1)
. S GBL=$P(FI,";",2)
. I (FIEN'=+FIEN)!(GBL="") D Q
.. K TEXT
.. S TEXT(1)="FATAL: Term finding number "_JND_" is invalid."
.. S TEXT(2)=TTEXT
.. D OUTPUT(2,.TEXT)
.. S OK=0
. S FNUM=$$GETFNUM^PXRMEXPS(GBL)
. I '$$FIND1^DIC(FNUM,"","XU","`"_FIEN) D
.. K TEXT
.. S TEXT(1)="FATAL: Term finding number "_JND_", does not exist! It is entry number "_FIEN_" in file #"_FNUM_"."
.. S TEXT(2)=TTEXT
.. D OUTPUT(2,.TEXT)
.. S OK=0
.;Check computed findings.
. I (GBL="PXRMD(811.4,"),'$$CFCHK(USAGE,JND,FIEN,DEF,.TERMARR,"T") D
..;CFCHK issues the messages for the CF, let the user know the name
..;of the term.
.. K TEXT
.. S TEXT(1)=TTEXT
.. D OUTPUT(1,.TEXT)
.. S OK=0
Q OK
;
PXRMICHK ;SLC/PKR - Integrity checking routines. ;11/14/2013
+1 ;;2.0;CLINICAL REMINDERS;**18,24,26**;Feb 04, 2005;Build 404
+2 ;
+3 ;======================================================
CCRLOGIC(COHOK,RESOK,DEFARR) ;Check cohort and resolution logic.
+1 NEW AGE,FIEVAL,FINDING,FF,FLIST,IND,JND,NUM,OCCN,PCLOG
+2 NEW RESLOG,RESLSTR,SEX,TEMP,TEST,TEXT
+3 NEW PXRMAGE,PXRMDOB,PXRMDOD,PXRMLAD,PXRMSEX
+4 SET (PXRMAGE,PXRMDOB,PXRMDOD,PXRMLAD)=0
+5 SET PXRMSEX=""
+6 ;Set all findings false.
+7 SET (FIEVAL("AGE"),FIEVAL("SEX"))=0
+8 SET IND=0
+9 FOR
SET IND=+$ORDER(DEFARR(20,IND))
IF IND=0
QUIT
Begin DoDot:1
+10 SET FIEVAL(IND)=0
+11 SET OCCN=$PIECE(DEFARR(20,IND,0),U,14)
+12 FOR JND=1:1:OCCN
SET FIEVAL(IND,JND)=0
End DoDot:1
+13 ;Evaluate function findings with all findings false.
+14 DO EVAL^PXRMFF(0,.DEFARR,.FIEVAL)
+15 IF COHOK
Begin DoDot:1
+16 SET TEMP=DEFARR(32)
+17 SET NUM=+$PIECE(TEMP,U,1)
+18 IF NUM=0
QUIT
+19 SET PCLOG=DEFARR(31)
+20 SET FLIST=$PIECE(TEMP,U,2)
+21 FOR IND=1:1:NUM
Begin DoDot:2
+22 SET FINDING=$PIECE(FLIST,";",IND)
+23 IF FINDING="AGE"
SET AGE=+$GET(FIEVAL("AGE"))
+24 IF FINDING="SEX"
SET SEX=+$GET(FIEVAL("SEX"))
+25 IF FINDING["FF"
SET TEMP=$PIECE(FINDING,"FF",2)
SET FF(TEMP)=FIEVAL(FINDING)
+26 IF '$TEST
SET FI(FINDING)=FIEVAL(FINDING)
End DoDot:2
+27 IF @PCLOG
+28 SET TEST=$TEST
+29 IF TEST
Begin DoDot:2
+30 SET TEXT(1)="WARNING: Cohort logic is true even when there are no true findings!"
+31 DO OUTPUT(1,.TEXT)
End DoDot:2
End DoDot:1
+32 IF RESOK
Begin DoDot:1
+33 SET TEMP=DEFARR(36)
+34 SET NUM=+$PIECE(TEMP,U,1)
+35 IF NUM=0
QUIT
+36 SET (RESLOG,RESLSTR)=DEFARR(35)
+37 SET FLIST=$PIECE(TEMP,U,2)
+38 FOR IND=1:1:NUM
Begin DoDot:2
+39 SET FINDING=$PIECE(FLIST,";",IND)
+40 IF FINDING["FF"
SET TEMP=$PIECE(FINDING,"FF",2)
SET FF(TEMP)=FIEVAL(FINDING)
+41 IF '$TEST
SET FI(FINDING)=FIEVAL(FINDING)
End DoDot:2
+42 IF @RESLOG
+43 SET TEST=$TEST
+44 IF TEST
Begin DoDot:2
+45 SET TEXT(1)="WARNING: Resolution logic is true even when there are no true findings!"
+46 DO OUTPUT(1,.TEXT)
End DoDot:2
End DoDot:1
+47 QUIT
+48 ;
+49 ;======================================================
CFCHK(USAGE,IND,FIEN,DEF,DEFARR,TYPE) ;Check computed findings.
+1 NEW CFPR,CFNAME,CFPAR,CFTYPE,OK,TEXT
+2 SET OK=1
+3 ;Is the Computed Finding Parameter required?
+4 SET CFPR=$PIECE(^PXRMD(811.4,FIEN,0),U,6)
+5 SET CFNAME=$PIECE(^PXRMD(811.4,FIEN,0),U,1)
+6 SET CFPAR=$PIECE(DEFARR(20,IND,15),U,1)
+7 IF CFPR
IF CFPAR=""
Begin DoDot:1
+8 IF TYPE="D"
SET TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
+9 IF TYPE="T"
SET TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
+10 SET TEXT(2)="This computed finding will not work properly unless the"
+11 SET TEXT(3)="Computed Finding Parameter is defined and in this case it is not."
+12 DO OUTPUT(3,.TEXT)
+13 SET OK=0
End DoDot:1
+14 ;If USAGE is 'L' make sure the CF is list type.
+15 SET CFTYPE=$PIECE(^PXRMD(811.4,FIEN,0),U,5)
+16 IF CFTYPE=""
SET CFTYPE="S"
+17 IF (USAGE["L")
IF (CFTYPE'="L")
Begin DoDot:1
+18 SET CFNAME=$PIECE(^PXRMD(811.4,FIEN,0),U,1)
+19 KILL TEXT
+20 IF TYPE="D"
SET TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
+21 IF TYPE="T"
SET TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
+22 SET TEXT(2)="Usage is 'L' and this computed finding's Type is "_CFTYPE_";"
+23 SET TEXT(3)="the Type must be 'L'."
+24 DO OUTPUT(3,.TEXT)
+25 SET OK=0
End DoDot:1
+26 ;If the CF is VA-REMINDER DEFINITION check for recursion.
+27 IF (CFNAME="VA-REMINDER DEFINITION")
IF (CFPAR=DEF)
Begin DoDot:1
+28 KILL TEXT
+29 IF TYPE="D"
SET TEXT(1)="FATAL: Finding number "_IND_" uses computed finding "_CFNAME_"."
+30 IF TYPE="T"
SET TEXT(1)="FATAL: Term finding number "_IND_" uses computed finding "_CFNAME_"."
+31 SET TEXT(2)="It is recursively calling "_CFPAR
+32 DO OUTPUT(2,.TEXT)
+33 SET OK=0
End DoDot:1
+34 QUIT OK
+35 ;
+36 ;======================================================
CHECKALL ;Check all definitions.
+1 NEW IEN,NAME,OK,POP,PXRMDONE,TEXT
+2 WRITE #!,"Check the integrity of all reminder definitions."
+3 DO ^%ZIS
IF POP
QUIT
+4 USE IO
+5 SET NAME=""
SET PXRMDONE=0
+6 FOR
SET NAME=$ORDER(^PXD(811.9,"B",NAME))
IF (NAME="")!(PXRMDONE)
QUIT
Begin DoDot:1
+7 SET IEN=$ORDER(^PXD(811.9,"B",NAME,""))
+8 SET TEXT(1)=" "
+9 SET TEXT(2)="Checking "_NAME_" (IEN="_IEN_")"
+10 DO OUTPUT(2,.TEXT)
+11 SET OK=$$DEF^PXRMICHK(IEN)
End DoDot:1
+12 DO ^%ZISC
+13 QUIT
+14 ;
+15 ;======================================================
CHECKONE ;Check selected definitions.
+1 NEW DIC,DTOUT,DUOUT,IEN,OK,Y
+2 SET DIC="^PXD(811.9,"
+3 SET DIC(0)="AEMQ"
+4 SET DIC("A")="Select Reminder Definition: "
GETDEF ;Get the definition to check.
+1 WRITE !
+2 DO ^DIC
+3 IF ($DATA(DTOUT))!($DATA(DUOUT))
QUIT
+4 IF Y=-1
QUIT
+5 SET IEN=$PIECE(Y,U,1)
+6 WRITE #
+7 SET OK=$$DEF^PXRMICHK(IEN)
+8 GOTO GETDEF
+9 QUIT
+10 ;
+11 ;======================================================
DATECHK(FINDING,DATE,TYPE,DEFARR) ;Check Beginning and Ending Date/Times if
+1 ;they contain FIEVAL.
+2 NEW ARGS,DFI,DTYPE,OCC,OCN,OK,TEXT
+3 SET OK=1
+4 SET ARGS=$EXTRACT(DATE,$FIND(DATE,"FIEVAL("),$FIND(DATE,"""DATE"")")-9)
+5 IF ARGS=""
QUIT OK
+6 SET DFI=$PIECE(ARGS,",",1)
+7 IF '$DATA(DEFARR(20,DFI))
Begin DoDot:1
+8 SET DTYPE=$SELECT(TYPE="BDT":"Beginning Date/Time",TYPE="EDT":"Ending Date/Time")
+9 SET TEXT(1)="FATAL: "_DTYPE_" for finding number "_FINDING_" uses finding number "_DFI_" which does not exist."
+10 DO OUTPUT(1,.TEXT)
+11 SET OK=0
End DoDot:1
+12 IF OK
Begin DoDot:1
+13 SET OCN=$PIECE(ARGS,",",2)
+14 IF OCN=""
QUIT
+15 SET OCC=+$PIECE(DEFARR(20,DFI,0),U,14)
+16 SET OCC=$SELECT(OCC=0:1,OCC>0:OCC,1:-OCC)
+17 IF OCN>OCC
Begin DoDot:2
+18 SET DTYPE=$SELECT(TYPE="BDT":"Beginning Date/Time",TYPE="EDT":"Ending Date/Time")
+19 SET TEXT(1)="FATAL: "_DTYPE_" for finding number "_FINDING_" uses occurrence "_OCN_" of finding number "_DFI_";"
+20 SET TEXT(2)="the Occurrence Count for finding "_DFI_" is "_OCC_"."
+21 DO OUTPUT(2,.TEXT)
+22 SET OK=0
End DoDot:2
End DoDot:1
+23 QUIT OK
+24 ;
+25 ;======================================================
DEF(IEN) ;Definition integrity check.
+1 NEW ARGTYPE,BDT,COHOK,DEF,DEFARR,EDT
+2 NEW FFNUM,FI,FIEN,FLIST,FNUM,FUNCTION,GBL,IND,JND,KND
+3 NEW OCC,OCN,LOGCHK,LOGINTR,LOGSTR,NFI,NBFREQ,NFFREQ,OK,RESOK
+4 NEW TEXT,USAGE,ZNODE
+5 SET OK=1
+6 ;Check usage.
+7 SET ZNODE=^PXD(811.9,IEN,100)
+8 SET USAGE=$PIECE(ZNODE,U,4)
+9 IF $PIECE(ZNODE,U,1)'="N"
IF USAGE["P"
Begin DoDot:1
+10 KILL TEXT
+11 SET TEXT(1)="WARNING: Usage field contains a ""P"" and this is not a national reminder definition."
+12 DO OUTPUT(1,.TEXT)
End DoDot:1
+13 ;
+14 DO DEF^PXRMLDR(IEN,.DEFARR)
+15 SET DEF=$PIECE(DEFARR(0),U,1)
+16 ;Check findings and finding modifiers.
+17 SET IND=0
+18 FOR
SET IND=+$ORDER(DEFARR(20,IND))
IF IND=0
QUIT
Begin DoDot:1
+19 SET ZNODE=DEFARR(20,IND,0)
+20 SET FI=$PIECE(ZNODE,U,1)
+21 SET FIEN=$PIECE(FI,";",1)
+22 SET GBL=$PIECE(FI,";",2)
+23 IF (FIEN'=+FIEN)!(GBL="")
Begin DoDot:2
+24 KILL TEXT
+25 SET TEXT(1)="FATAL: Finding number "_IND_" is invalid."
+26 DO OUTPUT(1,.TEXT)
+27 SET OK=0
End DoDot:2
QUIT
+28 SET FNUM=$$GETFNUM^PXRMEXPS(GBL)
+29 IF '$$FIND1^DIC(FNUM,"","XU","`"_FIEN)
Begin DoDot:2
+30 KILL TEXT
+31 SET TEXT(1)="FATAL: Finding number "_IND_", does not exist! It is entry number "_FIEN_" in file #"_FNUM_"."
+32 DO OUTPUT(1,.TEXT)
+33 SET OK=0
End DoDot:2
+34 SET BDT=$PIECE(ZNODE,U,8)
+35 IF BDT["FIEVAL"
IF '$$DATECHK(IND,BDT,"BDT",.DEFARR)
SET OK=0
+36 SET EDT=$PIECE(ZNODE,U,11)
+37 IF EDT["FIEVAL"
IF '$$DATECHK(IND,EDT,"EDT",.DEFARR)
SET OK=0
+38 ;Check computed findings.
+39 IF (GBL="PXRMD(811.4,")
IF '$$CFCHK(USAGE,IND,FIEN,DEF,.DEFARR,"D")
SET OK=0
+40 ;Check terms.
+41 IF (GBL="PXRMD(811.5,")
IF '$$TERMCHK(USAGE,FIEN,DEF,.DEFARR)
SET OK=0
End DoDot:1
+42 ;
+43 ;Check function findings.
+44 SET FFNUM="FF"
+45 FOR
SET FFNUM=$ORDER(DEFARR(25,FFNUM))
IF FFNUM=""
QUIT
Begin DoDot:1
+46 SET IND=$PIECE(FFNUM,"FF",2)
+47 ;Check for an invalid function string.
+48 IF $LENGTH($GET(DEFARR(25,FFNUM,3)))<2
Begin DoDot:2
+49 KILL TEXT
+50 SET TEXT(1)="FATAL: Function finding number "_IND_" has an invalid function string."
+51 DO OUTPUT(1,.TEXT)
+52 SET OK=0
End DoDot:2
QUIT
+53 SET JND=0
+54 FOR
SET JND=+$ORDER(DEFARR(25,FFNUM,5,JND))
IF JND=0
QUIT
Begin DoDot:2
+55 SET FUNCTION=$PIECE(DEFARR(25,FFNUM,5,JND,0),U,2)
+56 SET FUNCTION=$PIECE(^PXRMD(802.4,FUNCTION,0),U,1)
+57 SET KND=0
+58 FOR
SET KND=+$ORDER(DEFARR(25,FFNUM,5,JND,20,KND))
IF KND=0
QUIT
Begin DoDot:3
+59 SET ARGTYPE=$$ARGTYPE^PXRMFFAT(FUNCTION,KND)
+60 IF ARGTYPE="F"
Begin DoDot:4
+61 SET FI=DEFARR(25,FFNUM,5,JND,20,KND,0)
+62 IF '$DATA(DEFARR(20,FI,0))
Begin DoDot:5
+63 KILL TEXT
+64 SET TEXT(1)="FATAL: Function finding number "_IND_" depends on finding number "_FI_" which does not exist."
+65 DO OUTPUT(1,.TEXT)
+66 SET OK=0
End DoDot:5
End DoDot:4
+67 IF OK
IF ARGTYPE="N"
Begin DoDot:4
+68 SET OCN=DEFARR(25,FFNUM,5,JND,20,KND,0)
+69 SET OCC=+$PIECE(DEFARR(20,FI,0),U,14)
+70 SET OCC=$SELECT(OCC=0:1,OCC>0:OCC,1:-OCC)
+71 IF OCN>OCC
Begin DoDot:5
+72 KILL TEXT
+73 SET TEXT(1)="FATAL: Function finding number "_IND_" uses occurrence number "_OCN
+74 SET TEXT(2)="of finding number "_FI_"."
+75 SET TEXT(3)="The Occurrence Count for finding "_FI_" is "_OCC_"."
+76 DO OUTPUT(3,.TEXT)
+77 SET OK=0
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+78 ;
+79 ;Check custom date due.
+80 SET IND=0
+81 FOR
SET IND=+$ORDER(DEFARR(47,IND))
IF IND=0
QUIT
Begin DoDot:1
+82 SET FI=$PIECE(DEFARR(47,IND,0),U,1)
+83 IF '$DATA(DEFARR(20,FI,0))
Begin DoDot:2
+84 KILL TEXT
+85 SET TEXT(1)="FATAL: Custom Date Due depends on finding number "_FI_" which does not exist."
+86 DO OUTPUT(1,.TEXT)
+87 SET OK=0
End DoDot:2
End DoDot:1
+88 ;
+89 ;Check cohort logic structure and dependencies.
+90 SET LOGSTR=$GET(DEFARR(31))
+91 ;Run the input transform.
+92 SET LOGINTR=$SELECT(LOGSTR'="":$$VALID^PXRMLOG(LOGSTR,IEN,3,512),1:1)
+93 SET NFI=+$PIECE($GET(DEFARR(32)),U,1)
+94 SET FLIST=$PIECE($GET(DEFARR(32)),U,2)
+95 SET LOGCHK=$$LOGCHECK(NFI,FLIST,LOGSTR,"Patient Cohort",.DEFARR)
+96 SET COHOK=LOGINTR&LOGCHK
+97 IF 'COHOK
Begin DoDot:1
+98 SET TEXT(1)="FATAL: Definition has invalid cohort logic.\\"
+99 SET TEXT(2)=" "_LOGSTR
+100 DO OUTPUT(2,.TEXT)
+101 SET OK=0
End DoDot:1
+102 ;
+103 ;If the USAGE is List, check the cohort logic to make sure it
+104 ;meets the special requirements.
+105 IF USAGE["L"
IF COHOK
SET COHOK=$$LCOHORTC(.DEFARR)
+106 IF 'COHOK
SET OK=0
+107 ;
+108 ;Check resolution structure and dependencies.
+109 SET LOGSTR=$GET(DEFARR(35))
+110 ;Run the input transform.
+111 SET LOGINTR=$SELECT(LOGSTR'="":$$VALIDR^PXRMLOG(LOGSTR,IEN,5,512),1:1)
+112 SET NFI=+$PIECE($GET(DEFARR(36)),U,1)
+113 SET FLIST=$PIECE($GET(DEFARR(36)),U,2)
+114 SET LOGCHK=$$LOGCHECK(NFI,FLIST,LOGSTR,"Resolution",.DEFARR)
+115 SET RESOK=LOGINTR&LOGCHK
+116 IF 'RESOK
Begin DoDot:1
+117 SET TEXT(1)="FATAL: Definition has invalid resolution logic.\\"
+118 SET TEXT(2)=" "_LOGSTR
+119 DO OUTPUT(2,.TEXT)
+120 SET OK=0
End DoDot:1
+121 ;
+122 ;Make other checks for bad cohort and resolution logic; these are
+123 ;all just warnings.
+124 DO CCRLOGIC(COHOK,RESOK,.DEFARR)
+125 ;
+126 ;A frequency is required if there is resolution logic.
+127 IF $GET(DEFARR(35))'=""
Begin DoDot:1
+128 SET (IND,NBFREQ,NFFREQ)=0
+129 FOR
SET IND=+$ORDER(DEFARR(7,IND))
IF IND=0
QUIT
SET NBFREQ=NBFREQ+1
+130 IF NBFREQ=0
Begin DoDot:2
+131 SET IND=0
+132 FOR
SET IND=+$ORDER(DEFARR(20,IND))
IF IND=0
QUIT
IF $PIECE(DEFARR(20,IND,0),U,4)'=""
SET NFFREQ=NFFREQ+1
+133 SET IND="FF"
+134 FOR
SET IND=$ORDER(DEFARR(25,IND))
IF IND=""
QUIT
IF $PIECE(DEFARR(25,IND,0),U,4)'=""
SET NFFREQ=NFFREQ+1
End DoDot:2
+135 IF NBFREQ=0
IF NFFREQ=0
Begin DoDot:2
+136 SET TEXT(1)="FATAL: Definition has resolution logic but no baseline frequencies."
+137 SET TEXT(2)="Also there are no findings or function findings that set a frequency."
+138 DO OUTPUT(2,.TEXT)
+139 SET OK=0
End DoDot:2
+140 IF NBFREQ=0
IF NFFREQ>0
Begin DoDot:2
+141 SET TEXT(1)="WARNING: definition has resolution logic but no baseline frequencies."
+142 SET TEXT(2)="There are findings that set a frequency but if they are all false there will not be a frequency."
+143 DO OUTPUT(2,.TEXT)
End DoDot:2
End DoDot:1
+144 KILL TEXT
+145 IF OK
SET TEXT(1)="No fatal errors were found."
+146 IF '$TEST
SET TEXT(1)="This definition has fatal errors and it will not work!"
+147 DO OUTPUT(1,.TEXT)
+148 QUIT OK
+149 ;
+150 ;======================================================
LCOHORTC(DEFARR) ;Check list type reminder cohort logic for special
+1 ;requirements.
+2 NEW IND,MAXAGE,MINAGE,NL,OK,PCLOG,TEXT
+3 SET (OK,NL)=1
+4 SET PCLOG=DEFARR(31)
+5 ;The cohort logic cannot start with a logical not.
+6 IF $EXTRACT(PCLOG,1)="'"
Begin DoDot:1
+7 SET NL=NL+1
+8 SET TEXT(NL)="The cohort logic cannot start with a logical not.\\"
+9 SET OK=0
End DoDot:1
+10 IF PCLOG["!'"
Begin DoDot:1
+11 SET NL=NL+1
+12 SET TEXT(NL)="The cohort logic cannot contain !' (OR NOT).\\"
+13 SET OK=0
End DoDot:1
+14 IF PCLOG["AGE"
Begin DoDot:1
+15 ;Make sure a baseline age range is defined.
+16 SET IND=0
FOR
SET IND=$ORDER(DEFARR(7,IND))
IF (IND="")
QUIT
IF (DEFARR(7,IND,0)'="")
QUIT
+17 SET MINAGE=$SELECT(IND="":0,1:+$PIECE($GET(DEFARR(7,IND,3)),U,1))
+18 SET MAXAGE=$SELECT(IND="":0,1:+$PIECE($GET(DEFARR(7,IND,3)),U,2))
+19 IF (MINAGE=0)
IF (MAXAGE=0)
Begin DoDot:2
+20 SET NL=NL+1
+21 SET TEXT(NL)="The cohort logic contains AGE but no baseline age range is defined.\\"
+22 SET OK=0
End DoDot:2
End DoDot:1
+23 IF PCLOG["SEX"
Begin DoDot:1
+24 IF $PIECE(DEFARR(0),U,9)=""
Begin DoDot:2
+25 SET NL=NL+1
+26 SET TEXT(NL)="The cohort logic contains SEX but the SEX SPECIFIC field is not defined.\\"
+27 SET OK=0
End DoDot:2
End DoDot:1
+28 IF PCLOG["SEX"
Begin DoDot:1
+29 NEW PFSTACK
+30 DO POSTFIX^PXRMSTAC(PCLOG,"!&",.PFSTACK)
+31 IF PFSTACK(1)'="SEX"
QUIT
+32 IF (PFSTACK(2)'="AGE")!(PFSTACK(3)'="&")
Begin DoDot:2
+33 SET NL=NL+1
+34 SET TEXT(NL)="The cohort logic starts with SEX but SEX is not logically ANDED with AGE.\\"
+35 SET OK=0
End DoDot:2
End DoDot:1
+36 IF 'OK
Begin DoDot:1
+37 SET TEXT(1)="FATAL: List type definitions have the following restrictions:\\"
+38 DO OUTPUT(NL,.TEXT)
End DoDot:1
+39 QUIT OK
+40 ;
+41 ;======================================================
LOGCHECK(NFI,FLIST,LOGSTR,TYPE,DEFARR) ;Verify logic strings. Make sure the
+1 ;findings exist and the syntax is correct.
+2 NEW FFNUM,FI,IND,OK,TEXT,X
+3 SET OK=1
+4 IF NFI=0
Begin DoDot:1
+5 SET TEXT(1)="Warning, there is no "_TYPE_" logic."
+6 DO OUTPUT(1,.TEXT)
End DoDot:1
QUIT OK
+7 FOR IND=1:1:NFI
Begin DoDot:1
+8 SET FI=$PIECE(FLIST,";",IND)
+9 IF FI=+FI
Begin DoDot:2
+10 IF '$DATA(DEFARR(20,FI,0))
Begin DoDot:3
+11 SET TEXT(1)="FATAL: "_TYPE_" logic uses finding "_FI_" which does not exist."
+12 DO OUTPUT(1,.TEXT)
+13 SET OK=0
End DoDot:3
End DoDot:2
+14 IF FI["FF"
Begin DoDot:2
+15 IF '$DATA(DEFARR(25,FI,0))
Begin DoDot:3
+16 SET FFNUM=$PIECE(FI,"FF",2)
+17 SET TEXT(1)="Fatal :"_TYPE_" logic uses function finding "_FFNUM_" which does not exist."
+18 DO OUTPUT(1,.TEXT)
+19 SET OK=0
End DoDot:3
End DoDot:2
End DoDot:1
+20 SET X="S Y="_LOGSTR
+21 DO ^DIM
+22 IF '$DATA(X)
Begin DoDot:1
+23 SET TEXT(1)="FATAL: "_TYPE_" logic syntax is invalid."
+24 DO OUTPUT(1,.TEXT)
+25 SET OK=0
End DoDot:1
+26 QUIT OK
+27 ;
+28 ;======================================================
OUTPUT(NIN,TEXT) ;Format and output TEXT.
+1 IF $GET(PXRMDONE)
QUIT
+2 NEW ANS,EXIT,IND,NOUT,TEXTOUT
+3 DO FORMAT^PXRMTEXT(1,80,NIN,.TEXT,.NOUT,.TEXTOUT)
+4 SET EXIT=0
+5 FOR IND=1:1:NOUT
Begin DoDot:1
+6 WRITE !,TEXTOUT(IND)
+7 IF ($Y+2>IOSL)
IF $EXTRACT(IOST,1,2)="C-"
Begin DoDot:2
+8 WRITE !,"Press ENTER to continue or '^' to exit: "
+9 READ ANS:DTIME
+10 SET EXIT=('$TEST)!(ANS="^")
+11 IF 'EXIT
WRITE #
End DoDot:2
+12 IF EXIT
QUIT
End DoDot:1
+13 IF EXIT
SET PXRMDONE=1
+14 QUIT
+15 ;
+16 ;======================================================
TERMCHK(USAGE,TIEN,DEF,DEFARR) ;Check terms.
+1 NEW FI,FIEN,FNUM,GBL,JND,OK,TERMARR,TNAME,TTEXT,ZNODE
+2 SET TNAME=$PIECE(^PXRMD(811.5,TIEN,0),U,1)_" ("_TIEN_")"
+3 SET TTEXT=" The term is "_TNAME_"."
+4 SET OK=1
+5 DO TERM^PXRMLDR(TIEN,.TERMARR)
+6 ;Check findings and finding modifiers.
+7 SET JND=0
+8 FOR
SET JND=+$ORDER(TERMARR(20,JND))
IF JND=0
QUIT
Begin DoDot:1
+9 SET ZNODE=TERMARR(20,JND,0)
+10 SET FI=$PIECE(ZNODE,U,1)
+11 SET FIEN=$PIECE(FI,";",1)
+12 SET GBL=$PIECE(FI,";",2)
+13 IF (FIEN'=+FIEN)!(GBL="")
Begin DoDot:2
+14 KILL TEXT
+15 SET TEXT(1)="FATAL: Term finding number "_JND_" is invalid."
+16 SET TEXT(2)=TTEXT
+17 DO OUTPUT(2,.TEXT)
+18 SET OK=0
End DoDot:2
QUIT
+19 SET FNUM=$$GETFNUM^PXRMEXPS(GBL)
+20 IF '$$FIND1^DIC(FNUM,"","XU","`"_FIEN)
Begin DoDot:2
+21 KILL TEXT
+22 SET TEXT(1)="FATAL: Term finding number "_JND_", does not exist! It is entry number "_FIEN_" in file #"_FNUM_"."
+23 SET TEXT(2)=TTEXT
+24 DO OUTPUT(2,.TEXT)
+25 SET OK=0
End DoDot:2
+26 ;Check computed findings.
+27 IF (GBL="PXRMD(811.4,")
IF '$$CFCHK(USAGE,JND,FIEN,DEF,.TERMARR,"T")
Begin DoDot:2
+28 ;CFCHK issues the messages for the CF, let the user know the name
+29 ;of the term.
+30 KILL TEXT
+31 SET TEXT(1)=TTEXT
+32 DO OUTPUT(1,.TEXT)
+33 SET OK=0
End DoDot:2
End DoDot:1
+34 QUIT OK
+35 ;
