Changeset 106 for ccr


Ignore:
Timestamp:
Aug 28, 2008, 11:53:50 AM (16 years ago)
Author:
George Lilly
Message:

fixed variable displays for Meds RPC interface

File:
1 edited

Legend:

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

    r105 r106  
    4242   . I DEBUG W "VMAP= ",MEDVMAP,!
    4343   . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY
    44    . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
     44   . S @MEDVMAP@("MEDOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS
    4545   . ; PROCESSING FOR MEDS GOES HERE
    4646   . S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
    47    . S @MEDVMAP@("MEDICATIONDATETIMEAGE")=""
    48    . S @MEDVMAP@("MEDICATIONDATETIMEAGEUNITS")=""
     47   . S @MEDVMAP@("MEDDATETIMEAGE")=""
     48   . S @MEDVMAP@("MEDDATETIMEAGEUNITS")=""
    4949   . S @MEDVMAP@("MEDTYPETEXT")="Medication"
    5050   . S @MEDVMAP@("MEDSTATUSTEXT")=$P(MEDPTMP,"^",10) ; STATUS FROM RPC
    5151   . S @MEDVMAP@("MEDSOURCEACTORID")="ACTORSYSTEM_1"
    5252   . S @MEDVMAP@("MEDPRODUCTNAMETEXT")=$P(MEDPTMP,"^",3)
    53    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVALUE")=""
    54    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODINGINGSYSTEM")=""
    55    . S @MEDVMAP@("MEDICATIONPRODUCTNAMECODEVERSION")=""
     53   . S @MEDVMAP@("MEDPRODUCTNAMECODEVALUE")=""
     54   . S @MEDVMAP@("MEDPRODUCTNAMECODINGINGSYSTEM")=""
     55   . S @MEDVMAP@("MEDPRODUCTNAMECODEVERSION")=""
    5656   . S @MEDVMAP@("MEDBRANDNAMETEXT")=""
    57    . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVALUE")=""
    58    . S @MEDVMAP@("MEDICATIONBRANDNAMECODINGSYSTEM")=""
    59    . S @MEDVMAP@("MEDICATIONBRANDNAMECODEVERSION")=""
     57   . S @MEDVMAP@("MEDBRANDNAMECODEVALUE")=""
     58   . S @MEDVMAP@("MEDBRANDNAMECODINGSYSTEM")=""
     59   . S @MEDVMAP@("MEDBRANDNAMECODEVERSION")=""
    6060   . S @MEDVMAP@("MEDSTRENGTHVALUE")=""
    6161   . S @MEDVMAP@("MEDSTRENGTHUNIT")=""
     
    6565   . S @MEDVMAP@("MEDRFNO")=""
    6666   . I $D(MEDRSLT(J+1)) D  ; IF SECOND LINE EXISTS
    67    . . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
     67   . . S @MEDVMAP@("MEDDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
    6868   . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    6969   . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    70    . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")=""
    71    . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")=""
    72    . S @MEDVMAP@("MEDICATIONDIRECTIONFREQUENCYVALUE")=""
     70   . S @MEDVMAP@("MEDDIRECTIONDOSEVALUE")=""
     71   . S @MEDVMAP@("MEDDIRECTIONROUTETEXT")=""
     72   . S @MEDVMAP@("MEDDIRECTIONFREQUENCYVALUE")=""
    7373   . S MEDARYTMP=$NA(@MEDTARYTMP@(J))
    7474   . K @MEDARYTMP
Note: See TracChangeset for help on using the changeset viewer.