XU8P378 ;OOIFO/SO- POST XU378 DRIVER ;7:06 AM 27 Dec 2005
;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
;
D ^XU8P378A ;Make any edits to the State & County Code files
;
; 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)
;
D ^XU8P378B ;Install new ADUALC xref
D ^XU8P378C ;Make DD changes for files 5, 5.12, & 5.13
D EP1^XIPSYNC ;Sync file 5 to file 5.13
; Clean up COUNTY CODE(#5.13) file first
S TMPA="" D ^XIPMAILA K TMPA
; Clean up STATE(#5) file first
S TMPB="" D ^XIPMAILB K TMPB
D ^XIPMAIL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P378 780 printed Dec 13, 2024@02:07:25 Page 2
XU8P378 ;OOIFO/SO- POST XU378 DRIVER ;7:06 AM 27 Dec 2005
+1 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
+2 ;
+3 ;Make any edits to the State & County Code files
DO ^XU8P378A
+4 ;
+5 ; Set current C xrefs in 5 to Q
+6 SET ^DD(5,1,1,1,1)="Q"
+7 SET ^DD(5,1,1,1,2)="Q"
+8 SET ^DD(5,1,1,1,3)="Used in conjunction with the 'ADUALC' xref."
+9 SET ^DD(5,1,"DT")=$GET(DT)
+10 SET ^DD(5,2,1,1,1)="Q"
+11 SET ^DD(5,2,1,1,2)="Q"
+12 SET ^DD(5,2,1,1,3)="Used in conjunction with the 'ADUALC' xref."
+13 SET ^DD(5,2,"DT")=$GET(DT)
+14 ;
+15 ;Install new ADUALC xref
DO ^XU8P378B
+16 ;Make DD changes for files 5, 5.12, & 5.13
DO ^XU8P378C
+17 ;Sync file 5 to file 5.13
DO EP1^XIPSYNC
+18 ; Clean up COUNTY CODE(#5.13) file first
+19 SET TMPA=""
DO ^XIPMAILA
KILL TMPA
+20 ; Clean up STATE(#5) file first
+21 SET TMPB=""
DO ^XIPMAILB
KILL TMPB
+22 DO ^XIPMAIL
+23 QUIT
