MDPCE ; HIRMFO/NCA - Routine For Data Extract ;Sep 24, 2021@12:35
;;1.0;CLINICAL PROCEDURES;**5,21,80**;Apr 01, 2004;Build 3
; Integration Agreements:
; IA# 1889 [Subscription] Create New Visit
; IA# 10060 NEW PERSON (#200) file
;
EN1(MDINST,MDPDTE,MDPR,MDTYP,MDETYP) ; [Function] PCE Visit Creation
; Input parameters
; 1. MDINST [Literal/Required] Transaction IEN
; 2. MDPDT [Literal/Optional] Procedure Date/Time
; 3. MDPR [Literal/Required] CP Definition
; 4. MDTYP [Literal/Required] Type of Visit (Ambulatory or Hospitalization or Event (Historical))
; 5. MDETYP [Literal/Required] Encounter Type (Primary or Ancillary)
;
N DATA,MDCLOC,MDPERR,MDJ,MDPKG,MDRES,MDSTR,MDVISIT,MDDRES K ^TMP("MDPXAPI",$J)
S MDOUT=""
S MDPKG=$$FIND1^DIC(9.4,"","MX","CLINICAL PROCEDURES")
I 'MDPKG Q "-1^CLINICAL PROCEDURES does not exist in Package File."
I '$D(^MDD(702,MDINST,0)) Q "-1^No Study Record."
S MDSTR=$G(^MDD(702,MDINST,0))
S MDJ=0,MDJ=MDJ+1
S MDCLOC=$$GET1^DIQ(702.01,+MDPR_",",.05,"I")
I 'MDCLOC S:MDPR["^" MDCLOC=$P(MDPR,"^",2)
I 'MDCLOC Q "-1^No Hospital Location for CP Definition."
S ^TMP("MDPXAPI",$J,"ENCOUNTER",MDJ,"ENC D/T")=MDPDTE
S ^TMP("MDPXAPI",$J,"ENCOUNTER",MDJ,"PATIENT")=$P(MDSTR,"^",1)
S ^TMP("MDPXAPI",$J,"ENCOUNTER",MDJ,"HOS LOC")=MDCLOC
S ^TMP("MDPXAPI",$J,"ENCOUNTER",MDJ,"SERVICE CATEGORY")=MDTYP
S ^TMP("MDPXAPI",$J,"ENCOUNTER",MDJ,"ENCOUNTER TYPE")=MDETYP
;MD*1.0*80: If DUZ not defined, zero, not numeric, or null,
; send DUZ for proxy service. (Considered also validating
; whether a numeric DUZ sent in by upstream logic exists
; in file 200. If a numeric DUZ is not in file 200, PCE
; will send back a processing error of "not a valid pointer
; to the New Person file #200". This might indicate a
; configuration issue which the site needs to be aware of.
; Since PCE performs this validation, there shouldn't be a
; need for MDPCE* routines to.)
S MDRES=$$DATA2PCE^PXAPI("^TMP(""MDPXAPI"",$J)",MDPKG,"CLINICAL PROCEDURES",.MDVISIT,$S('$G(DUZ):$$FINDD(),1:""),"",1,"",.MDPERR)
I MDRES D Q MDOUT
.S MDOUT=MDVISIT_"^"_MDCLOC_";"_MDPDTE_";"_MDTYP
.S MDFDA(702,MDINST_",",.07)=MDTYP_";"_MDPDTE_";"_MDCLOC
.S:MDVISIT>0 MDFDA(702,MDINST_",",.13)=MDVISIT
.D FILE^DIE("K","MDFDA") K ^TMP("MDPXAPI",$J)
K ^TMP("MDPXAPI",$J)
S MDOUT="-1^PCE Visit Creation Error."
Q MDOUT
;
FINDD() ; Find the internal entry number of Clinical, Device Proxy Service
;added by MD*1.0*80
Q $$FIND1^DIC(200,,"X","CLINICAL,DEVICE PROXY SERVICE","B")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPCE 2632 printed Nov 22, 2024@16:53:18 Page 2
MDPCE ; HIRMFO/NCA - Routine For Data Extract ;Sep 24, 2021@12:35
+1 ;;1.0;CLINICAL PROCEDURES;**5,21,80**;Apr 01, 2004;Build 3
+2 ; Integration Agreements:
+3 ; IA# 1889 [Subscription] Create New Visit
+4 ; IA# 10060 NEW PERSON (#200) file
+5 ;
EN1(MDINST,MDPDTE,MDPR,MDTYP,MDETYP) ; [Function] PCE Visit Creation
+1 ; Input parameters
+2 ; 1. MDINST [Literal/Required] Transaction IEN
+3 ; 2. MDPDT [Literal/Optional] Procedure Date/Time
+4 ; 3. MDPR [Literal/Required] CP Definition
+5 ; 4. MDTYP [Literal/Required] Type of Visit (Ambulatory or Hospitalization or Event (Historical))
+6 ; 5. MDETYP [Literal/Required] Encounter Type (Primary or Ancillary)
+7 ;
+8 NEW DATA,MDCLOC,MDPERR,MDJ,MDPKG,MDRES,MDSTR,MDVISIT,MDDRES
KILL ^TMP("MDPXAPI",$JOB)
+9 SET MDOUT=""
+10 SET MDPKG=$$FIND1^DIC(9.4,"","MX","CLINICAL PROCEDURES")
+11 IF 'MDPKG
QUIT "-1^CLINICAL PROCEDURES does not exist in Package File."
+12 IF '$DATA(^MDD(702,MDINST,0))
QUIT "-1^No Study Record."
+13 SET MDSTR=$GET(^MDD(702,MDINST,0))
+14 SET MDJ=0
SET MDJ=MDJ+1
+15 SET MDCLOC=$$GET1^DIQ(702.01,+MDPR_",",.05,"I")
+16 IF 'MDCLOC
if MDPR["^"
SET MDCLOC=$PIECE(MDPR,"^",2)
+17 IF 'MDCLOC
QUIT "-1^No Hospital Location for CP Definition."
+18 SET ^TMP("MDPXAPI",$JOB,"ENCOUNTER",MDJ,"ENC D/T")=MDPDTE
+19 SET ^TMP("MDPXAPI",$JOB,"ENCOUNTER",MDJ,"PATIENT")=$PIECE(MDSTR,"^",1)
+20 SET ^TMP("MDPXAPI",$JOB,"ENCOUNTER",MDJ,"HOS LOC")=MDCLOC
+21 SET ^TMP("MDPXAPI",$JOB,"ENCOUNTER",MDJ,"SERVICE CATEGORY")=MDTYP
+22 SET ^TMP("MDPXAPI",$JOB,"ENCOUNTER",MDJ,"ENCOUNTER TYPE")=MDETYP
+23 ;MD*1.0*80: If DUZ not defined, zero, not numeric, or null,
+24 ; send DUZ for proxy service. (Considered also validating
+25 ; whether a numeric DUZ sent in by upstream logic exists
+26 ; in file 200. If a numeric DUZ is not in file 200, PCE
+27 ; will send back a processing error of "not a valid pointer
+28 ; to the New Person file #200". This might indicate a
+29 ; configuration issue which the site needs to be aware of.
+30 ; Since PCE performs this validation, there shouldn't be a
+31 ; need for MDPCE* routines to.)
+32 SET MDRES=$$DATA2PCE^PXAPI("^TMP(""MDPXAPI"",$J)",MDPKG,"CLINICAL PROCEDURES",.MDVISIT,$SELECT('$GET(DUZ):$$FINDD(),1:""),"",1,"",.MDPERR)
+33 IF MDRES
Begin DoDot:1
+34 SET MDOUT=MDVISIT_"^"_MDCLOC_";"_MDPDTE_";"_MDTYP
+35 SET MDFDA(702,MDINST_",",.07)=MDTYP_";"_MDPDTE_";"_MDCLOC
+36 if MDVISIT>0
SET MDFDA(702,MDINST_",",.13)=MDVISIT
+37 DO FILE^DIE("K","MDFDA")
KILL ^TMP("MDPXAPI",$JOB)
End DoDot:1
QUIT MDOUT
+38 KILL ^TMP("MDPXAPI",$JOB)
+39 SET MDOUT="-1^PCE Visit Creation Error."
+40 QUIT MDOUT
+41 ;
FINDD() ; Find the internal entry number of Clinical, Device Proxy Service
+1 ;added by MD*1.0*80
+2 QUIT $$FIND1^DIC(200,,"X","CLINICAL,DEVICE PROXY SERVICE","B")
