source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMDRCL.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1PXRMDRCL ; SLC/PKR - Handle VA DRUG CLASS findings. ;08/04/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;====================================================
5EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate drug class (file #50.605) findings.
6 D EVALFI^PXRMDRGR(DFN,.DEFARR,ENODE,"VAC",.FIEVAL)
7 Q
8 ;
9 ;====================================================
10EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate drug class
11 ;(file #50.605) terms.
12 D EVALTERM^PXRMDRGR(DFN,.FINDPA,ENODE,"VAC",.TERMARR,.TFIEVAL)
13 Q
14 ;
15 ;====================================================
16EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate VA Drug Class terms
17 ;for building patient lists.
18 D EVALPL^PXRMDRGR(.FINDPA,ENODE,"VAC",.TERMARR,.PLIST)
19 Q
20 ;
21 ;====================================================
22MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
23 N CLASSIEN,DRUGCLAS,FTYPE,IND,PFIEVAL,PNAME
24 S CLASSIEN=$P(IFIEVAL("FINDING"),";",1)
25 ;DBIA #2531
26 S DRUGCLAS=$$CLASS2^PSNAPIS(CLASSIEN)
27 S PNAME=$P(DRUGCLAS,U,1)_"-"_$P(DRUGCLAS,U,2)
28 S NLINES=NLINES+1,TEXT(NLINES)="Drug Class: "_PNAME
29 S IND=0
30 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
31 . S TEMP=IFIEVAL(IND,"FINDING")
32 . S FTYPE=$P(TEMP,";",2)
33 . K PFIEVAL M PFIEVAL=IFIEVAL(IND)
34 . I FTYPE="PS(55," D MHVOUT^PXRMDIN(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
35 . I FTYPE="PS(55NVA," D MHVOUT^PXRMDNVA(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
36 . I FTYPE="PSRX(" D MHVOUT^PXRMDOUT(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
37 S NLINES=NLINES+1,TEXT(NLINES)=""
38 Q
39 ;
40 ;====================================================
41OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the clinical
42 ;maintenance output.
43 N CLASSIEN,DRUGCLAS,FTYPE,IND,PFIEVAL,TEMP
44 S CLASSIEN=$P(IFIEVAL("FINDING"),";",1)
45 ;DBIA #2531
46 S DRUGCLAS=$$CLASS2^PSNAPIS(CLASSIEN)
47 S TEMP=$P(DRUGCLAS,U,1)_"-"_$P(DRUGCLAS,U,2)
48 S NLINES=NLINES+1
49 S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Drug Class: "_TEMP
50 S IND=0
51 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
52 . S TEMP=IFIEVAL(IND,"FINDING")
53 . S FTYPE=$P(TEMP,";",2)
54 . K PFIEVAL M PFIEVAL=IFIEVAL(IND)
55 . I FTYPE="PS(55," D OUTPUT^PXRMDIN(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
56 . I FTYPE="PS(55NVA," D OUTPUT^PXRMDNVA(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
57 . I FTYPE="PSRX(" D OUTPUT^PXRMDOUT(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
58 Q
59 ;
Note: See TracBrowser for help on using the repository browser.