Changeset 173 for ccr/trunk

Timestamp:

Sep 28, 2008, 11:32:16 AM (16 years ago)

Author:

Sam Habiel

Message:

CCRMEDS: Processing of multiple directions.

Location:

ccr/trunk/p

Files:

• CCRMEDS.m (modified) (3 diffs)
• CCRUNIT.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -103 +103 @@
           . ;
           . ; --- START OF DIRECTIONS ---
-          . ;
-          . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT")=""  ; This is reserved for systems not able to generate the sig in components.
-          . S @MAP@("MEDDOSEINDICATOR")="1"  ; means that we are specifying it. See E2369-05.
           . ; Sig data not in any API :-(  Oh yes, you can get the whole thing, but...
           . ; we want the compoenents.
@@ -114 +111 @@
           . ; ==>DURATION [5F] ^ (#5) CONJUNCTION [6S] ^ (#6) ROUTE
           . ; ==>[7P:51.2] ^ (#7) SCHEDULE [8F] ^ (#8) VERB [9F] ^
-          . N SIGDATA S SIGDATA=^PSRX(RXIEN,6,1,0)
-          . S @MAP@("MEDDELIVERYMETHOD")=$P(SIGDATA,U,9)
-          . S @MAP@("MEDDOSEVALUE")=$P(SIGDATA,U,1)
-          . S @MAP@("MEDDOSEUNIT")=@MAP@("MEDCONCUNIT")
-          . S @MAP@("MEDRATEVALUE")=""  ; For inpatient
-          . S @MAP@("MEDRATEUNIT")=""  ; For inpatient
-          . S @MAP@("MEDVEHICLETEXT")=""  ; For inpatient
-          . S @MAP@("MEDDIRECTIONROUTETEXT")=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
-          . S @MAP@("MEDFREQUENCYVALUE")=$P(SIGDATA,U,8)
-          . ; Invervals... again another call.
-          . ; In the wisdom of the original programmers, the schedule is a free text field
-          . ; However, it gets translated by a call to the administration schedule file
-          . ; to see if that schedule exists.
-          . ; That's the same thing I am going to do.
-          . ; The call is AP^PSS51P1(PSSPP,PSSFT,PSSWDIEN,PSSSTPY,LIST,PSSFREQ).
-          . ; PSSPP is "PSJ" (for some reason, schedules are stored as PSJ, not PSO--
-          . ; I looked), PSSFT is the name, and list is the ^TMP name to store the data in.
-          . ; So...
-          . D AP^PSS51P1("PSJ",$P(SIGDATA,U,8),,,"SCHEDULE")
-          . N SCHEDATA M SCHEDATA=^TMP($J,"SCHEDULE")
-          . N INTERVAL
-          . I $P(SCHEDATA(0),U)=-1 S INTERVAL=""
-          . E  D
-          . . N SUB S SUB=$O(SCHEDATA(0))
-          . . S INTERVAL=SCHEDATA(SUB,2)
-          . S @MAP@("MEDINTERVALVALUE")=INTERVAL
-          . S @MAP@("MEDINTERVALUNIT")="Minute"
-          . S @MAP@("MEDDURATIONVALUE")=$P(SIGDATA,U,5)
-          . S @MAP@("MEDDURATIONUNIT")=""
-          . S @MAP@("MEDPRNFLAG")=$P(SIGDATA,U,8)["PRN"
-          . S @MAP@("MEDPROBLEMOBJECTID")=""
-          . S @MAP@("MEDPROBLEMTYPETXT")=""
-          . S @MAP@("MEDPROBLEMDESCRIPTION")=""
-          . S @MAP@("MEDPROBLEMCODEVALUE")=""
-          . S @MAP@("MEDPROBLEMCODINGSYSTEM")=""
-          . S @MAP@("MEDPROBLEMCODINGVERSION")=""
-          . S @MAP@("MEDPROBLEMSOURCEACTORID")=""
-          . S @MAP@("MEDSTOPINDICATOR")=""
-          . S @MAP@("MEDDIRSEQ")=""
-          . S @MAP@("MEDMULDIRMOD")=""
+          . ;
+                  . N DIRNUM S DIRNUM=0 ; Sigline number
+                  . F  S DIRNUM=$O(^PSRX(RXIEN,6,DIRNUM)) Q:DIRNUM=""  D
+          . . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT",DIRNUM)=""  ; This is reserved for systems not able to generate the sig in components.
+          . . S @MAP@("MEDDOSEINDICATOR",DIRNUM)="1"  ; means that we are specifying it. See E2369-05.
+          . . N SIGDATA S SIGDATA=^PSRX(RXIEN,6,DIRNUM,0)
+          . . S @MAP@("MEDDELIVERYMETHOD",DIRNUM)=$P(SIGDATA,U,9)
+          . . S @MAP@("MEDDOSEVALUE",DIRNUM)=$P(SIGDATA,U,1)
+          . . S @MAP@("MEDDOSEUNIT",DIRNUM)=@MAP@("MEDCONCUNIT")
+          . . S @MAP@("MEDRATEVALUE",DIRNUM)=""  ; For inpatient
+          . . S @MAP@("MEDRATEUNIT",DIRNUM)=""  ; For inpatient
+          . . S @MAP@("MEDVEHICLETEXT",DIRNUM)=""  ; For inpatient
+          . . S @MAP@("MEDDIRECTIONROUTETEXT",DIRNUM)=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
+          . . S @MAP@("MEDFREQUENCYVALUE",DIRNUM)=$P(SIGDATA,U,8)
+          . . ; Invervals... again another call.
+          . . ; In the wisdom of the original programmers, the schedule is a free text field
+          . . ; However, it gets translated by a call to the administration schedule file
+          . . ; to see if that schedule exists.
+          . . ; That's the same thing I am going to do.
+          . . ; The call is AP^PSS51P1(PSSPP,PSSFT,PSSWDIEN,PSSSTPY,LIST,PSSFREQ).
+          . . ; PSSPP is "PSJ" (for some reason, schedules are stored as PSJ, not PSO--
+          . . ; I looked), PSSFT is the name, and list is the ^TMP name to store the data in.
+          . . ; So...
+          . . D AP^PSS51P1("PSJ",$P(SIGDATA,U,8),,,"SCHEDULE")
+          . . N SCHEDATA M SCHEDATA=^TMP($J,"SCHEDULE")
+          . . N INTERVAL
+          . . I $P(SCHEDATA(0),U)=-1 S INTERVAL=""
+          . . E  D
+          . . . N SUB S SUB=$O(SCHEDATA(0))
+          . . . S INTERVAL=SCHEDATA(SUB,2)
+          . . S @MAP@("MEDINTERVALVALUE",DIRNUM)=INTERVAL
+          . . S @MAP@("MEDINTERVALUNIT",DIRNUM)="Minute"
+          . . S @MAP@("MEDDURATIONVALUE",DIRNUM)=$P(SIGDATA,U,5)
+          . . S @MAP@("MEDDURATIONUNIT",DIRNUM)=""
+          . . S @MAP@("MEDPRNFLAG",DIRNUM)=$P(SIGDATA,U,8)["PRN"
+          . . S @MAP@("MEDPROBLEMOBJECTID",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMTYPETXT",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMDESCRIPTION",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMCODEVALUE",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMCODINGSYSTEM",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMCODINGVERSION",DIRNUM)=""
+          . . S @MAP@("MEDPROBLEMSOURCEACTORID",DIRNUM)=""
+          . . S @MAP@("MEDSTOPINDICATOR",DIRNUM)=""
+          . . S @MAP@("MEDDIRSEQ",DIRNUM)=DIRNUM
+                  . . N DIRMOD S DIRMOD=$P(SIGDATA,U,6)
+          . . S @MAP@("MEDMULDIRMOD",DIRNUM)=$S(DIRMOD="T":"THEN",DIRMOD="A":"AND",DIRMOD="X":"EXCEPT",1:"")
           . ;
           . ; --- END OF DIRECTIONS ---
@@ -162 +165 @@
           . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=$G(^PSRX(RXIEN,"PRC",1,0))
           . S @MAP@("MEDRFNO")=MED(9)
-          . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"RESULT"))
+          . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))
           . K @RESULT
-          . ; D MAP^GPLXPATH($NA(INXML),MAP,RESULT)
-          . D MAP^GPLXPATH(MINXML,MAP,RESULT)
+                  . D MAP^GPLXPATH(MINXML,MAP,RESULT)
           . ; D PARY^GPLXPATH(RESULT)
           . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy

ccr/trunk/p/CCRUNIT.m

@@ -5 +5 @@
 MEDS
         N DEBUG S DEBUG=0
-        N DFN S DFN=3
+        N DFN S DFN=1
         K ^TMP($J)
         W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
@@ -11 +11 @@
         N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
         W "XPATH is: "_XPATH,!
-        W "Getting Med Template into INXML using",!
-        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
-        D QUERY^GPLXPATH(T,XPATH,"INXML")
+        W "Getting Med Template into MINXML using",!
+        W "QUERY^GPLXPATH(T,XPATH,""MINXML"")",!!
+        D QUERY^GPLXPATH(T,XPATH,"MINXML")
         B
-                W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
+                W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
         W "OUTXML will be ^TMP($J,""OUT"")",!
         N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
-        D EXTRACT^CCRMEDS(.INXML,DFN,OUTXML)
+        D EXTRACT^CCRMEDS("MINXML",DFN,OUTXML)
         Q