Added processing for encounters, pass 1

This commit is contained in:
sam 2013-05-02 16:09:35 +00:00
parent 868d5e2e13
commit e00ebfb9c2
4 changed files with 145 additions and 3 deletions

View File

@ -1,5 +1,7 @@
C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-04-10 4:23 PM
C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-05-01 9:54 AM
;;1.1;FILEMAN TRIPLE STORE;;
; (C) Sam Habiel 2013
; Proprietary code. Stay out!
;
; Get all graphs
NEW RETURN
@ -33,6 +35,7 @@ PROGRAPH(G) ; Process Graph (i.e. Patient)
D PROBLEMS^C0XPT1(G,DFN) ; Extract Problems and File
D ADR^C0XPT2(G,DFN) ; Extract Allergies and File
D MEDS^C0XPT3(G,DFN) ; Extract Medicaments and File
D ENC^C0XPT4(G,DFN) ; Extract Encounters and File
;
QUIT
;

View File

@ -1,5 +1,7 @@
C0XPT1 ; VEN/SMH - Obtain and Store Problems ;2013-02-19 11:55 AM
C0XPT1 ; VEN/SMH - Obtain and Store Problems ;2013-05-01 9:54 AM
;;1.1;FILEMAN TRIPLE STORE;;
; (C) Sam Habiel 2013
; Proprietary code. Stay out!
;
PROBLEMS(G,DFN) ; Private EP; Process Problems for a patient graph
; Delete existing problems if they are present

View File

@ -1,5 +1,7 @@
C0XPT2 ; VEN/SMH - Get and Store Allergies/ADRs ;2013-02-19 12:03 PM
C0XPT2 ; VEN/SMH - Get and Store Allergies/ADRs ;2013-05-01 9:54 AM
;;1.1;FILEMAN TRIPLE STORE;;
; (C) Sam Habiel 2013
; Proprietary code. Stay out!
;
ADR(G,DFN) ; Private Proc; Extract Allergies and ADRs from Graph and add to Patient's Record
; Input: G, Patient Graph, DFN, you should know that that is; Both by value.

135
p/C0XPT4.m Normal file
View File

