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

PXRMP28I.m

Go to the documentation of this file. 
  1. PXRMP28I ;SLC/PKR - Inits for PXRM*2.0*28. ;01/14/2013
  1.  ;;2.0;CLINICAL REMINDERS;**28**;Feb 04, 2005;Build 206
  1.  Q
  1.  ;==========================================
  1. LENDIAG(DEF,DIALOG) ;Link and enable a dialog.
  1.  N DIEN,RIEN,TEXT
  1.  S RIEN=$O(^PXD(811.9,"B",DEF,""))
  1.  I RIEN="" D
  1.  . S TEXT="Reminder definition "_DEF_" was not installed!"
  1.  . D MES^XPDUTL(TEXT)
  1.  S DIEN=$O(^PXRMD(801.41,"B",DIALOG,""))
  1.  I DIEN="" D
  1.  . S TEXT="Reminder dialog "_DIALOG_" was not installed!"
  1.  . D MES^XPDUTL(TEXT)
  1.  I (+RIEN>0),(+DIEN>0) D
  1.  . K TEXT
  1.  . S TEXT(1)="Linking and enabling reminder dialog "_DIALOG
  1.  . S TEXT(2)="to reminder definition "_DEF_"."
  1.  . S TEXT(3)=""
  1.  . D MES^XPDUTL(.TEXT)
  1.  . S ^PXD(811.9,RIEN,51)=DIEN
  1.  . S $P(^PXRMD(801.41,DIEN,0),U,3)=0
  1.  Q
  1.  ;
  1.  ;==========================================
  1. LENDIAGA ;Make sure the dialogs are linked and enabled.
  1.  N IND,DEFL,DLGL
  1.  S DEFL(1)="VA-WH DISCUSS BREAST CA SCREEN WOMAN 40-49"
  1.  S DLGL(1)="VA-WH DISCUSS BREAST CA WOMAN 40-49"
  1.  S DEFL(2)="VA-WH MAMMOGRAM SCREENING"
  1.  S DLGL(2)="VA-WH MAMMOGRAM SCREENING"
  1.  S DEFL(3)="VA-WH PAP SMEAR REVIEW RESULTS"
  1.  S DLGL(3)="VA-WH PAP SMEAR REVIEW RESULTS"
  1.  S DEFL(4)="VA-WH PAP SMEAR SCREENING"
  1.  S DLGL(4)="VA-WH PAP SMEAR SCREENING"
  1.  S DEFL(5)="VA-WH MAMMOGRAM REVIEW RESULTS"
  1.  S DLGL(5)="VA-WH MAMMOGRAM REVIEW RESULTS"
  1.  D BMES^XPDUTL("Linking and enabling dialogs")
  1.  F IND=1:1:5 D LENDIAG^PXRMP28I(DEFL(IND),DLGL(IND))
  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","PXRMP28E")
  1.  D RENAME^PXRMP28I
  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 SETPVER^PXRMUTIL("2.0P28")
  1.  ;Install Exchange File entries.
  1.  ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP28E")
  1.  D LENDIAGA^PXRMP28I
  1.  ;D SENDIM^PXRMP28I
  1.  Q
  1.  ;
  1.  ;==========================================
  1. RENAME ;
  1.  D BMES^XPDUTL("Renaming health factors.")
  1.  D RENAME^PXRMUTIL(9999999.64,"WH BR CA SCREEN N/A 5 YRS","WH BR CA SCREEN N/A 5 YRS-LE<5YRS")
  1.  D RENAME^PXRMUTIL(9999999.64,"CERVICAL CA SCRN N/A 5 YRS","WH CERV CA SCRN N/A 5 YRS-LE<5YRS")
  1.  Q
  1.  ;
  1.  ;==========================================
  1. SENDIM ;Send install message.
  1.  N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1.  S NODE="PXRM*2.0*28"
  1.  K ^TMP(NODE,$J)
  1.  ;DBIA #1131 for ^XMB("NETNAME")
  1.  S FROM="PXRM*2.0*28 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="Install of PXRM*2.0*28"
  1.  S ^TMP(NODE,$J,1,0)="PXRM*2.0*28 has been installed."
  1.  S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1.  D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1.  Q
  1.  ;