Changeset 352 for ccr/trunk/p
- Timestamp:
- Feb 3, 2009, 2:22:00 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS6.m
r341 r352 190 190 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDIRECTIONDESCRIPTIONTEXT")="" ; This is reserved for systems not able to generate the sig in components. 191 191 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDOSEINDICATOR")="1" ; means that we are specifying it. See E2369-05. 192 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDELIVERYMETHOD")= SIGDATA(8)193 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDOSEVALUE")= SIGDATA(.01)194 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDOSEUNIT")= SIGDATA(2)192 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDELIVERYMETHOD")=$G(SIGDATA(8)) 193 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDOSEVALUE")=$G(SIGDATA(.01)) 194 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDOSEUNIT")=$G(SIGDATA(2)) 195 195 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDRATEVALUE")="" ; For inpatient 196 196 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDRATEUNIT")="" ; For inpatient 197 197 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDVEHICLETEXT")="" ; For inpatient 198 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDIRECTIONROUTETEXT")= SIGDATA(6)199 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDFREQUENCYVALUE")= SIGDATA(7)198 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDDIRECTIONROUTETEXT")=$G(SIGDATA(6)) 199 . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDFREQUENCYVALUE")=$G(SIGDATA(7)) 200 200 . . ; Invervals... again another call. 201 201 . . ; In the wisdom of the original programmers, the schedule is a free text field
Note:
See TracChangeset
for help on using the changeset viewer.