@ -0,0 +1,135 @@
C0XPT4 ; VEN/SMH - Encounter Processing;2013-05-01 4:09 PM
;;1.0;FILEMAN TRIPLE STORE;
; (c) 2013 Sam Habiel
; Currently proprietary code. Stay out!!!
;
ENC(G,DFN) ; Extract and then process encounters; PEP
;
; ---PRIVATE TO SAM---
D DELALL(DFN) ; Delete all Encounters period...
; ---PRIVATE TO SAM---
;
K ^TMP($J,"ENC") ; data location
D ONETYPE^C0XGET3($NA(^TMP($J,"ENC")),G,"sp:Encounter") ; extract encounters
W "Encounters: ",!
N S F S=0:0 S S=$O(^TMP($J,"ENC",S)) Q:S="" W S," ",^(S) D W !
. N STARTDATE S STARTDATE=$$GSPO1^C0XGET3(G,S,"sp:startDate")
. S STARTDATE=$$FMDATE(STARTDATE)
. W " ",STARTDATE
. D HISTENC(STARTDATE,DFN) ; Historical Encounter Private API
QUIT
;
;
FMDATE(STARTDATE) ; Internal to fix start date
; Replace 00:00:00 with 00:00:01. Fileman doesn't understand null time for midnight except as .24 for yesterday
; and replace the space with an @ because Fileman needs that to figure out that time comes next after date
I STARTDATE["00:00:00" S $E(STARTDATE,$L(STARTDATE))=1
S STARTDATE=$P(STARTDATE," ")_"@"_$P(STARTDATE," ",2)
; Conv to Fileman
D
. N X,Y,%DT
. S X=STARTDATE,%DT="TS" D ^%DT
. S STARTDATE=Y
Q STARTDATE
;
;
HISTENC(DATE,DFN,FTLOC,COMMENT) ; Private Proc; Historical Encounter Filing into the VISIT file
; Input:
; - DATE: FM DATE of VISIT (Scalar) - Required
; - DFN (Scalar) - Required
; - FTLOC: Free Text Location - Optional. Defaults to SMART LOCATION
; - COMMENT: Free Text Comment - Optional. Defaults to Imported from Smart
; Output:
; - Creates V file entries for the historical encounter
;
; Handle required and optional variables...
N X F X="DATE","DFN" I '$D(@X) S $EC=",U1," ; Check for the present of required input variables
S FTLOC=$G(FTLOC,"SMART LOCATION") ; Get default if not supplied
S COMMENT=$G(COMMENT,"Imported from Smart") ; ditto
;
; Get package name
N PKG S PKG=$O(^DIC(9.4,"B","FILEMAN TRIPLE STORE",0)) I 'PKG S $EC=",U1,"
;
; Source
N SRC S SRC="FMTS PATIENT IMPORTER"
;
; Input Array for $$DATA2PCE
N C0XDATA
S C0XDATA("ENCOUNTER",1,"ENC D/T")=DATE
S C0XDATA("ENCOUNTER",1,"PATIENT")=DFN
S C0XDATA("ENCOUNTER",1,"SERVICE CATEGORY")="E" ; EVENT
S C0XDATA("ENCOUNTER",1,"OUTSIDE LOCATION")=FTLOC
S C0XDATA("ENCOUNTER",1,"ENCOUNTER TYPE")="P" ; Primary
S C0XDATA("ENCOUNTER",1,"COMMENT")=COMMENT
;
N C0XVISIT,C0XERR ; Visit, Error
N OK S OK=$$DATA2PCE^PXAPI($NA(C0XDATA),PKG,SRC,.C0XVISIT,,,.C0XERR)
I 'OK S $EC=",U1,"
QUIT
;
;
DELALL(DFN) ; Private Proc; Delete ALL ALL ALL encounter information for the patient.
; BE VERY CAREFUL USING THIS...
; Walk through the C X-Ref for this patient
N I S I=9000009.999999999999 ; Hit the VISIT file first
N DIK,DA
F S I=$O(^DIC(I)) Q:I'<9000011 D ; For each V File...
. N OR S OR=$$ROOT^DILFD(I,"",0) ; Open Root for ^DIK
. N CR S CR=$$ROOT^DILFD(I,"",1) ; Closed Root for @CR@("C")
. ; W OR," ",CR ; DEBUG
. ; W ": " ; DEBUG
. S DIK=OR ; File root to kill
. N J S J="" F S J=$O(@CR@("C",DFN,J)) Q:'J S DA=J D ^DIK ; each entry to kill
. ; W ! ; DEBUG
;
N I S I=""
; W "SCE: " ; Debug
S DIK="^SCE(" ; ditto
F S I=$O(^SCE("C",DFN,I)) Q:'I S DA=I D ^DIK ; ditto
QUIT
;
;
TEST ; Test creating an encounter using DATA2PCE^PXAPI
; Thank you Kevin Muldrum!
; This code comes from EDP aka EDIS.
N DFN S DFN=188 ; One of those Ducks
;S LOC=$$GET^XPAR(DUZ(2)_";DIC(4,","EDPF LOCATION")
S LOC=2 ; DR OFFICE
N EDPKG,EDPSRC,OK
S EDPKG=$O(^DIC(9.4,"B","EMERGENCY DEPARTMENT",0))
S EDPSRC="EDP TRACKING LOG"
S EDPDATA("ENCOUNTER",1,"PATIENT")=DFN
S EDPDATA("ENCOUNTER",1,"HOS LOC")=LOC
S EDPDATA("ENCOUNTER",1,"SERVICE CATEGORY")="A"
S EDPDATA("ENCOUNTER",1,"ENCOUNTER TYPE")="P"
S EDPDATA("ENCOUNTER",1,"ENC D/T")=$$NOW^XLFDT
;
S EDPDATA("DX/PL",1,"DIAGNOSIS")=$O(^ICD9("BA","V70.3 ",0))
S EDPDATA("PROCEDURE",1,"PROCEDURE")=$O(^ICPT("B","99201",0))
S EDPDATA("PROCEDURE",1,"QTY")=1
S EDPDATA("PROVIDER",1,"NAME")=23
;
S OK=$$DATA2PCE^PXAPI("EDPDATA",EDPKG,EDPSRC,.EDPVISIT,23,1,.ERR)
W OK
Q
;
;
TEST2 ; Test creating an historical event
;
N DFN S DFN=188
N LOC S LOC=1
N PKG S PKG=$O(^DIC(9.4,"B","FILEMAN TRIPLE STORE",0))
I 'PKG S $EC=",U1,"
;
N SRC S SRC="FMTS TEST"
;
N C0XDATA
S C0XDATA("ENCOUNTER",1,"ENC D/T")=$$NOW^XLFDT
S C0XDATA("ENCOUNTER",1,"PATIENT")=DFN
S C0XDATA("ENCOUNTER",1,"SERVICE CATEGORY")="E" ; EVENT
S C0XDATA("ENCOUNTER",1,"OUTSIDE LOCATION")="FROM THE WIDE WORLD"
S C0XDATA("ENCOUNTER",1,"ENCOUNTER TYPE")="P" ; Primary
S C0XDATA("ENCOUNTER",1,"COMMENT")="Testing"
;
S OK=$$DATA2PCE^PXAPI($NA(C0XDATA),PKG,SRC,.C0XVISIT,,,.ERR)
QUIT