1 | GMRAFUT0 ;HIRMFO/YMP,RFM,WAA-ALLERGY/ADVERSE REACTION FILE UTILITIES ;3/14/05 12:21
|
---|
2 | ;;4.0;Adverse Reaction Tracking;**23**;Mar 29, 1996
|
---|
3 | EN1 ; Entry for GMRA LOCAL ALLERGIES EDIT option
|
---|
4 | D PROCESS Q ;23
|
---|
5 | K DR,DIC,DLAYGO,X,Y,DA,GMRAIEN
|
---|
6 | W ! S DLAYGO=120.82,DIC="^GMRD(120.82,",DIC("A")="Select a LOCAL ALLERGY/ADVERSE REACTION: ",DIC(0)="AEQML",DIC("DR")="1" D ^DIC K DIC,DLAYGO G:+Y'>0 EXIT S (DA,GMRAIEN)=+Y
|
---|
7 | L +^GMRD(120.82,GMRAIEN):1 I '$T W !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) D EXIT Q
|
---|
8 | N GMRALN,DIE,GMRACT
|
---|
9 | S GMRALN=$G(^GMRD(120.82,GMRAIEN,0))
|
---|
10 | S DIE="^GMRD(120.82,",DR="",GMRACT=1
|
---|
11 | I +$P(GMRALN,U,3) S DR(1,120.82,1)="@1;W !!,$C(7),""CANNOT EDIT NAME FIELD OF A NATIONAL ALLERGY."",!;3;"
|
---|
12 | E D
|
---|
13 | . S DR(1,120.82,1)=".01;3;"
|
---|
14 | . S DR(1,120.82,2)="S (GMRAY,GMRAX)=$P(GMRALN,U,2) D EDTTYPE^GMRAUTL(.GMRAX);"
|
---|
15 | . S DR(1,120.82,3)="S:GMRAX=GMRAY!(""^^""[GMRAX) X=GMRAX,Y=$S(""^^""[GMRAX:""@3"",1:""@4"");1///^S X=GMRAX;@4;4;5;@3;"
|
---|
16 | . Q
|
---|
17 | D ^DIE K DIE,DA,DR,DLAYGO,GMRAX,GMRAY
|
---|
18 | L -^GMRD(120.82,GMRAIEN)
|
---|
19 | G:'$D(Y) EN1
|
---|
20 | D EXIT Q
|
---|
21 | EN2 ; Entry for GMRA LOCAL REACTIONS EDIT option
|
---|
22 | D PROCESS Q ;23
|
---|
23 | W ! S DLAYGO=120.83,DIC="^GMRD(120.83,",DIC("A")="Select a LOCAL SIGN/SYMPTOM: ",DIC(0)="AEQML",DIC("DR")="" D ^DIC K DIC,DLAYGO G:+Y'>0 EXIT S (DA,GMRAY)=+Y
|
---|
24 | L +^GMRD(120.83,GMRAY):1 I '$T W !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) D EXIT Q
|
---|
25 | S DIE="^GMRD(120.83,",DR="S Y=""@""_+$P($G(^GMRD(120.83,DA,0)),U,2);@0;.01;S Y=""@2"";@1;W !,""NAME: ""_$P($G(^GMRD(120.83,DA,0)),U)_"" (no editing)"";@2;2" D ^DIE K DA,DIE,DR
|
---|
26 | L -^GMRD(120.83,GMRAY)
|
---|
27 | G:'$D(Y) EN2
|
---|
28 | D EXIT Q
|
---|
29 | EN3 ; Entry for GMRA SITE FILE EDIT option
|
---|
30 | S DLAYGO=120.84,DIC="^GMRD(120.84,",DIC(0)="AEQL" D ^DIC K DIC,DLAYGO G:+Y'>0 EXIT S GMRASITE=+Y
|
---|
31 | L +^GMRD(120.84,GMRASITE):1 I '$T W !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7) D EXIT Q
|
---|
32 | I $P(Y,"^",2)="HOSPITAL" W !,"NAME: HOSPITAL// (No editing)"
|
---|
33 | E S DA=GMRASITE,DIE="^GMRD(120.84,",DR=".01" D ^DIE I $D(Y) L -^GMRD(120.84,GMRASITE) G EXIT
|
---|
34 | I '$D(^GMRD(120.84,GMRASITE,0)) L -^GMRD(120.84,GMRASITE) G EN3
|
---|
35 | S DA=GMRASITE,DIE="^GMRD(120.84,",DR=6 D ^DIE I $D(Y) L -^GMRD(120.84,GMRASITE) G EXIT
|
---|
36 | RE10 S (GMRACTR,GMRARECN,GMRABRK,GMRAMID)=0,GMRALLER=""
|
---|
37 | W !!,"The following are the ten most common signs/symptoms:"
|
---|
38 | F GMRAX=1:1:5 D PRT10
|
---|
39 | RRD W !,"Enter the number of the sign/symptom that you would like to edit: "
|
---|
40 | R GMRANS:DTIME S:'$T GMRANS="^^" I "^^"[GMRANS L:(GMRANS["^") -^GMRD(120.84,GMRASITE) G EXIT:(GMRANS["^"),EDCON
|
---|
41 | I GMRANS'=+GMRANS!(GMRANS<1)!(GMRANS>10)!(GMRANS\1'=GMRANS) W !?4,$C(7),"ENTER THE CORRECT NUMBER (1-10) OF THE SIGN/SYMPTOM TO BE EDITED" G RRD
|
---|
42 | S:'$D(^GMRD(120.84,GMRASITE,1,0)) ^(0)="^120.841P^^" S (GMRAX,GMRAY)=$G(^GMRD(120.84,GMRASITE,1,0)) I '$D(^GMRD(120.84,GMRASITE,1,+GMRANS,0)) S ^(0)="",$P(GMRAY,"^",3,4)=+GMRANS_"^"_($P(GMRAY,"^",4)+1)
|
---|
43 | S DIE="^GMRD(120.84,DA(1),1,",DA(1)=GMRASITE,DA=+GMRANS,DR=".01" D ^DIE
|
---|
44 | I $G(^GMRD(120.84,GMRASITE,1,+GMRANS,0))="" K ^(0) S GMRAY=GMRAX
|
---|
45 | I GMRAY'=GMRAX S ^GMRD(120.84,GMRASITE,1,0)=GMRAY
|
---|
46 | G RE10:'$D(Y) L -^GMRD(120.84,GMRASITE) G EXIT
|
---|
47 | EDCON S DIE="^GMRD(120.84,",DA=GMRASITE,DR="2;3;3.5;4;7;7.1;7.2;7.3SEND CHART MARK BULLETIN FOR NEW ADMISSIONS;10;10.1ENABLE COMMENTS FIELD FOR REACTIONS THAT ARE ENTERED IN ERROR" D ^DIE
|
---|
48 | I $D(Y) L -^GMRD(120.84,GMRASITE) G EXIT
|
---|
49 | S X=$G(^GMRD(120.84,GMRASITE,"RPT"))
|
---|
50 | W !!,"REPORTER NAME: ",$P(X,U),!?6,"ADDRESS: ",$P(X,U,2) W:$L($P(X,U,3)) !?15,$P(X,U,3) W:$L($P(X,U,4)) !?15,$P(X,U,4) W !?9,"CITY: ",$P(X,U,5),!?8,"STATE: ",$P($G(^DIC(5,+$P(X,U,6),0)),U),!?10,"ZIP: ",$P(X,U,7),!?8,"PHONE: ",$P(X,U,8)
|
---|
51 | W !,?3,"OCCUPATION: ",$P(X,U,11)
|
---|
52 | F S %=2 W !,"Do you want to edit Reporter Information shown above" D YN^DICN S:%=-1 %=2 Q:% W !?3,"ENTER YES TO CHANGE/ADD THE SITE'S DEFAULT REPORTER INFORMATION",!?3,"THAT WILL APPEAR ON THE FDA ADR REPORTS, ELSE ANSWER NO."
|
---|
53 | I %'=1 L -^GMRD(120.84,GMRASITE) G EXIT
|
---|
54 | S DIE="^GMRD(120.84,",DA=GMRASITE,DR="11:19" D ^DIE
|
---|
55 | L -^GMRD(120.84,GMRASITE)
|
---|
56 | EXIT ;
|
---|
57 | D KILL^XUSCLEAN
|
---|
58 | Q
|
---|
59 | PRT10 ;
|
---|
60 | S GMRAY=$S($D(^GMRD(120.84,GMRASITE,1,GMRAX,0)):+^(0),1:0),GMRAZ=$S($D(^GMRD(120.84,GMRASITE,1,GMRAX+5,0)):+^(0),1:0)
|
---|
61 | W !,$J(GMRAX,2),".",?4,$S($D(^GMRD(120.83,GMRAY,0)):$P(^(0),"^"),1:""),?35,$J(GMRAX+5,2),".",?39,$S($D(^GMRD(120.83,GMRAZ,0)):$P(^(0),"^"),1:"")
|
---|
62 | Q
|
---|
63 | EN4 ; ENTRY FROM INPUT TRANSFORM FOR FIELDS .01 AND 22 OF FILE
|
---|
64 | ; 120.85, WHERE GMRA=FIELD NUMBER, X IS DATA TO BE TRANSFORMED.
|
---|
65 | S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y I Y<1 W !?5,"DATE MUST BE IN THE PAST, AND TIME IS NOT A REQUIRED RESPONSE." G K4
|
---|
66 | S GMRA(0)=$G(^GMR(120.85,+$G(DA),0)),GMRA("HELP")="DATE MUST BE "_$P("GREATER THAN DATE/TIME OBSERVED^LESS THAN DATE/TIME MD NOTIFIED","^",GMRA=.01+1),%DT(0)=+($E("-",GMRA=.01)_$P(GMRA(0),U,$E(12,1,GMRA=.01+1)))
|
---|
67 | G:%DT(0)=0 Q4 S %DT="TX" D ^%DT S X=Y W:Y<1 !?5,GMRA("HELP") G:Y>0 Q4
|
---|
68 | K4 K X
|
---|
69 | Q4 K %DT,GMRA
|
---|
70 | Q
|
---|
71 | ;PROCESS section added with patch 23
|
---|
72 | PROCESS ;Additions to 120.82 and 120.83 are no longer allowed
|
---|
73 | I $L($T(NTRTMSG^HDISVAP)) D NTRTMSG^HDISVAP() Q
|
---|
74 | W !!,"The addition of local reactants and sign/symptoms are no longer"
|
---|
75 | W !,"allowed. Requests for new terms/concepts should be made through"
|
---|
76 | W !,"the New Term Rapid Turn-around (NTRT) process.",!
|
---|
77 | Q
|
---|