Changeset 1605 for fmts/trunk/p/C0XPT0.m

Timestamp:

Feb 6, 2013, 5:59:51 PM (12 years ago)

Author:

Sam Habiel

Message:

Now adds allergies

File:

• fmts/trunk/p/C0XPT0.m (modified) (8 diffs)

fmts/trunk/p/C0XPT0.m

@@ -1 @@
-C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-04  3:41 PM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-06  3:08 PM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ;
@@ -55 +55 @@
  ; This is optional of course
  ;
- QUIT $$UP^DILIBF(FAMILY_","_GIVEN_" "_MIDDLE)
+ QUIT $$UP^XLFSTR(FAMILY_","_GIVEN_" "_MIDDLE)
  ;
  ;
@@ -209 +209 @@
  . D PROBADD(DFN,CODE,TEXT,EXPIEN,STARTDT) ; Add problem to VISTA.
  QUIT
+ ;
+NP() ; New Person Entry
+        N C0XFDA,C0XIEN,C0XERR
+        S C0XFDA(200,"?+1,",.01)="PROVIDER,UNKNOWN SMART" ; Name
+        S C0XFDA(200,"?+1,",1)="USP" ; Initials
+        S C0XFDA(200,"?+1,",28)="SMART" ; Mail Code
+        ;
+        N DIC S DIC(0)="" ; An XREF in File 200 requires this.
+        D UPDATE^DIE("E",$NA(C0XFDA),$NA(C0XIEN),$NA(C0XERR)) ; Typical UPDATE
+        Q C0XIEN(1) ;Provider IEN
+        ;
 PROBADD(DFN,CODE,TEXT,EXPIEN,STARTDT) ; Add a problem to a patient's record.
         ; Input 
@@ -219 +230 @@
         ; Output:
         ; NONE
-        ; Crash expectd if code fails to add a problem.
+        ; Crash expected if code fails to add a problem.
         ;
         ;
@@ -226 +237 @@
         ;
         ; Add unknown provider to database
-        N C0XFDA,C0XIEN,C0XERR
-        S C0XFDA(200,"?+1,",.01)="PROVIDER,UNKNOWN SMART" ; Name
-        S C0XFDA(200,"?+1,",1)="USP" ; Initials
-        S C0XFDA(200,"?+1,",28)="SMART" ; Mail Code
-        ;
-        N DIC S DIC(0)="" ; An XREF in File 200 requires this.
-        D UPDATE^DIE("E",$NA(C0XFDA),$NA(C0XIEN),$NA(C0XERR)) ; Typical UPDATE
-        N GMPPROV S GMPPROV=C0XIEN(1) ;Provider IEN
+        N GMPPROV S GMPPROV=$$NP^C0XPT0() ;Smart Provider IEN
         ;
         N GMPVAMC S GMPVAMC=$$KSP^XUPARAM("INST") ; Problem Institution. Ideally, the external one. But we are taking a shortcut here.
@@ -296 +300 @@
         . I ALLERGYTYPE="F" D  ; Food
         . . S ALLERGEN=$$UP^XLFSTR($$GSPO1^C0XGET3(G,RETURN(S),"sp:otherAllergen.dcterms:title")) ; uppercase the allergen
-        . . I ALLERGEN="PEANUT" S ALLERGEN="PEANUTS" ; temporary fix
+        . . I ALLERGEN="PEANUT" S ALLERGEN="PEANUTS" ; TODO: temporary fix
         . . S ALLERGENI=$$GMRA^C0XPT0(ALLERGEN) ; Get internal representation for GMRA call
         . ;
@@ -310 +314 @@
         . . S ALLERGEN=$P(DC,"/",$L(DC,"/")) ; Get last piece
         . . ; TODO: Resolve drug class properly. Need all of RxNorm for that.
-        . . I ALLERGEN="N0000175503"
+        . . N STR S STR=$$UP^XLFSTR($$GSPO1^C0XGET3(G,RETURN(S),"sp:drugClassAllergen.dcterms:title"))
+        . . I ALLERGEN="N0000175503" S ALLERGENI=STR_U_"23;PS(50.605," ; hard codeded for sulfonamides
+        . . ;
+        . ; DEBUG.ASSERT THAT allergen Internal isn't empty
+        . I '$L(ALLERGENI) S $EC=",U1,"
+        . ;
+        . ; Get Severity (Mild or Severe) - We get free text rather than SNOMED
+        . N SEVERITY S SEVERITY=$$UP^XLFSTR($$GSPO1^C0XGET3(G,RETURN(S),"sp:severity.dcterms:title"))
+        . I '$L(SEVERITY) S $EC=",U1,"
+        . ;
+        . ; Get Reaction - We get free text rather than SNOMED
+        . N REACTION S REACTION=$$UP^XLFSTR($$GSPO1^C0XGET3(G,RETURN(S),"sp:allergicReaction.dcterms:title"))
+        . I '$L(REACTION) S $EC=",U1,"
+        . ;
+        . ; Now that we have determined the allergy, add it
+        . D FILEADR^C0XPT0(DFN,ALLERGENI,REACTION,SEVERITY,ALLERGYTYPE) ; Internal API
         QUIT
         ;
@@ -332 +351 @@
         I GMRAGNT["GMRD(120.82," Q $$GET1^DIQ(120.82,C0PIEN,"ALLERGY TYPE","I")_U_$$GET1^DIQ(120.82,C0PIEN,"ALLERGY TYPE","E")
         Q "D^Drug" ; otherwise, it's a drug
+        ;
+FILEADR(DFN,AGENT,REACTION,SEVERITY,TYPE)       ; Private Proc - File Drug Reaction
+        N C0XRXN
+        S C0XRXN("GMRAGNT")=AGENT ; Agent^Agent in variable pointer format
+        S C0XRXN("GMRATYPE")=TYPE ; F(ood), D(rug), or O(ther) or combination.
+        S C0XRXN("GMRANATR")="U^Unknown" ; Allergic, Pharmacologic, or Unknown
+        S C0XRXN("GMRAORIG")=$$NP^C0XPT0 ; New Person generated for SMART
+        ; S C0XRXN("GMRACHT",0)=1 ; Mark Chart as allergy document - commented out b/c depends on Paper Docs
+        ; S C0XRXN("GMRACHT",1)=$$NOW^XLFDT ; Chart documentation date - commented out depends on Paper Docs
+        S C0XRXN("GMRAORDT")=$$NOW^XLFDT
+        S C0XRXN("GMRAOBHX")="h^HISTORICAL"
+        S C0XRXN("GMRACMTS",0)=1 ; Comments
+        S C0XRXN("GMRACMTS",1)=SEVERITY ; Store severity in the comments
+        N ORY ; Return value 0: success; -1: failure; discarded.
+        D UPDATE^GMRAGUI1("",DFN,$NA(C0XRXN))
+        QUIT