1 | GMRADSP3 ;HIRMFO/YMP,RM,WAA-PRINT PATIENT A/AR ; 8/16/92
|
---|
2 | ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
---|
3 | EN1 ;
|
---|
4 | S:'$D(GMRAOTH) GMRAOTH=$O(^GMRD(120.83,"B","OTHER REACTION",0))
|
---|
5 | S GMRASP(1)="",GMRASP(2)="" D WRITE Q:GMRAOUT
|
---|
6 | S GMRAREA=0,GMRAFT=1
|
---|
7 | I $G(GMRAVFY,0) S GMRAHDR(1)=" SIGNS/SYMPTOMS: ",GMRASP(1)=0
|
---|
8 | E S GMRAHDR(1)="SIGNS/SYMPTOMS: ",GMRASP(1)=0
|
---|
9 | F S GMRAREA=$O(^GMR(120.8,GMRAPA,10,GMRAREA)) Q:GMRAREA<1 D Q:GMRAOUT
|
---|
10 | .N GMRAX,GMRAZ
|
---|
11 | .S GMRAX=$G(^GMR(120.8,GMRAPA,10,GMRAREA,0))
|
---|
12 | .Q:GMRAX=""
|
---|
13 | .I +GMRAX'=GMRAOTH S GMRALIN(1)=$E($S($D(^GMRD(120.83,+GMRAX,0)):$P(^(0),U),1:""),1,23)
|
---|
14 | .E S GMRALIN(1)=$P(GMRAX,U,2)
|
---|
15 | .S GMRAZ=$S($P(GMRAX,U,4)'="":$$FMTE^XLFDT($P(GMRAX,U,4),1),1:"")
|
---|
16 | .S:GMRAZ'="" GMRALIN(1)=GMRALIN(1)_" ("_GMRAZ_")"
|
---|
17 | .I $G(GMRAVFY,0),GMRAHDR(1)="" S GMRALIN(1)=" "_GMRALIN(1)
|
---|
18 | .D WRITE S GMRASP(1)=16,GMRAHDR(1)=""
|
---|
19 | .Q
|
---|
20 | Q:$G(GMRAVFY,0) ; Indicates this routine was run from verify part ART
|
---|
21 | ENDING ;
|
---|
22 | S (GMRASP(1),GMRASP(2))="" D WRITE Q:GMRAOUT
|
---|
23 | G:$P(GMRAPA(0),U,14)="" SEVERE
|
---|
24 | S GMRASP(1)=5,GMRAHDR(1)="MECHANISM: ",GMRALIN(1)=$S($P(GMRAPA(0),U,14)="A":"ALLERGY",$P(GMRAPA(0),U,14)="P":"PHARMACOLOGIC",$P(GMRAPA(0),U,14)="U":"UNKNOWN",1:"")
|
---|
25 | D WRITE Q:GMRAOUT
|
---|
26 | SEVERE ;
|
---|
27 | I $P(GMRAPA(0),U,16)'=1 G ERROR
|
---|
28 | S (GMRASP(1),GMRASP(2))="" D WRITE Q:GMRAOUT
|
---|
29 | S GMRASP(1)=6,GMRAHDR(1)="VERIFIER: "
|
---|
30 | S GMRALIN(1)=$S($P(GMRAPA(0),U,18)="":"",$D(^VA(200,+$P(GMRAPA(0),U,18),0)):$P(^(0),U),1:"") I GMRALIN(1)="",$P(GMRAPA(0),U,16)=1 S GMRALIN(1)="AUTOVERIFIED"
|
---|
31 | S GMRASP(2)=48,GMRAHDR(2)="VERIFIED: ",Y=$P(GMRAPA(0),U,17) D:Y D^DIQ S GMRALIN(2)=Y
|
---|
32 | D WRITE G:GMRAOUT EXIT
|
---|
33 | I ($Y+4)>IOSL D EOP G:GMRAOUT EXIT
|
---|
34 | D DISP1^GMRAPEM1(GMRAPA,"V",.GMRAOUT) G:GMRAOUT EXIT
|
---|
35 | ERROR ;
|
---|
36 | G:'GMRAERR EXIT
|
---|
37 | S (GMRASP(1),GMRASP(2))="" D WRITE Q:GMRAOUT
|
---|
38 | S GMRASP(1)=1,GMRAHDR(1)="USER ENTERING",GMRALIN(1)="",GMRASP(2)=45,GMRAHDR(2)="D/T ENTERED",GMRALIN(2)="" D WRITE Q:GMRAOUT
|
---|
39 | S GMRASP(1)=6,GMRAHDR(1)="IN ERROR: ",GMRANAME=$S($D(^GMR(120.8,GMRAPA,"ER")):$P(^("ER"),U,3),1:"")
|
---|
40 | S GMRALIN(1)=$S(GMRANAME="":"",$D(^VA(200,+GMRANAME,0)):$P(^(0),U),1:"")
|
---|
41 | S GMRASP(2)=48,GMRAHDR(2)="IN ERROR: ",Y=$S($D(^GMR(120.8,GMRAPA,"ER")):$P(^("ER"),U,2),1:"") D:Y D^DIQ S GMRALIN(2)=Y D WRITE Q:GMRAOUT
|
---|
42 | I ($Y+4)>IOSL D EOP G:GMRAOUT EXIT
|
---|
43 | D DISP1^GMRAPEM1(GMRAPA,"E",.GMRAOUT) G:GMRAOUT EXIT
|
---|
44 | EXIT ;
|
---|
45 | I $G(GMRAPRNT) S (GMRASP(1),GMRASP(2))="" D WRITE Q:GMRAOUT
|
---|
46 | I $G(GMRAPRNT),$O(GMRARRAY(GMRAAL))'=""!($O(GMRARRAY(GMRAAL,GMRAPA))'="") S GMRASP(1)=3,GMRAHDR(1)="",GMRALIN(1)="",$P(GMRALIN(1),"-",21)="",GMRASP(2)="" D WRITE Q:GMRAOUT
|
---|
47 | Q
|
---|
48 | WRITE ; WRITE THE NEXT LINE OF THE REPORT
|
---|
49 | S GMRAFT=0 W:GMRASP(1)'=""!GMRASP(2)'="" ! F X=1:1:2 W:GMRASP(X)'="" ?GMRASP(X),GMRAHDR(X),GMRALIN(X)
|
---|
50 | Q:$Y+3'>IOSL
|
---|
51 | EOP ; END OF PAGE
|
---|
52 | D ENDPG Q:GMRAOUT
|
---|
53 | HDR ; PRINT HEADER FOR REPORT
|
---|
54 | I $E(IOST)="C" W @IOF
|
---|
55 | E W:GMRAPG @IOF
|
---|
56 | I $G(GMRAPG)'="" S GMRAPG=GMRAPG+1
|
---|
57 | S GMRAFT=1
|
---|
58 | F X=0:0 S X=$O(GMRAHEAD(X)) Q:X'>0 W !,GMRAHEAD(X)
|
---|
59 | I $D(ZTQUEUED) S:$$STPCK^GMRAUTL1 GMRAOUT=1 ; Check if stopped by user
|
---|
60 | Q
|
---|
61 | ENDPG ;HANDLE EOP
|
---|
62 | I $E(IOST)="C" D Q:GMRAOUT
|
---|
63 | .K DIR S DIR(0)="E" D ^DIR K DIR
|
---|
64 | .S:'+Y GMRAOUT=1
|
---|
65 | .Q
|
---|
66 | I $D(ZTQUEUED) S:$$STPCK^GMRAUTL1 GMRAOUT=1 ; Check if stopped by user
|
---|
67 | Q
|
---|