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

Timestamp:

May 6, 2013, 12:41:16 PM (11 years ago)

Author:

Sam Habiel

Message:

Mostly comment changes; minor changes here and there. Encounters now work correctly.

File:

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

fmts/trunk/p/C0XPT4.m

@@ -1 @@
-C0XPT4 ; VEN/SMH - Encounter Processing;2013-05-03  5:11 PM
+C0XPT4 ; VEN/SMH - Encounter Processing;2013-05-06  9:42 AM
  ;;1.0;FILEMAN TRIPLE STORE;
  ; (c) 2013 Sam Habiel
@@ -17 +17 @@
         . S STARTDATE=$$FMDATE(STARTDATE)
         . W " ",STARTDATE
-        . D HISTENC(STARTDATE,DFN) ; Historical Encounter Private API
+        . D ONEENC(STARTDATE,DFN) ; File One Encounter Private API
         K ^TMP($J,"ENC") ; data location
         QUIT
@@ -35 +35 @@
         ;
         ;
-HISTENC(DATE,DFN,FTLOC,COMMENT) ; Private Proc; Historical Encounter Filing into the VISIT file
+ONEENC(DATE,DFN,FTLOC,COMMENT) ; Private Proc; One 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
+        ; - FTLOC: (Scalar) Free Text Location - Optional. Defaults to SMART LOCATION
+        ; - COMMENT: (Scalar) Free Text Comment - Optional. Defaults to Imported from Smart
         ; Output:
-        ; - Creates V file entries for the historical encounter
+        ; - Creates V file entries for encounter
         ;
         ; Handle required and optional variables...
@@ -61 +61 @@
         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,"OUTSIDE LOCATION")=FTLOC
         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.
+        ; We invent them here.
         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,"PROCEDURE")=$O(^ICPT("B","99212",0))
         S C0XDATA("PROCEDURE",1,"QTY")=1
         ;
@@ -72 +74 @@
         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<1 S $EC=",U1,"
+        I OK<1 S $EC=",U1," ; Invalid value is -1
         QUIT
         ;
@@ -79 +81 @@
         ; BE VERY CAREFUL USING THIS...
         ; Walk through the C X-Ref for this patient
-        N I S I=9000010  ; Hit the VISIT file LAST as some xrefs in other files point to it!
+        N I S I=9000010  ; Hit the VISIT file LAST as V files point to it!
         N DIK,DA
         F  S I=$O(^DIC(I)) Q:I'<9000011  D  ; For each V File...