Changeset 341
- Timestamp:
- Jan 20, 2009, 3:26:30 AM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS6.m
r339 r341 203 203 . . ; to see if that schedule exists. 204 204 . . ; 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") 207 220 . . 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) 209 223 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALVALUE")=INTERVAL 210 224 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALUNIT")="Minute" -
ccr/trunk/p/CCRUNIT.m
r339 r341 14 14 W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!! 15 15 D QUERY^GPLXPATH(T,XPATH,"INXML") 16 B 17 W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",! 16 W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",! 18 17 W "OUTXML will be ^TMP($J,""OUT"")",! 19 18 N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
Note:
See TracChangeset
for help on using the changeset viewer.