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 ---[H[J[2J[HDG53932P 1969 printed Sep 23, 2025@20:15:12 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
