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 ---[H[J[2J[HMPIFP43 654 printed Dec 13, 2024@02:11:19 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
