- 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 Apr 23, 2025@19:00:45 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 ;;
