Changeset 1621 for fmts

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.

Location:

fmts/trunk/p

Files:

• C0XPT0.m (modified) (2 diffs)
• C0XPT4.m (modified) (7 diffs)

fmts/trunk/p/C0XPT0.m

@@ -1 @@
-C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-05-01  9:54 AM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-05-03  6:09 PM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ; (C) Sam Habiel 2013
@@ -188 +188 @@
  ;
 NP() ; New Person Entry
-        N C0XFDA,C0XIEN,C0XERR
+        Q:$O(^VA(200,"B","PROVIDER,UNKNOWN SMART",0)) $O(^(0)) ; Quit if the entry exists
+        ;
+        N C0XFDA,C0XIEN,C0XERR,DIERR
         S C0XFDA(200,"?+1,",.01)="PROVIDER,UNKNOWN SMART" ; Name
         S C0XFDA(200,"?+1,",1)="USP" ; Initials
         S C0XFDA(200,"?+1,",28)="SMART" ; Mail Code
+        S C0XFDA(200.05,"?+2,?+1,",.01)="`144" ; Person Class - Allopathic docs.
+        S C0XFDA(200.05,"?+2,?+1,",2)=2700101 ; Date active
         ;
         N DIC S DIC(0)="" ; An XREF in File 200 requires this.
         D UPDATE^DIE("E",$NA(C0XFDA),$NA(C0XIEN),$NA(C0XERR)) ; Typical UPDATE
+        I $D(DIERR) S $EC=",U1,"
         Q C0XIEN(1) ;Provider IEN
         ;
+HL() ; Hospital Location Entry
+        N C0XFDA,C0XIEN,C0XERR,DIERR
+        S C0XFDA(44,"?+1,",.01)="SMART PATIENT LOCATION" ; Name
+        S C0XFDA(44,"?+1,",2)="C" ; Type - Clinic
+        S C0XFDA(44,"?+1,",2.1)=1 ; Type Extension - Clinic
+        S C0XFDA(44,"?+1,",3)=+$$SITE^VASITE() ; Institution - Default institution
+        S C0XFDA(44,"?+1,",8)=295 ; STOP CODE NUMBER - Primary Care
+        S C0XFDA(44,"?+1,",9)="M" ; SERVICE
+        S C0XFDA(44,"?+1,",2502)="Y" ; NON-COUNT CLINIC
+        D UPDATE^DIE("",$NA(C0XFDA),$NA(C0XIEN),$NA(C0XERR))
+        I $D(DIERR) S $EC=",U1,"
+        Q C0XIEN(1) ; HL IEN

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