Name | Value |
---|---|
NUMBER | 4816 |
IA # | 4816 |
GLOBAL ROOT | DD( |
DATE CREATED | 2005/10/24 |
CUSTODIAL PACKAGE | VA FILEMAN |
USAGE | Private |
TYPE | File |
DBIC APPROVAL STATUS | APPROVED |
NAME | DD Nodes for files 5, SUB-FILE 5.01, 5.12, & 5.13 |
GENERAL DESCRIPTION | This will be a one time agrement for patch XU*8*378 to se the following nodes: Routine: XU8P378 ; Set current C xrefs in 5 to Q S ^DD(5,1,1,1,1)="Q" S ^DD(5,1,1,1,2)="Q" S ^DD(5,1,1,1,3)="Used in conjunction with the 'ADUALC' xref." S ^DD(5,1,"DT")=$G(DT) S ^DD(5,2,1,1,1)="Q" S ^DD(5,2,1,1,2)="Q" S ^DD(5,2,1,1,3)="Used in conjunction with the 'ADUALC' xref." S ^DD(5,2,"DT")=$G(DT) Routine: XU8P378C ; 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 EN^DDIOL(""New State additions are not allowed."","""",""!?5,$C(7)"") I 0" 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 EN^DDIOL(""New County additions are not allowed."","""",""!?5,$C(7)"") I 0" 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 EN^DDIOL(""New County Code additions are not allowed."","""",""!?5,$C(7)"") I 0" S ^DD(5.13,.01,"DT")=$G(DT) |
STATUS | Active |
ID | DD( |
SUBSCRIBING PACKAGE | KERNEL |