- AIBLOGF ;DDPS/DFM ;LOG FILE PROCESSING [ 12/27/88 4:23 PM ]
- ;1.3 ;BEGIN PROCESSING CONTROL LOG FILES
- SEARCHM ;LOOK FOR CURRENT MERGE LOG CONTROL FILE
- S AIBGBLD0="",AIBGBLD0=$O(^AIBCVTC("B",AIBGBLP,AIBGBLD0)) I AIBGBLD0="" W !,"No control information for system "_AIBGBLP S AIBA="A" G RETURN
- S AIBLMD0="",AIBLMD0=$O(^AIBMLOG("AC",AIBGBLD0,AIBLMD0)) I AIBLMD0="" W !,"No merge log key active for "_AIBGBLP G BUILDM
- S AIBLMK=$P(^AIBMLOG(AIBLMD0,0),U,1) W !,"Active merge log key is ",AIBLMK G RETURN
- BUILDM ;BUILD KEY FIELDS IN MERGE LOG CONTROL FILE
- S DR=".01///"_AIBGBLP_NOW_";1///"_AIBGBLD0_";2///NOW"
- K Y S DIE="^AIBMLOG(" D ^DIE I $D(Y) W !,"Write to Merge log file unsucessful ",Y S AIBA="A" G RETURN
- W !,"New merge log entry made" G RETURN
- SEARCHD ;LOOK FOR MATCHING DATA LOG CONTROL FILE
- S AIBLKY=AIBGBLP_AIBFTL_AIBFRD W !,"Searching for data log key "_AIBLKY
- S AIBLD0="",AIBLD0=$O(^AIBLOG("B",AIBLKY,AIBLD0))
- I AIBLD0="" W !,"None found, Will build" G CKCTRLD
- G RETURN
- CKCTRLD ;CHECK CONTROL GLOBAL FOR LOCATION DEFINITION
- S AIBFTLD0="",AIBFTLD0=$O(^AUTTLOC("B",AIBFTL,AIBFTLD0))
- I AIBFTLD0="" W !,"Facility not on file for "_AIBFTL S AIBA="A" G RETURN
- BUILD ;BUILD KEY FIELDS IN DATA LOG CONTROL FILE
- S DR=".01///"_AIBLKY_";1///"_AIBGBLD0_";2///"_AIBFTLD0_";3///"_AIBFRD
- K Y S DIE="^AIBLOG(" D ^DIE I $D(Y) W !,"Write to Data log file unsucessful ",Y S AIBA="A" G RETURN
- W !,"New merge log entry made" G RETURN
- UPDATEM ;UPDATE MERGE LOG FILE
- S DA=AIBLMD0,DR=".01///"_AIBLMK_";4///"_AIBFTR_"6///"_AIBLMD0
- K Y S DIE="^AIBMLOG(" D ^DIE I $D(Y) W !,"Update to Merge log file unsucessful ",Y S AIBA="A" G RETURN
- G RETURN
- UPDATED ;UPDATE DATA LOG FILE
- S DA=AIBLD0,DR=".01///"_AIBLKY_";3///NOW;4///"_AIBFTR_";6///"_"""Y"""
- K Y S DIE="^AIBLOG(" D ^DIE I $D(Y) W !,"Update to Data log file unsucessful ",Y S AIBA="A" G RETURN
- G RETURN
- RETURN ;RETURN TO CALLING PROGRAM
- Q
- AIBLOGF ;DDPS/DFM ;LOG FILE PROCESSING [ 12/27/88 4:23 PM ]
- +1 ;1.3 ;BEGIN PROCESSING CONTROL LOG FILES
- SEARCHM ;LOOK FOR CURRENT MERGE LOG CONTROL FILE
- +1 SET AIBGBLD0=""
- SET AIBGBLD0=$ORDER(^AIBCVTC("B",AIBGBLP,AIBGBLD0))
- IF AIBGBLD0=""
- WRITE !,"No control information for system "_AIBGBLP
- SET AIBA="A"
- GOTO RETURN
- +2 SET AIBLMD0=""
- SET AIBLMD0=$ORDER(^AIBMLOG("AC",AIBGBLD0,AIBLMD0))
- IF AIBLMD0=""
- WRITE !,"No merge log key active for "_AIBGBLP
- GOTO BUILDM
- +3 SET AIBLMK=$PIECE(^AIBMLOG(AIBLMD0,0),U,1)
- WRITE !,"Active merge log key is ",AIBLMK
- GOTO RETURN
- BUILDM ;BUILD KEY FIELDS IN MERGE LOG CONTROL FILE
- +1 SET DR=".01///"_AIBGBLP_NOW_";1///"_AIBGBLD0_";2///NOW"
- +2 KILL Y
- SET DIE="^AIBMLOG("
- DO ^DIE
- IF $DATA(Y)
- WRITE !,"Write to Merge log file unsucessful ",Y
- SET AIBA="A"
- GOTO RETURN
- +3 WRITE !,"New merge log entry made"
- GOTO RETURN
- SEARCHD ;LOOK FOR MATCHING DATA LOG CONTROL FILE
- +1 SET AIBLKY=AIBGBLP_AIBFTL_AIBFRD
- WRITE !,"Searching for data log key "_AIBLKY
- +2 SET AIBLD0=""
- SET AIBLD0=$ORDER(^AIBLOG("B",AIBLKY,AIBLD0))
- +3 IF AIBLD0=""
- WRITE !,"None found, Will build"
- GOTO CKCTRLD
- +4 GOTO RETURN
- CKCTRLD ;CHECK CONTROL GLOBAL FOR LOCATION DEFINITION
- +1 SET AIBFTLD0=""
- SET AIBFTLD0=$ORDER(^AUTTLOC("B",AIBFTL,AIBFTLD0))
- +2 IF AIBFTLD0=""
- WRITE !,"Facility not on file for "_AIBFTL
- SET AIBA="A"
- GOTO RETURN
- BUILD ;BUILD KEY FIELDS IN DATA LOG CONTROL FILE
- +1 SET DR=".01///"_AIBLKY_";1///"_AIBGBLD0_";2///"_AIBFTLD0_";3///"_AIBFRD
- +2 KILL Y
- SET DIE="^AIBLOG("
- DO ^DIE
- IF $DATA(Y)
- WRITE !,"Write to Data log file unsucessful ",Y
- SET AIBA="A"
- GOTO RETURN
- +3 WRITE !,"New merge log entry made"
- GOTO RETURN
- UPDATEM ;UPDATE MERGE LOG FILE
- +1 SET DA=AIBLMD0
- SET DR=".01///"_AIBLMK_";4///"_AIBFTR_"6///"_AIBLMD0
- +2 KILL Y
- SET DIE="^AIBMLOG("
- DO ^DIE
- IF $DATA(Y)
- WRITE !,"Update to Merge log file unsucessful ",Y
- SET AIBA="A"
- GOTO RETURN
- +3 GOTO RETURN
- UPDATED ;UPDATE DATA LOG FILE
- +1 SET DA=AIBLD0
- SET DR=".01///"_AIBLKY_";3///NOW;4///"_AIBFTR_";6///"_"""Y"""
- +2 KILL Y
- SET DIE="^AIBLOG("
- DO ^DIE
- IF $DATA(Y)
- WRITE !,"Update to Data log file unsucessful ",Y
- SET AIBA="A"
- GOTO RETURN
- +3 GOTO RETURN
- RETURN ;RETURN TO CALLING PROGRAM
- +1 QUIT
