Code |
D EN2^GMRAOR2(ALLR,"GMRACT") N CR,OX,OH S CR=$CHAR(13),I=1 S ORAY(I)=" Causative agent: "_$P(GMRACT,U),I=I+1 S ORAY(I)=" Nature of Reaction: "_$S($P(GMRACT,U,6)="ALLERGY":"Allergy",$P(GMRACT,U,6)="PHARMACOLOGIC":"Adverse Reaction",$P(GMRACT,U,6)="UNKNOWN":"Unknown",1:""),I=I+1 ;216 S ORAY(I)=" ",I=I+1 I $D(GMRACT("S",1)) D SYMP I $D(GMRACT("V",1)) D CLAS S ORAY(I)=" Originator: "_$P(GMRACT,U,2)_$S($L($P(GMRACT,U,3)):" ("_$P(GMRACT,U,3)_")",1:""),I=I+1 ;216 S ORAY(I)=" Originated: "_$P(GMRACT,U,10),I=I+1 ;216 I $D(GMRACT("O",1)) D OBS S ORAY(I)=" Verified: "_$S($P(GMRACT,U,4)="VERIFIED":$P(GMRACT,U,8),1:"No"),I=I+1 ;216 S ORAY(I)="Observed/Historical: "_$S($P(GMRACT,U,5)="OBSERVED":"Observed",$P(GMRACT,U,5)="HISTORICAL":"Historical",1:""),I=I+1 I $D(GMRACT("C",1)) D COM K GMRACT
|