| [613] | 1 | XU8P378C ;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
|
|---|
