Class MyApp.Person Extends %Persistent [ClassType = persistent]
{

    /// This procedure returns a set of persons ordered by name
    Query ListPersons(name As %String = "") As %SQLQuery [ SqlProc ]
    {
        SELECT ID, Name
        FROM Person
        ORDER BY Name
    }
}

  WRITE !,"Creating a procedure"
  &sql(CREATE PROCEDURE PersonStateSP() BEGIN
       SELECT Name,Home_State FROM Sample.Person ;
       END)
  IF SQLCODE= 0  { WRITE !,"Created a procedure" }
  ELSEIF SQLCODE=- 361  { WRITE !,"Procedure already exists" }
  ELSE { WRITE !,"SQL error: ",SQLCODE }