project QadFinancials > class BConsolidDump > method AdditionalUpdatesPostingSub
Description
Other method was full
Parameters
| bcFilePrefix | input-output | character | |
| bcSafStructureLinkIDList | input-output | character | |
| bcLayerIDList | input-output | character | |
| bcCurrencyIDList | input-output | character | |
| bcAddressTypeIDList | input-output | character | |
| bcCountryIDList | input-output | character | |
| bcProjectStatusIDList | input-output | character | |
| bcProjectGroupIDList | input-output | character | |
| bcSafStructureIDList | input-output | character | |
| bcSafConceptIDList | input-output | character | |
| bcSafIDList | input-output | character | |
| bcBLWICountryIDList | input-output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program4/bconsoliddump.p)
If oiReturnStatus = 0
Then Assign oiReturnStatus = -98.
If bcProjectStatusIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'ProjectStatus.xml':U.
<I-34 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProjectStatus"}>
<M-35 run DumpProjectStatusForConsolid (input bcProjectStatusIDList (icProjectStatusIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BProjectStatus>
<I-36 {bFcCloseAndStopInstance
&CLASS = "BProjectStatus"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcProjectGroupIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'ProjectGroup.xml':U.
<I-31 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProjectGroup"}>
<M-32 run DumpProjectGroupForConsolid (input bcProjectGroupIDList (icProjectGroupIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BProjectGroup>
<I-33 {bFcCloseAndStopInstance
&CLASS = "BProjectGroup"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcSafStructureIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'SafStructure.xml':U.
<I-28 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BSafStructure"}>
<M-29 run DumpSafStructureForConsolid (input bcSafStructureIDList (icSafStructureIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output bcSafConceptIDList (bcSafConceptIDList),
output viLocalReturnStatus (oiReturnStatus)) in BSafStructure>
<I-30 {bFcCloseAndStopInstance
&CLASS = "BSafStructure"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcSafConceptIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'SafConcept.xml':U.
<I-25 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BSafConcept"}>
<M-26 run DumpSafConceptForConsolid (input bcSafConceptIDList (icSafConceptIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BSafConcept>
<I-27 {bFcCloseAndStopInstance
&CLASS = "BSafConcept"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcSafIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'Saf.xml':U.
<I-22 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BSaf"}>
<M-23 run DumpSafForConsolid (input bcSafIDList (icSafIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BSaf>
<I-24 {bFcCloseAndStopInstance
&CLASS = "BSaf"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcSafStructureLinkIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'SafStructureLink.xml':U.
<I-19 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BSafStructureLink"}>
<M-20 run DumpSafStructureLinkForConsolid (input bcSafStructureLinkIDList (icSafStructureLinkIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BSafStructureLink>
<I-21 {bFcCloseAndStopInstance
&CLASS = "BSafStructureLink"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcLayerIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'Layer.xml':U.
<I-16 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BLayer"}>
<M-17 run DumpLayerForConsolid (input bcLayerIDList (icLayerIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BLayer>
<I-18 {bFcCloseAndStopInstance
&CLASS = "BLayer"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcCurrencyIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'Currency.xml':U.
<I-13 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BCurrency"}>
<M-14 run DumpCurrencyForConsolid (input bcCurrencyIDList (icCurrencyIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BCurrency>
<I-15 {bFcCloseAndStopInstance
&CLASS = "BCurrency"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcAddressTypeIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'AddressType.xml':U.
<I-10 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BAddressType"}>
<M-11 run DumpAddressTypeForConsolid (input bcAddressTypeIDList (icAddressStatusIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viLocalReturnStatus (oiReturnStatus)) in BAddressType>
<I-12 {bFcCloseAndStopInstance
&CLASS = "BAddressType"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcCountryIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'Country.xml':U.
<I-7 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BCountry"}>
<M-8 run DumpCountryForConsolid (input bcCountryIDList (icCountryIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output bcBLWICountryIDList (bcBLWICountryIDList),
output viLocalReturnStatus (oiReturnStatus)) in BCountry>
<I-9 {bFcCloseAndStopInstance
&CLASS = "BCountry"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If bcBLWICountryIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + bcFilePrefix + 'BLWICountry.xml':U.
<I-37 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BBLWICountry"}>
<M-40 run DumpBLWICountryForConsolid (input bcBLWICountryIDList (icBLWICountryIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
output viFcReturnSuper (oiReturnStatus)) in BBLWICountry>
<I-39 {bFcCloseAndStopInstance
&CLASS = "BBLWICountry"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.