Changeset 666 for ccr/trunk/p/C0CRNF.m

Timestamp:

Jan 10, 2010, 1:13:34 PM (15 years ago)

Author:

George Lilly

Message:

updates to ALERT AND RNF for eRx

File:

• ccr/trunk/p/C0CRNF.m (modified) (2 diffs)

ccr/trunk/p/C0CRNF.m

@@ -340 +340 @@
  ; ZOUT IS NOT INITIALIZED, SO THE TABLE WILL GO AT THE END
  ; THE TABLE WILL BE IN NV FORMAT, ROWS ARE NAMES COLUMNS ARE VALUES 
- D PUSH^C0CXPATH(ZOUT,"<table>")
+ D PUSH^C0CXPATH(ZOUT,"<table border=""1"">")
  N ZI,ZJ,ZV,ZN S ZI="" S ZJ=0
  D PUSH^C0CXPATH(ZOUT,"<tr><td></td>") ;begin row and leave a blank col
  F  S ZJ=$O(@ZIN@("V",ZJ)) Q:+ZJ=0  D  ; FOR EACH OCCURANCE
  . S ZV="<td>"_ZJ_"</td>" ; OCCURANCE AS COLUMNS HEADER
+ . D PUSH^C0CXPATH(ZOUT,ZV)
  D PUSH^C0CXPATH(ZOUT,"</tr>") ;end of first row
+ S ZI=""
  F  S ZI=$O(@ZIN@("F",ZI)) Q:ZI=""  D  ; FOR EACH VARIABLE
  . S ZN="<tr><td>"_ZI_"</td>" ; VARIABLE NAME IN FIRST COLUMN
+ . D PUSH^C0CXPATH(ZOUT,ZN)
  . S ZJ=0 ;RESET TO DO IT AGAIN
  . F  S ZJ=$O(@ZIN@("V",ZJ)) Q:+ZJ=0  D  ; FOR EACH OCCURANCE
@@ -360 +363 @@
  ; ZOUT IS NOT INITIALIZED, SO THE TABLE WILL GO AT THE END
  ; THE TABLE WILL BE IN VN FORMAT, ROWS ARE VALUES COLUMNS ARE NAMES 
- D PUSH^C0CXPATH(ZOUT,"<table>")
+ D PUSH^C0CXPATH(ZOUT,"<table border=""1"">")
  N ZI,ZJ S ZI="" S ZJ=0
  D PUSH^C0CXPATH(ZOUT,"<tr>") ;new row for column headers