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

PXRMP17I.m

Go to the documentation of this file. 
  1. PXRMP17I ; SLC/PKR - Inits for PXRM*2.0*17. ;02/02/2010
  1.  ;;2.0;CLINICAL REMINDERS;**17**;Feb 04, 2005;Build 102
  1.  Q
  1.  ;==========================================
  1. ALLERGY ;Reset computed finding parameter for new version of VA-ALLERGY
  1.  ;computed finding.
  1.  D BMES^XPDUTL("Reset computed finding parameter for new version of VA-ALLERGY")
  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 not equal to 2
  1.  .. S ^PXD(811.9,IEN,20,FINDING,15)=CFPARAM_":*:*:*" ;add 3 new 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 not equal to 2
  1.  .. S ^PXRMD(811.5,IEN,20,FINDING,15)=CFPARAM_":*:*:*" ;add 3 new parameters
  1.  K ^TMP($J,"LIST")
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CFINC(Y) ;List of computed findings to include in the build.
  1.  N CFLIST,CFNAME
  1.  S CFLIST("VA-ALLERGY")=""
  1.  S CFLIST("VA-ASU USER CLASS")=""
  1.  S CFLIST("VA-WAS INPATIENT")=""
  1.  S CFLIST("VA-ACTIVE PATIENT RECORD FLAGS")=""
  1.  S CFNAME=$P($G(^PXRMD(811.4,Y,0)),U)
  1.  Q $S($D(CFLIST(CFNAME)):1,1:0)
  1.  ;
  1.  ;===============================================================
  1. DELDD ;Delete the old data dictionaries.
  1.  ;N DIU,TEXT
  1.  ;D EN^DDIOL("Removing old data dictionaries.")
  1.  ;S DIU(0)=""
  1.  ;F DIU=801.41,810.1,810.2,810.4,810.5,810.7,810.8,810.9,811.2,811.4,811.5,811.6,811.8,811.9 D
  1.  ;. S TEXT=" Deleting data dictionary for file # "_DIU
  1.  ;. D EN^DDIOL(TEXT)
  1.  ;. D EN^DIU2
  1.  Q
  1.  ;
  1.  ;==========================================
  1. INILT ;Initialize list templates
  1.  ;N IEN,IND,LIST,TEMP0
  1.  ;D LTL^PXRMP12I(.LIST)
  1.  ;S IND=0
  1.  ;IA #4123
  1.  ;F  S IND=$O(LIST(IND)) Q:IND=""  D
  1.  ;. S IEN=$O(^SD(409.61,"B",LIST(IND),"")) Q:IEN=""
  1.  ;. S TEMP0=$G(^SD(409.61,IEN,0))
  1.  ;. K ^SD(409.61,IEN)
  1.  ;. S ^SD(409.61,IEN,0)=TEMP0
  1.  Q
  1.  ;
  1.  ;==========================================
  1. LTL(LIST) ;This is the list of list templates that being distributed
  1.  ;in the patch.
  1.  ;S LIST(1)="PXRM EX LIST COMPONENTS"
  1.  ;S LIST(2)="PXRM EX REMINDER EXCHANGE"
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. MSTSYNC ;Run the MST synchronization.
  1.  N TEXT
  1.  K ZTSAVE
  1.  S ZTSAVE("STIME")=-1
  1.  S ZTRTN="SYNCH^PXRMMST"
  1.  S ZTDESC="Clinical Reminders MST synchronization job"
  1.  S ZTDTH=$$NOW^XLFDT
  1.  S ZTIO=""
  1.  D ^%ZTLOAD
  1.  S TEXT="MST synchronization queued, task number "_$G(ZTSK)_"."
  1.  D BMES^XPDUTL(.TEXT)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. PRE ;Pre-init
  1.  ;Disable options and protocols
  1.  D OPTION^PXRMUTIL("DISABLE")
  1.  D PROTOCOL^PXRMUTIL("DISABLE")
  1.  D DELEXE^PXRMEXSI("EXARRAY","PXRMP17E")
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. POST ;Post-init
  1.  ;Enable options and protocols
  1.  D OPTION^PXRMUTIL("ENABLE")
  1.  D PROTOCOL^PXRMUTIL("ENABLE")
  1.  D RENASPON^PXRMP17I
  1.  D SENDPV^PXRMP17I
  1.  ;Install Exchange File entries.
  1.  D SMEXINS^PXRMEXSI("EXARRAY","PXRMP17E")
  1.  ;Run the MST synchronization.
  1.  D MSTSYNC^PXRMP17I
  1.  ;Reset computed finding parameter for new version of VA-ALLERGY.
  1.  D ALLERGY^PXRMP17U
  1.  D SETPVER^PXRMUTIL("2.0P17")
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. RENASPON ;Rename some Sponsor file entries.
  1.  N OLDNAME,NEWNAME
  1.  D BMES^XPDUTL("Renaming some Sponsor entries")
  1.  S OLDNAME="Mental Health and Behavioral Science Strategic Group"
  1.  S NEWNAME="Office of Mental Health Services"
  1.  D RENAME^PXRMUTIL(811.6,OLDNAME,NEWNAME)
  1.  S OLDNAME="Mental Health and Behavioral Science Strategic Group and Women Veterans Health Program"
  1.  S NEWNAME="Office of Mental Health Services and Women Veterans Health Program"
  1.  D RENAME^PXRMUTIL(811.6,OLDNAME,NEWNAME)
  1.  Q
  1.  ;
  1.  ;==========================================
  1. SENDPV ;Send the system level value of ORQQPX NEW REMINDER PARAMS.
  1.  N FROM,NODE,PARAM,SYSTEM,SUBJ,TO,VALUE
  1.  S NODE="PXRM*2.0*17"
  1.  K ^TMP(NODE,$J)
  1.  S PARAM="ORQQPX NEW REMINDER PARAMS"
  1.  ;DBIA #2263
  1.  S VALUE=$$GET^XPAR("SYS",PARAM,1,"E")
  1.  ;DBIA #1131 for ^XMB("NETNAME")
  1.  S FROM="PXRM*2.0*17 Install@"_^XMB("NETNAME")
  1.  ;DBIA #2541
  1.  S SYSTEM=$$KSP^XUPARAM("WHERE")
  1.  I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
  1.  E  D
  1.  . N MGIEN,MGROUP
  1.  . S MGIEN=$G(^PXRM(800,1,"MGFE"))
  1.  . S MGROUP=$S(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
  1.  . S TO(MGROUP)=""
  1.  S SUBJECT="System level setting of "_PARAM
  1.  S ^TMP(NODE,$J,1,0)=SUBJECT_" is "_VALUE
  1.  S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1.  D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1.  Q
  1.  ;