- 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 Feb 18, 2025@23:37:34 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