Changeset 1606 for fmts

Timestamp:

Feb 19, 2013, 3:58:54 PM (11 years ago)

Author:

Sam Habiel

Message:

Finished allergies (added reactions); allergies and problems in their own routines now

Location:

fmts/trunk/p

Files:

• C0XPT0.m (modified) (4 diffs)
• C0XPT1.m (added)
• C0XPT2.m (added)

fmts/trunk/p/C0XPT0.m

@@ -1 @@
-C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-06  3:08 PM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-19  12:01 PM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ;
@@ -30 +30 @@
  I DFN<1 S $EC=",U1," ; Debug.Assert that patient is added.
  ; D VITALS(G,DFN)
- D PROBLEMS(G,DFN)
- D ADR(G,DFN) ; Adverse Drug Reactions
+ D PROBLEMS^C0XPT1(G,DFN) ; Extract Problems and File
+ D ADR^C0XPT2(G,DFN) ; Extract Allergies and File
  ;
  QUIT
@@ -182 +182 @@
  QUIT
  ;
-PROBLEMS(G,DFN) ; Private EP; Process Problems for a patient graph
- ; Delete existing problems if they are present
- ; PS: This is a risky operation if somebody points to the original data.
- ; PS2: Another idea is just to quit here if Patient has problems already.
- I $D(^AUPNPROB("AC",DFN)) DO  ; Patient already has problems.
- . N DIK S DIK="^AUPNPROB("  ; Global to kill
- . N DA F DA=0:0 S DA=$O(^AUPNPROB("AC",DFN,DA)) Q:'DA  D ^DIK  ; Kill each entry
- ;
- ; Process incoming problems
- N RETURN ; Local return variable. I don't expect a patient to have more than 50 problems.
- D ONETYPE^C0XGET3($NA(RETURN),G,"sp:Problem") ; Get all problems for patient
- N S F S=0:0 S S=$O(RETURN(S)) Q:'S  D  ; For each problem
- . N PROBNM S PROBNM=$$GSPO1^C0XGET3(G,RETURN(S),"sp:problemName") ; Snomed-CT coding info
- . N CODEURL S CODEURL=$$GSPO1^C0XGET3(G,PROBNM,"sp:code") ; Snomed-CT Code URL
- . N TEXT S TEXT=$$GSPO1^C0XGET3(G,PROBNM,"dcterms:title") ; Snomed-CT Code description
- . ;
- . N CODE ; Actual Snomed code rather than URL
- . S CODE=$P(CODEURL,"/",$L(CODEURL,"/")) ; Get last / piece
- . N EXPIEN ; IEN in the EXPESSION file
- . N LEXS ; Return from Lex call
- . D EN^LEXCODE(CODE) ; Lex API
- . S EXPIEN=$P(LEXS("SCT",1),U) ; First match on Snomed CT. Crash if isn't present.
- . ;
- . N STARTDT S STARTDT=$$GSPO1^C0XGET3(G,RETURN(S),"sp:startDate") ; Start Date
- . N X,Y,%DT S X=STARTDT D ^%DT S STARTDT=Y ; Convert STARTDT to internal format
- . D PROBADD(DFN,CODE,TEXT,EXPIEN,STARTDT) ; Add problem to VISTA.
- QUIT
- ;
 NP() ; New Person Entry
         N C0XFDA,C0XIEN,C0XERR
@@ -220 +192 @@
         Q C0XIEN(1) ;Provider IEN
         ;
