source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8375P.m@ 1454

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

initial load of WorldVistAEHR

File size: 927 bytes
Line 
1XU8375P ;;BPOIFO/DW - Post-init for XU*8*375 ; 14 April 2004
2 ;;8.0;KERNEL;**375**; Jul 10, 1995;
3 ;
4 ;Update the DD
5 D UPDATE
6 ;
7 ;Recompile input templates
8 D RECOMP
9 ;
10 ;Update triggered fields
11 D TRIG
12 Q
13 ;
14UPDATE ;Update DD of the SIGNATURE BLOCK PRINTED NAME field
15 S $P(^DD(200,20.2,0),U,5,999)="K:X[""""""""!($A(X)=45)!($L(X)>40)!($L(X)<2) X I $D(X) K:$$FORMAT^XLFNAME7(X,2,40,,0,,1)'[$P(^VA(200,DA,0),"","") X"
16 Q
17 ;
18RECOMP ;Recompile input templates
19 D BMES^XPDUTL("Recompiling templates...")
20 ;
21 N XUFLD
22 S XUFLD(200,20.2)=""
23 D DIEZ^DIKCUTL3(200,.XUFLD)
24 ;
25 Q
26 ;
27TRIG ;Update triggered fields
28 D BMES^XPDUTL("Updating trigger field definitions...")
29 ;
30 N XUFLD,XUOUT
31 S XUFLD(200,20.2)=""
32 D TRIG^DICR(.XUFLD,.XUOUT)
33 ;
34 N XUFL,XUFD
35 S XUFL=0 F S XUFL=$O(XUOUT(XUFL)) Q:'XUFL D
36 . S XUFD=0 F S XUFD=$O(XUOUT(XUFL,XUFD)) Q:'XUFD D
37 .. D MES^XPDUTL(" Field #"_XUFD_" of file #"_XUFL_" updated.")
38 ;
39 Q
40 ;
Note: See TracBrowser for help on using the repository browser.