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