Changeset 623 for WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEVFI.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMEVFI.m
r613 r623 1 PXRMEVFI ; SLC/PKR - Driver for finding evaluation. ;04/02/20072 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123 3 4 5 EVAL(DFN,DEFARR,FIEVAL) 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 . I ENODE="YTT(601.71," D EVALFI^PXRMMH(DFN,.DEFARR,ENODE,.FIEVAL) Q27 28 29 30 31 32 EVALPL(DEFARR,FINUM,PLIST) 33 34 35 36 37 38 39 40 D EVALPL^PXRMTERL(.FINDPA,.TERMARR,PLIST)41 42 1 PXRMEVFI ; SLC/PKR - Driver for finding evaluation. ;12/01/2004 2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005 3 ; 4 ;===================================================== 5 EVAL(DFN,DEFARR,FIEVAL) ;Evaluate the findings by group using the "E" 6 ;index. 7 N ENODE 8 S ENODE="" 9 F S ENODE=$O(DEFARR("E",ENODE)) Q:ENODE="" D 10 . I ENODE="AUTTEDT(" D EVALFI^PXRMEDU(DFN,.DEFARR,ENODE,.FIEVAL) Q 11 . I ENODE="AUTTEXAM(" D EVALFI^PXRMEXAM(DFN,.DEFARR,ENODE,.FIEVAL) Q 12 . I ENODE="AUTTHF(" D EVALFI^PXRMHF(DFN,.DEFARR,ENODE,.FIEVAL) Q 13 . I ENODE="AUTTIMM(" D EVALFI^PXRMIMM(DFN,.DEFARR,ENODE,.FIEVAL) Q 14 . I ENODE="AUTTSK(" D EVALFI^PXRMSKIN(DFN,.DEFARR,ENODE,.FIEVAL) Q 15 . I ENODE="GMRD(120.51," D EVALFI^PXRMVITL(DFN,.DEFARR,ENODE,.FIEVAL) Q 16 . I ENODE="LAB(60," D EVALFI^PXRMLAB(DFN,.DEFARR,ENODE,.FIEVAL) Q 17 . I ENODE="ORD(101.43," D EVALFI^PXRMORDR(DFN,.DEFARR,ENODE,.FIEVAL) Q 18 . I ENODE="PXD(811.2," D EVALFI^PXRMTAX(DFN,.DEFARR,ENODE,.FIEVAL) Q 19 . I ENODE="PXRMD(810.9," D EVALFI^PXRMLOCF(DFN,.DEFARR,ENODE,.FIEVAL) Q 20 . I ENODE="PXRMD(811.4," D EVALFI^PXRMCF(DFN,.DEFARR,ENODE,.FIEVAL) Q 21 . I ENODE="PXRMD(811.5," D EVALFI^PXRMTERM(DFN,.DEFARR,ENODE,.FIEVAL) Q 22 . I ENODE="PS(50.605," D EVALFI^PXRMDRCL(DFN,.DEFARR,ENODE,.FIEVAL) Q 23 . I ENODE="PSDRUG(" D EVALFI^PXRMDRUG(DFN,.DEFARR,ENODE,.FIEVAL) Q 24 . I ENODE="PSNDF(50.6," D EVALFI^PXRMDGEN(DFN,.DEFARR,ENODE,.FIEVAL) Q 25 . I ENODE="RAMIS(71," D EVALFI^PXRMRAD(DFN,.DEFARR,ENODE,.FIEVAL) Q 26 . I ENODE="YTT(601," D EVALFI^PXRMMH(DFN,.DEFARR,ENODE,.FIEVAL) Q 27 ;Evaluate function findings. 28 D EVAL^PXRMFF(DFN,.DEFARR,.FIEVAL) 29 Q 30 ; 31 ;===================================================== 32 EVALPL(DEFARR,FINUM,PLIST) ;Create a patient list for a regular 33 ;finding. 34 N FINDPA,TERMARR 35 S FINDPA(0)=DEFARR(20,FINUM,0) 36 S FINDPA(3)=DEFARR(20,FINUM,3) 37 S FINDPA(10)=DEFARR(20,FINUM,10) 38 S FINDPA(11)=DEFARR(20,FINUM,11) 39 D GENTERM^PXRMPLST(FINDPA(0),FINUM,.TERMARR) 40 D EVALPL^PXRMTERM(.FINDPA,.TERMARR,PLIST) 41 Q 42 ;
Note:
See TracChangeset
for help on using the changeset viewer.