Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MPIFP43

MPIFP43.m

Go to the documentation of this file.
  1. MPIFP43 ;BIR/PTD-MPIF*1*43 PATCH POST INSTALL ROUTINE ;10/12/05
  1. ;;1.0; MASTER PATIENT INDEX VISTA ;**43**;30 Apr 99
  1. ;
  1. ;Reference to ^DPT("AICNL", supported by IA #2070
  1. ;
  1. POST ;Reset the "AICNL" cross-reference to null so that existing entries
  1. ;will be reprocessed by the Local/Missing ICN Resolution job.
  1. D BMES^XPDUTL(" >> Reviewing the 'AICNL' cross-reference.")
  1. I '$D(^DPT("AICNL",1)) D MES^XPDUTL(" >> No 'AICNL' cross-reference to reset.") Q
  1. N CNT,DFN
  1. S (DFN,CNT)=0
  1. F S DFN=$O(^DPT("AICNL",1,DFN)) Q:DFN="" D
  1. .S ^DPT("AICNL",1,DFN)="",CNT=CNT+1
  1. D MES^XPDUTL(" >> Reset "_CNT_" 'AICNL' cross-references.")
  1. Q