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

PXRMP17U.m

Go to the documentation of this file.
  1. PXRMP17U ;SLC/DAN - Undo updates from patch 17 ;2/1/10 12:54
  1. ;;2.0;CLINICAL REMINDERS;**17**;Feb 04, 2005;Build 102
  1. ;
  1. ALLERGY ;Reset computed finding parameter for new version of VA-ALLERGY
  1. ;computed finding.
  1. N CFIEN,CFPARAM,IEN,FINDING
  1. S CFIEN=$O(^PXRMD(811.4,"B","VA-ALLERGY",""))
  1. I CFIEN="" Q
  1. K ^TMP($J,"LIST")
  1. D BLDLIST^PXRMFRPT(811.4,"PXRMD(811.4,",CFIEN,"LIST")
  1. ;Process definitions
  1. S IEN=""
  1. F S IEN=$O(^TMP($J,"LIST",811.4,CFIEN,"DEF",IEN)) Q:IEN="" D
  1. . S FINDING=""
  1. . F S FINDING=$O(^TMP($J,"LIST",811.4,CFIEN,"DEF",IEN,FINDING)) Q:FINDING="" D
  1. .. S CFPARAM=$G(^PXD(811.9,IEN,20,FINDING,15)) Q:$L(CFPARAM,":")=2 ;already converted if equal to 2
  1. .. S ^PXD(811.9,IEN,20,FINDING,15)=$P(CFPARAM,":",1,2) ;use only first two parameters
  1. ;Process terms
  1. S IEN=""
  1. F S IEN=$O(^TMP($J,"LIST",811.4,CFIEN,"TERM",IEN)) Q:IEN="" D
  1. . S FINDING=""
  1. . F S FINDING=$O(^TMP($J,"LIST",811.4,CFIEN,"TERM",IEN,FINDING)) Q:FINDING="" D
  1. .. S CFPARAM=$G(^PXRMD(811.5,IEN,20,FINDING,15)) Q:$L(CFPARAM,":")=2 ;already converted if equal to 2
  1. .. S ^PXRMD(811.5,IEN,20,FINDING,15)=$P(CFPARAM,":",1,2) ;use only first two parameters
  1. K ^TMP($J,"LIST")
  1. Q
  1. ;