Routine: USRP1001

Package	Total	Call Graph
VA Fileman	2	$$FIND1^DIC UPDATE^DIE

Entry Points

Name	Comments	DBIA/ICR reference
POST	; Create new Business Rules ; Create rules for ONE User Class & ONE DDEF ; -- Set data for rules:
SETX	;
SETDATA(RULENUM,ACTION)	; Set data for rules ; -- Set data for exported Rules into Rule nodes of ^TMP. ; Use interior data since there may be dup DDEF names. ; Must set AFTER User Class is created:
ENV
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn

Name	Field # of Occurrence
$$FIND1^DIC	POST+6, POST+9, POST+12, POST+15, POST+18
UPDATE^DIE	POST+40

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must first install "_PATCH_"." Line Location: ENV+5
Function Call: WRITE	Prompt: "Business rules already exist" Line Location: POST+34
Function Call: WRITE	Prompt: "Problem creating Business Rules. Please contact National VistA Support." Line Location: POST+45
Function Call: WRITE	Prompt: "Business Rules created successfully." Line Location: POST+46
Routine Call	DIE Line Location: POST+40
Routine Call	DIC Line Location: POST+6 POST+9 POST+12 POST+15 POST+18

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	PATCH+4, PATCH+5, PATCH+7, PATCH+8
^TMP("USR1001"	POST+34, POST+35, POST+37, POST+38, POST+42!, POST+43!, SETDATA+5, SETDATA+6, SETDATA+7, SETDATA+8 , SETDATA+9, SETDATA+10
^USR(8930.1 - [#8930.1]	POST+21, POST+27

Name	Line Occurrences
$$PATCH	ENV+4
SETDATA	POST+25, POST+30

Name	Field # of Occurrence
ACTION	POST+4~, SETDATA~, SETDATA+8
CL	POST+4~, POST+6*, POST+21, POST+27, SETDATA+5
DDEFIEN	SETDATA+4~
DESC	POST+36~, POST+38*
EXACTION	SETDATA+4~
FDA	POST+36~
FDA(	POST+37, POST+39
I	PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN	POST+4~, POST+21, POST+23, POST+27, POST+28
J	PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
MSG	POST+4~, POST+7, POST+10, POST+13, POST+16, POST+19
NUM	PATCH+3~, PATCH+8, PATCH+9, POST+31~, POST+32, POST+35*, POST+37, POST+42
PATCH	ENV~, ENV+3*, ENV+4, ENV+5
PRINT	POST+4~, POST+18*, POST+27, POST+30
RULENUM	POST+4~, POST+5, POST+24, POST+25, POST+29*, POST+30, SETDATA~, SETDATA+5, SETDATA+6, SETDATA+7 , SETDATA+8
ST	POST+4~, POST+9*, POST+21, POST+27, SETDATA+7
SUCCESS	POST+31~, POST+32, POST+34, POST+41*, POST+44
USR	POST+4~, POST+12*, POST+21, POST+27, SETDATA+6
USRCLASS	SETDATA+4~
USRERR	POST+36~, POST+41
VIEW	POST+4~, POST+15*, POST+21, POST+25
X	PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDQUIT	ENV+5*