source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPAT.m@ 699

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

initial load of WorldVistAEHR

File size: 1009 bytes
Line 
1GMRAPAT ;HIRMFO/WAA-Select a patient for ART System ;10/8/96 15:19
2 ;;4.0;Adverse Reaction Tracking;**5**;Mar 29, 1996
3PAT ;Select a patient from the patient file
4 ; Return list:
5 ; DFN = If DFN is null patient DFN from the patient file
6 ;
7 S GMRAOUT=0
8 W ! S DIC="^DPT(",DIC(0)="AEQM" D ^DIC
9 I +Y'>0 S GMRAOUT=1 Q
10 S DFN=+Y,GMRADOD=$P($G(^DPT(DFN,.35)),U)
11 ;check if patient is deceased
12 I GMRADOD]"" D
13 .W !!?5,$C(7),"NOTE: This patient is deceased (",$$FMTE^XLFDT(GMRADOD),").",!!
14 .D HANGT^GMRAPEH0
15 .Q
16 K GMRADOD
17 Q
18REACT(DFN) ;Select a patient reaction
19 ;
20 Q:'$D(DFN)
21 N GMRAL
22 S GMRAOUT=0,GMRAL=""
23 D LIST(DFN,.GMRAL)
24 I GMRAL D EN1^GMRADSP0(.GMRAL) Q:GMRAOUT
25 E W !?10,"This patient has no allergy/adverse reaction data."
26 Q
27LIST(DFN,GMRA) ;Get all the reaction for a patient
28 N GMRAPA
29 S (GMRAPA,GMRA)=0
30 F S GMRAPA=$O(^GMR(120.8,"B",DFN,GMRAPA)) Q:GMRAPA<1 D
31 .Q:$G(^GMR(120.8,GMRAPA,0))=""
32 .Q:+$G(^GMR(120.8,GMRAPA,"ER"))
33 .D PASS^GMRADPT(GMRAPA,.GMRA)
34 .I 'GMRA S GMRA=1
35 .Q
36 Q
Note: See TracBrowser for help on using the repository browser.