Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in HL7 Interface
Print Page as PDF
Routine: MPIFDEL

Package: Master Patient Index VistA

Routine: MPIFDEL


Information

MPIFDEL ;SF/MJM,CMC-DELETE PATIENT FROM MPI ;JUL 14, 1998

Source Information

Source file <MPIFDEL.m>

Entry Points

Name Comments DBIA/ICR reference
INTER ;
HL7(DFN,ERROR) ; create HL7 message
; check if no subscribers
PAT1 ;entry point for tasked job from .01 in Patient file for ZZ patients
PAT(DFN,ERROR) ;Programmer API to Delete MPI entry and remove ICN data from DPT
; if CMOR not defined but is a local CMOR, inactivate and don't log exception
DELETE(DFN) ;
EXC(DFN,ERROR,TYPE) ; subscribers, log exception
ZZSET(DA,NAME) ;this entry point checks to see if .01 of Patient file entry
ZZKILL(DA,NAME) ;This entry point checks if there is an ICN present, if so
SSET(DA,SSN) ; this entry point checks to see if the SSN has been changed
; to 5 leading zeros and if the ICN is present, if so, it will be
; inactivated.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"** Patient Does NOT have an ICN **"
  • Line Location: INTER+7
Function Call: WRITE
  • Prompt: !,"*** Could NOT Inactivate Patient from MPI: Coordinating Master of Record is Not Defined ***"
  • Line Location: INTER+9
Function Call: WRITE
  • Prompt: !,"*** Could NOT Inactivate Patient from MPI: Coordinating Master of record site is '"_$$CMOR2^MPIF001(DFN)_"'. You MUST be the CMOR ***"
  • Line Location: INTER+10
Function Call: WRITE
  • Prompt: !,"*** Inactivated on YOUR system, message sent to MPI to Inactivate ***"
  • Line Location: INTER+20
Function Call: WRITE
  • Prompt: !,"Error Occurred - "_ERROR
  • Line Location: INTER+21

Used in HL7 Interface

HL7 Protocol Name Call Tags
MPIF A29 SERVER PAT
Info |  Source |  Entry Points |  Interaction Calls |  Used in HL7 Interface