This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Class large.utils | |
{ | |
ClassMethod init(nb As %Integer = 10, max As %Integer = 100) As %Status | |
{ | |
set sc = $$$OK | |
set serialclass = "large.serial" _ max | |
if ##class(%Dictionary.ClassDefinition).%ExistsId(serialclass) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
info: | |
title: '' | |
description: '' | |
version: '' | |
x-ISC_Namespace: IRISAPP | |
host: "localhost" | |
basePath: /common | |
paths: | |
/: | |
get: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Class admin.utils | |
{ | |
ClassMethod upgrade(verbose As %Boolean = 0) As %Status | |
{ | |
set ns=$Namespace | |
// Stopping all productions | |
do ..stopAllProductions(verbose) | |
zn "%sys" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Class data.archive.person Extends (%Persistent, data.current.person) | |
{ | |
Parameter DEFAULTGLOBAL = "^off.person"; | |
/// Description | |
ClassMethod archive(purgeArchive As %Integer = 0, purgeSource As %Integer = 0) As %Status | |
{ | |
set sc = $$$OK , tableName = "" | |
set (archived,archivedErrors, severity) = 0 |