USRPS24 ; SLC/MAM - After installing TIU*1.0*165;6/18/03
Source file <USRPS24.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 Rule
; Create rule for ONE User Class & ONE DDEF ; -- Set data for rule: |
|
| SETDATA(TMPCNT) | ; Set data for rule
; -- Set data for exported Rule into Rule node of ^XTMP. ; Use interior data since there may be dup DDEF names. ; Must set AFTER User Class is created: |
|
| SETX | ;
|
