Changeset 188


Ignore:
Timestamp:
Oct 7, 2008, 10:26:02 AM (16 years ago)
Author:
George Lilly
Message:

fixing a meds bug

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r186 r188  
    5858 S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
    5959 S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    60  I 'HASOP K @MEDTVMAP,@MEDTARYTMP
     60 K @MEDTVMAP,@MEDTARYTMP
    6161 ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
    6262 ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
  • ccr/trunk/p/CCRMEDS2.m

    r187 r188  
    181181 . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
    182182 . S @MAP@("MEDPTINSTRUCTIONS")=$G(^PSRX(RXIEN,"PI",1,0)) ;GPL
    183  . W @MAP@("MEDPTINSTRUCTIONS"),!
     183 . ; W @MAP@("MEDPTINSTRUCTIONS"),!
    184184 . ; S @MAP@("MEDFULLFILLMENTINSTRUCTIONS","F")="52.41^9"
    185185 . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=$G(^PSRX(RXIEN,"SIG1",1,0)) ;GPL
    186  . W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
     186 . ; W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
    187187 . S @MAP@("MEDRFNO")=$$GET1^DIQ(52.41,RXIEN,13)
    188188 . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))
Note: See TracChangeset for help on using the changeset viewer.