KMPDPOST.m

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 ---KMPDPOST   1248     printed  Apr 09, 2024@20:46:18                                                                                                                                                                                                    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