source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMDGEN.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.1 KB
Line 
1PXRMDGEN ; SLC/PKR - Handle VA GENERIC drug findings. ;06/08/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;=====================================================
5EVALFI(DFN,DEFARR,ENODE,FIEVAL) ;Evaluate VA GENERIC (file #50.6)
6 ;findings.
7 D EVALFI^PXRMDRGR(DFN,.DEFARR,ENODE,"AND",.FIEVAL)
8 Q
9 ;
10 ;=====================================================
11EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) ;Evaluate VA GENERIC
12 ;(file #50.6) terms.
13 D EVALTERM^PXRMDRGR(DFN,.FINDPA,ENODE,"AND",.TERMARR,.TFIEVAL)
14 Q
15 ;
16 ;=====================================================
17EVALPL(FINDPA,ENODE,TERMARR,PLIST) ;Evaluate VA GENERIC terms for
18 ;building patient lists.
19 D EVALPL^PXRMDRGR(.FINDPA,ENODE,"AND",.TERMARR,.PLIST)
20 Q
21 ;
22 ;=====================================================
23MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) ;Produce the MHV output.
24 N FTYPE,IND,NAME,PFIEVAL,TEMP,VAGEN,VAGIEN
25 S VAGIEN=$P(IFIEVAL("FINDING"),";",1)
26 ;DBIA #2531
27 S VAGEN=$$VAGN^PSNAPIS(VAGIEN)
28 S NLINES=NLINES+1,TEXT(NLINES)="VA Generic: "_VAGEN
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 IND,PFIEVAL,TEMP,VAGEN,VAGIEN
44 S VAGIEN=$P(IFIEVAL("FINDING"),";",1)
45 ;DBIA #2531
46 S VAGEN=$$VAGN^PSNAPIS(VAGIEN)
47 S NLINES=NLINES+1
48 S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"VA Generic: "_VAGEN
49 S IND=0
50 F S IND=+$O(IFIEVAL(IND)) Q:IND=0 D
51 . S TEMP=IFIEVAL(IND,"FINDING")
52 . S FTYPE=$P(TEMP,";",2)
53 . K PFIEVAL M PFIEVAL=IFIEVAL(IND)
54 . I FTYPE="PS(55," D OUTPUT^PXRMDIN(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
55 . I FTYPE="PS(55NVA," D OUTPUT^PXRMDNVA(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
56 . I FTYPE="PSRX(" D OUTPUT^PXRMDOUT(INDENT+1,.PFIEVAL,.NLINES,.TEXT) Q
57 Q
58 ;
Note: See TracBrowser for help on using the repository browser.