XU8P378C.m

XU8P378C ;OOIFO/SO- SET DD CHANGES FOR FILES 5, 5.12, & 5.13 ;6:21 AM  16 Nov 2005

 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59

 ;

 ; Set DEL & LAYGO nodes for file 5

 S ^DD(5,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed."","""",""!?5,$C(7)"") I 1"

 S ^DD(5,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New State additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"

 S ^DD(5,.01,"DT")=$G(DT)

 ;

 ; Set DEL & LAYGO nodes for sub-file 5.01

 S ^DD(5.01,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 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)"

 S ^DD(5,.01,"DT")=$G(DT)

 ;

 ; Set DEL node for file 5.12

 S ^DD(5.12,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 S ^DD(5.12,.01,"DT")=$G(DT)

 ;

 ; Set Del & LAYGO nodes for file 5.13

 S ^DD(5.13,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 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)"

 S ^DD(5.13,.01,"DT")=$G(DT)

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P378C   1200     printed  Apr 09, 2024@21:12:37                                                                                                                                                                                                    Page 2

XU8P378C  ;OOIFO/SO- SET DD CHANGES FOR FILES 5, 5.12, & 5.13 ;6:21 AM  16 Nov 2005

 +1       ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59

 +2       ;

 +3       ; Set DEL & LAYGO nodes for file 5

 +4        SET ^DD(5,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed."","""",""!?5,$C(7)"") I 1"

 +5        SET ^DD(5,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New State additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"

 +6        SET ^DD(5,.01,"DT")=$GET(DT)

 +7       ;

 +8       ; Set DEL & LAYGO nodes for sub-file 5.01

 +9        SET ^DD(5.01,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 +10       SET ^DD(5.01,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New County additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"

 +11       SET ^DD(5,.01,"DT")=$GET(DT)

 +12      ;

 +13      ; Set DEL node for file 5.12

 +14       SET ^DD(5.12,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 +15       SET ^DD(5.12,.01,"DT")=$GET(DT)

 +16      ;

 +17      ; Set Del & LAYGO nodes for file 5.13

 +18       SET ^DD(5.13,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"

 +19       SET ^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)"

 +20       SET ^DD(5.13,.01,"DT")=$GET(DT)

 +21      ;

 +22       QUIT