Changeset 666


Ignore:
Timestamp:
Jan 10, 2010, 1:13:34 PM (15 years ago)
Author:
George Lilly
Message:

updates to ALERT AND RNF for eRx

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r601 r666  
    2222 Q
    2323 ;
    24 EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
    25  ;
     24EXTRACT(ALTXML,DFN,ALTOUTXML,CALLBK) ; EXTRACT ALERTS INTO XML TEMPLATE
     25 ; CALLBACK IF PROVIDED IS CALLED FOR EACH ALLERGY BEFORE MAPPING
    2626 ; ALTXML AND ALTOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
    2727 ;
     
    4646 . S @ALTVMAP@("ALERTOBJECTID")="ALERT"_ALTCNT
    4747 . N A1 S A1=@ALTG@(ALTTMP) ; ALL THE PIECES
     48 . I $D(CALLBK) D @CALLBK ;CALLBACK FOR EPRESCRIBING
    4849 . N A2 S A2=$$GET1^DIQ(120.8,ALTTMP,"MECHANISM","I") ; MECHANISM
    4950 . N A3 S A3=$P(A1,U,5) ; ADVERSE FLAG
  • ccr/trunk/p/C0CRNF.m

    r662 r666  
    340340 ; ZOUT IS NOT INITIALIZED, SO THE TABLE WILL GO AT THE END
    341341 ; THE TABLE WILL BE IN NV FORMAT, ROWS ARE NAMES COLUMNS ARE VALUES
    342  D PUSH^C0CXPATH(ZOUT,"<table>")
     342 D PUSH^C0CXPATH(ZOUT,"<table border=""1"">")
    343343 N ZI,ZJ,ZV,ZN S ZI="" S ZJ=0
    344344 D PUSH^C0CXPATH(ZOUT,"<tr><td></td>") ;begin row and leave a blank col
    345345 F  S ZJ=$O(@ZIN@("V",ZJ)) Q:+ZJ=0  D  ; FOR EACH OCCURANCE
    346346 . S ZV="<td>"_ZJ_"</td>" ; OCCURANCE AS COLUMNS HEADER
     347 . D PUSH^C0CXPATH(ZOUT,ZV)
    347348 D PUSH^C0CXPATH(ZOUT,"</tr>") ;end of first row
     349 S ZI=""
    348350 F  S ZI=$O(@ZIN@("F",ZI)) Q:ZI=""  D  ; FOR EACH VARIABLE
    349351 . S ZN="<tr><td>"_ZI_"</td>" ; VARIABLE NAME IN FIRST COLUMN
     352 . D PUSH^C0CXPATH(ZOUT,ZN)
    350353 . S ZJ=0 ;RESET TO DO IT AGAIN
    351354 . F  S ZJ=$O(@ZIN@("V",ZJ)) Q:+ZJ=0  D  ; FOR EACH OCCURANCE
     
    360363 ; ZOUT IS NOT INITIALIZED, SO THE TABLE WILL GO AT THE END
    361364 ; THE TABLE WILL BE IN VN FORMAT, ROWS ARE VALUES COLUMNS ARE NAMES
    362  D PUSH^C0CXPATH(ZOUT,"<table>")
     365 D PUSH^C0CXPATH(ZOUT,"<table border=""1"">")
    363366 N ZI,ZJ S ZI="" S ZJ=0
    364367 D PUSH^C0CXPATH(ZOUT,"<tr>") ;new row for column headers
Note: See TracChangeset for help on using the changeset viewer.