@@ -1667,26 +1667,26 @@ ClassMethod Name(InternalName As %String, ByRef MappingExists As %Boolean) As %S
1667
1667
/// Implementation copied from %Library.RoutineMgr, but with results cached in a PPG.
1668
1668
ClassMethod UserTypeCached (Name As %String , ByRef Class As %String , ByRef StudioType As %String , ByRef Schema As %String , ByRef StudioIcon As %Integer ) As %Boolean
1669
1669
{
1670
- Set ext =$zconvert ($piece (Name ," ." ,*)," U" ) If ext =" " Quit 0
1670
+ Set ext =$zconvert ($piece (Name ," ." ,*)," U" ) If ext =" " Quit 0
1671
1671
If $Data (^||UserTypeCache (ext ," NotUserType" ))#2 {
1672
1672
Quit 0
1673
1673
}
1674
1674
If $Data (^||UserTypeCache (ext ),data )#2 {
1675
1675
Set Class = $Get (^||UserTypeCache (ext ," Class" ))
1676
- Set StudioType =$list (data ),Schema =$listget (data ,3 ),StudioIcon =+$listget (data ,4 )
1676
+ Set StudioType =$list (data ),Schema =$listget (data ,3 ),StudioIcon =+$listget (data ,4 )
1677
1677
Quit 1
1678
1678
}
1679
- Do StudioDocument ^%SYS .cspServer2 (.document )
1680
- Set Class =" " ,StudioType =" " ,Schema =" "
1681
- For Set Class =$order (document (Class )) Quit :Class =" " ||($data (document (Class ,ext ),data ))
1682
- If Class =" " {
1679
+ Do StudioDocument ^%SYS .cspServer2 (.document )
1680
+ Set Class =" " ,StudioType =" " ,Schema =" "
1681
+ For Set Class =$order (document (Class )) Quit :Class =" " ||($data (document (Class ,ext ),data ))
1682
+ If Class =" " {
1683
1683
Set ^||UserTypeCache (ext ," NotUserType" ) = 1
1684
1684
Quit 0
1685
1685
}
1686
- Set StudioType =$list (data ),Schema =$listget (data ,3 ),StudioIcon =+$listget (data ,4 )
1686
+ Set StudioType =$list (data ),Schema =$listget (data ,3 ),StudioIcon =+$listget (data ,4 )
1687
1687
Set ^||UserTypeCache (ext ) = data
1688
1688
Set ^||UserTypeCache (ext ," Class" ) = Class
1689
- Quit 1
1689
+ Quit 1
1690
1690
}
1691
1691
1692
1692
/*
0 commit comments