SD53P380 ;ALB/JAM - Restricting Stop Code Phase II Post Install;12-Jan-05
;;5.3;Scheduling;**380**;Aug 13, 1993
;
;Routine adapted from routine IB20P210
;
EN ;Recompile Input Templates
N SDC,DMAX,SDMAX,SDN
;
S SDMAX=$$ROUSIZE^DILF
D MES^XPDUTL("Recompiling affected input template ...")
F SDC=1:1 S SDN=$P($T(TMPL+SDC),";;",2) Q:SDN="" D COMP(SDN,SDMAX)
D MES^XPDUTL("Completed compiling input template.")
Q
;
COMP(TNAME,DMAX) ; Compile the Input Template
N SDIEN,SDRTN,X,Y
;find the ien of the input template
S SDIEN=$O(^DIE("B",TNAME,0)) Q:'SDIEN
;
;quit if input template not compiled
S SDRTN=$P($G(^DIE(SDIEN,"ROUOLD")),U) Q:SDRTN=""
;
D MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_SDRTN_" ...")
S X=SDRTN,Y=SDIEN
D EN^DIEZ
D MES^XPDUTL("done")
D MES^XPDUTL("")
Q
;
TMPL ;
;;SDB
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P380 859 printed Dec 13, 2024@02:46:15 Page 2
SD53P380 ;ALB/JAM - Restricting Stop Code Phase II Post Install;12-Jan-05
+1 ;;5.3;Scheduling;**380**;Aug 13, 1993
+2 ;
+3 ;Routine adapted from routine IB20P210
+4 ;
EN ;Recompile Input Templates
+1 NEW SDC,DMAX,SDMAX,SDN
+2 ;
+3 SET SDMAX=$$ROUSIZE^DILF
+4 DO MES^XPDUTL("Recompiling affected input template ...")
+5 FOR SDC=1:1
SET SDN=$PIECE($TEXT(TMPL+SDC),";;",2)
if SDN=""
QUIT
DO COMP(SDN,SDMAX)
+6 DO MES^XPDUTL("Completed compiling input template.")
+7 QUIT
+8 ;
COMP(TNAME,DMAX) ; Compile the Input Template
+1 NEW SDIEN,SDRTN,X,Y
+2 ;find the ien of the input template
+3 SET SDIEN=$ORDER(^DIE("B",TNAME,0))
if 'SDIEN
QUIT
+4 ;
+5 ;quit if input template not compiled
+6 SET SDRTN=$PIECE($GET(^DIE(SDIEN,"ROUOLD")),U)
if SDRTN=""
QUIT
+7 ;
+8 DO MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_SDRTN_" ...")
+9 SET X=SDRTN
SET Y=SDIEN
+10 DO EN^DIEZ
+11 DO MES^XPDUTL("done")
+12 DO MES^XPDUTL("")
+13 QUIT
+14 ;
TMPL ;
+1 ;;SDB
+2 ;;
