Print Page as PDF
DGCN(391.91 - GET EDIPI FOR DFN ICR (7316)

DGCN(391.91 - GET EDIPI FOR DFN    ICR (7316)

Name Value
NUMBER 7316
IA # 7316
FILE NUMBER 391.91
GLOBAL ROOT DGCN(391.91,
DATE CREATED 2021/12/16
CUSTODIAL PACKAGE REGISTRATION
USAGE Private
TYPE File
NAME DGCN(391.91 - GET EDIPI FOR DFN
GENERAL DESCRIPTION 
Treating Facility List where patients have had
treatment.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
DGCN(391.91,
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Direct Global Read & w/Fileman PATIENT 0;1
.02 Direct Global Read & w/Fileman INSTITUTION 0;2
.09 Direct Global Read & w/Fileman SOURCE ID TYPE 0;9
11 Direct Global Read & w/Fileman SOURCE ID 2;2
12 Direct Global Read & w/Fileman IDENTIFIER STATUS 2;3
STATUS Withdrawn
DURATION Till Otherwise Agreed
ID DGCN(391.91,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
CONSULT/REQUEST TRACKING 
IFC processing code needs EDIPI for a DFN so EDIPI can
be included in HL7 message to Cerner.  Function is in GMRCIUTL:

EDIPI(DFN) ; p184
;
;  Return patient's EDIPI
;
N INST,EDIPI,TYPE,IEN,X ;
;
S INST=0,EDIPI="" ;
F  S INST=$O(^DGCN(391.91,"AKEY",DFN,INST)) Q:'INST!(EDIPI'="")  S TYPE="" F
S TYPE=$O(^DGCN(391.91,"AKEY",DFN,INST,TYPE)) Q:TYPE=""  I
$D(^DGCN(391.91,"AKEY",DFN,INST,TYPE,"USDOD")) D  ;
. S IEN=0 F  S IEN=$O(^DGCN(391.91,"AKEY",DFN,INST,TYPE,"USDOD",IEN)) Q:'IEN
S X=$G(^DGCN(391.91,IEN,2)) I X'="",$P(X,U,3)'="H" S
EDIPI=$S(EDIPI="":"",1:EDIPI_U)_$P(X,U,2) ;
;
Q EDIPI ;
;