DIFG6 ;SFISC/DG(OHPRD)-UPDATE FILES ;2/3/93 12:23 PM
Source file <DIFG6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;
|
|
SETVAR | ;SET UP VARIABLES FOR DI* CALLS FOR A GIVEN ENTRY IN ^UTILITY("DIFG",$J,...)
|
|
X3 | ||
PROCESS | ;DETERMINE WHICH DI* ROUTINE(S) TO CALL FOR A GIVEN ENTRY
|
|
X1 | ||
ADDCONT | ;CONTINUATION OF MODE="A" PROCESSING UPON RETURN FROM ^DIC
|
|
BUILDDR | ;SET DR (BUILD DR ARRAY IF APPROPRIATE)
|
|
RESET | ;RESETS MODE INDICATOR IN FILEGRAM FROM "A" TO "M"
|
|
X2 | ||
EOJ |