Changeset 278 for ccr


Ignore:
Timestamp:
Nov 14, 2008, 9:43:58 AM (16 years ago)
Author:
George Lilly
Message:

fixes for Labs not found and some Meds template fixes

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/CCRUTIL.m

    r222 r278  
    3838 I $L(S)=1 S S="0"_S
    3939 S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation.
     40 S OFFS=$E(OFF,1,1)
     41 S OFF0=$TR(OFF,"+-")
     42 S OFF1=$E(OFF0+10000,2,3)
     43 S OFF2=$E(OFF0+10000,4,5)
     44 S OFF=OFFS_OFF1_":"_OFF2
     45 ;S OFF2=$E(OFF,1,2) ;
     46 ;S OFF2=$E(100+OFF2,2,3) ; GPL 11/08 CHANGED TO -05:00 FORMAT
     47 ;S OFF3=$E(OFF,3,4) ;MINUTES
     48 ;S OFF=$S(OFF2="":"00",0:"00",1:OFF2)_"."_$S(OFF3="":"00",1:OFF3)
    4049 ; If H, MM and S are empty, it means that the FM date didn't supply the time.
    4150 ; In this case, set H, MM and S to "00"

  • ccr/trunk/p/GPLCCR0.m

    r272 r278  
    365365 ;;</Route>
    366366 ;;<Frequency>
    367  ;;<Text>@@MEDFREQUENCYVALUE@@</Text>
     367 ;;<Value>@@MEDFREQUENCYVALUE@@</Value>
    368368 ;;</Frequency>
    369369 ;;<Interval>
    … …  
    413413 ;;</Directions>
    414414 ;;<PatientInstructions>
    415  ;;<Text>@@MEDPTINSTRUCTIONS@@</Text>
     415 ;;<Instruction>@@MEDPTINSTRUCTIONS@@</Instruction>
    416416 ;;</PatientInstructions>
    417417 ;;<FullfillmentInstructions>

  • ccr/trunk/p/GPLLABS.m

    r277 r278  
    102102 ;
    103103 ;
     104 N C0CNSSN ; IS THERE AN SSN FLAG
     105 S C0CNSSN=0
     106 S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
    104107 D GHL7 ; GET HL7 MESSAGE FOR THIS PATIENT
    105  S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
     108 I C0CNSSN=1 D  Q  ; NO SSN, CAN'T GET HL7 FOR THIS PATIENT
     109 . S @C0CLB@(0)=0
    106110 K @C0CLB ; CLEAR OUT OLD VARS IF ANY
    107111 N QTSAV S QTSAV=C0CQT ;SAVE QUIET FLAG
    … …  
    119123 I C0CPTID="" D  Q  ; NO SSN, COMPLAIN AND QUIT
    120124 . W "LAB LOOKUP FAILED, NO SSN",!
     125 . S C0CNSSN=1 ; SET NO SSN FLAG
    121126 S C0CSPC="*" ; LOOKING FOR ALL LABS
    122127 D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING
Note: See TracChangeset for help on using the changeset viewer.