PXRMP34I ;SLC/PKR - Inits for PXRM*2.0*34. ;11/06/2013
;;2.0;CLINICAL REMINDERS;**34**;Feb 04, 2005;Build 195
Q
;==========================================
PRE ;Pre-init
;Disable options and protocols
D OPTION^PXRMUTIL("DISABLE")
D PROTOCOL^PXRMUTIL("DISABLE")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP34E")
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
D OPTION^PXRMUTIL("ENABLE")
D PROTOCOL^PXRMUTIL("ENABLE")
D SETPVER^PXRMUTIL("2.0P34")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP34E")
D RMDGE^PXRMP34I
D SENDIM^PXRMP34I
Q
;
;==========================================
RMDGE ;Remove some VA GENERIC entries from the Reminder Order Check Items
;Group.
N IENS,IND,KFDA,MSG,OCIGIEN,TEXT,VAGEN,VAGENIEN,VAGENL,VP
S OCIGIEN=+$O(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP",""))
I OCIGIEN=0 Q
D BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP")
S VAGENL("DENOSUMAB")=""
S VAGENL("EXEMESTANE")=""
S VAGENL("HYALURONATE SODIUM")=""
S VAGENL("HYALURONIC ACID")=""
S VAGENL("HYALURONIDASE")=""
S VAGENL("TELEVANCIN")=""
S VAGEN=""
F S VAGEN=$O(VAGENL(VAGEN)) Q:VAGEN="" D
. S VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
. I VAGENIEN=0 Q
. S VP=VAGENIEN_";PSNDF(50.6,"
. S IND=+$O(^PXD(801,OCIGIEN,1.5,"B",VP,""))
. I IND=0 Q
. S IENS=IND_","_OCIGIEN_","
. S TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
. D MES^XPDUTL(TEXT)
. S KFDA(801.015,IENS,.01)="@"
D FILE^DIE("","KFDA","MSG")
;
S OCIGIEN=+$O(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT X) GROUP",""))
I OCIGIEN=0 Q
D BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT X) GROUP")
K VAGENL
S VAGENL("TELAVANCIN")=""
S VAGEN=""
F S VAGEN=$O(VAGENL(VAGEN)) Q:VAGEN="" D
. S VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
. I VAGENIEN=0 Q
. S VP=VAGENIEN_";PSNDF(50.6,"
. S IND=+$O(^PXD(801,OCIGIEN,1.5,"B",VP,""))
. I IND=0 Q
. S IENS=IND_","_OCIGIEN_","
. S TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
. D MES^XPDUTL(TEXT)
. S KFDA(801.015,IENS,.01)="@"
D FILE^DIE("","KFDA","MSG")
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*34"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*34 Install@"_^XMB("NETNAME")
;DBIA #2541
S SYSTEM=$$KSP^XUPARAM("WHERE")
I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
E D
. N MGIEN,MGROUP
. S MGIEN=$G(^PXRM(800,1,"MGFE"))
. S MGROUP=$S(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
. S TO(MGROUP)=""
S SUBJECT="Install of PXRM*2.0*34"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*34 has been installed."
S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP34I 2931 printed Dec 13, 2024@01:47:32 Page 2
PXRMP34I ;SLC/PKR - Inits for PXRM*2.0*34. ;11/06/2013
+1 ;;2.0;CLINICAL REMINDERS;**34**;Feb 04, 2005;Build 195
+2 QUIT
+3 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTION^PXRMUTIL("DISABLE")
+3 DO PROTOCOL^PXRMUTIL("DISABLE")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP34E")
+5 QUIT
+6 ;
+7 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 DO OPTION^PXRMUTIL("ENABLE")
+3 DO PROTOCOL^PXRMUTIL("ENABLE")
+4 DO SETPVER^PXRMUTIL("2.0P34")
+5 ;Install Exchange File entries.
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP34E")
+7 DO RMDGE^PXRMP34I
+8 DO SENDIM^PXRMP34I
+9 QUIT
+10 ;
+11 ;==========================================
RMDGE ;Remove some VA GENERIC entries from the Reminder Order Check Items
+1 ;Group.
+2 NEW IENS,IND,KFDA,MSG,OCIGIEN,TEXT,VAGEN,VAGENIEN,VAGENL,VP
+3 SET OCIGIEN=+$ORDER(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP",""))
+4 IF OCIGIEN=0
QUIT
+5 DO BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT D OR C) GROUP")
+6 SET VAGENL("DENOSUMAB")=""
+7 SET VAGENL("EXEMESTANE")=""
+8 SET VAGENL("HYALURONATE SODIUM")=""
+9 SET VAGENL("HYALURONIC ACID")=""
+10 SET VAGENL("HYALURONIDASE")=""
+11 SET VAGENL("TELEVANCIN")=""
+12 SET VAGEN=""
+13 FOR
SET VAGEN=$ORDER(VAGENL(VAGEN))
if VAGEN=""
QUIT
Begin DoDot:1
+14 SET VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
+15 IF VAGENIEN=0
QUIT
+16 SET VP=VAGENIEN_";PSNDF(50.6,"
+17 SET IND=+$ORDER(^PXD(801,OCIGIEN,1.5,"B",VP,""))
+18 IF IND=0
QUIT
+19 SET IENS=IND_","_OCIGIEN_","
+20 SET TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
+21 DO MES^XPDUTL(TEXT)
+22 SET KFDA(801.015,IENS,.01)="@"
End DoDot:1
+23 DO FILE^DIE("","KFDA","MSG")
+24 ;
+25 SET OCIGIEN=+$ORDER(^PXD(801,"B","VA-TERATOGENIC MEDICATIONS (CAT X) GROUP",""))
+26 IF OCIGIEN=0
QUIT
+27 DO BMES^XPDUTL("Deleting some DG entries from VA-TERATOGENIC MEDICATIONS (CAT X) GROUP")
+28 KILL VAGENL
+29 SET VAGENL("TELAVANCIN")=""
+30 SET VAGEN=""
+31 FOR
SET VAGEN=$ORDER(VAGENL(VAGEN))
if VAGEN=""
QUIT
Begin DoDot:1
+32 SET VAGENIEN=$$FIND1^DIC(50.6,"","BX",VAGEN)
+33 IF VAGENIEN=0
QUIT
+34 SET VP=VAGENIEN_";PSNDF(50.6,"
+35 SET IND=+$ORDER(^PXD(801,OCIGIEN,1.5,"B",VP,""))
+36 IF IND=0
QUIT
+37 SET IENS=IND_","_OCIGIEN_","
+38 SET TEXT=" Removing DG."_VAGEN_", it is entry number "_IND_"."
+39 DO MES^XPDUTL(TEXT)
+40 SET KFDA(801.015,IENS,.01)="@"
End DoDot:1
+41 DO FILE^DIE("","KFDA","MSG")
+42 QUIT
+43 ;
+44 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*34"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*34 Install@"_^XMB("NETNAME")
+6 ;DBIA #2541
+7 SET SYSTEM=$$KSP^XUPARAM("WHERE")
+8 IF $$PROD^XUPROD(1)
SET TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
+9 IF '$TEST
Begin DoDot:1
+10 NEW MGIEN,MGROUP
+11 SET MGIEN=$GET(^PXRM(800,1,"MGFE"))
+12 SET MGROUP=$SELECT(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
+13 SET TO(MGROUP)=""
End DoDot:1
+14 SET SUBJECT="Install of PXRM*2.0*34"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*34 has been installed."
+16 SET ^TMP(NODE,$JOB,2,0)="System is "_SYSTEM
+17 DO SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
+18 QUIT
+19 ;
