Changeset 1621 for fmts/trunk/p/C0XPT4.m

Timestamp:

May 3, 2013, 8:52:48 PM (12 years ago)

Author:

Sam Habiel

Message:

boy oh boy now we file fully fledged ambulatory encounters that can show up on the CPRS cover sheet.

File:

• fmts/trunk/p/C0XPT4.m (modified) (7 diffs)

fmts/trunk/p/C0XPT4.m

@@ -1 @@
-C0XPT4 ; VEN/SMH - Encounter Processing;2013-05-01  4:09 PM
+C0XPT4 ; VEN/SMH - Encounter Processing;2013-05-03  5:11 PM
  ;;1.0;FILEMAN TRIPLE STORE;
  ; (c) 2013 Sam Habiel
@@ -18 +18 @@
         . W " ",STARTDATE
         . D HISTENC(STARTDATE,DFN) ; Historical Encounter Private API
+        K ^TMP($J,"ENC") ; data location
         QUIT
         ;
@@ -58 +59 @@
         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,"HOS LOC")=$$HL^C0XPT0()
+        S C0XDATA("ENCOUNTER",1,"SERVICE CATEGORY")="A" ; Ambulatory
+        S C0XDATA("ENCOUNTER",1,"OUTSIDE LOCATION")="FROM THE WIDE WORLD"
         S C0XDATA("ENCOUNTER",1,"ENCOUNTER TYPE")="P" ; Primary
-        S C0XDATA("ENCOUNTER",1,"COMMENT")=COMMENT
+        S C0XDATA("PROVIDER",1,"NAME")=$$NP^C0XPT0()
+        ; Diangosis and procedure necessary so visit will show up in ^SDE.
+        S C0XDATA("DX/PL",1,"DIAGNOSIS")=$O(^ICD9("BA","V70.3 ",0))
+        S C0XDATA("PROCEDURE",1,"PROCEDURE")=$O(^ICPT("B","99201",0))
+        S C0XDATA("PROCEDURE",1,"QTY")=1
         ;
         N C0XVISIT,C0XERR ; Visit, Error
+        N XQORMUTE S XQORMUTE=1 ; Unwinder: Shut the hell up. Don't execute disabled protocols rather than whining about them.
         N OK S OK=$$DATA2PCE^PXAPI($NA(C0XDATA),PKG,SRC,.C0XVISIT,,,.C0XERR)
-        I 'OK S $EC=",U1,"
+        I OK<1 S $EC=",U1,"
         QUIT
         ;
@@ -72 +79 @@
         ; 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 I S I=9000010  ; Hit the VISIT file LAST as some xrefs in other files point to it!
         N DIK,DA
         F  S I=$O(^DIC(I)) Q:I'<9000011  D  ; For each V File...
@@ -83 +90 @@
         . ; W ! ; DEBUG
         ;
+        ; Visit file
+        N I S I=""
+        S DIK="^AUPNVSIT("
+        F  S I=$O(^AUPNVSIT("C",DFN,I)) Q:'I  S DA=I D ^DIK ;ditto
+        ;
+        ; Outpatient encounter file
         N I S I=""
         ; W "SCE: " ; Debug
@@ -95 +108 @@
         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
+        N LOC S LOC=2 ; DR OFFICE
+        N EDPKG,EDPSRC,OK,EDPDATA,EDPVISIT,ERR
         S EDPKG=$O(^DIC(9.4,"B","EMERGENCY DEPARTMENT",0))
         S EDPSRC="EDP TRACKING LOG"
@@ -132 +145 @@
         S C0XDATA("ENCOUNTER",1,"COMMENT")="Testing"
         ;
+        N OK,C0XVISIT,ERR
         S OK=$$DATA2PCE^PXAPI($NA(C0XDATA),PKG,SRC,.C0XVISIT,,,.ERR)
         QUIT
+TEST3 ; Test creating a real event
+        ;
+        N DFN S DFN=190
+        N LOC S LOC=$$HL^C0XPT0()
+        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,"HOS LOC")=LOC
+        S C0XDATA("ENCOUNTER",1,"SERVICE CATEGORY")="A" ; Ambulatory
+        S C0XDATA("ENCOUNTER",1,"OUTSIDE LOCATION")="FROM THE WIDE WORLD"
+        S C0XDATA("ENCOUNTER",1,"ENCOUNTER TYPE")="P" ; Primary
+        S C0XDATA("PROVIDER",1,"NAME")=$$NP^C0XPT0()
+        S C0XDATA("DX/PL",1,"DIAGNOSIS")=$O(^ICD9("BA","V70.3 ",0))
+        S C0XDATA("PROCEDURE",1,"PROCEDURE")=$O(^ICPT("B","99201",0))
+        S C0XDATA("PROCEDURE",1,"QTY")=1
+        ;
+        N OK,C0XVISIT,ERR
+        S OK=$$DATA2PCE^PXAPI($NA(C0XDATA),PKG,SRC,.C0XVISIT,,,.ERR)
+        ;ZWRITE OK,C0XVISIT
+        ;ZWRITE:$D(ERR) ERR
+        QUIT