XU8P378.m

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 ---XU8P378   780     printed  Apr 09, 2024@21:10:21                                                                                                                                                                                                      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