source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53620D.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1DG53620D ;Plano/DW - Post-init continuation for DG*5.3*620 ; Aug 27, 2004
2 ;;5.3;Registration;**620**;Aug 13, 1993
3 ;
4EN ;Entry point
5 D DD
6 Q
7 ;
8DD ;Set input transforms
9 ;
10 D BMES^XPDUTL("Updating input transforms...")
11 ;
12 S $P(^DD(2,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X"
13 ;
14 S $P(^DD(2,.211,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
15 ;
16 S $P(^DD(2,.2191,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^DGLOCK2"
17 ;
18 S $P(^DD(2,.2401,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
19 ;
20 S $P(^DD(2,.2402,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
21 ;
22 S $P(^DD(2,.2403,0),U,5,99)="K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"
23 ;
24 S $P(^DD(2,.331,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
25 ;
26 S $P(^DD(2,.3311,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D E1^DGLOCK2"
27 ;
28 S $P(^DD(2,.341,0),U,5,99)="K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
29 ;
30 S $P(^DD(2.01,.01,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
31 ;
32 S $P(^DD(2.101,30,0),U,5,99)="K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
33 ;
34 Q
Note: See TracBrowser for help on using the repository browser.