Examples of $DATA()

Example:

    GTM> KILL WRITE $DATA(a)
    0
    GTM> SET a(1)=1 WRITE $DATA(a(1))
    1
    GTM> WRITE $DATA(a)
    10
    GTM> SET a=0 WRITE $DATA(a)
    11
    GTM>
    

This uses $DATA to display all possible $DATA() results.

Example:

    L ^ACCT(0)
    I '$D(^ACCT(0)) S ^ACCT(0)=0
    S (ACCT,^ACCT(0))=^ACCT(0)+1
    L
    

This uses $DATA() to determine whether a global node requires initialization.

Example:

    FOR SET cus=$O(^cus(cus)) Q:cus="" I $D(^(cus))>1 D WORK
    

This uses $DATA() to determine whether a global node has descendants and requires additional processing.