Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Registration 4 $$EN^VAFCPID  $$DELALLTF^VAFCTFU  $$QUERYTF^VAFCTFU1  $$SITE^VASITE  
Health Level Seven 3 $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$LKUP^XUAF4  
Master Patient Index VistA 3 ($$CMOR2,$$GETICN,$$GETVCCI)^MPIF001  ($$MPINODE,$$UPDATE)^MPIFAPI  $$PAT^MPIFNQ  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Clinical Information Resource Network 1 (EXC,START,STOP)^RGHLLOG  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Master Patient Index VistA 2 MPIF A29 SERVER  MPIFRPC  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
PAT1 ;entry point for tasked job from .01 in Patient file for ZZ patients
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.
DELETE(DFN) ;
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
ZZSET(DA,NAME) ;this entry point checks to see if .01 of Patient file entry
EXC(DFN,ERROR,TYPE) ; subscribers, log exception
INTER ;
HL7(DFN,ERROR) ; create HL7 message
; check if no subscribers

External References

Name Field # of Occurrence
NOW^%DTC HL7+12
^%ZTLOAD ZZSET+11, SSET+8
^DIC INTER+5
^DIR INTER+15
$$HLDATE^HLFNC HL7+12
INIT^HLFNC2 HL7+14
GENERATE^HLMA HL7+19
$$CMOR2^MPIF001 INTER+10
$$GETICN^MPIF001 INTER+11, HL7+4, PAT+4, PAT+5, PAT+7, ZZSET+7, ZZKILL+4, SSET+4
$$GETVCCI^MPIF001 INTER+8
$$MPINODE^MPIFAPI INTER+6
$$UPDATE^MPIFAPI DELETE+4
$$PAT^MPIFNQ INTER+10, PAT+5
EXC^RGHLLOG EXC+2
START^RGHLLOG EXC+1
STOP^RGHLLOG EXC+3
$$EN^VAFCPID HL7+17
$$DELALLTF^VAFCTFU INTER+19, PAT+7
$$QUERYTF^VAFCTFU1 HL7+7
$$SITE^VASITE INTER+10, HL7+5, HL7+9, PAT+5
$$FMADD^XLFDT ZZSET+10, SSET+7
$$NOW^XLFDT ZZSET+10, SSET+7
$$LKUP^XUAF4 INTER+8

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
Routine Call
  • DIC
  • Line Location:
    • INTER+5
Routine Call
  • DIR
  • Line Location:
    • INTER+15

Used in HL7 Interface

HL7 Protocol Name Call Tags
MPIF A29 SERVER PAT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("INAC" PAT1+4, PAT1+8

Label References

Name Line Occurrences
DELETE INTER+19, PAT+7
EXC HL7+15, HL7+20, PAT+5
HL7 INTER+18, PAT+6
PAT PAT1+6, ZZKILL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HL7+2~, HL7+12
ARR DELETE+3*, DELETE+4, DELETE+5!
ARRAY DELETE+1~
ARRAY( DELETE+2*
CNT INTER+3~, HL7+2~, HL7+13*, HL7+16*, HL7+17*
DA INTER+3~, PAT1+3, PAT1+4, PAT1+6, ZZSET~, ZZSET+7, ZZSET+9, ZZKILL~, ZZKILL+4, SSET~
, SSET+4, SSET+6
DATE INTER+3~
DFN INTER+3~, INTER+5*, INTER+6, INTER+8, INTER+10, INTER+11, INTER+18, INTER+19, HL7~, HL7+4
, HL7+10, HL7+15, HL7+17, HL7+20, PAT~, PAT+3, PAT+4, PAT+5, PAT+6, PAT+7
, DELETE~, DELETE+4, EXC~, EXC+2
DIC INTER+3~, INTER+5*
DIC(0 INTER+5*
DIR INTER+13~, INTER+16!
DIR("A" INTER+14*
DIR("B" INTER+13*
DIR(0 INTER+13*
DTOUT INTER+3~, INTER+17
DUTOUT INTER+3~, INTER+17
ERR PAT1+1~, PAT1+2*, PAT1+6, ZZKILL+3~*, ZZKILL+4
ERROR INTER+3~, INTER+4*, INTER+18, INTER+19*, INTER+20, INTER+21, HL7~, HL7+4*, HL7+10*, HL7+11
, HL7+15*, HL7+20*, PAT~, PAT+2*, PAT+3*, PAT+5*, PAT+6, PAT+7*, EXC~, EXC+2
HL INTER+3~, HL7+2~, HL7+13*, HL7+14, HL7+15, HL7+19
HL("FS" HL7+16
>> HLA("HLS" HL7+16*, HL7+17*
HLDATE HL7+2~, HL7+12*, HL7+16
HLL HL7+3!
HLRST INTER+3~, HL7+19, HL7+20
ICN INTER+3~, INTER+6*, INTER+7, INTER+11*, INTER+19, HL7+2~, HL7+4*, HL7+5, HL7+7
IEN HL7+2~, HL7+9*
MPIFCMOR INTER+3~, INTER+8*, INTER+9
MPIFDEL HL7+3!, HL7+8, HL7+21!
MPIFDEL( HL7+9
NAME ZZSET~, ZZSET+5, ZZSET+9, ZZKILL~
SSN SSET~, SSET+3
SUB HL7+2~, HL7+7*
TDA PAT1+1~, PAT1+3*, PAT1+8
TFC HL7+2~, HL7+7*, HL7+9*, HL7+10
TMP DELETE+1~, DELETE+4*
TYPE EXC~, EXC+2
Y INTER+5, INTER+13~, INTER+17
ZTDESC ZZSET+8*, ZZSET+12!, SSET+5*, SSET+9!
ZTDTH ZZSET+10*, ZZSET+12!, SSET+7*, SSET+9!
ZTIO ZZSET+9*, ZZSET+12!, SSET+6*, SSET+9!
ZTREQ PAT1+7*, ZZSET+12!, SSET+9!
ZTRTN ZZSET+8*, ZZSET+12!, SSET+5*, SSET+9!
ZTSAVE ZZSET+12!, SSET+9!
ZTSAVE("DA" ZZSET+9*, SSET+6*
ZTSAVE("NAME" ZZSET+9*
ZTSAVE("SSN" SSET+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All