Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples
☜

$%COLLATE

Draft MDC Standard

☞

1 CHARACTER Library
1.1 COLLATE

COLLATE(A,CHARMOD) New x
	Set x=""
	If $Get(CHARMOD)'="" Do
	. If $Extract(CHARMOD,1)="^" Do
	. . Set x=$Extract(CHARMOD,2,$Length(CHARMOD))
	. . If x'="" Set x=$Get(^$Global(x,"COLLATE"))
	. . Quit
	. If x="" Set x=$Get(^$Character(CHARMOD,"COLLATE"))
	. Quit
	If x="" Set x=^$Job($Job,"COLLATE")
	Set x=@(x_"("_A_")")
	Quit x
Button for 1977 Button for 1984 Button for 1990 Button for 1995 Button for MDC Button for notes Button for examples

Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 16-Nov-2023, 14:53:44.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)