MPIFP43.m

MPIFP43 ;BIR/PTD-MPIF*1*43 PATCH POST INSTALL ROUTINE ;10/12/05

 ;;1.0; MASTER PATIENT INDEX VISTA ;**43**;30 Apr 99

 ;

 ;Reference to ^DPT("AICNL", supported by IA #2070

 ;

POST ;Reset the "AICNL" cross-reference to null so that existing entries

 ;will be reprocessed by the Local/Missing ICN Resolution job.

 D BMES^XPDUTL("     >> Reviewing the 'AICNL' cross-reference.")

 I '$D(^DPT("AICNL",1)) D MES^XPDUTL("     >> No 'AICNL' cross-reference to reset.") Q

 N CNT,DFN

 S (DFN,CNT)=0

 F  S DFN=$O(^DPT("AICNL",1,DFN)) Q:DFN=""  D

 .S ^DPT("AICNL",1,DFN)="",CNT=CNT+1

 D MES^XPDUTL("     >> Reset "_CNT_" 'AICNL' cross-references.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MPIFP43   654     printed  Apr 09, 2024@21:13:39                                                                                                                                                                                                      Page 2

MPIFP43   ;BIR/PTD-MPIF*1*43 PATCH POST INSTALL ROUTINE ;10/12/05

 +1       ;;1.0; MASTER PATIENT INDEX VISTA ;**43**;30 Apr 99

 +2       ;

 +3       ;Reference to ^DPT("AICNL", supported by IA #2070

 +4       ;

POST      ;Reset the "AICNL" cross-reference to null so that existing entries

 +1       ;will be reprocessed by the Local/Missing ICN Resolution job.

 +2        DO BMES^XPDUTL("     >> Reviewing the 'AICNL' cross-reference.")

 +3        IF '$DATA(^DPT("AICNL",1))

               DO MES^XPDUTL("     >> No 'AICNL' cross-reference to reset.")

               QUIT 

 +4        NEW CNT,DFN

 +5        SET (DFN,CNT)=0

 +6        FOR 

               SET DFN=$ORDER(^DPT("AICNL",1,DFN))

               if DFN=""

                   QUIT 

               Begin DoDot:1

 +7                SET ^DPT("AICNL",1,DFN)=""

                   SET CNT=CNT+1

               End DoDot:1

 +8        DO MES^XPDUTL("     >> Reset "_CNT_" 'AICNL' cross-references.")

 +9        QUIT