source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD53P380.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 827 bytes
RevLine 
[613]1SD53P380 ;ALB/JAM - Restricting Stop Code Phase II Post Install;12-Jan-05
2 ;;5.3;Scheduling;**380**;Aug 13, 1993
3 ;
4 ;Routine adapted from routine IB20P210
5 ;
6EN ;Recompile Input Templates
7 N SDC,DMAX,SDMAX,SDN
8 ;
9 S SDMAX=$$ROUSIZE^DILF
10 D MES^XPDUTL("Recompiling affected input template ...")
11 F SDC=1:1 S SDN=$P($T(TMPL+SDC),";;",2) Q:SDN="" D COMP(SDN,SDMAX)
12 D MES^XPDUTL("Completed compiling input template.")
13 Q
14 ;
15COMP(TNAME,DMAX) ; Compile the Input Template
16 N SDIEN,SDRTN,X,Y
17 ;find the ien of the input template
18 S SDIEN=$O(^DIE("B",TNAME,0)) Q:'SDIEN
19 ;
20 ;quit if input template not compiled
21 S SDRTN=$P($G(^DIE(SDIEN,"ROUOLD")),U) Q:SDRTN=""
22 ;
23 D MES^XPDUTL("Compiling "_TNAME_" , compiled routine is "_SDRTN_" ...")
24 S X=SDRTN,Y=SDIEN
25 D EN^DIEZ
26 D MES^XPDUTL("done")
27 D MES^XPDUTL("")
28 Q
29 ;
30TMPL ;
31 ;;SDB
32 ;;
Note: See TracBrowser for help on using the repository browser.