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

GMRC196P.m

Go to the documentation of this file.
  1. GMRC196P ;SLC/WAS - Post Routine To Disable GMRCHCP Link; Jan 25, 2024@13:35
  1. ;;3.0;CONSULT/REQUEST TRACKING;**196**;FEB 27, 2018;Build 3
  1. ;
  1. ; Reference to ^ORD(101 in ICR #872
  1. ;
  1. ; Depreciated GMRCHCP via GMRC*3.0*196
  1. ;
  1. Q
  1. POST ;
  1. ;
  1. D BMES^XPDUTL("Post-install GMRC196P begin...")
  1. ;
  1. D LINK,INACTVAPP,PROTODIS,PROTOEDIT,PROTOREM
  1. ;
  1. D BMES^XPDUTL("Post-install GMRC196P complete...")
  1. Q
  1. N GMRCIEN,VAL,FDA,GMRCERR
  1. S VAL="GMRCHCP"
  1. S GMRCIEN=$$FIND1^DIC(870,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable AUTOSTART") Q
  1. S FDA(870,GMRCIEN_",",4.5)=0 ; AUTOSTART disabled
  1. D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. D MES^XPDUTL("")
  1. I $D(GMRCERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when disabling AUTOSTART for the GMRCHCP HL logical link")
  1. D MES^XPDUTL("GMRCHCP HL logical link AUTOSTART has been disabled.")
  1. Q
  1. INACTVAPP ; Update the HL7 Application Parameter file to mark GMRC HCP SEND and GMRC HCP RECEIVE inactive
  1. N GMRCIEN,VAL,FDA,GMRCERR
  1. S VAL="GMRC HCP SEND"
  1. S GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(771,GMRCIEN_",",2)="i" ; mark inactive
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
  1. ;
  1. N GMRCIEN,VAL,FDA,GMRCERR
  1. S VAL="GMRC HCP RECEIVE"
  1. S GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(771,GMRCIEN_",",2)="i" ; mark inactive
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
  1. Q
  1. PROTODIS ; Disable the following protocols
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I12 CLIENT"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I13 CLIENT"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I14 CLIENT"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP RRI-I13 CLIENT"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I12 SERVER"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I13 SERVER"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP REF-I14 SERVER"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC HCP RRI-I13 SERVER"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
  1. ;
  1. Q
  1. PROTOEDIT ; Edit the following protocol to remove entry action
  1. ;
  1. N GMRCIEN,VAL,GMRCERR
  1. S VAL="GMRC CONSULTS TO HCP"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit protocol")
  1. D MES^XPDUTL("")
  1. I GMRCIEN D
  1. .S FDA(101,GMRCIEN_",",20)="@"
  1. .D FILE^DIE(,"FDA","GMRCERR") K FDA
  1. .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to remove entry action")
  1. .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" protocol has been updated to remove entry action.")
  1. ;
  1. Q
  1. PROTOREM ; Remove the following child protocol from parent
  1. ;
  1. N VAL,VAL1,GMRCIEN,GMRCIEN1,DA,DIK
  1. S VAL="GMRC CONSULTS TO HCP"
  1. S VAL1="GMRC EVSEND OR"
  1. S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
  1. D MES^XPDUTL("")
  1. I 'GMRCIEN D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL) Q
  1. S GMRCIEN1=$$FIND1^DIC(101,,"B",.VAL1)
  1. I 'GMRCIEN1 D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL1) Q
  1. S DA=$O(^ORD(101,GMRCIEN1,10,"B",GMRCIEN,0))
  1. I 'DA D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Already removed") Q
  1. S DA(1)=GMRCIEN1
  1. S DIK="^ORD(101,"_DA(1)_",10,"
  1. D ^DIK
  1. D MES^XPDUTL("")
  1. I $D(GMRCERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when removing "_VAL_" from "_VAL1_" protocol")
  1. D MES^XPDUTL(VAL_" has been removed from "_VAL1_" protocol.")
  1. Q