NO.: 14638                              VERSION: 22.2
  TAG: ENff                             ROUTINE NAME OR GLOBAL REF: DDSRP
  REPORTER: SMH                         DATE CHANGED: JAN 25,2013
  PROGRAMMER: SAM HABIEL
  CHANGE: Now prints properly without using IOP=P
  DOCUMENTATION NEEDED: YES
  DOCUMENTATION NOTES: New feature for screenman
  NEW VERSION: <22.2>
 DETAILED TESTING INSTRUCTIONS:
 In a screenman form, hit F1-P. Try various combinations for printing
 (screen, hfs, real printer). Everything should work properly.
NO.: 14640                              VERSION: 22.2
  TAG: passim                           ROUTINE NAME OR GLOBAL REF: DIAUTL
  REPORTER: SMH                         DATE CHANGED: JAN 25,2013
  PROGRAMMER: GEORGE TIMSON
  CHANGE: Changes to suppress call to ^%ZIS for every audited file
  DOCUMENTATION NEEDED: YES             DOCUMENTATION NOTES: New feature
  NEW VERSION: <22.2>
 LONG DESCRIPTION:
 13,16c12,14
 <  N
 DIA,FR,BY,TO,DHD,DDHD,DIC,L,POP,DDIO,DIOEND,DDTOUT,DIOSL,DIFIXPT,DIFIXPTH
 S DIFIXPT=1 ;KEEPS ^%ZIS FROM BEING CALLED IN ^DIP3
 <  D ^%ZIS Q:POP  S DDIO=IO U IO
 <  F DIA=0:0 S DIA=$O(^DDA(DIA)) Q:'DIA  S FR=$O(^DDA(DIA,"D",DDB)) D:FR
 Q:$D(DDTOUT)
 <  .U IO W @IOF D DDHD
 ---
 >       N DIA,FR,BY,TO,DHD,DDHD,DIC,L,POP,DDIO,DIOEND,DDTOUT
 >       D ^%ZIS Q:POP  S DDIO=ION
 >       F DIA=0:0 S DIA=$O(^DDA(DIA)) Q:'DIA  S FR=$O(^DDA(DIA,"D",DDB))
 D:FR  Q:$D(DDTOUT)  W @IOF

Type <Enter> to continue or '^' to exit:
 18c16
 <  .S DIOEND="S:$G(DIOO1) DDTOUT=1",DIOSL=IOSL ;DHD="W ?0 D
 DDHD^DIAUTL",IOP=DDIO
 ---
 >       .S DHD="W ?0 D DDHD^DIAUTL",IOP=DDIO,DIOEND="S:$G(DIOO1) DDTOUT=1"
 20d17
 <  U IO W @IOF D CLOSE^DIO4
 22,23c19,20
 < DDHD S DDHD="DATA DICTIONARY CHANGES, "_$P($G(^DIC(DIA,0)),U)_"
 FILE(#"_DIA_")" S:DDB DDHD=DDHD_" since "_$$DATE^DIUTL(DDB)
 <  W DDHD,!
 ---
 > DDHD  S DDHD="DATA DICTIONARY CHANGES, "_$P($G(^DIC(DIA,0)),U)_"
 FILE(#"_DIA_")" S:DDB DDHD=DDHD_"    SINCE "_$$DATE^DIUTL(DDB)
 >       W DDHD,?IOM-9," Page ",$G(DC),!
 DETAILED TESTING INSTRUCTIONS:
 From Fileman: OTHER > AUDIT OPTION  >   SHOW PAST CHANGES TO DD'S.

 Print to an HFS device.

 Make sure that the output is complete (long output, several files are
 included). Incorrect output will be seeing just one file.