Changeset 128 for ccr/trunk/p


Ignore:
Timestamp:
Sep 2, 2008, 1:20:47 AM (16 years ago)
Author:
Sam Habiel
Message:

Update of CCRMED

File:
1 edited

Legend:

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

    r118 r128  
    1 CCRMEDS ; WV/CCDCCR/SMH,CJE,GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
     1CCRMEDS ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
    22          ;;0.1;CCDCCR;;JUL 16,2008;
    33          ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    9696          . N QTYDATA M QTYDATA=^TMP($J,"QTY",IEN)
    9797          . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
    98           . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT")=""
    99           . S @MAP@("MEDDOSEINDICATOR")
    100           . S @MAP@("MEDDELIVERYMETHOD")
    101           . S @MAP@("MEDDOSEVALUE")
    102           . S @MAP@("MEDDOSEUNIT")
    103           . S @MAP@("MEDRATEVALUE")
    104           . S @MAP@("MEDRATEUNIT")
    105           . S @MAP@("MEDVEHICLETEXT")
    106           . S @MAP@("MEDDIRECTIONROUTETEXT")
    107           . S @MAP@("MEDFREQUENCYVALUE")
     98          . ;
     99          . ; --- START OF DIRECTIONS ---
     100          . ;
     101          . S @MAP@("MEDDIRECTIONDESCRIPTIONTEXT")=""  ; This is reserved for systems not able to generate the sig in components.
     102          . S @MAP@("MEDDOSEINDICATOR")="1"  ; means that we are specifying it. See E2369-05.
     103          . ; Sig data not in any API :-(  Oh yes, you can get the whole thing, but...
     104          . ; we want the compoenents.
     105          . ; It's in node 6 of ^PSRX(IEN)
     106          . ; So, here we go again
     107          . ; ^PSRX(D0,6,D1,0)= (#.01) DOSAGE ORDERED [1F] ^ (#1) DISPENSE UNITS PER DOSE
     108            ; ==>[2N] ^ (#2) UNITS [3P:50.607] ^ (#3) NOUN [4F] ^ (#4)
     109            ; ==>DURATION [5F] ^ (#5) CONJUNCTION [6S] ^ (#6) ROUTE
     110            ; ==>[7P:51.2] ^ (#7) SCHEDULE [8F] ^ (#8) VERB [9F] ^
     111            N SIGDATA S SIGDATA=^PSRX(IEN,6,1,0)
     112          . S @MAP@("MEDDELIVERYMETHOD")=$P(SIGDATA,U,9)
     113          . S @MAP@("MEDDOSEVALUE")=$P(SIGDATA,U,1)
     114          . S @MAP@("MEDDOSEUNIT")=@MAP@("MEDCONCUNIT")
     115          . S @MAP@("MEDRATEVALUE")=""  ; For inpatient
     116          . S @MAP@("MEDRATEUNIT")=""  ; For inpatient
     117          . S @MAP@("MEDVEHICLETEXT")=""  ; For inpatient
     118          . S @MAP@("MEDDIRECTIONROUTETEXT")=$$GET1^DIQ(51.2,$P(SIGDATA,U,7),.01)
     119          . S @MAP@("MEDFREQUENCYVALUE")=$P(SIGDATA,U,7)
    108120          . S @MAP@("MEDFREQUENCYUNIT")
    109121          . S @MAP@("MEDINTERVALVALUE")
    110122          . S @MAP@("MEDINTERVALUNIT")
    111           . S @MAP@("MEDDURATIONVALUE")
     123          . S @MAP@("MEDDURATIONVALUE")=$P(SIGDATA,U,5)
    112124          . S @MAP@("MEDDURATIONUNIT")
    113125          . S @MAP@("MEDPRNFLAG")
     
    118130          . S @MAP@("MEDPROBLEMCODINGVERSION")=""
    119131          . S @MAP@("MEDPROBLEMSOURCEACTORID")=""
    120           . S @MAP@("MEDSTOPINDICATOR")
    121           . S @MAP@("MEDDIRSEQ")
    122           . S @MAP@("MEDMULDIRMOD")
     132          . S @MAP@("MEDSTOPINDICATOR")=""
     133          . S @MAP@("MEDDIRSEQ")=""
     134          . S @MAP@("MEDMULDIRMOD")=""
     135          . ;
     136          . ; --- END OF DIRECTIONS ---
     137          . ;
    123138          . S @MAP@("MEDPTINSTRUCTIONS")
    124139          . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")
Note: See TracChangeset for help on using the changeset viewer.