DG53932P.m

DG53932P ;ISP/RFR - PATCH 932 POST-INIT;May 21, 2018@16:23

 ;;5.3;Registration;**932**;Aug 13, 1993;Build 210

 ;RECOMPILE TEMPLATES WITH NEW INDEXES

 D BMES^XPDUTL("  Recompiling input templates...")

 N LINENUM,LINE,FILE,FIELD,FIELDS,TEMPLATE,TEMPLTS,X,Y,DMAX,MESSAGE

 F LINENUM=1:1 S LINE=$T(DATA+LINENUM) Q:LINE'[";;"  D

 .I LINE["FILE" S FILE=$P(LINE,U,2) Q

 .Q:$G(FILE)=""

 .S FIELD=$P(LINE,";;",2) Q:FIELD=""

 .S FIELDS(FILE,FIELD)=""

 S FILE=0 F  S FILE=$O(FIELDS(FILE)) Q:'+FILE  S FIELD=0 F  S FIELD=$O(FIELDS(FILE,FIELD)) Q:'+FIELD  D

 .S TEMPLATE=0 F  S TEMPLATE=$O(^DIE("AF",FILE,FIELD,TEMPLATE)) Q:'+TEMPLATE  S TEMPLTS(TEMPLATE)=""

 S TEMPLATE=0 F  S TEMPLATE=$O(TEMPLTS(TEMPLATE)) Q:'+TEMPLATE  D

 .S Y=TEMPLATE,DMAX=$$ROUSIZE^DILF

 .S X=$P($G(^DIE(Y,"ROU")),U,2) Q:X=""

 .D EN^DIEZ

 D MES^XPDUTL("    DONE")

 D BMES^XPDUTL("  Scheduling option DG PTF ICD CODE NOTIFIER...")

 N ERROR,RESCHED,WHEN

 S RESCHED=15 ;TASK SHOULD RUN EVERY RESCHED MINUTES

 S WHEN=$P($$FMTE^XLFDT($$FMADD^XLFDT($$NOW^XLFDT,0,0,RESCHED)),":",1,2)

 D RESCH^XUTMOPT("DG PTF ICD CODE NOTIFIER",WHEN,,(60*RESCHED)_"S","L",.ERROR)

 I $G(ERROR)=-1 D MES^XPDUTL("    FAILED; manually schedule the option to run every "_RESCHED_" minutes")

 I '$D(ERROR) D MES^XPDUTL("    DONE")

 Q

DATA ;LIST OF FILES AND FIELDS MODIFIED BY THIS PATCH

 ;;FILE^45

 ;;79

 ;;79.16

 ;;79.17

 ;;79.18

 ;;79.19

 ;;79.201

 ;;79.21

 ;;79.22

 ;;79.23

 ;;79.24

 ;;79.241

 ;;79.242

 ;;79.243

 ;;79.244

 ;;79.245

 ;;79.246

 ;;79.247

 ;;79.248

 ;;79.249

 ;;79.2491

 ;;79.24911

 ;;79.24912

 ;;79.24913

 ;;79.24914

 ;;79.24915

 ;;80

 ;;FILE^45.02

 ;;5

 ;;6

 ;;7

 ;;8

 ;;9

 ;;11

 ;;12

 ;;13

 ;;14

 ;;15

 ;;81.01

 ;;81.02

 ;;81.03

 ;;81.04

 ;;81.05

 ;;81.06

 ;;81.07

 ;;81.08

 ;;81.09

 ;;81.1

 ;;81.11

 ;;81.12

 ;;81.13

 ;;81.14

 ;;81.15

 ;;FILE^45.06

 ;;.04

 ;;FILE^46

 ;;.04

 ;;.05

 ;;.06

 ;;.07

 ;;.21

 ;;.22

 ;;.23

 ;;.24

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53932P   1969     printed  Feb 19, 2025@00:05:24                                                                                                                                                                                                    Page 2

DG53932P  ;ISP/RFR - PATCH 932 POST-INIT;May 21, 2018@16:23

 +1       ;;5.3;Registration;**932**;Aug 13, 1993;Build 210

 +2       ;RECOMPILE TEMPLATES WITH NEW INDEXES

 +3        DO BMES^XPDUTL("  Recompiling input templates...")

 +4        NEW LINENUM,LINE,FILE,FIELD,FIELDS,TEMPLATE,TEMPLTS,X,Y,DMAX,MESSAGE

 +5        FOR LINENUM=1:1

               SET LINE=$TEXT(DATA+LINENUM)

               if LINE'[";;"

                   QUIT 

               Begin DoDot:1

 +6                IF LINE["FILE"

                       SET FILE=$PIECE(LINE,U,2)

                       QUIT 

 +7                if $GET(FILE)=""

                       QUIT 

 +8                SET FIELD=$PIECE(LINE,";;",2)

                   if FIELD=""

                       QUIT 

 +9                SET FIELDS(FILE,FIELD)=""

               End DoDot:1

 +10       SET FILE=0

           FOR 

               SET FILE=$ORDER(FIELDS(FILE))

               if '+FILE

                   QUIT 

               SET FIELD=0

               FOR 

                   SET FIELD=$ORDER(FIELDS(FILE,FIELD))

                   if '+FIELD

                       QUIT 

                   Begin DoDot:1

 +11                   SET TEMPLATE=0

                       FOR 

                           SET TEMPLATE=$ORDER(^DIE("AF",FILE,FIELD,TEMPLATE))

                           if '+TEMPLATE

                               QUIT 

                           SET TEMPLTS(TEMPLATE)=""

                   End DoDot:1

 +12       SET TEMPLATE=0

           FOR 

               SET TEMPLATE=$ORDER(TEMPLTS(TEMPLATE))

               if '+TEMPLATE

                   QUIT 

               Begin DoDot:1

 +13               SET Y=TEMPLATE

                   SET DMAX=$$ROUSIZE^DILF

 +14               SET X=$PIECE($GET(^DIE(Y,"ROU")),U,2)

                   if X=""

                       QUIT 

 +15               DO EN^DIEZ

               End DoDot:1

 +16       DO MES^XPDUTL("    DONE")

 +17       DO BMES^XPDUTL("  Scheduling option DG PTF ICD CODE NOTIFIER...")

 +18       NEW ERROR,RESCHED,WHEN

 +19      ;TASK SHOULD RUN EVERY RESCHED MINUTES

           SET RESCHED=15

 +20       SET WHEN=$PIECE($$FMTE^XLFDT($$FMADD^XLFDT($$NOW^XLFDT,0,0,RESCHED)),":",1,2)

 +21       DO RESCH^XUTMOPT("DG PTF ICD CODE NOTIFIER",WHEN,,(60*RESCHED)_"S","L",.ERROR)

 +22       IF $GET(ERROR)=-1

               DO MES^XPDUTL("    FAILED; manually schedule the option to run every "_RESCHED_" minutes")

 +23       IF '$DATA(ERROR)

               DO MES^XPDUTL("    DONE")

 +24       QUIT 

DATA      ;LIST OF FILES AND FIELDS MODIFIED BY THIS PATCH

 +1       ;;FILE^45

 +2       ;;79

 +3       ;;79.16

 +4       ;;79.17

 +5       ;;79.18

 +6       ;;79.19

 +7       ;;79.201

 +8       ;;79.21

 +9       ;;79.22

 +10      ;;79.23

 +11      ;;79.24

 +12      ;;79.241

 +13      ;;79.242

 +14      ;;79.243

 +15      ;;79.244

 +16      ;;79.245

 +17      ;;79.246

 +18      ;;79.247

 +19      ;;79.248

 +20      ;;79.249

 +21      ;;79.2491

 +22      ;;79.24911

 +23      ;;79.24912

 +24      ;;79.24913

 +25      ;;79.24914

 +26      ;;79.24915

 +27      ;;80

 +28      ;;FILE^45.02

 +29      ;;5

 +30      ;;6

 +31      ;;7

 +32      ;;8

 +33      ;;9

 +34      ;;11

 +35      ;;12

 +36      ;;13

 +37      ;;14

 +38      ;;15

 +39      ;;81.01

 +40      ;;81.02

 +41      ;;81.03

 +42      ;;81.04

 +43      ;;81.05

 +44      ;;81.06

 +45      ;;81.07

 +46      ;;81.08

 +47      ;;81.09

 +48      ;;81.1

 +49      ;;81.11

 +50      ;;81.12

 +51      ;;81.13

 +52      ;;81.14

 +53      ;;81.15

 +54      ;;FILE^45.06

 +55      ;;.04

 +56      ;;FILE^46

 +57      ;;.04

 +58      ;;.05

 +59      ;;.06

 +60      ;;.07

 +61      ;;.21

 +62      ;;.22

 +63      ;;.23

 +64      ;;.24

 +65       QUIT