Routine: USRPS24

Information

USRPS24 ; SLC/MAM - After installing TIU*1.0*165;6/18/03

Source file <USRPS24.m>

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

Package	Total	Caller Graph
Text Integration Utility	1	TIUPS165

Name	Comments	DBIA/ICR reference
MAINX	; Exit
NEWCLASS(SUCCESS,TMPCNT)	; Create one new User Class in file 8930
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:
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 Rule ; Create rule for ONE User Class & ONE DDEF ; -- Set data for rule:

Name	Line Occurrences (* Changed, ! Killed)
^TMP("USR23"	SETDATA+9, SETDATA+10
^TMP("USR24"	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
^USR(8930.6 - [#8930.6]	SETDATA+27
^USR(8930.8 - [#8930.8]	SETDATA+24
^XTMP("TIU165"	SETDATA+7
^XTMP("USR24"	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+14, SETDATA+15, SETDATA+17, SETDATA+18, SETDATA+19, SETDATA+20, SETDATA+21, SETDATA+25* , SETDATA+28*

Name	Field # of Occurrence
CLASSDA	NEWCLASS+1~, NEWCLASS+6*, NEWCLASS+7, NEWCLASS+14
DDEFIEN	SETDATA+4~, SETDATA+7*, SETDATA+8, SETDATA+14
DESC	NEWRULES+9~, NEWRULES+11*
DONE	MAIN+15~, MAIN+18*, MAIN+19
EXACTION	SETDATA+4~, SETDATA+23*, SETDATA+24
EXSTATUS	SETDATA+4~, SETDATA+26*, SETDATA+27
FDA	NEWCLASS+1~, NEWRULES+9~
FDA(	NEWRULES+10, NEWRULES+12
FDA(8930	NEWCLASS+4*
INACTION	SETDATA+4~, SETDATA+24*, SETDATA+25
INSTATUS	SETDATA+4~, SETDATA+27*, SETDATA+28
NUM	NEWRULES+4~, NEWRULES+5, NEWRULES+8, NEWRULES+10, NEWRULES+15
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+15
USRDUPS	MAIN+5~, MAIN+11*, MAIN+12
USRERR	NEWRULES+9~, NEWRULES+14
USRIEN	NEWCLASS+1~
USRIEN(1	NEWCLASS+6