Routine: USRPS23

Information

USRPS23 ; SLC/MAM - After installing TIU*1.0*137;6/16/03

Source file <USRPS23.m>

Package	Total	Call Graph
Authorization Subscription	1	($$USRDUPS,SETXTMP)^USREN23
VA Fileman	1	UPDATE^DIE

Package	Total	Caller Graph
Text Integration Utility	1	TIUPS137

Name	Comments	DBIA/ICR reference
MAINX	; Exit
NEWCLASS(SUCCESS,TMPCNT)	; Create one new User Class in file 8930
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:
MAIN	; Create new User Class & new Business Rules ; -- Check for potential dup User Class created after install ; but before option:
SETX	;
NEWRULES(TMPCNT)	; Create new Business Rules ; Create rules for ONE User Class & ONE DDEF ; -- Set data for rules:

Name	Line Occurrences (* Changed, ! Killed)
^TMP("USR23"	MAIN+3!, MAIN+7, MAIN+8, MAIN+9, MAIN+13, MAIN+14, MAIN+20, MAIN+21, MAINX+1, MAINX+2* , NEWCLASS+8, NEWCLASS+9, NEWCLASS+11, NEWCLASS+12, NEWRULES+18, NEWRULES+19, NEWRULES+20, NEWRULES+21, SETDATA+9, SETDATA+10
^USR(8930.6 - [#8930.6]	SETDATA+32, SETDATA+36
^USR(8930.8 - [#8930.8]	SETDATA+27
^XTMP("TIU137"	SETDATA+7
^XTMP("USR23"	MAIN+18, NEWCLASS+4, NEWCLASS+8, NEWCLASS+11, NEWCLASS+14, NEWRULES+7, NEWRULES+8, NEWRULES+10, NEWRULES+11, NEWRULES+15! , NEWRULES+16!, SETDATA+12, SETDATA+15, SETDATA+16, SETDATA+18, SETDATA+19, SETDATA+20, SETDATA+28, SETDATA+33, SETDATA+37*

Name	Field # of Occurrence
CLASSDA	NEWCLASS+1~, NEWCLASS+6*, NEWCLASS+7, NEWCLASS+14
DDEFIEN	SETDATA+4~, SETDATA+7*, SETDATA+8, SETDATA+15
DESC	NEWRULES+9~, NEWRULES+11*
DONE	MAIN+15~, MAIN+18*, MAIN+19
EXACTION	SETDATA+4~, SETDATA+24*, SETDATA+27, SETDATA+30
EXSTATUS	SETDATA+25~, SETDATA+31, SETDATA+32, SETDATA+35, SETDATA+36
FDA	NEWCLASS+1~, NEWRULES+9~
FDA(	NEWRULES+10, NEWRULES+12
FDA(8930	NEWCLASS+4*
INACTION	SETDATA+25~, SETDATA+27*, SETDATA+28
INSTATUS	SETDATA+25~, SETDATA+32, SETDATA+33, SETDATA+36, SETDATA+37
NUM	NEWRULES+4~, NEWRULES+5, NEWRULES+8, NEWRULES+10, NEWRULES+15
RULENUM	SETDATA+4~, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+23, SETDATA+26*, SETDATA+28, SETDATA+33, SETDATA+37
SILENT	MAIN+5~, MAIN+10*, MAIN+11
SUCCESS	MAIN+15~, MAIN+23, MAIN+25, NEWCLASS~, NEWCLASS+2, NEWCLASS+10, NEWRULES+4~, NEWRULES+5, NEWRULES+7, NEWRULES+14* , NEWRULES+17
TMPCNT	MAIN+5~, MAIN+6, MAIN+7, MAIN+8, MAIN+9, MAIN+13, MAIN+14, MAIN+20, MAIN+21, MAIN+23 , MAIN+25, MAINX+1, MAINX+2, NEWCLASS~, NEWCLASS+8, NEWCLASS+9, NEWCLASS+11, NEWCLASS+12, NEWRULES~, NEWRULES+3 , NEWRULES+18, NEWRULES+19, NEWRULES+20, NEWRULES+21, SETDATA~, SETDATA+9, SETDATA+10
USRCLASS	SETDATA+4~, SETDATA+12*, SETDATA+16
USRDUPS	MAIN+5~, MAIN+11*, MAIN+12
USRERR	NEWRULES+9~, NEWRULES+14
USRIEN	NEWCLASS+1~
USRIEN(1	NEWCLASS+6