RAIPS144 ;WOIFO/KLM-Rad/NM Post-init Driver, patch 144;07 Mar 2018 3:25 PM
;;5.0;Radiology/Nuclear Medicine;**144**;Mar 16, 1998;Build 1
;Clean-up decommissioned HLO Application Registries for NTP
; RA-NTP-QRY-CLIENT
; RA-NTP-QRY-SERVER
; RA-NTP-QUERY
; RA-NTP-RSP
;
;Integration Agreements
;----------------------
; FIND^DIC 2051 (S)
; $$DELETE^HLOASUB1 6865 (P)
;
EN ;Entry pt for post-install
N RACHK
;
;Delete RA NTP HLO Application Registries
S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAIPS144")
;
Q
EN1 ;Post-install entry point
N RAHLOAR,RAARY,RAI,RATXT,RADA,RAFILE,RADEL,RAERR
S RAHLOAR="RA-NTP-",RAFILE=779.2
D FIND^DIC(779.2,"","@;.01","P",RAHLOAR,"","","","","RAARY")
I +RAARY("DILIST",0)>0 S RAI=0 F S RAI=$O(RAARY("DILIST",RAI)) Q:RAI="" D
.S RAHLOAR=$G(RAARY("DILIST",RAI,0))
.S RADA=$P(RAHLOAR,"^") Q:RADA=""
.S RADEL=$$DELETE^HLOASUB1(RAFILE,RADA,.RAERR)
.I $G(RAERR)="" S RATXT=$P(RAHLOAR,"^",2)_" deleted."
.D MES^XPDUTL(RATXT)
.Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS144 1024 printed Dec 13, 2024@02:36:02 Page 2
RAIPS144 ;WOIFO/KLM-Rad/NM Post-init Driver, patch 144;07 Mar 2018 3:25 PM
+1 ;;5.0;Radiology/Nuclear Medicine;**144**;Mar 16, 1998;Build 1
+2 ;Clean-up decommissioned HLO Application Registries for NTP
+3 ; RA-NTP-QRY-CLIENT
+4 ; RA-NTP-QRY-SERVER
+5 ; RA-NTP-QUERY
+6 ; RA-NTP-RSP
+7 ;
+8 ;Integration Agreements
+9 ;----------------------
+10 ; FIND^DIC 2051 (S)
+11 ; $$DELETE^HLOASUB1 6865 (P)
+12 ;
EN ;Entry pt for post-install
+1 NEW RACHK
+2 ;
+3 ;Delete RA NTP HLO Application Registries
+4 SET RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAIPS144")
+5 ;
+6 QUIT
EN1 ;Post-install entry point
+1 NEW RAHLOAR,RAARY,RAI,RATXT,RADA,RAFILE,RADEL,RAERR
+2 SET RAHLOAR="RA-NTP-"
SET RAFILE=779.2
+3 DO FIND^DIC(779.2,"","@;.01","P",RAHLOAR,"","","","","RAARY")
+4 IF +RAARY("DILIST",0)>0
SET RAI=0
FOR
SET RAI=$ORDER(RAARY("DILIST",RAI))
if RAI=""
QUIT
Begin DoDot:1
+5 SET RAHLOAR=$GET(RAARY("DILIST",RAI,0))
+6 SET RADA=$PIECE(RAHLOAR,"^")
if RADA=""
QUIT
+7 SET RADEL=$$DELETE^HLOASUB1(RAFILE,RADA,.RAERR)
+8 IF $GET(RAERR)=""
SET RATXT=$PIECE(RAHLOAR,"^",2)_" deleted."
+9 DO MES^XPDUTL(RATXT)
+10 QUIT
End DoDot:1
+11 QUIT
