| 1 | GMRAMCB1 ;HIRMFO/WAA-MARK CHART & ID BAND FIELD EDIT PART 2 ;7/23/97 09:39
|
|---|
| 2 | ;;4.0;Adverse Reaction Tracking;**8**;Mar 29, 1996
|
|---|
| 3 | GETAL ; GET PATIENT AND ALLERGY
|
|---|
| 4 | S GMRANS="",DFN=-1,DIC="^DPT(",DIC(0)="AEQM",DIC("A")="Select Patient: " D ^DIC Q:+Y'>0 K DIC,DLAYGO S DFN=+Y
|
|---|
| 5 | L +^GMR(120.8,"B",DFN):0 I '$T W !,"THIS DATA IS CURRENTLY BEING EDITED, TRY LATER." G GETAL
|
|---|
| 6 | D DEM^VADPT S GMRANAM=VADM(1) D INP^VADPT S:'+VAIN(4) GMRALOC="" I +VAIN(4) S GMRAHLOC=+$G(^DIC(42,+VAIN(4),44)),GMRALOC=$P(VAIN(4),U,2)
|
|---|
| 7 | D PID^VADPT6 S GMRAVIP=VA("PID") D KVAR^VADPT K VA
|
|---|
| 8 | D HLP12085^GMRAU851(DFN,"'+$G(^GMR(120.8,+GMRAX,""ER""))") Q:GMRAOUT
|
|---|
| 9 | K GMRAX,GMRALL
|
|---|
| 10 | ALL1 W ! S GMRADEL=0
|
|---|
| 11 | K DIR S DIR(0)="FAO^1:60",DIR("A")="Select "_$S('$D(GMRALL):"CAUSATIVE AGENT: ",1:"another CAUSATIVE AGENT: ")
|
|---|
| 12 | S DIR("?",1)=" ENTER THE CAUSATIVE AGENT YOU WISH TO INDICATE HAS"
|
|---|
| 13 | S DIR("?",2)=" HAD ITS ID BAND OR CHART MARKED.",DIR("?")=" ENTER ?? TO SEE LIST OF ALL CAUSATIVE AGENT YOU HAVE SELECTED OR CAN SELECT.",DIR("??")="^D HELP^GMRAMCB"
|
|---|
| 14 | D ^DIR K DIR
|
|---|
| 15 | I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) K X,Y S GMRAOUT=1 Q
|
|---|
| 16 | Q:Y="" S X=Y K Y I $$UP^XLFSTR(X)="ALL" D ALLSEL Q:GMRAOUT G:'$D(X) ALL1
|
|---|
| 17 | I X["-" S GMRADEL=1,X=$P(X,"-",2)
|
|---|
| 18 | S GMRAX=X,X=$P($G(^DPT(DFN,0)),"^")
|
|---|
| 19 | K DIC S DIC="^GMR(120.8,",DIC(0)="EZQ",DIC("W")="W "" "",$P($G(^(0)),U,2)"
|
|---|
| 20 | S DIC("S")="I $P(^(0),U)=DFN,$P($$UP^XLFSTR($P(^(0),U,2)),$$UP^XLFSTR(GMRAX))="""",$P(^(0),U,2)'="""",'+$G(^GMR(120.8,+Y,""ER""))"
|
|---|
| 21 | D ^DIC K DIC I Y<1 G ALL1
|
|---|
| 22 | S GMRAPA=+Y,GMRAPA(0)=$S($D(^GMR(120.8,GMRAPA,0)):^(0),1:"")
|
|---|
| 23 | I GMRAPA(0)="" S GMRADEL=0 G ALL1
|
|---|
| 24 | I GMRADEL D G ALL1
|
|---|
| 25 | .I '$D(GMRALL(GMRAPA)) W !," YOU HAVE NOT SELECTED THAT CAUSATIVE AGENT." S GMRADEL=0 Q
|
|---|
| 26 | .K GMRALL(GMRAPA) S GMRADEL=0
|
|---|
| 27 | .Q
|
|---|
| 28 | I $D(GMRALL(GMRAPA)) W !," YOU HAVE ALREADY SELECTED THAT CAUSATIVE AGENT",$C(7) G ALL1
|
|---|
| 29 | S GMRALL(GMRAPA)="" G ALL1
|
|---|
| 30 | ALLSEL ;THIS WILL ALLOW THE USER TO SELECT ALL ALLERGY
|
|---|
| 31 | S GMRATMP=X F S %=1 W !,"Do you want to select all the patient's CAUSATIVE AGENTS" D YN^DICN S:%<0 %=2,GMRAOUT=1 Q:% W !?4,"ENTER YES OR NO IF YOU WANT ALL THE PATIENT'S CAUSATIVE AGENTS"
|
|---|
| 32 | S X=GMRATMP K GMRATMP Q:%'=1 S X=0 F S X=$O(^GMR(120.8,"B",DFN,X)) Q:X<1 D
|
|---|
| 33 | .Q:$D(^GMR(120.8,X,"ER")) Q:$P(^GMR(120.8,X,0),U,2)=""
|
|---|
| 34 | .S GMRALL(X)="" Q
|
|---|
| 35 | K X
|
|---|
| 36 | Q
|
|---|
| 37 | SCREEN W !,"Press <CR> to continue or ^ to stop: " R GMRANS:DTIME S:'$T GMRANS="^^" I "^^"'[GMRANS W !?4,$C(7),"ENTER <CR> TO CONTINUE LISTING OR ^ TO EXIT LISTING" G SCREEN
|
|---|
| 38 | D FF Q
|
|---|
| 39 | FF ;
|
|---|
| 40 | W #
|
|---|
| 41 | Q
|
|---|
