111%Persistent461711,7098961261,47678.7242641xmlfile:%String,xslfile:%String,outfile:%String,logfile:%String,convertToPDF:%Boolean>"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isUNIX {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isVMS {
Set pipechars = "2>" ; output from FOP goes on standard error
Set pipeerror = "2>"
Set PIPEVMS = "@"
Set LOGFILE=logfile
}
Else {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
// make sure we don't concatenate to log file - which confuses use
i $g(logfile)'="" Do ##class(%File).Delete(logfile)
If $d(^%SYS("zenreport","transformerconfig")) {
Set config = " -c """_^%SYS("zenreport","transformerconfig")_""" "
}
Else {
Set config = ""
}
If convertToPDF {
if '$$$isVMS {
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -pdf """_outfile_""" "_pipechars_LOGFILE)
} else {
;Set xmlfile=..MakeJavaName(xmlfile)
;Set xslfile=..MakeJavaName(xslfile)
;Set outfile=..MakeJavaName(outfile)
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -pdf """_outfile_"""",logfile)
}
}
Else {
If $d(^%SYS("zenreport","saxjar")) {
Set saxjar=^%SYS("zenreport","saxjar")
s command=" -jar """_saxjar_""" -t """_xmlfile_""" """_xslfile_""" >"""_outfile_""" "_pipeerror_" """_logfile_""""
Do $zf(-1,$zu(147,"java")_command)
} else {
s tSC=##class(%XML.XSLT.Transformer).TransformFile(xmlfile,xslfile,outfile)
}
}
Quit tSC
quit tSC
]]>1file:%String%String111%Persistent462191,6174561404,41475.8881xmlfile:%String,xslfile:%String,ps:%String,logfile:%String>"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isUNIX {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isVMS {
Set pipechars = "2>" ; output from FOP goes on standard error
Set pipeerror = "2>"
Set PIPEVMS = "@"
Set LOGFILE=logfile
}
Else {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
// make sure we don't concatenate to log file - which confuses use
i $g(logfile)'="" Do ##class(%File).Delete(logfile)
If $d(^%SYS("zenreport","transformerconfig")) {
Set config = " -c """_^%SYS("zenreport","transformerconfig")_""" "
}
Else {
Set config = ""
}
if '$$$isVMS {
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -ps """_ps_""" "_pipechars_LOGFILE)
} else {
;Set xmlfile=..MakeJavaName(xmlfile)
;Set xslfile=..MakeJavaName(xslfile)
;Set ps=..MakeJavaName(ps)
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -xsl-ps """_ps_"""",logfile)
}
quit tSC
]]>1xmlfile:%String,xslfile:%String,outfile:%String,printer:%String,logfile:%String>"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isUNIX {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
ElseIf $$$isVMS {
Set pipechars = "2>" ; output from FOP goes on standard error
Set pipeerror = "2>"
Set PIPEVMS = "@"
Set LOGFILE=logfile
}
Else {
Set pipechars = ">"
Set pipeerror = "2>"
Set PIPEVMS = ""
Set LOGFILE=""""_logfile_""""
}
// make sure we don't concatenate to log file - which confuses use
i $g(logfile)'="" Do ##class(%File).Delete(logfile)
If $d(^%SYS("zenreport","transformerconfig")) {
Set config = " -c """_^%SYS("zenreport","transformerconfig")_""" "
}
Else {
Set config = ""
}
if '$$$isVMS {
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -pdf """_outfile_""" "_pipechars_LOGFILE)
} else {
;Set xmlfile=..MakeJavaName(xmlfile)
;Set xslfile=..MakeJavaName(xslfile)
;Set outfile=..MakeJavaName(outfile)
Do $zf(-1,PIPEVMS_$zu(147,exe)_config_" -xml """_xmlfile_""" -xsl """_xslfile_""" -pdf """_outfile_"""",logfile)
}
If '$$$isVMS {
s ^foobar($i(^foobar))=$zu(147,adobe)_" /t """_outfile_""""_" "_printer
Do $zf(-2,$zu(147,adobe)_" /t "_outfile_" "_printer)
} else {
Do $zf(-2,$zu(147,adobe)_" /t """_outfile_""""_" "_printer)
}
Quit tSC
]]>
Note that a report is not a ZEN page; all logic
for a report is executed on the server. The client is sent
the final output for viewing and printing.]]>1%sySystem%ZEN.Report.reportParameters%RegisteredObject,%CSP.Page361711,7099160120,67070.962093Integer0text/xml
This is the logical name of this report.
If not provided, class name is used.STRING
This is the output directory when $REPORTNAME specified on URLSTRING
If provided, this is the XML namspace that will be used
for the generated XML report.STRING
If provided, this is the XML namspace prefix that will be used
for the generated XML report.STRING$MODE, is not present.]]>STRING,html,tohtml,toxslfo,pdf,xml,xslfohtmlENUM$XSLT, is not present.]]>STRING,server,browserbrowserENUM
Specifies whether XSLT is embedded in XML, if it is we must use explicit namespaces for generated XMLBOOLEAN0
Specifies whether XSLT stylesheet is written to temp file for HTML generationBOOLEAN0
If true use instance host name (CSP Config/Default Parameters) on relative URLs in ZEN Report Display
when generating PDFs or XSLFOBOOLEAN0$MODE, is not present.]]>STRINGnone,html,tohtml,toxslfo,pdf,xml,xslfononeENUM
If defined, this provides a reference to the external
XML data to use in generating the report. If it is
not provided, data will be generated from the
ReportDefinition XData block.String
If defined, this provides a reference to the external
stylesheet to use in generating the HTML report. If it
is not provided, a stylesheet will be generated from the
ReportDisplay XData block.String
If defined, this provides a reference to the external
stylesheet to use in generating the XSL-FO (PDF) report.
If it is not provided, a stylesheet will be generated
from the ReportDisplay XData block.String
If not defined, this report does not belong to an application.
Currently, the application does not bestow any behavior to the report;
it serves merely as a way to document that a report is associated with
an application.]]>CLASSNAME
See the DATASOURCE parameter for details.%String..#DATASOURCE
xsl:strip-space elements value
xsl:preserve-space elements value
encoding valueutf-8
value of indent in xsl:output element
default is yesno,yesyesENUM
Specifies version of XSLT processor being used 1.0 or 2.0STRING,1.0,2.01.0%ZEN.Datatype.string%ZEN.Datatype.string%ZEN.Datatype.string%ZEN.Datatype.integer1%String1%Library.RegisteredObject%Library.RegisteredObject%Library.RegisteredObject
Optionally, this can contain a comma-delimited list of several resource
names. In this case, the user must hold the USE privilege on at least
one of the resources in the list.]]>STRING
XML that defines the contents of this report.
XML that defines how the report generates its
XSLT stylesheets for the HTML and PDF reports.
Placeholders for XSLT
]]>
]]>
1objectgenerator%Status
Copy URL parameters supplied to this page into the
appropriate properties of this reportPage object.1objectgenerator%Status
PreHTTP handler.
Sets content-type and content-dispositon depending
on $MODE and $LOG1%Boolean1
Render the contents of this ZEN report.1%Statushtml transformation
Set tSC = tUserReport.%DrawToHTML(0,0,0)
} ElseIf (tMode = "toxslfo") {
#; serve xslt stylesheet for xml->xslfo transformation
Set tSC = tUserReport.%DrawToXSLFO(0)
} ElseIf (tMode = "xslfo") {
#; serve XSL-FO document without processing it into a .PDF
Set tSC=tUserReport.%DisplayFO(tDisplayLog,0,(tXSLT="server"))
} ElseIf tMode="html" {
#; serve HTML report
Set tSC=tUserReport.%DisplayHTML(tDisplayLog,0,(tXSLT="server"),tUseTempFiles,tEMBEDXSL)
} ElseIf (tMode = "pdf") {
#; serve PDF report
Set tSC = tUserReport.%DisplayPDF(tDisplayLog)
} Else {
#; when in doubt, use HTML
if (tStyleSheetMode="none") {
Set tSC=tUserReport.%DisplayHTML(tDisplayLog,0,(tXSLT="server"),tUseTempFiles,tEMBEDXSL)
} else {
Set tSC = tUserReport.%DrawToHTML(tDisplayLog,0,0)
}
}
If $$$ISERR(tSC) Quit
#; notify that report is complete
Set tSC = tUserReport.%OnAfterReport()
If $$$ISERR(tSC) Quit
} While(0)
Quit tSC
]]>outputfile.
Choices for mode are:
0 = XML
1 = HTML
2 = PDF
3 = ToHTML Stylesheet
4 = ToXSLFO Stylesheet
If log is true, the log file is returned instead of the report
This is a class method wrapper for the GenerateReport method
provided for convenience.]]>1outputfile:%String,mode:%Integer=0,log:%Boolean=0%Statusoutputfile.
Choices for mode are:
0 = XML
1 = HTML
2 = PDF
3 = ToHTML Stylesheet
4 = ToXSLFO Stylesheet
5 = ToXSD Schema
If log is true, the log file is returned instead of the report]]>outputfile:%String,mode:%Integer=0,log:%Boolean=0%Statusstream.
Choices for mode are:
0 = XML
1 = HTML
2 = PDF
3 = ToHTML Stylesheet
4 = ToXSLFO Stylesheet
5 = ToXSD Schema
If log is true, the log file is returned instead of the report]]>%Status
Run the report defined in this class and output the data as XML.
This method is automatically generated using the report definition
in the XData block "ReportDefinition".1objectgeneratorembedXSL:%Boolean=0%Status 0) {
#; render the stream into report object (with children)
Set tReader = ##class(%XML.Reader).%New()
Set tSC = tReader.OpenStream(tStream) If $$$ISERR(tSC) Quit tSC
Do tReader.Correlate("report","%ZEN.Report.report")
#; there should only be one report defined
Do tReader.Next(.tReport,.tSC)
If $$$ISERR(tSC) Quit tSC
If '$IsObject(tReport) Quit $$$ERROR($$$GeneralError,"No element defined in ReportDefinition block.")
#; have report generate code to execute itself at run-time
Set depth = 0
Set xmlns=""
Set xmlprefix=""
Set tEmbedXSL=0
For n = 1:1:%compiledclass.Parameters.Count() {
Set tParam = %compiledclass.Parameters.GetAt(n)
if (tParam.Name="REPORTXMLNAMESPACE") Set xmlns=tParam.Default
if (tParam.Name="REPORTXMLNAMESPACEPREFIX") Set xmlprefix=tParam.Default
if (tParam.Name="EMBEDXSL") Set tEmbedXSL=tParam.Default
if (tParam.Name="SQLCACHE") Set sqlcache=tParam.Default
}
if (tEmbedXSL) {
Set:xmlns="" xmlns="http://www.intersytems.com/mydefaultnamespace"
Set:xmlprefix="" xmlprefix="my"
}
Set tSC = tReport.%GenerateCode(tReport,%code,0,xmlns,xmlprefix,sqlcache)
}
}
Else {
#; if XData did not create a report, return an error.
Do %code.WriteLine(" Set tSC = $$$ERROR($$$NotImplemented)")
}
#; exit code
Do %code.WriteLine("Done")
#; Do %code.WriteLine(" Write """",!")
; foobar
; kill ZENReportCache
Do %code.WriteLine(" s i="""" f s i=$o(%indices(i)) q:i="""" kill ^||%ZENReport(""ZENReportCache"",i)")
Do %code.WriteLine(" k %indices")
Do %code.WriteLine(" Quit tSC")
#; error exit
Do %code.WriteLine("Error")
Do %code.WriteLine(" Do ..%LogError(tSC)")
Do %code.WriteLine(" Quit tSC")
#; ztrap
Do %code.WriteLine("Trap")
Do %code.WriteLine(" Set $ZT=""""")
Do %code.WriteLine(" Set tSC = $$$ERROR($$$GeneralError,$ZE)")
Do %code.WriteLine(" Goto Error")
#; xml tag: escape text to be written as content of an element
#; strip out $C(13), if there are $C(10), then use CDATA
Do %code.WriteLine("xml(text,escape) Set text = $TR(text,$C(13),"""")")
Do %code.WriteLine(" Quit $S((($F(text,$C(10))||$F(text,"" ""))&&(escape=""noneifspace""))||(escape=""none""):"""",1:$ZCVT(text,""O"",""XML""))")
#; FieldLookup tag: lookup a given field in the current query
Do %code.WriteLine("FieldLookup(field,pLevel,sqlcache,default)")
#if $ZV'["5.2"
#; if sqlcache is set then fetch field from right place in cache depending on value of row and level
#; next advances row
#; FieldLookup just looks up field of row
#; We only support caching in 2008.1 and up
Do %code.WriteLine(" ")
Do %code.WriteLine(" if 'sqlcache {")
Do %code.WriteLine(" Set result=$G(default,"""")")
Do %code.WriteLine(" If $IsObject($Get(%query(pLevel))) {")
Do %code.WriteLine(" Try {")
Do %code.WriteLine(" Set result = %query(pLevel).%Get(field)")
;Do %code.WriteLine(" Set %result(field,pLevel) = result")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Catch(ex) {")
Do %code.WriteLine(" }")
Do %code.WriteLine(" }")
Do %code.WriteLine(" } else {")
Do %code.WriteLine(" if field'="""",$D(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",$zcvt(field,""u""))) {")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",$zcvt(field,""u""))")
Do %code.WriteLine(" Set result=$LG($G(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",%cache(pLevel).counter.currentrow)),i,"""")")
Do %code.WriteLine(" } else {")
Do %code.WriteLine(" Set result=""""")
Do %code.WriteLine(" } ")
Do %code.WriteLine(" } ")
#else
Do %code.WriteLine(" ")
Do %code.WriteLine(" Set result=$G(default,"""")")
Do %code.WriteLine(" If $d(%query(pLevel))&&$d(%query(pLevel).Data(field)) d ")
Do %code.WriteLine(" . Set result =%query(pLevel).Data(field)")
Do %code.WriteLine(" . Set %result(field,pLevel) = result")
#endif
Do %code.WriteLine(" Quit result")
;Do %code.WriteLine("PrevFieldLookup(field,pLevel,default)")
;Do %code.WriteLine(" q %result(field,pLevel)")
#; if sqlcache is set then read next row from cache if there is one
#; if there isn't a next row then return 0 else return 1
Do %code.WriteLine("Next(sqlcache,pLevel,tSC)")
Do %code.WriteLine(" ")
Do %code.WriteLine(" If sqlcache=0 {")
Do %code.WriteLine(" Set flag=%query(pLevel).%Next(.tSC)")
Do %code.WriteLine(" } Else {")
Do %code.WriteLine(" if '$g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""indexfinished"")) {")
Do %code.WriteLine(" Set tSC=$$$OK")
Do %code.WriteLine(" Set totalrows = %cache(pLevel).counter.totalRows")
Do %code.WriteLine(" Set currentrow = %cache(pLevel).counter.currentrow")
Do %code.WriteLine(" If (currentrowtop Set %cache(pLevel).counter.totalRows=top")
Do %code.WriteLine(" } Elseif %query(pLevel).%Extends(""%ResultSet.SQL"") {") // %ResultSet.SQL?
Do %code.WriteLine(" set ^||%ZENReport(""ZENReportCache"")=$i(^||%ZENReport(""ZENReportCache""))")
Do %code.WriteLine(" set %indices(^||%ZENReport(""ZENReportCache""))=""""")
Do %code.WriteLine(" set %cache(pLevel)=##class(%ZEN.Report.DataCache).%New()")
Do %code.WriteLine(" set %cache(pLevel).globalindex=^||%ZENReport(""ZENReportCache"")")
Do %code.WriteLine(" set %cache(pLevel).counter=##class(%ZEN.Report.RecordCounter).%New()")
Do %code.WriteLine(" kill ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex)")
Do %code.WriteLine(" set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""totalrows"")=0")
Do %code.WriteLine(" set rsMetaData = %query(pLevel).%PrepareMetaData(.txtSQL,.returnError,"""")")
Do %code.WriteLine(" set columns=rsMetaData.columns")
Do %code.WriteLine(" for i=1:1:columns.Size {")
Do %code.WriteLine(" set colname=$zcvt(columns.GetAt(i).colName,""u"")")
Do %code.WriteLine(" set tColTypeByNum(colname)=columns.GetAt(i).ODBCType")
Do %code.WriteLine(" set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname)=i")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set i=0")
Do %code.WriteLine(" while %query(pLevel).%Next(.tSC) { ")
Do %code.WriteLine(" if top'="""",i=top Quit")
Do %code.WriteLine(" Set i=$i(i)")
Do %code.WriteLine(" set (row,^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""totalrows""))=$i(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""totalrows""))")
Do %code.WriteLine(" for i=1:1:columns.Size {")
Do %code.WriteLine(" set colname=$zcvt(columns.GetAt(i).colName,""u"")")
Do %code.WriteLine(" set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",row)=$g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",row))_$LB(%query(pLevel).%Get(colname))")
Do %code.WriteLine(" }")
Do %code.WriteLine(" }")
Do %code.WriteLine(" set %cache(pLevel).counter.totalRows=+$g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""totalrows""))")
Do %code.WriteLine(" if top'="""" if %cache(pLevel).counter.totalRows>top Set %cache(pLevel).counter.totalRows=top")
Do %code.WriteLine(" }")
;Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"",%cache(pLevel),""currentrow"")=0")
Do %code.WriteLine(" } else {")
Do %code.WriteLine(" Set %cache(pLevel)=%cache(pLevel-1)")
Do %code.WriteLine(" }")
Do %code.WriteLine(" if hasquery do SortCache(pLevel,orderby,.tColTypeByNum)")
Do %code.WriteLine(" q 0")
Do %code.WriteLine("SortCache(pLevel,orderby,tColTypeByNum)")
;Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"")=$i(^||%ZENReport(""ZENReportCache""))")
;Do %code.WriteLine(" Set %cache(pLevel)=##class(%ZEN.Report.DataCache).%New()")
;Do %code.WriteLine(" Set %cache(pLevel).globalindex=^||%ZENReport(""ZENReportCache"")")
;Do %code.WriteLine(" Set %cache(pLevel).counter=%cache(pLevel-1).counter")
;Do %code.WriteLine(" Merge ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex)=^||%ZENReport(""ZENReportCache"",%cache(pLevel-1).globalindex)")
Do %code.WriteLine(" Set %orderby=orderby")
Do %code.WriteLine(" if $e(%orderby)=""!"" {" )
Do %code.WriteLine(" Set %orderby=$e(%orderby,2,$L(%orderby))")
Do %code.WriteLine(" X ""Set %orderby=""_%orderby")
Do %code.WriteLine(" }")
Do %code.WriteLine(" if $L(%orderby,"","")=1 {")
Do %code.WriteLine(" Set ocolname=$zcvt($P(%orderby,"","",1),""u"") Set direction=$P(ocolname,"":"",2) Set:direction="""" odirection=1 Set:((direction'=""ASC"")&&(direction'=""DESC"")) odirection=1 set:direction=""DESC"" odirection=-1")
Do %code.WriteLine(" Set colname=$P(ocolname,"":"")")
Do %code.WriteLine(" if (colname'="""") {")
Do %code.WriteLine(" Do CalcIndex(pLevel,colname,odirection,.tColTypeByNum)")
Do %code.WriteLine(" }")
Do %code.WriteLine(" }")
#; if only one column we create index
Do %code.WriteLine(" if $L(%orderby,"","")=1 quit")
#; more than one column use a general sort
Do %code.WriteLine(" Do setDirectionArray(orderby,.direction)")
Do %code.WriteLine(" Set totalrows = %cache(pLevel).counter.totalRows")
Do %code.WriteLine(" For outer=2:1:totalrows {")
Do %code.WriteLine(" Set colname="""" for {" )
Do %code.WriteLine(" Set colname=$o(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname))" )
Do %code.WriteLine(" Quit:colname=""""")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname)")
Do %code.WriteLine(" Set temp(colname)=$LG(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",outer),i,"""")")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set inner=outer")
Do %code.WriteLine(" Set colname="""" for {" )
Do %code.WriteLine(" Set colname=$o(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname))" )
Do %code.WriteLine(" Quit:colname=""""")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname)")
Do %code.WriteLine(" Set val(colname)=$LG($g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner-1)),i,"""")")
Do %code.WriteLine(" }")
Do %code.WriteLine(" While ((inner>1)&& ($$secondGEfirst(.temp,.val,orderby,.direction,.tColTypeByNum))) { ; val >= temp")
Do %code.WriteLine(" Set colname="""" for {" )
Do %code.WriteLine(" Set colname=$o(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname))" )
Do %code.WriteLine(" Quit:colname=""""")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname)")
Do %code.WriteLine(" Set val(colname)=$LG($g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner-1)),i,"""")")
Do %code.WriteLine(" Set $LI(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner),i)=$LG($g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner-1)),i,"""")")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set inner=inner-1")
Do %code.WriteLine(" Set colname="""" for {" )
Do %code.WriteLine(" Set colname=$o(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname))" )
Do %code.WriteLine(" Quit:colname=""""")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname) ")
Do %code.WriteLine(" Set val(colname)=$LG($g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner-1)),i,"""")")
Do %code.WriteLine(" }")
Do %code.WriteLine(" ;if '$$secondGEfirst(.temp,.val,orderby,.tColTypeByNum) s inner=inner+1")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set colname="""" for {" )
Do %code.WriteLine(" Set colname=$o(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname))" )
Do %code.WriteLine(" Quit:colname=""""")
Do %code.WriteLine(" Set i=^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""colnames"",colname) ")
Do %code.WriteLine(" Set val(colname)=$LG($g(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner-1)),i,"""")")
Do %code.WriteLine(" Set $LI(^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""data"",inner),i)=$g(temp(colname))")
Do %code.WriteLine(" }")
Do %code.WriteLine(" }")
Do %code.WriteLine(" q 0")
Do %code.WriteLine("setDirectionArray(orderby,direction)")
Do %code.WriteLine(" Set %orderby=orderby")
Do %code.WriteLine(" if $e(%orderby)=""!"" {" )
Do %code.WriteLine(" Set %orderby=$e(%orderby,2,$L(%orderby))")
Do %code.WriteLine(" X ""Set %orderby=""_%orderby")
Do %code.WriteLine(" }")
Do %code.WriteLine(" if %orderby'="""" For i=1:1:$L(%orderby,"","") Set colname=$zcvt($P(%orderby,"","",i),""u"") Set direction=$P(colname,"":"",2) Set:direction="""" direction=""ASC"" Set:((direction'=""ASC"")&&(direction'=""DESC"")) direction=""ASC"" set direction($P(colname,"":"",1))=direction")
Do %code.WriteLine(" Quit")
Do %code.WriteLine("secondGEfirst(temp,val,orderby,direction,tColTypeByNum)")
Do %code.WriteLine(" Set %orderby=orderby")
Do %code.WriteLine(" if $e(%orderby)=""!"" {" )
Do %code.WriteLine(" Set %orderby=$e(%orderby,2,$L(%orderby))")
Do %code.WriteLine(" X ""Set %orderby=""_%orderby")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set valGEtemp=0")
Do %code.WriteLine(" Set kc=1")
Do %code.WriteLine(" Set colname=$zcvt($P(%orderby,"","",kc),""u"")")
Do %code.WriteLine(" If colname="""" q 0")
Do %code.WriteLine(" While ((temp($P(colname,"":"",1))=val($P(colname,"":"",1)))&&(kc<=$L(%orderby,"",""))) {")
Do %code.WriteLine(" if (kc<=$L(%orderby,"","")) Set colname=$zcvt($P(%orderby,"","",kc),""u"") ")
Do %code.WriteLine(" Set kc=$i(kc)")
Do %code.WriteLine(" }")
Do %code.WriteLine(" If '$$IsNumeric(tColTypeByNum($P(colname,"":"",1))) {")
Do %code.WriteLine(" Set colname=$P(colname,"":"",1) if direction(colname)=""ASC"" if (("" ""_val(colname))]("" ""_temp(colname))) Set valGEtemp=1")
Do %code.WriteLine(" Set colname=$P(colname,"":"",1) if direction(colname)=""DESC"" if (("" ""_val(colname))']("" ""_temp(colname))) Set valGEtemp=1")
Do %code.WriteLine(" } else {")
Do %code.WriteLine(" Set colname=$P(colname,"":"",1) if direction(colname)=""ASC"" if ((+val(colname))>(+temp(colname))) Set valGEtemp=1")
Do %code.WriteLine(" Set colname=$P(colname,"":"",1) if direction(colname)=""DESC"" if ((+val(colname))'>(+temp(colname))) Set valGEtemp=1")
Do %code.WriteLine(" } ")
Do %code.WriteLine(" q valGEtemp")
Do %code.WriteLine("dump(prev)")
Do %code.WriteLine(" set i="""" for set i=$o(prev(i)) quit:i="""" write prev(i),!")
Do %code.WriteLine(" quit")
Do %code.WriteLine("CalcIndex(pLevel,colname,odirection,tColTypeByNum)")
Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""indexfinished"")=0")
Do %code.WriteLine(" Do %cache(pLevel).%save()")
Do %code.WriteLine(" while $$Next(1,pLevel,.tSC) {")
Do %code.WriteLine(" If $$IsNumeric(tColTypeByNum(colname)) {")
Do %code.WriteLine(" Set value=+$$FieldLookup(colname,pLevel,1,"""")")
Do %code.WriteLine(" } else {")
Do %code.WriteLine(" Set value="" ""_$$FieldLookup(colname,pLevel,1,"""")")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""index"",value,%cache(pLevel).counter.currentrow)=""""")
Do %code.WriteLine(" }")
Do %code.WriteLine(" Do %cache(pLevel).%restore()")
Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""indexfinished"")=1")
Do %code.WriteLine(" Set ^||%ZENReport(""ZENReportCache"",%cache(pLevel).globalindex,""direction"")=odirection")
Do %code.WriteLine(" quit")
Do %code.WriteLine("IsNumeric(pType)")
Do %code.WriteLine(" quit $Case(pType,3:1,5:1,14:1,:0)")
Quit tSC
]]>
This method creates a binary stream that contains source data
when the source is a file or URL.
%zenStream is the stream containing the data.
If %zenStream="", then %zenStreamError is the error message for missing stream.
%response.CharSet is set according to the ?xml directive in the stream.1source:%String"),"encoding=",2)
Set quote=$extract(second)
Set charset=$piece($piece(second,quote,2),quote)
If charset="" Set charset="UTF-8"
}
Else {
Set charset="UTF-8"
}
Set %response.CharSet=charset
]]>
This method outputs the XML data indicated by the DATASOURCE parameter,
or %RunReport() if no DATASOURCE is provided.stripinstructions:%Boolean=0,embedXSL:%Boolean=0%Status",!
if (embedXSL) {
d ..XSLPreamble()
s tSC=..%DrawToHTML(1, embedXSL,0)
if $$$ISOK(tSC) {
Set tSC = ..%RunReport(embedXSL)
w !,""
}
} else {
Set tSC = ..%RunReport()
}
#; stream from file or URL
}
Elseif (datasource '="") {
d ..CreateOutputStream(datasource)
If $IsObject(%zenStream) {
$$$SETIO("RAW")
Do ..%OutputStream(%zenStream,stripinstructions)
}
Else {
&html<#(%zenStreamError)#: #(datasource)#>
}
} Elseif ($isObject(..xmlstream)) {
$$$SETIO("RAW")
Do ..%OutputStream(..xmlstream,stripinstructions)
}
Quit tSC
]]> "
; w !,""
; w !,"]>"
]]>%ZEN.Report.Display.report
object corresponding to the top-level report tag.
For HTML reports that draw their own XSLT style sheet,
this method is called to render the XSLT style sheet.]]>
stripinstructions:%Boolean=0,embedXSL:%Boolean=0,UseInternalXSLT:%Boolean=0%Status""")
Write:'stripinstructions "",!
#; invoke generated method to create reportDisplay DOM
Set report = ..%CreateDisplay()
Quit:'$IsObject(report) $$$ERROR($$$GeneralError,"Unable to create ReportDisplay object.")
d ..InitReport(embedXSL,report,.context)
Set XSLT=##class(%GlobalCharacterStream).%New()
Set delay=##class(%GlobalCharacterStream).%New()
If $d(%request) {
Set context("request","URL")=%request.URL
Set context("request","server")=%request.GetCgiEnv("SERVER_NAME")
Set context("request","port")=%request.GetCgiEnv("SERVER_PORT",80)
if (..#USEINSTANCEHOSTNAMEONRELATIVEURLS) {
Set context("request","CSPIHN")=%request.GatewayInstanceName
}
Set context("request","USEINSTANCEHOSTNAMEONRELATIVEURLS")=..#USEINSTANCEHOSTNAMEONRELATIVEURLS
}
Set tSC = report.%DrawToHTML(.context,.XSLT,.delay,embedXSL,UseInternalXSLT)
Do XSLT.Rewind()
//Do %code.Write(" &html<")
Set table=$$MapCharset^%NLS(..#ENCODING)
if table'="" $$$SETIO(table)
Do XSLT.OutputToDevice()
//Do %code.CopyFrom(XSLT)
//Do %code.Write(">")
Quit tSC
#; stream from file or URL
}
Elseif (stylesource'="") {
If '$D(%zenStream) {
Set %zenStreamError="%zenStream is undefined"
Quit $$$ERROR($$$GeneralError,%zenStreamError_": "_stylesource)
}
If $D(%zenStream),$IsObject(%zenStream) {
$$$SETIO("RAW")
Do ..%OutputStream(%zenStream,stripinstructions)
}
Else {
&html<#(%zenStreamError)#: #(stylesource)#>
Quit $$$ERROR($$$GeneralError,%zenStreamError_": "_stylesource)
}
} Elseif ($isObject(..tohtmlstream)) {
$$$SETIO("RAW")
Do ..%OutputStream(..tohtmlstream,stripinstructions)
}
Quit tSC
]]>
For PDF reports that draw their own XSLT style sheet,
this method is called to render the XSLT style sheet.stripinstructions:%Boolean=0%Status",!
#; invoke generated method to create reportDisplay DOM
Set report = ..%CreateDisplay()
Quit:'$IsObject(report) $$$ERROR($$$GeneralError,"Unable to create ReportDisplay object.")
d ..InitReport(0,report,.context)
Set XSLT=##class(%GlobalCharacterStream).%New()
Set delay=##class(%GlobalCharacterStream).%New()
If $IsObject($g(%request)) {
Set context("request","URL")=%request.URL
Set context("request","server")=%request.GetCgiEnv("SERVER_NAME")
Set context("request","port")=%request.GetCgiEnv("SERVER_PORT",80)
if (..#USEINSTANCEHOSTNAMEONRELATIVEURLS) {
Set context("request","CSPIHN")=%request.GatewayInstanceName
}
Set context("request","USEINSTANCEHOSTNAMEONRELATIVEURLS")=..#USEINSTANCEHOSTNAMEONRELATIVEURLS
}
Set tSC = report.%DrawToXSLFO(.context,.XSLT,.delay)
Do XSLT.Rewind()
Set table=$$MapCharset^%NLS(..#ENCODING)
if table'="" $$$SETIO(table)
Do XSLT.OutputToDevice()
#; stream from file or URL
}
Elseif (stylesource'="") {
If '$D(%zenStream) {
Set %zenStreamError="%zenStream is undefined"
Quit $$$ERROR($$$GeneralError,%zenStreamError_": "_stylesource)
}
If $D(%zenStream),$IsObject(%zenStream) {
$$$SETIO("RAW")
Do ..%OutputStream(%zenStream,stripinstructions)
}
Else {
&html<#(%zenStreamError)#: #(stylesource)#>
Quit $$$ERROR($$$GeneralError,%zenStreamError_": "_stylesource)
}
Quit $$$OK
} Elseif ($isObject(..toxslfostream)) {
$$$SETIO("RAW")
Do ..%OutputStream(..toxslfostream,stripinstructions)
}
Quit tSC
]]>
This method outputs the contents of the HTML reportDisplayLog:%Boolean=0,ApplyTransform:%Boolean=0,UseInternalXSLT:%Boolean=0,UseTempFiles:%Boolean=0,embedXSL:%Boolean=0%Status",!
if ('embedXSL) {
Do ..%ToHTMLStyleSheetLink(url)
}
Do ..%DrawXML(1,embedXSL)
}
} While (0)
Quit tSC
]]>
This method outputs the XSL-FO source of the PDF report,
before it is transformed to PDF.DisplayLog:%Boolean=0,ApplyTransform:%Boolean=0,UseInternalXSLT:%Boolean=0%Status",!
Do ..%ToXSLFOStyleSheetLink()
Do ..%DrawXML(1)
}
} While (0)
Quit tSC
]]>
This method performs the callout to the command line that performs an XSLT
or XSL-FO to PDF transformation.xmlfile:%String,xslfile:%String,outfile:%String,logfile:%String,convertToPDF:%Boolean%Status
This method outputs the contents of the PDF report DisplayLog:%Boolean=0%Status that references the XSLT stylesheet
used to transform the XML data into an HTML report. Currently,
this is always ReportClassName.cls?$MODE=tohtml, which will return
the stylesheet indicated by the HTMLSTYLESHEET parameter, or the
stylesheet generated by %DrawToHTML() if HTMLSTYLESHEET is not supplied.]]>xslfile:%String="">
if tCSPtoFile {
; ignore tStyleSheet calculated above
; ignore $USETEMPFILES if this is set
Set tDir=$G(%request.Data("$DIR",1))
s DirParam=""
if tDir'="" s DirParam="&$DIR="_tDir
set idx=..%ClassName(1)_".cls?$MODE=tohtml&$CSPTOFILE=1"_DirParam
set tStatus=##class(%ZEN.Report.Display.node).CSPLinkToFileLink(idx, .url, "xss")
&html<>
}
Quit $$$OK
]]> that references the XSLT stylesheet
used to transform the XML data into XSL-FO report. Currently,
this is always ReportClassName.cls?$MODE=toxslfo, which will return
the stylesheet indicated by the XSLFOSTYLESHEET parameter, or the
stylesheet generated by %DrawToXSLFO() if XSLFOSTYLESHEET is not supplied.]]>xslfile:%String="">
if tCSPtoFile {
; ignore tStyleSheet calculated above
; ignore $USETEMPFILES if this is set
Set tDir=$G(%request.Data("$DIR",1))
s DirParam=""
if tDir'="" s DirParam="&$DIR="_tDir
set idx=..%ClassName(1)_".cls?$MODE=toxslfo&$CSPTOFILE=1"_DirParam
set tStatus=##class(%ZEN.Report.Display.node).CSPLinkToFileLink(idx, .url, "xss")
&html<>
}
Quit $$$OK
]]>
This method creates a temporary local file that contains
the XML data indicated by the DATASOURCE parameter or
generated by %RunReport if no DATASOURCE is specified.%Status
This method is used to delete the temporary files used to hold XSLT1
This method creates a temporary local copy of the XSLT stylesheet
used to transform the XML data into an HTML report.%Status
This method creates a temporary local copy of the XSLT stylesheet
used to transform the XML data into XSL-FO.%Status
This method returns a stream of the contents of the file
indicated by a relative URL. The relative URL must indicate
a file that is actually on disk (i.e. not a .csp for .cls file)1%Stream.Object
This method returns a stream of the contents of the file
indicated by an absolute URL.1%Net.HttpResponse from the stream.]]>xml:%Stream.Object,stripinstructions:%Boolean=0%Status",beg)
Set chunk=$e(chunk,1,beg)_$e(chunk,end,$l(chunk))
}
}
Write chunk
}
Quit $$$OK
]]>
Log run-time error encountered by this report.1pSC:%Status
This callback is invoked after this report is instantiated
and before it is run.%Status
This callback is invoked after this report is run
and before it is closed.%Status
Notification that we are writing out the attributes for the opening tag.embedXSL:%Boolean=0
Return the temp directory for this system.1%String
Create set of ReportDisplay objects needs to format this report.]]>111objectgenerator0%ZEN.Report.Display.report 0) {
Set tLocalize = (DOMAIN '= "")
}
Else {
Set tLocalize = (DOMAIN '= "") && (DOMAIN '= "%ZEN")
}
#; find XDATA block named ReportDisplay
Set tIndex = %compiledclass.XDatas.FindObjectId(%class.Name_"||ReportDisplay")
Do %code.WriteLine(" New report1")
Do %code.WriteLine(" Set report1 = """"")
If (tIndex '= "") {
#; get XDATA as stream
Set tStream = %compiledclass.XDatas.GetAt(tIndex).Data
Do tStream.Rewind()
If (tStream.Size > 0) {
#; render the stream into ReportDisplay object (with children)
Set tReader = ##class(%XML.Reader).%New()
//If (+$G(%parameter("VALIDATEXML"))) {
// Set tReader.SAXSchemaSpec = "file:///" _ ##class(%ZEN.Utils).GetSchemaFile()
// Set tReader.SAXFlags = $$$SAXFULLDEFAULT
//}
Set tSC = tReader.OpenStream(tStream)
If $$$ISERR(tSC) Quit tSC
Do tReader.Correlate("report","%ZEN.Report.Display.report")
#; there should only be one report defined
Do tReader.Next(.tReport,.tSC)
If $$$ISERR(tSC) Quit tSC
If '$IsObject(tReport) Quit $$$ERROR($$$GeneralError,"No element defined in ReportDisplay block.")
#; have report generate code to recreate itself at run-time
Do tReport.%GenerateCode(%code,tLocalize,"children")
}
}
Else {
#; if XData did not create a page, create one
Do %code.WriteLine(" Set report1 = """"")
}
Do %code.WriteLine(" Quit report1")
Quit $$$OK
]]>11111objectgenerator11objectgenerator11embedXSL:%Boolean,report:%ZEN.Report.reportPage11111dir:%String,name:%String,ext:%String11%String11%String
Tests if a column type is a numeric type.1expressionpType:%Integer%Boolean1%Status1
Server-only method for finding a ZEN Report Display node within this
report display given its id.11expressionid:%String%ZEN.Component.object
ACHS.Report.Application%ZEN.application61873,47594.80924861873,47594.809248
This is the name of this application.ACHS.Report.Application
This is the URL of the main starting page of this application.
This Style block contains application-wide CSS style definitions.
]]>
NewStorage1%Persistent62208,61441.10428561888,33469.254554%String%String%String1JobIEN,DocumentIEN,TransactionIEN1%String%String%String%String108DocumentType%String88s {*}=$s(({DocumentType}="C"):"Cancellation",({DocumentType}="S"):"Supplement",1:"")111%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String6HICCoverageType%String79s {Current}="" i ("A"={HICCoverageType}) s {Current}="x" 111%String80s {Previous}="" i ("B"={HICCoverageType}) s {Previous}="x" 111%String%String%String%String%String%String%String%String%String%String%String%String%String5ServiceType%String78s {HospitalInpatient}="" i ({ServiceType}=1) s {HospitalInpatient}="x" 111%String77s {Dental}="" i ({ServiceType}=2) s {Dental}="x" 111%String76s {OtherThanHospital}="" i ({ServiceType}=3) s {OtherThanHospital}="x" 111%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String%String90s {contract}="" i ("C"={ContractType}) s {contract}="x" 111%String91s {agreementor}="" i ("A"={ContractType}) s {agreementor}="x" 111%String92s {rateQuotation}="" i ("R"={ContractType}) s {rateQuotation}="x" 111%String93s {RateQuotationField}="" i ("O"={ContractType}) s {RateQuotationField}="Open Market" 111%String%String%String8RateType%String86s {MedicareRateor}="" i ("1"={RateType}) s {MedicareRateor}="x" 111%String87s {OtherRate}=""111%String%String%String%String%String%String%String%String%String%String%Strings {ProviderPhoneNumber}= $P({ProviderPhone}," ",2) 111%Strings {ProviderPhoneCode} = $P({ProviderPhone}," ",1) 111%String%String%String%String%String7ProviderClass%String81s {*}="" i ("S"={ProviderClass}) s {ProviderSmallBusiness}="x" 111%String82s {SmallDisadvantagedBusiness}="" i ("SD"={ProviderClass}) s {SmallDisadvantagedBusiness}="x" 111%String83s {WomanOwnedSmall}="" i ({ProviderClass}="SW") s {WomanOwnedSmall}="x" 111%String84s {HUBZoneSmallBusiness}="" i ("SH"={ProviderClass}) s {HUBZoneSmallBusiness}="x" 111%String85s {ProviderOther}="" i ("SH"={ProviderClass}) s {ProviderOther}="x" 111%String%String%CacheSQLStorage^ACHS.Report.DataSourceSdata0^TMP"ACHSPO"{JobIEN}{DocumentIEN}{TransactionIEN}"^"46"^"45"^"44"^"111"^"112"^"07"^"33"^"32"^"04"^"34"^"21"^"22"^"23"^"03"^"05"^"18"^"19"^"02"^""I"3"^""I"4"^""I"6"^""I"7"^""I"9"^""I"11"^""I"13"^""I"10"^""I"12"^""I"14"^""I"2"^""I"1"^""I"5"^""I"8"^"31"^"210"^"012"^"013"^"011"^"010"^"110"^"08"^"43"^"42"^"01"^"06"^"41"^"12"^"17"^"15"^"16"^"11"^"13"^"14"^"24"^"25"^"26"^"27"^"53"^"54"^"57"^"56"^"55"^"51"^"52"^"36"^"37"^"35"^"29"^"28"^"09"^"59"^"58
This Report lists the Films and Showtimes at all Zen Cinemas.%ZEN.Report.reportPage62228,66124.7547461797,58879.372966
Class name of application this report belongs to.ACHS.Report.Application
This is the default display mode for this report.pdf
This is the optional XML namespace used for the report.%Integer
This XML defines the logical contents of this report.http://www.intersystems.com/zen/report/definition
]]>
This XML defines the display for this report.
This is used to generate the XSLT stylesheets for both HTML and XSL-FO.http://www.intersystems.com/zen/report/display
]]>
%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1val:%String%Stringval1:%String,val2:%String%String
This Report lists the Films and Showtimes at all Zen Cinemas.%ZEN.Report.reportPage62228,66289.27233261797,58879.372966
Class name of application this report belongs to.ACHS.Report.Application
This is the default display mode for this report.pdf
This is the optional XML namespace used for the report.%Integer%String
This XML defines the logical contents of this report.http://www.intersystems.com/zen/report/definition
]]>
This XML defines the display for this report.
This is used to generate the XSLT stylesheets for both HTML and XSL-FO.http://www.intersystems.com/zen/report/display
]]>
%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1%String%String1val:%String%Stringval1:%String,val2:%String%String%RegisteredObject62213,55800.25174761884,38645.1082411url:%String%String
]]>1device:%String%String
quit Status
]]>1%Integer1Y:%String0
K ACHSDIEN,DIC,DA,D0
D FY^ACHSUF
;
;FOLLOWING LINE TRIES TO DO SPACE RECOVER LAST ENTRY TYPE THING
I Y=" ",$D(^DISV(DUZ,"ACHSUD")) S Y=$G(^DISV(DUZ,"ACHSUD")),Y=$E(Y,2)_"-"_$E(Y,3,99) W Y
;
F I=1:1:$L(Y) I $E(Y,I)?1P,$E(Y,I)'="-" S Y=$E(Y,1,I-1)_"-"_$E(Y,I+1,999)
F I=1:1 S F=$F(Y,"--") Q:'F S Y=$P(Y,"--")_"-"_$P(Y,"--",2,999)
S (N,F,C)="",P=$L(Y,"-")
I P>3 W *7," ??" G getDocumentA1
S N=$P(Y,"-",P)
I P=3 S F=$P(Y,"-",2),C=+Y G getDocumentA2
I P=2 S C=$P(Y,"-") S:$L(C)>1 F=C,C=""
getDocumentA2 ;
S ACHSFC=$$FC^ACHS(DUZ(2)) ;IHS/SET/GTH ACHS*3.1*5 12/06/2002
S:C="" C=$E(ACHSCFY,4)
S:F="" F=ACHSFC
I $L(F)<3 S F=$E("000",1,3-$L(F))_F
I $L(N)<6 S N=$E("00000",1,5-$L(N))_N
S X="1"_C_N
S DIC="^ACHSF("_DUZ(2)_",""D"","
S DIC(0)=""
;S DIC("W")="W "" "",$P(^(0),U,14),""-"",ACHSFC,""-"",$P(^(0),U)"
A3 ;
D ^DIC
K DIC
G getDocumentA1:Y<1
S ACHSDIEN=+Y
S ^DISV(DUZ,"ACHSUD")=$P(Y,U,2)
// Build Transaction String
set str="
Select one or more transactions, by clicking on them, to print. Once you have selected all transactions for this document, click \'Add\'.
"
set str=str_"
✓
No.
Date
Type
Amount
"
S T=$O(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",0)),TN=0
while T?1N.N
{
i $P(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0),U,2)'="P"
{
s TN=TN+1
set str=str_"
"
while R]""
{
set ACHSRR=$O(^ACHS(7,"CZ",R,""))
while ACHSRR]""
{
S A=""
F Q:$O(^ACHS(7,ACHSRR,"D","B",A))="" S A=$O(^(A))
if $P($G(^ACHS(7,ACHSRR,"D",0)),U,4)>0
{
s ACHSIC=ACHSIC+1
S ACHSWORK(ACHSIC)=ACHSRR_U_$O(^ACHS(7,ACHSRR,"D","B",""))_U_A_U_$P($G(^ACHS(7,ACHSRR,"D",0)),U,4)
s str=str_"
"
}
S ACHSRR=$O(^ACHS(7,"CZ",R,ACHSRR))
}
S R=$O(^ACHS(7,"CZ",R))
}
s str=str_""
quit str
]]>
Reset document print flag1
Check for unprinted documents1%Boolean
Generate a re-print batchof selected forms1KEYSTR:%String0
Generate a re-print batch. This method requires ^TMP("ACHSRR",$J1ACHSRR:%String0
Generate batch forms for print.1Reprint:%Boolean=00
if 'ACHSERR
{
&js
set %session.Data("CHS","JobId")=jobIEN
}
&sql(select count(*) into :frmCount from ACHS_Report.DataSource where JobIEN = :jobIEN)
&js
if frmCount > 10
{
&js
}
else
{
&js
}
&js
]]>
Security Methods
Returns true if user has been authenticated1Session%Boolean
Expects DUZ
Should be called before intefacing with RPMS]]>10
Initialize %session data for current user
Called when users successfully authenticates using AC/VC1010",1:"")_$select($get(optionalBroker,$get(^%SYS("CSP","OptionalBrokerJS"),0)):"",1:$select(strict:"",1:""))
zInclude(url)
Set %CSPsc=$$cspInclude^%SYS.cspServer(url)
If ('%CSPsc) Set %request.Data("Error:IncludePage",1)=url ZTrap "THROW"
Kill %CSPsc
Quit
zInsertHiddenField(url,name,value,extra="")
Do ##class(csp.achs.module.chs.batch).ConvertParameter(url,.name,.value)
Quit "W")_"/>"
zInsertHiddenFields(url,query) public {
Quit $$cspHiddenForm^%SYS.cspServer(url,.query,"")
}
zIsPrivate()
Quit 0
zLink(link,query,addQ=0) public {
Quit $$cspLink^%SYS.cspServer(link,.query,addQ) }
zOnPage()
Do ##class(csp.achs.module.chs.batch).OnPageCSPROOT()
Quit 1
zOnPageCSPROOT()
Do ##class(csp.achs.module.chs.batch).OnPageHEAD()
Write ""
Write !,!,"
",!
Write "
",!
Write "
Print New Batch
",!
Write "
",!
Write "
",!
Write "
",!
Write " "
Write "
"
Write "Pressing the 'Generate New Batch' button will generate a new batch of CHS Health Service Order forms for print."
Write "
"
Write !," "
Write "
"
Write ""
Write "
"
Write !," "
Write "
"
Write " "
Write "
"
Write !,"
",!
Write "
",!
Write "
"
Quit
zOnPageHEAD()
Write !,(##class(csp.achs.module.chs.batch).HyperEventHead(0,0))
Quit
zOnPostHyperEvent(class,method)
Quit 1
zOnPreHyperEvent(class,method)
Quit 1
zPage(skipheader=1) public {
New %CSPsc,%ZCS Set %CSPsc=1
Set dopage=(%request.Method'="HEAD")
If %response.Language="" do %response.MatchLanguage()
If 'skipheader Do $zutil(96,18,2,"UTF8")
Try {
If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0
If $get(dopage) Set %CSPsc=##class(csp.achs.module.chs.batch).OnPage()
} Catch exception {
If $ZError'["time { Set ^("min")=time }
If $get(^("max"),0)",1:"")_$select($get(optionalBroker,$get(^%SYS("CSP","OptionalBrokerJS"),0)):"",1:$select(strict:"",1:""))
zInclude(url)
Set %CSPsc=$$cspInclude^%SYS.cspServer(url)
If ('%CSPsc) Set %request.Data("Error:IncludePage",1)=url ZTrap "THROW"
Kill %CSPsc
Quit
zInsertHiddenField(url,name,value,extra="")
Do ##class(csp.achs.module.chs.device).ConvertParameter(url,.name,.value)
Quit "W")_"/>"
zInsertHiddenFields(url,query) public {
Quit $$cspHiddenForm^%SYS.cspServer(url,.query,"")
}
zIsPrivate()
Quit 0
zLink(link,query,addQ=0) public {
Quit $$cspLink^%SYS.cspServer(link,.query,addQ) }
zOnPage()
Do ##class(csp.achs.module.chs.device).OnPageCSPROOT()
Quit 1
zOnPageCSPROOT()
Do ##class(csp.achs.module.chs.device).OnPageHEAD()
Write ""
Write !,!,!,"
"
Quit
zOnPageHEAD()
Write !,(##class(csp.achs.module.chs.device).HyperEventHead(0,0))
Quit
zOnPostHyperEvent(class,method)
Quit 1
zOnPreHyperEvent(class,method)
Quit 1
zPage(skipheader=1) public {
New %CSPsc,%ZCS Set %CSPsc=1
Set dopage=(%request.Method'="HEAD")
If %response.Language="" do %response.MatchLanguage()
If 'skipheader Do $zutil(96,18,2,"UTF8")
Try {
If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0
If $get(dopage) Set %CSPsc=##class(csp.achs.module.chs.device).OnPage()
} Catch exception {
If $ZError'["time { Set ^("min")=time }
If $get(^("max"),0)",1:"")_$select($get(optionalBroker,$get(^%SYS("CSP","OptionalBrokerJS"),0)):"",1:$select(strict:"",1:""))
zInclude(url)
Set %CSPsc=$$cspInclude^%SYS.cspServer(url)
If ('%CSPsc) Set %request.Data("Error:IncludePage",1)=url ZTrap "THROW"
Kill %CSPsc
Quit
zInsertHiddenField(url,name,value,extra="")
Do ##class(csp.achs.module.chs.output).ConvertParameter(url,.name,.value)
Quit "W")_"/>"
zInsertHiddenFields(url,query) public {
Quit $$cspHiddenForm^%SYS.cspServer(url,.query,"")
}
zIsPrivate()
Quit 0
zLink(link,query,addQ=0) public {
Quit $$cspLink^%SYS.cspServer(link,.query,addQ) }
zOnPage()
Do ##class(csp.achs.module.chs.output).OnPageCSPROOT()
Quit 1
zOnPageCSPROOT()
Write "
Select Device
"
Quit
zOnPostHyperEvent(class,method)
Quit 1
zOnPreHyperEvent(class,method)
Quit 1
zPage(skipheader=1) public {
New %CSPsc,%ZCS Set %CSPsc=1
Set dopage=(%request.Method'="HEAD")
If %response.Language="" do %response.MatchLanguage()
If 'skipheader Do $zutil(96,18,2,"UTF8")
Try {
If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0
If $get(dopage) Set %CSPsc=##class(csp.achs.module.chs.output).OnPage()
} Catch exception {
If $ZError'["time { Set ^("min")=time }
If $get(^("max"),0)",1:"")_$select($get(optionalBroker,$get(^%SYS("CSP","OptionalBrokerJS"),0)):"",1:$select(strict:"",1:""))
zInclude(url)
Set %CSPsc=$$cspInclude^%SYS.cspServer(url)
If ('%CSPsc) Set %request.Data("Error:IncludePage",1)=url ZTrap "THROW"
Kill %CSPsc
Quit
zInsertHiddenField(url,name,value,extra="")
Do ##class(csp.achs.module.chs.rbatch).ConvertParameter(url,.name,.value)
Quit "W")_"/>"
zInsertHiddenFields(url,query) public {
Quit $$cspHiddenForm^%SYS.cspServer(url,.query,"")
}
zIsPrivate()
Quit 0
zLink(link,query,addQ=0) public {
Quit $$cspLink^%SYS.cspServer(link,.query,addQ) }
zOnPage()
Do ##class(csp.achs.module.chs.rbatch).OnPageCSPROOT()
Quit 1
zOnPageCSPROOT()
Do ##class(csp.achs.module.chs.rbatch).OnPageHEAD()
Write ""
Write !,!,"
",!
Write "
",!
Write "
Re-Print Batch
",!
Write "
",!
Write "
",!
Write "
",!
Write " "
Write "
"
Write !," "
Write "
"
Write !," Select a batch to reprint from the list below. ",!
Write " "
Write "
"
Write !," "
Write "
"
Write !," "
Write "
"
Write "
"
Write !,"
",!
Write "
",!
Write "
"
Quit
zOnPageHEAD()
Write !,(##class(csp.achs.module.chs.rbatch).HyperEventHead(0,0))
Quit
zOnPostHyperEvent(class,method)
Quit 1
zOnPreHyperEvent(class,method)
Quit 1
zPage(skipheader=1) public {
New %CSPsc,%ZCS Set %CSPsc=1
Set dopage=(%request.Method'="HEAD")
If %response.Language="" do %response.MatchLanguage()
If 'skipheader Do $zutil(96,18,2,"UTF8")
Try {
If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0
If $get(dopage) Set %CSPsc=##class(csp.achs.module.chs.rbatch).OnPage()
} Catch exception {
If $ZError'["time { Set ^("min")=time }
If $get(^("max"),0)",1:"")_$select($get(optionalBroker,$get(^%SYS("CSP","OptionalBrokerJS"),0)):"",1:$select(strict:"",1:""))
zInclude(url)
Set %CSPsc=$$cspInclude^%SYS.cspServer(url)
If ('%CSPsc) Set %request.Data("Error:IncludePage",1)=url ZTrap "THROW"
Kill %CSPsc
Quit
zInsertHiddenField(url,name,value,extra="")
Do ##class(csp.achs.module.chs.rform).ConvertParameter(url,.name,.value)
Quit "W")_"/>"
zInsertHiddenFields(url,query) public {
Quit $$cspHiddenForm^%SYS.cspServer(url,.query,"")
}
zIsPrivate()
Quit 0
zLink(link,query,addQ=0) public {
Quit $$cspLink^%SYS.cspServer(link,.query,addQ) }
zOnPage()
Do ##class(csp.achs.module.chs.rform).OnPageCSPROOT()
Quit 1
zOnPageCSPROOT()
Do ##class(csp.achs.module.chs.rform).OnPageHEAD()
Write ""
Write !,!,!,!,"
"
Quit
zOnPageHEAD()
Write !,(##class(csp.achs.module.chs.rform).HyperEventHead(0,0))
Quit
zOnPostHyperEvent(class,method)
Quit 1
zOnPreHyperEvent(class,method)
Quit 1
zPage(skipheader=1) public {
New %CSPsc,%ZCS Set %CSPsc=1
Set dopage=(%request.Method'="HEAD")
If %response.Language="" do %response.MatchLanguage()
If 'skipheader Do $zutil(96,18,2,"UTF8")
Try {
If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0
If $get(dopage) Set %CSPsc=##class(csp.achs.module.chs.rform).OnPage()
} Catch exception {
If $ZError'["time { Set ^("min")=time }
If $get(^("max"),0) Resource and Patient Management System
