Changeset 341


Ignore:
Timestamp:
Jan 20, 2009, 3:26:30 AM (16 years ago)
Author:
George Lilly
Message:

Fixed intervals in CCRMEDS6

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r339 r341  
    203203 . . ; to see if that schedule exists.
    204204 . . ; That's the same thing I am going to do.
    205  . . ; Search B index of 51.1 (Admin Schedule) with first abbr of schedule
    206  . . N SCHEDIEN S SCHEDIEN=$$FIND1^DIC(51.1,,,$P(SIGDATA(7)," "),"B")
     205 . . ; Search B index of 51.1 (Admin Schedule) with schedule
     206 . . ; First, remove "PRN" if it exists (don't ask, that's how the file
     207 . . ; works; I wouldn't do it that way).
     208 . . N SCHNOPRN S SCHNOPRN=SIGDATA(7)
     209 . . I SCHNOPRN["PRN" S SCHNOPRN=$E(SCHNOPRN,1,$F(SCHNOPRN,"PRN")-5)
     210 . . ; Super call below:
     211 . . ; 1=File 51.1 3=Field 2 (Frequency in Minutes)
     212 . . ; 4=Packed format, Exact Match 5=Lookup Value
     213 . . ; 6=# of entries to return 7=Index 10=Return Array
     214 . . ;
     215 . . ; I do not account for the fact that two schedules can be
     216 . . ; spelled identically (ie duplicate entry). In that case,
     217 . . ; I get the first. That's just a bad pharmacy pkg maintainer.
     218 . . N C0C515
     219 . . D FIND^DIC(51.1,,"@;2","PX",SCHNOPRN,1,"B",,,"C0C515")
    207220 . . N INTERVAL S INTERVAL="" ; Default
    208  . . S:SCHEDIEN INTERVAL=$$GET1^DIQ(51.1,SCHEDIEN,2)
     221 . . ; If there are entries found, get it
     222 . . I +$G(C0C515("DILIST",0)) S INTERVAL=$P(C0C515("DILIST",1,0),U,2)
    209223 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALVALUE")=INTERVAL
    210224 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALUNIT")="Minute"
  • ccr/trunk/p/CCRUNIT.m

    r339 r341  
    1414        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
    1515        D QUERY^GPLXPATH(T,XPATH,"INXML")
    16         B
    17                 W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
     16        W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
    1817        W "OUTXML will be ^TMP($J,""OUT"")",!
    1918        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
Note: See TracChangeset for help on using the changeset viewer.