| 1 | KMPDBD01 ;OAK/RAK - CM Tools Background Driver ;2/17/04 08:55
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT TOOLS;**2**;Mar 22, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;-entry point for background driver
|
|---|
| 5 | ;
|
|---|
| 6 | S:'$G(DT) DT=$$DT^XLFDT
|
|---|
| 7 | ;
|
|---|
| 8 | N DAILY,STR
|
|---|
| 9 | ;
|
|---|
| 10 | ; update cpu data in file #8973 (CP PARAMETERS)
|
|---|
| 11 | D CPUSET^KMPDUTL6(1)
|
|---|
| 12 | ;
|
|---|
| 13 | ; hl7
|
|---|
| 14 | ;compile and store daily stats in file 8973.1 (CM HL7 DATA)
|
|---|
| 15 | S STR=$$NOW^XLFDT,DAILY=$$FMADD^XLFDT(DT,-1)
|
|---|
| 16 | D DAILY^KMPDHU02(DAILY,DAILY)
|
|---|
| 17 | ; store start, stop and delta times for daily background job
|
|---|
| 18 | D STRSTP^KMPDUTL2(3,1,1,STR)
|
|---|
| 19 | ;
|
|---|
| 20 | ; timing
|
|---|
| 21 | ; compile and store timing stats in file 8973.2 (CP TIMING)
|
|---|
| 22 | S STR=$$NOW^XLFDT
|
|---|
| 23 | D DAILY^KMPDTU02
|
|---|
| 24 | ; store start, stop and delta times for daily background job
|
|---|
| 25 | D STRSTP^KMPDUTL2(4,1,1,STR)
|
|---|
| 26 | ;
|
|---|
| 27 | ; transmit 'yesterdays' daily stats to national database
|
|---|
| 28 | S STR=$$NOW^XLFDT,DAILY=$$FMADD^XLFDT(DT,-1)
|
|---|
| 29 | D DAILY^KMPDTU01(DAILY)
|
|---|
| 30 | ; store start, stop and delta times for daily background job
|
|---|
| 31 | D STRSTP^KMPDUTL2(4,2,1,STR)
|
|---|
| 32 | ;
|
|---|
| 33 | ;
|
|---|
| 34 | ; if sunday
|
|---|
| 35 | D:'$$DOW^XLFDT(DT,1) SUNDAY
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | SUNDAY ;-- weekly
|
|---|
| 40 | ;
|
|---|
| 41 | N STR
|
|---|
| 42 | ;
|
|---|
| 43 | S:'$G(DT) DT=$$DT^XLFDT
|
|---|
| 44 | ;
|
|---|
| 45 | ; hl7 - compress & transmit hl7 data to cm national
|
|---|
| 46 | ; database, and purge file #8973.1 (CM HL7 DATA) of old data
|
|---|
| 47 | S STR=$$NOW^XLFDT
|
|---|
| 48 | D WEEKLY^KMPDHU01(DT,1)
|
|---|
| 49 | ; store start, stop and delta times for weekly background job
|
|---|
| 50 | D STRSTP^KMPDUTL2(3,2,1,STR)
|
|---|
| 51 | ;
|
|---|
| 52 | ; purge entries from file 8973.2 (CP TIMING)
|
|---|
| 53 | S STR=$$NOW^XLFDT
|
|---|
| 54 | D PURGE1^KMPDUTL3
|
|---|
| 55 | D STRSTP^KMPDUTL2(4,2,2,STR)
|
|---|
| 56 | ;
|
|---|
| 57 | Q
|
|---|
