Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECXTRT2

ECXTRT2.m

Go to the documentation of this file.
  1. ECXTRT2 ;ALB/JAP,BIR/DMA,CML,PTD-Treating Specialty Change Extract ;4/17/17 11:04
  1. ;;3.0;DSS EXTRACTS;**105,127,161,166,184,190**;Dec 22, 1997;Build 36
  1. ;
  1. FILE ;file the extract record
  1. ;node0
  1. ;^dfn^facility^ssn^name^i/o (ECXA)^date^product^adm date^d/c date^ ;166 tjl - store the FACILITY, starting in FY18
  1. ;mov#^type^new ts^losing ts^losing ts los^
  1. ;losing attending^movement type^time^adm time^new provider^
  1. ;new attending^losing provider
  1. ;node1
  1. ;mpi^placeholder^placeholder^placeholder^placeholder^
  1. ;placeholder^losing attending los^losing provider los^dom^
  1. ;observ pat ind^encounter num
  1. ;^losing attending physician npi^losing prim ward provider npi^
  1. ;new attending physician npi^new primary ward provider npi
  1. ;^product division code^losing attending physician PC^new primary ward
  1. ;provider pc^new attending physician pc^losing primary ward prov pc^
  1. ;new attending physician npi^new primary ward provider npi^PATCAT^
  1. ;node2 ;184
  1. ;CERNER Data (ECXCERN)^
  1. ;node 3 ;184,190
  1. ;New MPI (ECXNMPI)^Self Identified Gender (ECSIGI)^d/c time
  1. ;
  1. ;convert specialties to PTF Codes for transmission
  1. ;
  1. N ECXDATA
  1. S ECXDATA=$$TSDATA^DGACT(42.4,+ECXSPCN,.ECXDATA)
  1. S ECXSPCN=$G(ECXDATA(7))
  1. S ECXDATA=$$TSDATA^DGACT(42.4,+ECXSPCL,.ECXDATA)
  1. S ECXSPCL=$G(ECXDATA(7))
  1. ;done
  1. S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
  1. S ECODE=EC7_U_EC23_U_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECXDATE_U_U
  1. I ECXLOGIC>2017 S $P(ECODE,U,4)=ECXPDIV ;166 tjl - Store the Production Division Code in the Facility field
  1. I ECXLOGIC>2022 S ECXMPI="" ;184 - Field retired
  1. S ECODE=ECODE_ECXADMDT_U_ECXDCDT_U_ECDA_U_6_U_ECXSPCN_U_ECXSPCL_U
  1. S ECODE=ECODE_ECXLOS_U_ECXATTL_U_ECMT_U_ECXTIME_U_ECXADMTM_U_ECXPRVN_U
  1. S ECODE=ECODE_ECXATTN_U_ECXPRVL_U
  1. S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_U
  1. S ECODE1=ECODE1_ECXLOSA_U_ECXLOSP_U_ECXDOM_U_ECXOBS_U_ECXENC_U_ECXPDIV
  1. I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXATLPC_U_ECXPRNPC_U_ECXATNPC_U_ECXPRLPC
  1. I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECATLNPI_U_ECPRLNPI_U_ECATTNPI_U_ECPRVNPI
  1. I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECXPATCAT_U ;184 Added "^"
  1. I ECXLOGIC>2022 S ECODE2=$G(ECXCERN)_U,ECODE3=ECXNMPI_U_ECXSIGI ;184
  1. I ECXLOGIC>2024 S ECODE3=ECODE3_U_ECXDCTM ;190
  1. S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1 ; ,ECRN=ECRN+1 184 - Moved record count to below
  1. S ^ECX(ECFILE,EC7,2)=$G(ECODE2),^ECX(ECFILE,EC7,3)=$G(ECODE3) ;184
  1. S ECRN=ECRN+1 ;184 - Moved record count from above
  1. S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
  1. I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
  1. Q
  1. ;
  1. SETUP ;Set required input for ECXTRAC
  1. S ECHEAD="TRT"
  1. D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
  1. Q
  1. ;
  1. QUE ; entry point for the background requeuing handled by ECXTAUTO
  1. D SETUP,QUE^ECXTAUTO,^ECXKILL
  1. Q