-PROBADD(DFN,CODE,TEXT,EXPIEN,STARTDT) ; Add a problem to a patient's record.
-        ; Input 
-        ; DFN - you know what that is
-        ; CODE - SNOMED code; not used alas; for the future.
-        ; TEXT - SNOMED Text
-        ; EXPIEN - IEN of Snomed CT Expression in the Expressions File (757.01)
-        ; STARTDT - Internal Date of when the problem was first noted.
-        ;
-        ; Output:
-        ; NONE
-        ; Crash expected if code fails to add a problem.
-        ;
-        ;
-        ;
-        N GMPDFN S GMPDFN=DFN ; patient dfn
-        ;
-        ; Add unknown provider to database
-        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.
-        ;
-        N GMPFLD ; Input array
-        S GMPFLD(".01")="" ;Code IEN - API will assign 799.9.
-        ; .02 field (Patient IEN) not used. Pass variable GMPDFN instead.
-        S GMPFLD(".03")=DT ;Date Last Modified
-        S GMPFLD(".05")="^"_TEXT ;Expression text
-        S GMPFLD(".08")=DT ; today's date (entry?)
-        S GMPFLD(".12")="A" ;Active/Inactive
-        S GMPFLD(".13")=STARTDT ;Onset date
-        S GMPFLD("1.01")=EXPIEN_U_TEXT ;^LEX(757.01 ien,descip
-        S GMPFLD("1.03")=GMPPROV ;Entered by
-        S GMPFLD("1.04")=GMPPROV ;Recording provider
-        S GMPFLD("1.05")=GMPPROV ;Responsible provider
-        S GMPFLD("1.06")="" ; SERVICE FILE - LEAVE BLANK(#49)
-        S GMPFLD("1.07")="" ; Date resolved
-        S GMPFLD("1.08")="" ; Clinic (#44)
-        S GMPFLD("1.09")=DT ;entry date
-        S GMPFLD("1.1")=0 ;Service Connected
-        S GMPFLD("1.11")=0 ;Agent Orange exposure
-        S GMPFLD("1.12")=0 ;Ionizing radiation exposure
-        S GMPFLD("1.13")=0 ;Persian Gulf exposure
-        S GMPFLD("1.14")="C" ;Accute/Chronic (A,C)
-        S GMPFLD("1.15")="" ;Head/neck cancer
-        S GMPFLD("1.16")="" ;Military sexual trauma
-        S GMPFLD("10",0)=0 ; Note. No note.
-        ;
-        ;
-        N DA ; Return variable
-        D NEW^GMPLSAVE ; API call
-        I '$D(DA) S $EC=",U1," ; Fail here if API fails.
-        QUIT
-        ;
-        ;
-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.
-        ;
-        ; Try No known allergies first.
-        N NKA S NKA=$$ONETYPE1^C0XGET3(G,"sp:AllergyExclusion") ; Get NKA node
-        ;
-        ; Add allergies to record.
-        ; We don't really care about the return value. If patient already has
-        ; allergies, we just keep them.
-        I $L(NKA) N % S %=$$NKA^C0XPT0(DFN) QUIT  ; If it exists, let's try to file it into VISTA
-        ;
-        ; If we are here, it means that the patient has allergies. Fun!
-        ; Process incoming allergies
-        N RETURN ; Local return variable. I don't expect a patient to have more than 50 allergies.
-        D ONETYPE^C0XGET3($NA(RETURN),G,"sp:Allergy") ; Get all allergies for patient
-        ;
-        N S F S=0:0 S S=$O(RETURN(S)) Q:'S  D  ; For each allergy
-        . ; Get the SNOMED code for the category
-        . N ALLERGYTYPE
-        . N SNOCAT S SNOCAT=$$GSPO1^C0XGET3(G,RETURN(S),"sp:category.sp:code"),SNOCAT=$P(SNOCAT,"/",$L(SNOCAT,"/"))
-        . I SNOCAT=414285001 S ALLERGYTYPE="F" ; Food
-        . E  I SNOCAT=416098002 S ALLERGYTYPE="D" ; Drug
-        . I '$D(ALLERGYTYPE) S $EC=",U1," ; Crash if neither of these is true.
-        . ;
-        . N ALLERGEN,ALLERGENI ; Allergen, Internal Allergen
-        . 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" ; TODO: temporary fix
-        . . S ALLERGENI=$$GMRA^C0XPT0(ALLERGEN) ; Get internal representation for GMRA call
-        . ;
-        . ; Otherwise, it's a drug. But we need to find out if it's a class,
-        . ; ingredient, canonical drug, etc. Unfortunately, Smart examples don't
-        . ; show such variety. The only one specified is a drug class.
-        . ; Therefore
-        . ; TODO: Handle other drug items besides drug class
-        . ;
-        . E  D  ; Drug
-        . . N DC S DC=$$GSPO1^C0XGET3(G,RETURN(S),"sp:drugClassAllergen.sp:code") ; drug class
-        . . I '$L(DC) QUIT  ; edit this line out when handling other items
-        . . S ALLERGEN=$P(DC,"/",$L(DC,"/")) ; Get last piece
-        . . ; TODO: Resolve drug class properly. Need all of RxNorm for that.
-        . . 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
-        ;
-NKA(DFN) ; Public $$; Add no known allergies to patient record
-        N ORDFN S ORDFN=DFN ; CPRS API requires this one
-        N ORY ; Return value: 0 - Everything is okay; -1^msg: Patient already has allergies
-        D NKA^GMRAGUI1 ; API
-        QUIT $G(ORY) ; Not always returned
-        ;
-GMRA(NAME)      ; $$ Private - Retrieve GMRAGNT for food allergy from 120.82
-        ; Input: Brand Name, By Value
-        ; Output: Entry Name^IEN;File Root for IEN
-        N C0PIEN S C0PIEN=$$FIND1^DIC(120.82,"","O",NAME,"B")
-        Q:C0PIEN $$GET1^DIQ(120.82,C0PIEN,.01)_"^"_C0PIEN_";GMRD(120.82,"
-        QUIT "" ; no match otherwise
-        ;
-TYPE(GMRAGNT)   ; $$ Private - Get allergy Type (Drug, food, or other)
-        ; Input: Allergen, formatted as Allergen^IEN;File Root
-        ; Output: Type (internal)^Type (external) e.g. D^Drug
-        N C0PIEN S C0PIEN=+$P(GMRAGNT,U,2)
-        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