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

PXRMP34I.m

Go to the documentation of this file.
  1. PXRMP34I ;SLC/PKR - Inits for PXRM*2.0*34. ;11/06/2013
  1. ;;2.0;CLINICAL REMINDERS;**34**;Feb 04, 2005;Build 195
  1. Q
  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","PXRMP34E")
  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.0P34")
  1. ;Install Exchange File entries.
  1. ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP34E")
  1. D RMDGE^PXRMP34I
  1. D SENDIM^PXRMP34I
  1. Q
  1. ;
  1. ;==========================================
  1. RMDGE ;Remove some VA GENERIC entries from the Reminder Order Check Items
  1. ;Group.
  1. N IENS,IND,KFDA,MSG,OCIGIEN,TEXT,VAGEN,VAGENIEN,VAGENL,VP
  1. S OCIGIEN=+$O(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP",""))
  1. I OCIGIEN=0 Q
  1. D BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP")
  1. S VAGENL("DENOSUMAB")=""
  1. S VAGENL("EXEMESTANE")=""
  1. S VAGENL("HYALURONATE SODIUM")=""
  1. S VAGENL("HYALURONIC ACID")=""
  1. S VAGENL("HYALURONIDASE")=""
  1. S VAGENL("TELEVANCIN")=""
  1. S VAGEN=""
  1. F S VAGEN=$O(VAGENL(VAGEN)) Q:VAGEN="" D
  1. . S VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
  1. . I VAGENIEN=0 Q
  1. . S VP=VAGENIEN_";PSNDF(50.6,"
  1. . S IND=+$O(^PXD(801,OCIGIEN,1.5,"B",VP,""))
  1. . I IND=0 Q
  1. . S IENS=IND_","_OCIGIEN_","
  1. . S TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
  1. . D MES^XPDUTL(TEXT)
  1. . S KFDA(801.015,IENS,.01)="@"
  1. D FILE^DIE("","KFDA","MSG")
  1. ;
  1. S OCIGIEN=+$O(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT X) GROUP",""))
  1. I OCIGIEN=0 Q
  1. D BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT X) GROUP")
  1. K VAGENL
  1. S VAGENL("TELAVANCIN")=""
  1. S VAGEN=""
  1. F S VAGEN=$O(VAGENL(VAGEN)) Q:VAGEN="" D
  1. . S VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
  1. . I VAGENIEN=0 Q
  1. . S VP=VAGENIEN_";PSNDF(50.6,"
  1. . S IND=+$O(^PXD(801,OCIGIEN,1.5,"B",VP,""))
  1. . I IND=0 Q
  1. . S IENS=IND_","_OCIGIEN_","
  1. . S TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
  1. . D MES^XPDUTL(TEXT)
  1. . S KFDA(801.015,IENS,.01)="@"
  1. D FILE^DIE("","KFDA","MSG")
  1. Q
  1. ;
  1. ;==========================================
  1. SENDIM ;Send install message.
  1. N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1. S NODE="PXRM*2.0*34"
  1. K ^TMP(NODE,$J)
  1. ;DBIA #1131 for ^XMB("NETNAME")
  1. S FROM="PXRM*2.0*34 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*34"
  1. S ^TMP(NODE,$J,1,0)="PXRM*2.0*34 has been installed."
  1. S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1. D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1. Q
  1. ;