RAIPS144.m

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 ---RAIPS144   1024     printed  Mar 13, 2025@21:40:47                                                                                                                                                                                                    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