Routine: DI14POST

Information

DI14POST ;OAK/RSD Post Install for patch 14

Name	Comments	DBIA/ICR reference
EN	;find all sub data dictionaries and check zero node name
REC(X,Y,Z)	;record action X, global ref. Y, new value for set Z
EXEC	;execute the changes found
RESTORE	;restore the old values in ^XTMP("DI14")

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This will check your account for bad ^DD(file #,0) nodes. It will look" Line Location: EN+2
Function Call: WRITE	Prompt: !,"for multiples that don't have the field name as the 1st piece of the node." Line Location: EN+3
Function Call: WRITE	Prompt: !,"It will display its results and ask you if you want to make the changes." Line Location: EN+4
Function Call: WRITE	Prompt: !,"This will take 5 to 10 minutes." Line Location: EN+5
Function Call: WRITE	Prompt: !!,"You already have bad nodes identified in the ^XTMP(""DI14"") global." Line Location: EN+7
Function Call: WRITE	Prompt: !,"If you proceed this data will be overwritten." Line Location: EN+8
Function Call: WRITE	Prompt: !!,"Do you want to run the check?" Line Location: EN+9
Function Call: WRITE	Prompt: !,".." Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+22
Function Call: WRITE	Prompt: !,"No bad nodes",! Line Location: EN+23
Function Call: WRITE	Prompt: !,$P(X,U,2) Line Location: EN+24
Function Call: WRITE	Prompt: !!,J," bad node(s) found. Do you want to repair?" Line Location: EN+25
Function Call: WRITE	Prompt: !!,"Done",! Line Location: EN+28
Function Call: WRITE	Prompt: !!,"Backup Global, ^XTMP(""DI14""), doesn't exists !!" Line Location: EXEC+1
Function Call: WRITE	Prompt: !!,"Backup Global, ^XTMP(""DI14""), doesn't exists !!" Line Location: RESTORE+1