Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25">
<Class name="CREPOS.SYSCOUNTERS">
<Super>%Persistent,%XML.Adaptor</Super>
<TimeCreated>65045,56531.764427</TimeCreated>
<Property name="ISACTRLNBR999">
<Type>%Integer</Type>
<Required>1</Required>
<Parameter name="MAXVAL" value="999999999"/>
</Property>
<UDLText name="T">
<Content><![CDATA[
// ISA13 Inter Ctrl Nbr 9 - PAD WITH LEADING 0
]]></Content>
</UDLText>
<Property name="FILECTRLNBR">
<Type>%Integer</Type>
<Required>1</Required>
<Parameter name="MAXVAL" value="99999999"/>
</Property>
<UDLText name="T">
<Content><![CDATA[
// FILECTRLNBR can be ONLY 8 long as downstream systems depend on this
]]></Content>
</UDLText>
<Property name="GSCTRLNBR999">
<Type>%Integer</Type>
<Required>1</Required>
<Parameter name="MAXVAL" value="999999999"/>
</Property>
<UDLText name="T">
<Content><![CDATA[
// GS06 Group Ctrl Number 1-9 - DO NOT PAD WITH LEADING 0
]]></Content>
</UDLText>
<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^CREPOS.SYSCOUNTERSD</DataLocation>
<DefaultData>SYSCOUNTERSDefaultData</DefaultData>
<IdLocation>^CREPOS.SYSCOUNTERSD</IdLocation>
<IndexLocation>^CREPOS.SYSCOUNTERSI</IndexLocation>
<StreamLocation>^CREPOS.SYSCOUNTERSS</StreamLocation>
<Data name="SYSCOUNTERSDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>ISACTRLNBR999</Value>
</Value>
<Value name="3">
<Value>FILECTRLNBR</Value>
</Value>
<Value name="4">
<Value>GSCTRLNBR999</Value>
</Value>
</Data>
</Storage>
<Method name="InitValues">
<ClassMethod>1</ClassMethod>
<FormalSpec>pISACTRLNBR999:%Integer=200000,pFILECTRLNBR:%Integer=20000000,pGSCTRLNBR999:%Integer=20000</FormalSpec>
<ReturnType>%Status</ReturnType>
<Implementation><![CDATA[
&SQL(select count(*) into :recCount from CREPOS.SYSCOUNTERS)
/*
Set tStatement=##class(%SQL.Statement).%New()
Set qStatus=tStatement.%Prepare(strSQL)
Set objResultSet=tStatement.%Execute()
*/
if recCount QUIT $$$ERROR($$$GeneralError,"Table already populated")
set objCounters = ##class(CREPOS.SYSCOUNTERS).%New()
set objCounters.ISACTRLNBR999 = pISACTRLNBR999
set objCounters.FILECTRLNBR = pFILECTRLNBR
set objCounters.GSCTRLNBR999 = pGSCTRLNBR999
set tsc = objCounters.%Save()
if 'tsc QUIT $$$ERROR($$$GeneralError,"Could Not save Values into CREPOS.SYSCOUNTERS")
QUIT $$$OK
]]></Implementation>
</Method>
</Class>
</Export>