- 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
- ;
- 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 ;D 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 ;