DVBCPATA ;ALB/JLU,557/THM-ADD NEW VET TO FILE #2 ; 10/4/91  9:22 AM
 ;;2.7;AMIE;**1,23,40,42,55,77,149**;Apr 10, 1995;Build 16
 ;Per VHA Directive 2004-038, this routine should not be modified.
 ;
EN ;retrieve patient for C&P request
 ;DVBA*2.7*149 removed ability for user to add patient to File #2
 
OLDHD1=HD1,HD1="Additional Veteran Information"
 
OUT
 
DIC="^DPT(",DIC(0)="AEMQ"
 
^DIC
 
Y<0 OUT=1 EXIT Q
 S 
DA=+Y
 
;
ADDR DTA=^DPT(DA,0),PNAM=$P(DTA,U,1),SSN=$P(DTA,U,9),DFN=DA,CNUM=$S($D(^DPT(DFN,.31)):$P(^(.31),U,3),1:"Unknown"S:CNUM="" CNUM="Unknown"
 ;
ASK %Y ADDR^DVBCUTIL !,"Is this the correct Veteran" %=2 YN^DICN I $D(DTOUT)!(%<0) OUT=1 EXIT
 
I $D(%Y%Y["?" !!,"Enter Y if it is the correct Veteran, N to reselect",! ASK
 
%Y I $D(%),%'=1 CLR EN
 
!!
 
;
EXIT HD1=OLDHD1 OLDHD1,DIC,%,%Y,DTA,X,Y,DTOUT,DUOUT Q
 
;
CLR @IOF,!?(IOM-$L(HD1)\2),HD1,!!
 
Q
 
;
MPI(DVBBKMSG,DFN) ;MPI call to set ICN
 ;check to see if CIRN PD/MPI is installed
 
I $D(DG20NAMEDG20NAME
 
X="MPIFAPI" ^%ZOSF("TEST"Q:'$T
 K 
MPIFRTN
 
MPIFS=1
 
MPIQ^MPIFAPI(DFN)
 
MPIFRTN
 
Q