- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMTERL 1760 printed Feb 18, 2025@23:15:47 Page 2
- 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 ;