Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSODGAL3

PSODGAL3.m

Go to the documentation of this file.
  1. PSODGAL3 ; BIR/LC,SAB,CMF - enhanced DRUG ALLERGY REACTION CHECKING continued ;12/09/07 02:22
  1. ;;7.0;OUTPATIENT PHARMACY;**411,458**;DEC 1997;Build 2
  1. ;External reference to ^XTMP("ORRDI" supported by DBIA 4659
  1. ;
  1. SORTN ;
  1. N STYP,INGLOC,ZALL,ZLOC,ZCDATE,PSOSYM,PSOCDATE,PSOCA2,INGREDS,PSOREACT,PSOSDATA,SEVT,PSOAFLG,INGRED,PSOACNT,PSOAFEND
  1. N INGREDS,INGREDZ,ZXX,PSOSSITE,PSOSARRY,SETTMP,PSOLOC,ZCNT,ZING,ZMSG,PSOATYPE,PSODGCLS,PSODGCL,PSODGCL1 K ZGMRA
  1. S ZCNT=0
  1. ;
  1. I $G(PSOTSTMD) D TSTREM
  1. ;
  1. K PSOSORT,PSOSEV,PSOSEVP,PSOSTYP,PSOCAGNT,PSOCA
  1. S (ZALL,ZING,ZMSG,PSOSYMS)=""
  1. ;DRUG INGREDIENTS
  1. F S ZMSG=$O(GMRARSLT(ZMSG)) Q:ZMSG="" D
  1. .S ZALL=$$GMSGPTR^PSODGAL1(ZMSG)
  1. .Q:ZALL=""
  1. .S PSODRCL=0
  1. .S PSOATYPE=2
  1. .S:$D(GMRARSLT(ZMSG,"MESSAGE","OFFENDERS","CLS")) PSODRCL=1,PSOATYPE=1
  1. .D SORTM
  1. .Q
  1. D TMP
  1. Q
  1. ;
  1. SORTM ;
  1. N SITEARY,PSOONEA,ZSITES,ZSITE,ZYALL
  1. S (PSOSEV,PSOSEVT,PSOSTYP,PSOLOC,PSOSYM,INGREDS,PSOREACT,INGLOC,PSOSDATA,PSOSSITE,PSOSITT)=""
  1. S PSOSSITE=$P(GMRARSLT(ZMSG,ZALL),U)
  1. S PSOLOC=PSOSSITE_"|"_$P(GMRARSLT(ZMSG,ZALL),U)
  1. S PSOSEV=$$GETSEV(PSOSSITE,ZMSG,.GMRARSLT)
  1. S PSOSEVT=$S(PSOSEV="SEVERE":1,PSOSEV="MODERATE":2,PSOSEV="MILD":3,1:99)
  1. S PSOSEVP=PSOSEV
  1. S PSOSTYP=PSOSEVT
  1. S:PSOSEVT=1 PSOSEVT1("S")=1
  1. S ZSITES=GMRARSLT(ZMSG,"MESSAGE",1)
  1. S PSOSDATA=""
  1. S ZYALL=""
  1. F ZSITE=1:1:ZSITES D
  1. .S ZYALL=$$GMSGPTR^PSODGAL1(ZMSG,ZYALL)
  1. .S INGLOC=$S($P(GMRARSLT(ZMSG,ZYALL),U,2)="L":"L",1:"R")
  1. .S PSOCDATE=$P($P(GMRARSLT(ZMSG,ZYALL),U,3),".")
  1. .S PSOCDATE=$E(PSOCDATE,4,5)_"/"_$E(PSOCDATE,6,7)_"/"_$E(PSOCDATE,2,3)
  1. .S PSOSYM=$P(GMRARSLT(ZMSG,ZYALL),U,5)
  1. .S PSOREACT=$P(GMRARSLT(ZMSG,"MESSAGE",2),U,2)
  1. .S PSOSITT=$P(GMRARSLT(ZMSG,ZYALL),U)
  1. .S PSOSDATA=ZMSG_"|"_PSOCDATE_"|"_INGLOC_"|"_PSOSITT
  1. .;S PSOSDATA=PSOSDATA_$S(ZSITE=1:"",1:U)_ZMSG_"|"_PSOCDATE_"|"_INGLOC_"|"_PSOSITT
  1. .S SITEARY=""
  1. .S SITEARY=INGLOC_"|"_$E(PSOSSITE,1,16)_"|"_PSOSITT_"|"_$S($D(^DIC(4,PSOSITT)):PSOSITT,1:"")
  1. .S PSOSARRY(PSOSTYP,SITEARY,PSOATYPE,PSOREACT,ZMSG)=$S(PSOATYPE=1:PSOREACT,1:"")
  1. .;
  1. .D:$D(PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE))
  1. ..S (OLDDATA,PSOCA)=""
  1. ..S OLDDATA=PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE)
  1. ..D:OLDDATA'[PSOSDATA
  1. ...S PSOCA=PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE)_"^"_PSOSDATA
  1. ...S PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE)=PSOCA
  1. .D:'$D(PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE))
  1. ..S PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE)=PSOSDATA
  1. .D SYM
  1. .;
  1. .F INGREDZ="CLS","ING" D
  1. ..S (INGRED,INGREDS)="",INGREDS=$G(GMRARSLT(ZMSG,"MESSAGE","OFFENDERS",INGREDZ))
  1. ..N III F III=1:1 S INGRED=$P(INGREDS,"~",III) Q:INGRED="" D
  1. ...S PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE,INGRED)=""
  1. ...Q:INGREDZ="ING"
  1. ...I $G(PSODRCL) S PSODRCL1(PSOSTYP,PSOREACT,PSOATYPE,INGRED)="" K PSOCAGNT(PSOSTYP,PSOREACT,PSOATYPE,INGRED)
  1. Q
  1. ;
  1. SYM ;
  1. I PSOSYM'["~"&(PSOSYM'="")&(PSOSYM'="|") D Q
  1. .S PSOSYM("Name")=$$GETSYMNM(ZYALL,PSOSYM,1)
  1. .Q:PSOSYM("Name")=""
  1. .S PSOSYMS(PSOSTYP,PSOREACT,PSOATYPE,"ZZZSYMPTOMS",PSOSYM("Name"))=PSOSYM
  1. .S PSOSARRY(PSOSTYP,SITEARY,PSOATYPE,PSOREACT,ZMSG,"ZZZSYMPTOMS",PSOSYM("Name"))=PSOSYM
  1. Q:PSOSYM="|"
  1. N PSOQX,PSOY
  1. I $E(PSOSYM,1)="~" S PSOSYM=$E(PSOSYM,2,9999)
  1. F PSOQX=1:1:$L(PSOSYM,"~") D
  1. .S PSOY=$P(PSOSYM,"~",PSOQX)
  1. .Q:PSOY=""
  1. .S PSOSYM("Name")=$$GETSYMNM(ZYALL,PSOY,PSOQX)
  1. .Q:PSOSYM("Name")=""
  1. .S PSOSYMS(PSOSTYP,PSOREACT,PSOATYPE,"ZZZSYMPTOMS",PSOSYM("Name"))=PSOY
  1. .S PSOSARRY(PSOSTYP,SITEARY,PSOATYPE,PSOREACT,ZMSG,"ZZZSYMPTOMS",PSOSYM("Name"))=PSOY
  1. Q
  1. ;
  1. TMP ;
  1. ;PSOPAIEN - IEN TO PATIENT ALLERGY FILE 120.8
  1. N PSOSEVER,OLDDATA,PSOLCLAC,PSOPAIEN,TYPE,SITENM,PSOLCLAS,PSOLOCAL,PSOREACT,ZCNT2,DACNT,LOCREM,PSOATYP
  1. N PSOINSTL,PSOSTA,PSOHIS,PSOHISI,PSOASEV,PSOSEVI,PSOSEVT,PSOSTYP,PSOSTYPI,PSOMEDL,PSODGCL,PSOLOCI,SITE
  1. N PSOREACT,ZMSG
  1. S (TYPE,SITENM,PSOPAIEN,ZALL,PSOSYM,PSOLCLAC,PSOATYP,PSOSEVER,PSOATYPE,PSOREACT)="",(ZCNT2,DACNT)=0
  1. F S PSOSEVER=$O(PSOSARRY(PSOSEVER)) Q:PSOSEVER="" S TYPE="" F S TYPE=$O(PSOSARRY(PSOSEVER,TYPE)) Q:TYPE="" D
  1. .S PSOATYPE=""
  1. .F S PSOATYPE=$O(PSOSARRY(PSOSEVER,TYPE,PSOATYPE)) Q:PSOATYPE="" S PSOREACT="" F S PSOREACT=$O(PSOSARRY(PSOSEVER,TYPE,PSOATYPE,PSOREACT)) Q:PSOREACT="" D
  1. ..S ZMSG=""
  1. ..S ZMSG=$O(PSOSARRY(PSOSEVER,TYPE,PSOATYPE,PSOREACT,ZMSG))
  1. ..Q:ZMSG=""
  1. ..S PSOPAIEN=$$GMSGPTR^PSODGAL1(ZMSG) Q:PSOPAIEN="" D
  1. ...S (PSODRCL,ZALL,SITE,SITENM,LOCREM)=""
  1. ...S SITE=$P(TYPE,"|",3),LOCREM=$P(TYPE,"|"),SITENM=$P(TYPE,"|",2)
  1. ...S ZALL=GMRARSLT(ZMSG,PSOPAIEN)
  1. ...I PSOATYPE=2 S PSOATYP=2
  1. ...I PSOATYPE=1 S PSOATYP=1,PSODRCL=1
  1. ...Q:ZALL=""
  1. ...D TMPSET
  1. Q
  1. ;
  1. TMPSET ;
  1. S DACNT=DACNT+1 N II,III,PTR,DATEI K SETTMP
  1. S PSOHISI=$P(ZALL,U,8)
  1. S PSOSEVI=$$GETSEVI(ZALL)
  1. S PSODGCL="",PSOLOCAL=$P(ZALL,"^",3),PSOLOCI=$P($P(ZALL,"^",3),"|",2)
  1. S DATEI=$P(ZALL,U,3)
  1. S PTR=$P(ZALL,U,7)
  1. ;ZERO NODE OF DRUG ALLERGY MULTIPLE
  1. S SETTMP(DACNT,0)=$E(PSOREACT,1,64)_U_PTR_U_LOCREM_U_SITE
  1. S SETTMP(DACNT,0)=SETTMP(DACNT,0)_U_DATEI_U_$$UPPER(PSOHISI)_U_PSOSEVI
  1. S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,4,DACNT,0)=SETTMP(DACNT,0)
  1. ;DRUG CLASS
  1. I PSOATYP'=1 D
  1. .S PSODGCL=$G(GMRARSLT(ZMSG,PSOPAIEN,"CLS"))
  1. .I $E(PSODGCL,1)="~" S PSODGCL=$E(PSODGCL,2,999)
  1. I PSOATYP=1 D
  1. .S PSODGCLS=$G(GMRARSLT(ZMSG,PSOPAIEN,"CLS"))
  1. .I $E(PSODGCLS,1)="~" S PSODGCLS=$E(PSODGCLS,2,999)
  1. .S PSODGCL=""
  1. .N II
  1. .F II=1:1 S PSODGCL=$P(PSODGCLS,"~",II) Q:PSODGCL="" D
  1. ..S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,4,DACNT,1,II,0)=PSODGCL
  1. ..Q
  1. ;DRUG INGREDIENT
  1. D:$D(GMRARSLT(ZMSG,PSOPAIEN,"ING"))
  1. .S INGREDS=GMRARSLT(ZMSG,PSOPAIEN,"ING")
  1. .I $E(INGREDS,1)="~" S INGREDS=$E(INGREDS,2,999)
  1. .N II
  1. .F II=1:1 S INGRED=$P(INGREDS,"~",II) Q:INGRED="" D
  1. ..S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,4,DACNT,2,II,0)=INGRED
  1. ..Q
  1. ;SIGN/SYMPTOM
  1. N PSOSYMN,SYMCNT S SYMCNT=0,PSOSYMN=""
  1. F S PSOSYMN=$O(PSOSARRY(PSOSEVER,TYPE,PSOATYPE,PSOREACT,ZMSG,"ZZZSYMPTOMS",PSOSYMN)) Q:PSOSYMN="" D
  1. .S SYMCNT=SYMCNT+1
  1. .S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,4,DACNT,3,SYMCNT,0)=PSOSARRY(PSOSEVER,TYPE,PSOATYPE,PSOREACT,ZMSG,"ZZZSYMPTOMS",PSOSYMN)
  1. ;DISPENSE DRUG
  1. S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,"ALLERGY DD",5,1,0)=$S(PSOATYP=1!(PSOATYP=2):$G(PSODRUG("IEN")),PSOATYP=3:$P(ZALL,"^",2),1:"")
  1. S ^TMP("PSODAOC",$J,"ALLERGY",PSJALGCT,"ALLERGY PKG")=$S($G(PSJAOC):"IP",1:"OP")
  1. S ^TMP("PSODAOC",$J,"ALLERGY","PROVR")=""
  1. END ;
  1. Q
  1. ;
  1. GETSEV(PSOSSITE,ZMSG,GMRARSLT) ; return external highest severity for possible local multiple
  1. N RESULT,ARRAY,I,SEV
  1. S RESULT=""
  1. Q:'$D(GMRARSLT) RESULT
  1. Q:'$D(PSOSSITE) RESULT
  1. Q:'$D(GMRARSLT(ZMSG)) RESULT
  1. S I=0
  1. F S I=$O(GMRARSLT(ZMSG,"MESSAGE",1,PSOSSITE,1,I)) Q:'I D
  1. .S SEV=$P($G(GMRARSLT(ZMSG,"MESSAGE",1,PSOSSITE,1,I)),U,2)
  1. .S ARRAY($S(SEV="SEVERE":1,SEV="MODERATE":2,SEV="MILD":3,1:99))=SEV
  1. .Q
  1. I $D(ARRAY) S I=$O(ARRAY("")),RESULT=ARRAY(I)
  1. Q RESULT
  1. ;;
  1. GETSEVI(ZALL) ; return internal highest severity for possible local multiple
  1. N RESULT,ARRAY,I,J,K,SEV
  1. S RESULT=""
  1. S SEV=$P($G(ZALL),U,4)
  1. I $E(SEV,1)="~" S SEV=$E(SEV,2,999)
  1. Q:SEV="" RESULT
  1. F I=1:1 S J=$P(SEV,"~",I) Q:J="" D
  1. .S K=$P(J,"|",2)
  1. .S:K'="" ARRAY(K)=J
  1. .Q
  1. I $D(ARRAY) S I=$O(ARRAY(""),-1),RESULT=I
  1. Q RESULT
  1. ;;
  1. GETSYMNM(ZYALL,SYMIEN,SYMINC) ; getSymptomName(allergyResultIEN,symptomIEN,symptomIncrement)
  1. N RESULT
  1. S RESULT=""
  1. Q:$G(ZYALL)="" RESULT
  1. Q:$G(SYMIEN)="" RESULT
  1. Q:$G(SYMINC)="" RESULT
  1. Q:+SYMIEN'=30 $$GET1^DIQ(120.83,SYMIEN,.01)
  1. I +ZYALL=0 D Q RESULT
  1. .;look at ^xtmp("orrdi","art" here for remote data 'OTHER REACTION' text
  1. .N ORRDIEN
  1. .S ORRDIEN=$P(ZYALL,"R",2)
  1. .Q:ORRDIEN=""
  1. .S:+$G(DFN) RESULT=$P($G(^XTMP("ORRDI","ART",DFN,ORRDIEN,"SIGNS/SYMPTOMS",SYMINC)),U,2)
  1. .Q
  1. I +ZYALL>0 D Q RESULT
  1. .;call GMRADPT here, look at GMRAL for local data 'OTHER REACTION' text
  1. .N GMRAL
  1. .D ^GMRADPT
  1. .S RESULT=$P($G(GMRAL(ZYALL,"S",SYMINC)),";")
  1. .K GMRAL
  1. Q RESULT
  1. ;
  1. UPPER(PSOUCS) ;
  1. Q $TR(PSOUCS,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. ;
  1. TSTREM ;For remote developer testing
  1. ;1. complex mix of local/remote results: set a break at SORTN^PSODGAL3, results will not match the order but will be the complex dummy for all, at the break set S PSOTSTMD=1, type G for Go.
  1. ;2. Multiple Ingredient allergy: set a break at SORTN^PSODGAL3, order PROPOFOL, and at the break set S PSOTSTMD=3, type G for Go.
  1. ;3. Drug class allergy: set up allergy by drug class ANTILIPEMIC AGENTS and order LIPITOR and at the break set S PSOTSTMD=2, type G for Go.
  1. ;
  1. Q:'$G(PSOTSTMD)
  1. I PSOTSTMD=1 G BIGARRAY
  1. I PSOTSTMD=2 G DRGCLASS
  1. I PSOTSTMD=3 G MULTI
  1. ;
  1. SINGLE ;Test Remote with a single ingredient
  1. ;ICR: IEN NAME 1 2 3 4 5 6 7 8 9 10 11
  1. ;PIECE: 1 2 3 4 5 6 7 8 9 10 11 12 13
  1. S GMRAING("R1")="GUAIFENESIN|744^MARTINSBURG VAMC|613^REMOTE|R^Jun 20, 2013@15:52|3130620.1552^SEVERE|3^DROWSINESS|66~HIVES|1~ANXIETY|39^GUAIFENESIN^GUAIFENESIN|1671;PSNDF(50.6,^HISTORICAL|h^VISTA|V"
  1. S GMRAING("R2")="GUAIFENESIN|744^HEARTLAND WEST VAMC|589^REMOTE|R^Aug 28, 2012@11:52|3120828.1552^SEVERE|3^DROWSINESS|66~HIVES|1^GUAIFENESIN^GUAIFENESIN|1671;PSNDF(50.6,^HISTORICAL|h^VISTA|V"
  1. S GMRAING("R3")="GUAIFENESIN|744^NEW ORLEANS, LA.|629^REMOTE|R^Oct 25, 2013@09:54|3131025.0954^MODERATE|2^DROWSINESS|66~HIVES|1^GUAIFENESIN^GUAIFENESIN|1671;PSNDF(50.6,^HISTORICAL|h^VISTA|V"
  1. S GMRAING("R4")="GUAIFENESIN|744^NEW YORK, NY|630^REMOTE|R^Apr 9, 2013@15:43|3130409.1143^MILD|1^DROWSINESS|66~HIVES|1^GUAIFENESIN^GUAIFENESIN|1671;PSNDF(50.6,^HISTORICAL|h^VISTA|V"
  1. Q
  1. ;
  1. MULTI ;Test Remote with multiple ingredients
  1. S GMRAING("R7")="SODIUM METABISULFITE|69~PROPOFOL|2114~EGG|2361~SOYBEAN|3156~PEANUT|4048^HEARTLAND WEST VAMC|589^REMOTE|R^Oct 25, 2013@09:52|3131025.0952^SEVERVE|3^ANXIETY|39^PROPOFOL^PROPOFOL|2145;PSNDF(50.6,^OBSERVED|o^VISTA|V"
  1. S GMRAING("R8")="SODIUM METABISULFITE|69~PROPOFOL|2114~EGG|2361~SOYBEAN|3156~PEANUT|4048^MARTINSBURG VAMC|613^REMOTE|R^SEP 30, 2013@01:52|3130930.1352^SEVERVE|3^ANXIETY|39^PROPOFOL^PROPOFOL|2145;PSNDF(50.6,^OBSERVED|o^VISTA|V"
  1. S GMRAING("R10")="SODIUM METABISULFITE|69~PROPOFOL|2114~EGG|2361~SOYBEAN|3156~PEANUT|4048^NEW ORLEANS, LA.|629^REMOTE|R^Aug 15, 2013@11:52|3130515.1152^MODERATE|2^ANXIETY|39^PROPOFOL^PROPOFOL|2145;PSNDF(50.6,^OBSERVED|o^VISTA|V"
  1. S GMRAING("R11")="SODIUM METABISULFITE|69~PROPOFOL|2114~EGG|2361~SOYBEAN|3156~PEANUT|4048^NEW YORK, NY|630^REMOTE|R^Aug 15, 2013@11:52|3130515.1152^MILD|1^ANXIETY|39^PROPOFOL^PROPOFOL|2145;PSNDF(50.6,^OBSERVED|o^VISTA|V"
  1. S GMRAING("R12")="SODIUM METABISULFITE|69~PROPOFOL|2114~EGG|2361~SOYBEAN|3156~PEANUT|4048^MARTINSBURG VAMC|613^REMOTE|R^DEC 15, 2013@12:52|3131215.1252^MILD|1^ANXIETY|39^PROPOFOL^PROPOFOL|2145;PSNDF(50.6,OBSERVED|o^VISTA|V"
  1. Q
  1. ;
  1. DRGCLASS ;Test Remote Interaction by drug class
  1. K GMRAING,GMRADRCL,GMRAREAC
  1. S GMRADRCL("R1")="ANTILIPEMIC AGENTS|58^HEARTLAND WEST VAMC|589^REMOTE|R^Jan 28, 2014@10:56|3140128.1056^SEVERE|3^DIARRHEA|9~DROWSINESS|66~DRY NOSE|69^ANTILIPEMIC AGENTS^ANTILIPEMIC AGENTS|58;PS(50.605,^OBSERVED|o^VISTA|V"
  1. S GMRADRCL("R2")="ANTILIPEMIC AGENTS|58^MARTINSBURG VAMC|613^REMOTE|R^Jan 15, 2014@09:56|3140115.0956^SEVERE|3^DIARRHEA|9~DROWSINESS|66~DRY NOSE|69^ANTILIPEMIC AGENTS^ANTILIPEMIC AGENTS|58;PS(50.605,^OBSERVED|o^VISTA|V"
  1. Q
  1. ;
  1. BIGARRAY ;dummy big array with complex local/remote combinations. Will not match drugs passed in
  1. K GMRARSLT
  1. S GMRARSLT=7
  1. S GMRARSLT(1,106534)="10881^L^3150528.1606^^^AMPICILLIN^79;PSNDF(50.6,^h^V"
  1. S GMRARSLT(1,106534,"CLS")=249
  1. S GMRARSLT(1,"MESSAGE",1)=1
  1. S GMRARSLT(1,"MESSAGE",1,10881)="CLE13 TEST LAB^LOCAL^MAY 28, 2015@16:06^HISTORICAL"
  1. S GMRARSLT(1,"MESSAGE",2)="^AMPICILLIN^AMPICILLIN"
  1. S GMRARSLT(1,"MESSAGE","OFFENDERS","CLS")="AM111 PENICILLINS,AMINO DERIVATIVES"
  1. S GMRARSLT(2,106535)="10881^L^3150528.1607^^^MEROPENEM^3391;PSNDF(50.6,^h^V"
  1. S GMRARSLT(2,106535,"CLS")=335
  1. S GMRARSLT(2,"MESSAGE",1)=2
  1. S GMRARSLT(2,"MESSAGE",1,10881)="CLE13 TEST LAB^LOCAL^MAY 28, 2015@16:07^HISTORICAL"
  1. S GMRARSLT(2,"MESSAGE",1,10882)="CHEYENNE HDR SQA^REMOTE^MAY 28, 2015@16:02^HISTORICAL"
  1. S GMRARSLT(2,"MESSAGE",2)="^MEROPENEM^MEROPENEM"
  1. S GMRARSLT(2,"MESSAGE","OFFENDERS","CLS")="AM119 BETA-LACTAMS ANTIMICROBIALS,OTHER"
  1. S GMRARSLT(2,"R9")="10882^R^3150528.1602^^^MEROPENEM^3391;PSNDF(50.6,^h^V"
  1. S GMRARSLT(2,"R9","CLS")=335
  1. S GMRARSLT(3,"MESSAGE",1)=1
  1. S GMRARSLT(3,"MESSAGE",1,10882)="CHEYENNE HDR SQA^REMOTE^MAY 28, 2015@16:03^OBSERVED"
  1. S GMRARSLT(3,"MESSAGE",2)="RASH^CEPHALEXIN^CEPHALEXIN"
  1. S GMRARSLT(3,"MESSAGE","OFFENDERS","CLS")="AM115 CEPHALOSPORIN 1ST GENERATION"
  1. S GMRARSLT(3,"R11")="10882^R^3150528.1603^^133^CEPHALEXIN^1290;PSNDF(50.6,^o^V"
  1. S GMRARSLT(3,"R11","CLS")=12
  1. S GMRARSLT(4,"MESSAGE",1)=1
  1. S GMRARSLT(4,"MESSAGE",1,613)="MARTINSBURG VAMC^REMOTE^MAY 28, 2015@15:46^OBSERVED"
  1. S GMRARSLT(4,"MESSAGE",2)="ANAPHYLAXIS and DYSPNEA^CEFAZOLIN^CEFAZOLIN"
  1. S GMRARSLT(4,"MESSAGE","OFFENDERS","CLS")="AM115 CEPHALOSPORIN 1ST GENERATION"
  1. S GMRARSLT(4,"MESSAGE","OFFENDERS","ING")="CEFAZOLIN"
  1. S GMRARSLT(4,"R13")="613^R^3150528.1546^^5~70^CEFAZOLIN^30;PSNDF(50.6,^o^V"
  1. S GMRARSLT(4,"R13","CLS")=12
  1. S GMRARSLT(4,"R13","ING")=2278
  1. S GMRARSLT(5,"MESSAGE",1)=1
  1. S GMRARSLT(5,"MESSAGE",1,10882)="CHEYENNE HDR SQA^REMOTE^MAY 28, 2015@16:01^HISTORICAL"
  1. S GMRARSLT(5,"MESSAGE",2)="ITCHING OF EYE and WHEEZING^PENICILLIN^PENICILLIN"
  1. S GMRARSLT(5,"MESSAGE","OFFENDERS","CLS")="AM110 PENICILLIN-G RELATED PENICILLINS"
  1. S GMRARSLT(5,"R2")="10882^R^3150528.1601^^20~311^PENICILLIN^16;PSNDF(50.6,^h^V"
  1. S GMRARSLT(5,"R2","CLS")=248
  1. S GMRARSLT(6,"MESSAGE",1)=1
  1. S GMRARSLT(6,"MESSAGE",1,613)="MARTINSBURG VAMC^REMOTE^MAY 28, 2015@15:50^OBSERVED"
  1. S GMRARSLT(6,"MESSAGE",2)="ANAPHYLAXIS^PENICILLIN^PENICILLIN"
  1. S GMRARSLT(6,"MESSAGE","OFFENDERS","CLS")="AM110 PENICILLIN-G RELATED PENICILLINS"
  1. S GMRARSLT(6,"R4")="613^R^3150528.155^^5~30^PENICILLIN^16;PSNDF(50.6,^o^V"
  1. S GMRARSLT(6,"R4","CLS")=248
  1. S ^XTMP("ORRDI","ART",DFN,4,"SIGNS/SYMPTOMS",2)="^Giggles^"
  1. S GMRARSLT(7,"MESSAGE",1)=1
  1. S GMRARSLT(7,"MESSAGE",1,613)="MARTINSBURG VAMC^REMOTE^MAY 28, 2015@15:50^HISTORICAL"
  1. S GMRARSLT(7,"MESSAGE",2)="^CEFEPIME^CEFEPIME"
  1. S GMRARSLT(7,"MESSAGE","OFFENDERS","CLS")="AM118 CEPHALOSPORIN 4TH GENERATION"
  1. S GMRARSLT(7,"R5")="613^R^3150528.155^^^CEFEPIME^3392;PSNDF(50.6,^h^V"
  1. S GMRARSLT(7,"R5","CLS")=524
  1. Q
  1. ;