Changeset 345 for ccr/trunk/p/GPLALERT.m

Timestamp:

Jan 29, 2009, 11:26:56 AM (15 years ago)

Author:

George Lilly

Message:

fixing bugs that affect RPMS Alerts

File:

• ccr/trunk/p/GPLALERT.m (modified) (2 diffs)

ccr/trunk/p/GPLALERT.m

@@ -70 +70 @@
  . E  S @ALTVMAP@("ALERTSOURCEID")="" ; SOURCE NULL - SHOULD NOT HAPPEN
  . W "RUNNING ALERTS, PROVIDER: ",@ALTVMAP@("ALERTSOURCEID"),!
- . N ACGL1,ACGFI,ACIEN,ACVUID
+ . N ACGL1,ACGFI,ACIEN,ACVUID,ACNM,ACTMP
  . S ACGL1=$P(@ALTG@(ALTTMP),U,9) ; ADDRESS OF THE REACTANT XX;GLB(YY.Z,
  . S ACGFI=$$PRSGLB($P(ACGL1,";",2)) ; FILE NUMBER
@@ -77 +77 @@
  . S @ALTVMAP@("ALERTAGENTPRODUCTOBJECTID")="PRODUCT_"_ACIEN ; IE OF REACTANT
  . S @ALTVMAP@("ALERTAGENTPRODUCTSOURCEID")="" ; WHERE DO WE GET THIS?
- . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")=$P(@ALTG@(ALTTMP),U,2) ; REACTANT
+ . S ACNM=$P(@ALTG@(ALTTMP),U,2) ; REACTANT
+ . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")=ACNM
  . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=ACVUID
  . I ACVUID'="" D  ; IF VUID IS NOT NULL
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="VUID"
  . E  D  ; IF REACTANT CODE VALUE IS NULL
+ . . I $G(DUZ("AG"))="I" D  ; IF WE ARE RUNNING ON RPMS
+ . . . S ACTMP=$O(^C0CCODES(176.112,"C",ACNM,0)) ;
+ . . . W "RPMS NAME FOUND",ACNM," ",ACTMP,!
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")=""
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=""