Changeset 174 for ccr/trunk


Ignore:
Timestamp:
Sep 28, 2008, 11:56:23 AM (16 years ago)
Author:
George Lilly
Message:

changed multiple directions structure in CCRMEDS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS.m

    r173 r174  
    112112          . ; ==>[7P:51.2] ^ (#7) SCHEDULE [8F] ^ (#8) VERB [9F] ^
    113113          . ;
    114                   . N DIRNUM S DIRNUM=0 ; Sigline number
    115                   . F  S DIRNUM=$O(^PSRX(RXIEN,6,DIRNUM)) Q:DIRNUM=""  D
    116           . . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT",DIRNUM)=""  ; This is reserved for systems not able to generate the sig in components.
    117           . . S @MAP@("MEDDOSEINDICATOR",DIRNUM)="1"  ; means that we are specifying it. See E2369-05.
     114                  . N DIRNUM S DIRNUM=0 ; Sigline number
     115                  . F  S DIRNUM=$O(^PSRX(RXIEN,6,DIRNUM)) Q:DIRNUM=""  D
     116          . . S @MAP@("M",DIRNUM,"MEDDIRECTIONDESCRIPTIONTEXT")=""  ; This is reserved for systems not able to generate the sig in components.
     117          . . S @MAP@("M",DIRNUM,"MEDDOSEINDICATOR")="1"  ; means that we are specifying it. See E2369-05.
    118118          . . N SIGDATA S SIGDATA=^PSRX(RXIEN,6,DIRNUM,0)
    119           . . S @MAP@("MEDDELIVERYMETHOD",DIRNUM)=$P(SIGDATA,U,9)
    120           . . S @MAP@("MEDDOSEVALUE",DIRNUM)=$P(SIGDATA,U,1)
    121           . . S @MAP@("MEDDOSEUNIT",DIRNUM)=@MAP@("MEDCONCUNIT")
    122           . . S @MAP@("MEDRATEVALUE",DIRNUM)=""  ; For inpatient
    123           . . S @MAP@("MEDRATEUNIT",DIRNUM)=""  ; For inpatient
    124           . . S @MAP@("MEDVEHICLETEXT",DIRNUM)=""  ; For inpatient
    125           . . S @MAP@("MEDDIRECTIONROUTETEXT",DIRNUM)=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
    126           . . S @MAP@("MEDFREQUENCYVALUE",DIRNUM)=$P(SIGDATA,U,8)
     119          . . S @MAP@("M",DIRNUM,"MEDDELIVERYMETHOD")=$P(SIGDATA,U,9)
     120          . . S @MAP@("M",DIRNUM,"MEDDOSEVALUE")=$P(SIGDATA,U,1)
     121          . . S @MAP@("M",DIRNUM,"MEDDOSEUNIT")=@MAP@("MEDCONCUNIT")
     122          . . S @MAP@("M",DIRNUM,"MEDRATEVALUE")=""  ; For inpatient
     123          . . S @MAP@("M",DIRNUM,"MEDRATEUNIT")=""  ; For inpatient
     124          . . S @MAP@("M",DIRNUM,"MEDVEHICLETEXT")=""  ; For inpatient
     125          . . S @MAP@("M",DIRNUM,"MEDDIRECTIONROUTETEXT")=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
     126          . . S @MAP@("M",DIRNUM,"MEDFREQUENCYVALUE")=$P(SIGDATA,U,8)
    127127          . . ; Invervals... again another call.
    128128          . . ; In the wisdom of the original programmers, the schedule is a free text field
     
    141141          . . . N SUB S SUB=$O(SCHEDATA(0))
    142142          . . . S INTERVAL=SCHEDATA(SUB,2)
    143           . . S @MAP@("MEDINTERVALVALUE",DIRNUM)=INTERVAL
    144           . . S @MAP@("MEDINTERVALUNIT",DIRNUM)="Minute"
    145           . . S @MAP@("MEDDURATIONVALUE",DIRNUM)=$P(SIGDATA,U,5)
    146           . . S @MAP@("MEDDURATIONUNIT",DIRNUM)=""
    147           . . S @MAP@("MEDPRNFLAG",DIRNUM)=$P(SIGDATA,U,8)["PRN"
    148           . . S @MAP@("MEDPROBLEMOBJECTID",DIRNUM)=""
    149           . . S @MAP@("MEDPROBLEMTYPETXT",DIRNUM)=""
    150           . . S @MAP@("MEDPROBLEMDESCRIPTION",DIRNUM)=""
    151           . . S @MAP@("MEDPROBLEMCODEVALUE",DIRNUM)=""
    152           . . S @MAP@("MEDPROBLEMCODINGSYSTEM",DIRNUM)=""
    153           . . S @MAP@("MEDPROBLEMCODINGVERSION",DIRNUM)=""
    154           . . S @MAP@("MEDPROBLEMSOURCEACTORID",DIRNUM)=""
    155           . . S @MAP@("MEDSTOPINDICATOR",DIRNUM)=""
    156           . . S @MAP@("MEDDIRSEQ",DIRNUM)=DIRNUM
    157                   . . N DIRMOD S DIRMOD=$P(SIGDATA,U,6)
    158           . . S @MAP@("MEDMULDIRMOD",DIRNUM)=$S(DIRMOD="T":"THEN",DIRMOD="A":"AND",DIRMOD="X":"EXCEPT",1:"")
     143          . . S @MAP@("M",DIRNUM,"MEDINTERVALVALUE")=INTERVAL
     144          . . S @MAP@("M",DIRNUM,"MEDINTERVALUNIT")="Minute"
     145          . . S @MAP@("M",DIRNUM,"MEDDURATIONVALUE")=$P(SIGDATA,U,5)
     146          . . S @MAP@("M",DIRNUM,"MEDDURATIONUNIT")=""
     147          . . S @MAP@("M",DIRNUM,"MEDPRNFLAG")=$P(SIGDATA,U,8)["PRN"
     148          . . S @MAP@("M",DIRNUM,"MEDPROBLEMOBJECTID")=""
     149          . . S @MAP@("M",DIRNUM,"MEDPROBLEMTYPETXT")=""
     150          . . S @MAP@("M",DIRNUM,"MEDPROBLEMDESCRIPTION")=""
     151          . . S @MAP@("M",DIRNUM,"MEDPROBLEMCODEVALUE")=""
     152          . . S @MAP@("M",DIRNUM,"MEDPROBLEMCODINGSYSTEM")=""
     153          . . S @MAP@("M",DIRNUM,"MEDPROBLEMCODINGVERSION")=""
     154          . . S @MAP@("M",DIRNUM,"MEDPROBLEMSOURCEACTORID")=""
     155          . . S @MAP@("M",DIRNUM,"MEDSTOPINDICATOR")=""
     156          . . S @MAP@("M",DIRNUM,"MEDDIRSEQ")=DIRNUM
     157                  . . N DIRMOD S DIRMOD=$P(SIGDATA,U,6)
     158          . . S @MAP@("M",DIRNUM,"MEDMULDIRMOD")=$S(DIRMOD="T":"THEN",DIRMOD="A":"AND",DIRMOD="X":"EXCEPT",1:"")
    159159          . ;
    160160          . ; --- END OF DIRECTIONS ---
     
    167167          . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))
    168168          . K @RESULT
    169                   . D MAP^GPLXPATH(MINXML,MAP,RESULT)
     169                  . D MAP^GPLXPATH(MINXML,MAP,RESULT)
    170170          . ; D PARY^GPLXPATH(RESULT)
    171171          . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
Note: See TracChangeset for help on using the changeset viewer.