Print Page as PDF
DD Nodes for files 5, SUB-FILE 5.01, 5.12, & 5.13 ICR (4816)

DD Nodes for files 5, SUB-FILE 5.01, 5.12, & 5.13    ICR (4816)

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
MAIL MESSAGE 41704656
Generated from JAN 24, 2019@ IA Listing Descriptions