| 1 | PXRMTERL ; SLC/PKR - Handle reminder terms for patient lists. ;04/02/2007
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
|---|
| 3 | ;
|
|---|
| 4 | ;=============================================
|
|---|
| 5 | EVALPL(FINDPA,TERMARR,PLIST) ;Build a list of patients based on a
|
|---|
| 6 | ;term. The list is returned in:
|
|---|
| 7 | ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_DATE_U_VALUE
|
|---|
| 8 | ;for findings with a start and stop date the list is
|
|---|
| 9 | ;^TMP($J,PLIST,T/F,DFN,ITEM,NFOUND,FILENUM)=DAS_U_START_U_STOP_U_VALUE
|
|---|
| 10 | N ENODE
|
|---|
| 11 | K ^TMP($J,PLIST)
|
|---|
| 12 | S ENODE=""
|
|---|
| 13 | F S ENODE=$O(TERMARR("E",ENODE)) Q:ENODE="" D
|
|---|
| 14 | . I ENODE="AUTTEDT(" D EVALPL^PXRMEDU(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 15 | . I ENODE="AUTTEXAM(" D EVALPL^PXRMEXAM(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 16 | . I ENODE="AUTTHF(" D EVALPL^PXRMHF(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 17 | . I ENODE="AUTTIMM(" D EVALPL^PXRMIMM(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 18 | . I ENODE="AUTTSK(" D EVALPL^PXRMSKIN(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 19 | . I ENODE="GMRD(120.51," D EVALPL^PXRMVITL(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 20 | . I ENODE="LAB(60," D EVALPL^PXRMLAB(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 21 | . I ENODE="ORD(101.43," D EVALPL^PXRMORDR(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 22 | . I ENODE="PXRMD(810.9," D EVALPL^PXRMLOCL(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 23 | . I ENODE="PXD(811.2," D EVALPL^PXRMTAX(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 24 | . I ENODE="PXRMD(811.4," D EVALPL^PXRMCF(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 25 | . I ENODE="PS(50.605," D EVALPL^PXRMDRCL(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 26 | . I ENODE="PSDRUG(" D EVALPL^PXRMDRUG(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 27 | . I ENODE="PSNDF(50.6," D EVALPL^PXRMDGEN(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 28 | . I ENODE="RAMIS(71," D EVALPL^PXRMRAD(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 29 | . I ENODE="YTT(601.71," D EVALPL^PXRMMH(.FINDPA,ENODE,.TERMARR,PLIST) Q
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
