Caché Basic Tutorial
Exercise 5: Write Object Versions of Data Entry and Lookup
[Back] 
   
Server:docs2
Instance:LATEST
User:UnknownUser
 
-
Search:    

  1. The new store subroutine of myBASdatentobj.
    public sub store()
    ' store the data
        dim yn, per
     
        input "Store? (y/n): ", yn ' see if user wants to store
        ' only go on if user says yes
        if ( yn <> "y" ) then
            println "...not stored."
            exit sub
        end if
     
        per = New BasTutorial.Person()
        with per
            .Name = name
            .Phone = phone
            .DOB = intdob
            .%Save()
        end with
        per = Nothing
        println "...stored" ' done
    end sub
    
  2. The new load subroutine of myBASlookupobj.
    private sub load(id as %Integer)
    ' load a person into local variables
        dim per
        per = OpenId BasTutorial.Person(id)
        with per
            name = .Name
            phone = .Phone
            intdob = .DOB
        end with
        per = Nothing
    end sub
    
  3. The new update subroutine of myBASlookupobj.
    private sub update(id As %Integer,_
                       newname As %String,_
                       newphone As %String,_
                       newintdob As %Integer)
    ' update ^PersonD and ^PersonI
        dim per
        per = OpenId BasTutorial.Person(id)
        with per
            .Name = newname
            .Phone = newphone
            .DOB = newintdob
            .%Save() ' this updates indices too, all within a transaction!
        end with
        per = Nothing
        println "...updated."
    end sub
    
  4. Update the getphone subroutine of myBASlookupobj by changing this line:
        ph = traverse(^PersonI("Phone", origph), 1, loopid)
    
    to this:
        ph = traverse(^PersonI("Phone", origph))
        if ph <> "" then loopid = traverse(^PersonI("Phone", ph, ""))
    
  5. Then change this line:
        loopid = ^PersonI("Phone", origph)
    
    to this:
        loopid = traverse(^PersonI("Phone", origph, ""))
    
  6. Then change this line:
        ph = traverse(^PersonI("Phone", ph), 1, loopid)
    
    to this:
        ph = traverse(^PersonI("Phone", ph))
        if ph <> "" then loopid = traverse(^PersonI("Phone", ph, ""))