PXRMTERL.m

PXRMTERL ; SLC/PKR - Handle reminder terms for patient lists. ;04/02/2007

 ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123

 ;

 ;=============================================

EVALPL(FINDPA,TERMARR,PLIST) ;Build a list of patients based on a

 ;term. The list is returned in:

 ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_DATE_U_VALUE

 ;for findings with a start and stop date the list is

 ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_START_U_STOP_U_VALUE

 N ENODE

 K ^TMP($J,PLIST)

 S ENODE=""

 F  S ENODE=$O(TERMARR("E",ENODE)) Q:ENODE=""  D

 . I ENODE="AUTTEDT(" D EVALPL^PXRMEDU(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="AUTTEXAM(" D EVALPL^PXRMEXAM(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="AUTTHF(" D EVALPL^PXRMHF(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="AUTTIMM(" D EVALPL^PXRMIMM(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="AUTTSK(" D EVALPL^PXRMSKIN(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="GMRD(120.51," D EVALPL^PXRMVITL(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="LAB(60," D EVALPL^PXRMLAB(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="ORD(101.43," D EVALPL^PXRMORDR(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PXRMD(810.9," D EVALPL^PXRMLOCL(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PXD(811.2," D EVALPL^PXRMTAX(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PXRMD(811.4," D EVALPL^PXRMCF(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PS(50.605," D EVALPL^PXRMDRCL(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PSDRUG(" D EVALPL^PXRMDRUG(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="PSNDF(50.6," D EVALPL^PXRMDGEN(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="RAMIS(71," D EVALPL^PXRMRAD(.FINDPA,ENODE,.TERMARR,PLIST) Q

 . I ENODE="YTT(601.71," D EVALPL^PXRMMH(.FINDPA,ENODE,.TERMARR,PLIST) Q

 Q

 ;

PXRMTERL  ; SLC/PKR - Handle reminder terms for patient lists. ;04/02/2007

 +1       ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123

 +2       ;

 +3       ;=============================================

EVALPL(FINDPA,TERMARR,PLIST) ;Build a list of patients based on a

 +1       ;term. The list is returned in:

 +2       ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_DATE_U_VALUE

 +3       ;for findings with a start and stop date the list is

 +4       ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_START_U_STOP_U_VALUE

 +5        NEW ENODE

 +6        KILL ^TMP($JOB,PLIST)

 +7        SET ENODE=""

 +8        FOR 

               SET ENODE=$ORDER(TERMARR("E",ENODE))

               IF ENODE=""

                   QUIT 

               Begin DoDot:1

 +9                IF ENODE="AUTTEDT("

                       DO EVALPL^PXRMEDU(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +10               IF ENODE="AUTTEXAM("

                       DO EVALPL^PXRMEXAM(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +11               IF ENODE="AUTTHF("

                       DO EVALPL^PXRMHF(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +12               IF ENODE="AUTTIMM("

                       DO EVALPL^PXRMIMM(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +13               IF ENODE="AUTTSK("

                       DO EVALPL^PXRMSKIN(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +14               IF ENODE="GMRD(120.51,"

                       DO EVALPL^PXRMVITL(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +15               IF ENODE="LAB(60,"

                       DO EVALPL^PXRMLAB(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +16               IF ENODE="ORD(101.43,"

                       DO EVALPL^PXRMORDR(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +17               IF ENODE="PXRMD(810.9,"

                       DO EVALPL^PXRMLOCL(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +18               IF ENODE="PXD(811.2,"

                       DO EVALPL^PXRMTAX(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +19               IF ENODE="PXRMD(811.4,"

                       DO EVALPL^PXRMCF(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +20               IF ENODE="PS(50.605,"

                       DO EVALPL^PXRMDRCL(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +21               IF ENODE="PSDRUG("

                       DO EVALPL^PXRMDRUG(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +22               IF ENODE="PSNDF(50.6,"

                       DO EVALPL^PXRMDGEN(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +23               IF ENODE="RAMIS(71,"

                       DO EVALPL^PXRMRAD(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

 +24               IF ENODE="YTT(601.71,"

                       DO EVALPL^PXRMMH(.FINDPA,ENODE,.TERMARR,PLIST)

                       QUIT 

               End DoDot:1

 +25       QUIT 

 +26      ;