- MPIFPST1 ;CMC/SF-MPI VISTA build post-init ;JAN 13, 2000
- ;;1.0; MASTER PATIENT INDEX VISTA ;**1**;30 Apr 99
- ;
- EN ;This post init will correct any exiting problems with the setting of
- ; the ^DPT("AICNL" cross reference for local ICNs or the field Locally
- ; assigned ICN in the patient file for local ICNs.
- ;
- D BMES^XPDUTL("Updating 'AICNL' Cross Reference. This may take some time")
- N EN,LOCAL,ICN,SITE
- S ICN=0,SITE=$P($$SITE^VASITE(),"^",3)
- F S ICN=$O(^DPT("AICN",ICN)) Q:ICN="" D
- .S EN=""
- .F S EN=$O(^DPT("AICN",ICN,EN)) Q:EN="" D
- ..I $E(ICN,1,3)=SITE D
- ...I $P($G(^DPT(EN,"MPI")),"^")=ICN S LOCAL=$$SETLOC^MPIF001(EN,1),^DPT("AICNL",1,EN)=""
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMPIFPST1 685 printed Apr 23, 2025@18:25:48 Page 2
- MPIFPST1 ;CMC/SF-MPI VISTA build post-init ;JAN 13, 2000
- +1 ;;1.0; MASTER PATIENT INDEX VISTA ;**1**;30 Apr 99
- +2 ;
- EN ;This post init will correct any exiting problems with the setting of
- +1 ; the ^DPT("AICNL" cross reference for local ICNs or the field Locally
- +2 ; assigned ICN in the patient file for local ICNs.
- +3 ;
- +4 DO BMES^XPDUTL("Updating 'AICNL' Cross Reference. This may take some time")
- +5 NEW EN,LOCAL,ICN,SITE
- +6 SET ICN=0
- SET SITE=$PIECE($$SITE^VASITE(),"^",3)
- +7 FOR
- SET ICN=$ORDER(^DPT("AICN",ICN))
- if ICN=""
- QUIT
- Begin DoDot:1
- +8 SET EN=""
- +9 FOR
- SET EN=$ORDER(^DPT("AICN",ICN,EN))
- if EN=""
- QUIT
- Begin DoDot:2
- +10 IF $EXTRACT(ICN,1,3)=SITE
- Begin DoDot:3
- +11 IF $PIECE($GET(^DPT(EN,"MPI")),"^")=ICN
- SET LOCAL=$$SETLOC^MPIF001(EN,1)
- SET ^DPT("AICNL",1,EN)=""
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +12 QUIT
- +13 ;
