USRPS23 ; SLC/MAM - After installing TIU*1.0*137;6/16/03
Source file <USRPS23.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Create new User Class & new Business Rules
; -- Check for potential dup User Class created after install ; but before option: |
|
| MAINX | ; Exit
|
|
| NEWCLASS(SUCCESS,TMPCNT) | ; Create one new User Class in file 8930
|
|
| NEWRULES(TMPCNT) | ; Create new Business Rules
; Create rules for ONE User Class & ONE DDEF ; -- Set data for rules: |
|
| SETDATA(TMPCNT) | ; Set data for rules
; -- Set data for exported Rules into Rule nodes of ^XTMP. ; Use interior data since there may be dup DDEF names. ; Must set AFTER User Class is created: |
|
| SETX | ;
|
