Added processing for encounters, pass 1
This commit is contained in:
parent
868d5e2e13
commit
e00ebfb9c2
|
@ -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
|
||||
;
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue