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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1XU8P378C ;OOIFO/SO- SET DD CHANGES FOR FILES 5, 5.12, & 5.13 ;6:21 AM 16 Nov 2005
2 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
3 ;
4 ; Set DEL & LAYGO nodes for file 5
5 S ^DD(5,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed."","""",""!?5,$C(7)"") I 1"
6 S ^DD(5,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New State additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
7 S ^DD(5,.01,"DT")=$G(DT)
8 ;
9 ; Set DEL & LAYGO nodes for sub-file 5.01
10 S ^DD(5.01,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
11 S ^DD(5.01,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New County additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
12 S ^DD(5,.01,"DT")=$G(DT)
13 ;
14 ; Set DEL node for file 5.12
15 S ^DD(5.12,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
16 S ^DD(5.12,.01,"DT")=$G(DT)
17 ;
18 ; Set Del & LAYGO nodes for file 5.13
19 S ^DD(5.13,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
20 S ^DD(5.13,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New County Code additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
21 S ^DD(5.13,.01,"DT")=$G(DT)
22 ;
23 Q
Note: See TracBrowser for help on using the repository browser.