- GMRC196P ;SLC/WAS - Post Routine To Disable GMRCHCP Link; Jan 25, 2024@13:35
- ;;3.0;CONSULT/REQUEST TRACKING;**196**;FEB 27, 2018;Build 3
- ;
- ; Reference to ^ORD(101 in ICR #872
- ;
- ; Depreciated GMRCHCP via GMRC*3.0*196
- ;
- Q
- POST ;
- ;
- D BMES^XPDUTL("Post-install GMRC196P begin...")
- ;
- D LINK,INACTVAPP,PROTODIS,PROTOEDIT,PROTOREM
- ;
- D BMES^XPDUTL("Post-install GMRC196P complete...")
- Q
- LINK ; Update the GMRCHCP HL logical link to disable AUTOSTART
- N GMRCIEN,VAL,FDA,GMRCERR
- S VAL="GMRCHCP"
- S GMRCIEN=$$FIND1^DIC(870,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable AUTOSTART") Q
- S FDA(870,GMRCIEN_",",4.5)=0 ; AUTOSTART disabled
- D FILE^DIE(,"FDA","GMRCERR") K FDA
- D MES^XPDUTL("")
- I $D(GMRCERR) D Q ; something went wrong
- .D MES^XPDUTL("FileMan error when disabling AUTOSTART for the GMRCHCP HL logical link")
- D MES^XPDUTL("GMRCHCP HL logical link AUTOSTART has been disabled.")
- Q
- INACTVAPP ; Update the HL7 Application Parameter file to mark GMRC HCP SEND and GMRC HCP RECEIVE inactive
- N GMRCIEN,VAL,FDA,GMRCERR
- S VAL="GMRC HCP SEND"
- S GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(771,GMRCIEN_",",2)="i" ; mark inactive
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
- ;
- N GMRCIEN,VAL,FDA,GMRCERR
- S VAL="GMRC HCP RECEIVE"
- S GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(771,GMRCIEN_",",2)="i" ; mark inactive
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
- Q
- PROTODIS ; Disable the following protocols
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I12 CLIENT"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I13 CLIENT"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I14 CLIENT"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP RRI-I13 CLIENT"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .S FDA(101,GMRCIEN_",",770.7)="@" ; Delete GMRCHCP from logical link
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I12 SERVER"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I13 SERVER"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP REF-I14 SERVER"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC HCP RRI-I13 SERVER"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196" ; disable
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- ;
- Q
- PROTOEDIT ; Edit the following protocol to remove entry action
- ;
- N GMRCIEN,VAL,GMRCERR
- S VAL="GMRC CONSULTS TO HCP"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- I 'GMRCIEN D MES^XPDUTL("Missing "_VAL_" - Cannot edit protocol")
- D MES^XPDUTL("")
- I GMRCIEN D
- .S FDA(101,GMRCIEN_",",20)="@"
- .D FILE^DIE(,"FDA","GMRCERR") K FDA
- .I $D(GMRCERR) D MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to remove entry action")
- .I '$D(GMRCERR) D MES^XPDUTL("The "_VAL_" protocol has been updated to remove entry action.")
- ;
- Q
- PROTOREM ; Remove the following child protocol from parent
- ;
- N VAL,VAL1,GMRCIEN,GMRCIEN1,DA,DIK
- S VAL="GMRC CONSULTS TO HCP"
- S VAL1="GMRC EVSEND OR"
- S GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- D MES^XPDUTL("")
- I 'GMRCIEN D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL) Q
- S GMRCIEN1=$$FIND1^DIC(101,,"B",.VAL1)
- I 'GMRCIEN1 D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL1) Q
- S DA=$O(^ORD(101,GMRCIEN1,10,"B",GMRCIEN,0))
- I 'DA D MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Already removed") Q
- S DA(1)=GMRCIEN1
- S DIK="^ORD(101,"_DA(1)_",10,"
- D ^DIK
- D MES^XPDUTL("")
- I $D(GMRCERR) D Q ; something went wrong
- .D MES^XPDUTL("FileMan error when removing "_VAL_" from "_VAL1_" protocol")
- D MES^XPDUTL(VAL_" has been removed from "_VAL1_" protocol.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRC196P 7805 printed Jan 18, 2025@02:46:04 Page 2
- 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
- +2 ;
- +3 ; Reference to ^ORD(101 in ICR #872
- +4 ;
- +5 ; Depreciated GMRCHCP via GMRC*3.0*196
- +6 ;
- +7 QUIT
- POST ;
- +1 ;
- +2 DO BMES^XPDUTL("Post-install GMRC196P begin...")
- +3 ;
- +4 DO LINK
- DO INACTVAPP
- DO PROTODIS
- DO PROTOEDIT
- DO PROTOREM
- +5 ;
- +6 DO BMES^XPDUTL("Post-install GMRC196P complete...")
- +7 QUIT
- LINK ; Update the GMRCHCP HL logical link to disable AUTOSTART
- +1 NEW GMRCIEN,VAL,FDA,GMRCERR
- +2 SET VAL="GMRCHCP"
- +3 SET GMRCIEN=$$FIND1^DIC(870,,"B",.VAL)
- +4 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable AUTOSTART")
- QUIT
- +5 ; AUTOSTART disabled
- SET FDA(870,GMRCIEN_",",4.5)=0
- +6 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +7 DO MES^XPDUTL("")
- +8 ; something went wrong
- IF $DATA(GMRCERR)
- Begin DoDot:1
- +9 DO MES^XPDUTL("FileMan error when disabling AUTOSTART for the GMRCHCP HL logical link")
- End DoDot:1
- QUIT
- +10 DO MES^XPDUTL("GMRCHCP HL logical link AUTOSTART has been disabled.")
- +11 QUIT
- INACTVAPP ; Update the HL7 Application Parameter file to mark GMRC HCP SEND and GMRC HCP RECEIVE inactive
- +1 NEW GMRCIEN,VAL,FDA,GMRCERR
- +2 SET VAL="GMRC HCP SEND"
- +3 SET GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
- +4 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
- +5 DO MES^XPDUTL("")
- +6 IF GMRCIEN
- Begin DoDot:1
- +7 ; mark inactive
- SET FDA(771,GMRCIEN_",",2)="i"
- +8 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +9 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
- +10 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
- End DoDot:1
- +11 ;
- +12 NEW GMRCIEN,VAL,FDA,GMRCERR
- +13 SET VAL="GMRC HCP RECEIVE"
- +14 SET GMRCIEN=$$FIND1^DIC(771,,"B",.VAL)
- +15 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot edit application pararmeter")
- +16 DO MES^XPDUTL("")
- +17 IF GMRCIEN
- Begin DoDot:1
- +18 ; mark inactive
- SET FDA(771,GMRCIEN_",",2)="i"
- +19 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +20 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when marking the "_VAL_" application parameter inactive")
- +21 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" application parameter has been marked inactive.")
- End DoDot:1
- +22 QUIT
- PROTODIS ; Disable the following protocols
- +1 ;
- +2 NEW GMRCIEN,VAL,GMRCERR
- +3 SET VAL="GMRC HCP REF-I12 CLIENT"
- +4 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +5 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +6 DO MES^XPDUTL("")
- +7 IF GMRCIEN
- Begin DoDot:1
- +8 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +9 ; Delete GMRCHCP from logical link
- SET FDA(101,GMRCIEN_",",770.7)="@"
- +10 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +11 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +12 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +13 ;
- +14 NEW GMRCIEN,VAL,GMRCERR
- +15 SET VAL="GMRC HCP REF-I13 CLIENT"
- +16 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +17 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +18 DO MES^XPDUTL("")
- +19 IF GMRCIEN
- Begin DoDot:1
- +20 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +21 ; Delete GMRCHCP from logical link
- SET FDA(101,GMRCIEN_",",770.7)="@"
- +22 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +23 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +24 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +25 ;
- +26 NEW GMRCIEN,VAL,GMRCERR
- +27 SET VAL="GMRC HCP REF-I14 CLIENT"
- +28 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +29 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +30 DO MES^XPDUTL("")
- +31 IF GMRCIEN
- Begin DoDot:1
- +32 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +33 ; Delete GMRCHCP from logical link
- SET FDA(101,GMRCIEN_",",770.7)="@"
- +34 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +35 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +36 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +37 ;
- +38 NEW GMRCIEN,VAL,GMRCERR
- +39 SET VAL="GMRC HCP RRI-I13 CLIENT"
- +40 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +41 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +42 DO MES^XPDUTL("")
- +43 IF GMRCIEN
- Begin DoDot:1
- +44 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +45 ; Delete GMRCHCP from logical link
- SET FDA(101,GMRCIEN_",",770.7)="@"
- +46 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +47 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +48 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +49 ;
- +50 NEW GMRCIEN,VAL,GMRCERR
- +51 SET VAL="GMRC HCP REF-I12 SERVER"
- +52 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +53 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +54 DO MES^XPDUTL("")
- +55 IF GMRCIEN
- Begin DoDot:1
- +56 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +57 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +58 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +59 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +60 ;
- +61 NEW GMRCIEN,VAL,GMRCERR
- +62 SET VAL="GMRC HCP REF-I13 SERVER"
- +63 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +64 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +65 DO MES^XPDUTL("")
- +66 IF GMRCIEN
- Begin DoDot:1
- +67 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +68 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +69 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +70 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +71 ;
- +72 NEW GMRCIEN,VAL,GMRCERR
- +73 SET VAL="GMRC HCP REF-I14 SERVER"
- +74 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +75 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +76 DO MES^XPDUTL("")
- +77 IF GMRCIEN
- Begin DoDot:1
- +78 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +79 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +80 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +81 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +82 ;
- +83 NEW GMRCIEN,VAL,GMRCERR
- +84 SET VAL="GMRC HCP RRI-I13 SERVER"
- +85 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +86 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot disable "_VAL_" protocol")
- +87 DO MES^XPDUTL("")
- +88 IF GMRCIEN
- Begin DoDot:1
- +89 ; disable
- SET FDA(101,GMRCIEN_",",2)="Deprecated via GMRC*3.0*196"
- +90 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +91 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to mark as disabled")
- +92 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" Protocol has been updated to disable.")
- End DoDot:1
- +93 ;
- +94 QUIT
- PROTOEDIT ; Edit the following protocol to remove entry action
- +1 ;
- +2 NEW GMRCIEN,VAL,GMRCERR
- +3 SET VAL="GMRC CONSULTS TO HCP"
- +4 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +5 IF 'GMRCIEN
- DO MES^XPDUTL("Missing "_VAL_" - Cannot edit protocol")
- +6 DO MES^XPDUTL("")
- +7 IF GMRCIEN
- Begin DoDot:1
- +8 SET FDA(101,GMRCIEN_",",20)="@"
- +9 DO FILE^DIE(,"FDA","GMRCERR")
- KILL FDA
- +10 IF $DATA(GMRCERR)
- DO MES^XPDUTL("FileMan error when editing the "_VAL_" protocol to remove entry action")
- +11 IF '$DATA(GMRCERR)
- DO MES^XPDUTL("The "_VAL_" protocol has been updated to remove entry action.")
- End DoDot:1
- +12 ;
- +13 QUIT
- PROTOREM ; Remove the following child protocol from parent
- +1 ;
- +2 NEW VAL,VAL1,GMRCIEN,GMRCIEN1,DA,DIK
- +3 SET VAL="GMRC CONSULTS TO HCP"
- +4 SET VAL1="GMRC EVSEND OR"
- +5 SET GMRCIEN=$$FIND1^DIC(101,,"B",.VAL)
- +6 DO MES^XPDUTL("")
- +7 IF 'GMRCIEN
- DO MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL)
- QUIT
- +8 SET GMRCIEN1=$$FIND1^DIC(101,,"B",.VAL1)
- +9 IF 'GMRCIEN1
- DO MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Missing "_VAL1)
- QUIT
- +10 SET DA=$ORDER(^ORD(101,GMRCIEN1,10,"B",GMRCIEN,0))
- +11 IF 'DA
- DO MES^XPDUTL("Cannot remove "_VAL_" from "_VAL1_" protocol - Already removed")
- QUIT
- +12 SET DA(1)=GMRCIEN1
- +13 SET DIK="^ORD(101,"_DA(1)_",10,"
- +14 DO ^DIK
- +15 DO MES^XPDUTL("")
- +16 ; something went wrong
- IF $DATA(GMRCERR)
- Begin DoDot:1
- +17 DO MES^XPDUTL("FileMan error when removing "_VAL_" from "_VAL1_" protocol")
- End DoDot:1
- QUIT
- +18 DO MES^XPDUTL(VAL_" has been removed from "_VAL1_" protocol.")
- +19 QUIT