- KMPDPOST ;OAK/RAK - CM Tools Post Install ;4/2/04 08:55
- ;;3.0;KMPD;;Jan 22, 2009;Build 42
- ;
- EN ;-entry point
- N IEN,IEN1,ERROR,FDA,ZIEN
- ; update cp parameters file
- S FDA($J,8973,"?+1,",.01)=+$P($$SITE^VASITE,"^")
- S FDA($J,8973,"?+1,",.02)=$P($$VERSION^KMPDUTL,"^")
- S FDA($J,8973,"?+1,",.03)=$$NOW^XLFDT
- S FDA($J,8973,"?+1,",.04)=""
- S FDA($J,8973,"?+1,",.05)=""
- D UPDATE^DIE("","FDA($J)","ERROR")
- ; if error
- I $D(ERROR) D MSG^DIALOG("W","",60,10,"ERROR") Q
- D MES^XPDUTL(" CM TOOLS CURRENT VERSION field in CP PARAMETERS file has been updated!")
- ; check for background job
- S IEN=$O(^DIC(19,"B","KMPD BACKGROUND DRIVER",0))
- D:'IEN MES^XPDUTL(" KMPD BACKGROUND DRIVER is NOT in the OPTION file!")
- ; check for option scheduling entry
- S IEN1=$O(^DIC(19.2,"B",IEN,0))
- I IEN1 D MES^XPDUTL(" [KMPD BACKGROUND DRIVER] is scheduled in the OPTION SCHEDULING file!")
- E D
- .K ERROR,FDA,ZIEN
- .S FDA($J,19.2,"+1,",.01)=IEN
- .S FDA($J,19.2,"+1,",2)="T+1@01:30"
- .S FDA($J,19.2,"+1,",6)="1D"
- .D UPDATE^DIE("","FDA($J)",.ZIEN,"ERROR")
- .; if error
- .I $D(ERROR) D MSG^DIALOG("W","",60,10,"ERROR") Q
- .D MES^XPDUTL(" [KMPD BACKGROUND DRIVER] has been scheduled to run each day at 1:30am!")
- ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPDPOST 1248 printed Feb 18, 2025@23:07 Page 2
- KMPDPOST ;OAK/RAK - CM Tools Post Install ;4/2/04 08:55
- +1 ;;3.0;KMPD;;Jan 22, 2009;Build 42
- +2 ;
- EN ;-entry point
- +1 NEW IEN,IEN1,ERROR,FDA,ZIEN
- +2 ; update cp parameters file
- +3 SET FDA($JOB,8973,"?+1,",.01)=+$PIECE($$SITE^VASITE,"^")
- +4 SET FDA($JOB,8973,"?+1,",.02)=$PIECE($$VERSION^KMPDUTL,"^")
- +5 SET FDA($JOB,8973,"?+1,",.03)=$$NOW^XLFDT
- +6 SET FDA($JOB,8973,"?+1,",.04)=""
- +7 SET FDA($JOB,8973,"?+1,",.05)=""
- +8 DO UPDATE^DIE("","FDA($J)","ERROR")
- +9 ; if error
- +10 IF $DATA(ERROR)
- DO MSG^DIALOG("W","",60,10,"ERROR")
- QUIT
- +11 DO MES^XPDUTL(" CM TOOLS CURRENT VERSION field in CP PARAMETERS file has been updated!")
- +12 ; check for background job
- +13 SET IEN=$ORDER(^DIC(19,"B","KMPD BACKGROUND DRIVER",0))
- +14 if 'IEN
- DO MES^XPDUTL(" KMPD BACKGROUND DRIVER is NOT in the OPTION file!")
- +15 ; check for option scheduling entry
- +16 SET IEN1=$ORDER(^DIC(19.2,"B",IEN,0))
- +17 IF IEN1
- DO MES^XPDUTL(" [KMPD BACKGROUND DRIVER] is scheduled in the OPTION SCHEDULING file!")
- +18 IF '$TEST
- Begin DoDot:1
- +19 KILL ERROR,FDA,ZIEN
- +20 SET FDA($JOB,19.2,"+1,",.01)=IEN
- +21 SET FDA($JOB,19.2,"+1,",2)="T+1@01:30"
- +22 SET FDA($JOB,19.2,"+1,",6)="1D"
- +23 DO UPDATE^DIE("","FDA($J)",.ZIEN,"ERROR")
- +24 ; if error
- +25 IF $DATA(ERROR)
- DO MSG^DIALOG("W","",60,10,"ERROR")
- QUIT
- +26 DO MES^XPDUTL(" [KMPD BACKGROUND DRIVER] has been scheduled to run each day at 1:30am!")
- End DoDot:1
- +27 ;
- +28 QUIT