257. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:13 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

257.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXV003.m Mon Nov 5 16:45:13 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXV003.m Mon Nov 5 17:53:34 2018 UTC

257.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 426
Changed 1 2
Inserted 0 0
Removed 0 0

257.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

257.4 Active regular expressions

No regular expressions were active.

257.5 Comparison detail

  1   CHMXV003         ;HAC /jsg - AUT O SELECTED  VENDOR (A SV) REPORT  / EXPORT  (QUEUED);0 4/15/09 10 :10 AM
  2           ;; 1;Auto Ven dor Select ion;;Dec 2 1,2009;Bui ld 10
  3                    ;Req uirements  defined by : DEV00284 1-02 & BAT 0002841-01 : Auto Ven dor Select    ;
  4                    ;Key s: AUTO VE NDOR SELEC TION PROCE SS ASV                                         ;
  5                    ;Dis plays, pri nts or exp orts the n umber of E DI/OCR sub missions f or a speci fied
  6                    ;dat e range an d the perc entage of  Auto Selec ts relativ e to the t otal EDI/O CR ;
  7                    ;sub missions a nd the tot al submiss ions durin g the peri od.                      ;
  8                    ;PAR AMS - soli cit run ti me paramet eres form  user                                ;
  9                    ;CAL C - counts  the EDI/O CR submiss ions and A SVs and sa ves by dat e             ;
  10                    ;PDI s - counts  all PDIs  for the sp ecified pe riod and s aves by da te            ;
  11                    ;ASV IO - displ ays, print s or expor ts the sav ed data by  date with  percentag es ;
  12                    ;
  13   PARAMS     N TYPE,DEL ,SD,ED,EM, TAB,IOFILE ,QED
  14                    S U= "^",QED=0, XDUZ=DUZ Q :"^^@"[$$C RITERIA               ;Get run t ime parame ters
  15                    I $D (IO("Q"))! (TYPE="E")  S QED=1                                ;To  Q or not  to Q
  16                    S TA B=$S(DEL'= "":DEL,1:U ) I 'QED D  CALC Q                       ;I f not queu eing
  17                    S ZT RTN="CALC^ CHMXV003"  D VARSAVE, ^%ZTLOAD                           ;If queu eing
  18                    S IO P="HOME" D  HOME^%ZIS  W !,"Your  Task Numb er is: ",Z TSK R X:3
  19                    Q
  20                    ;
  21   CRITERIA()       ;TYP E=P!E;DEL= delimiter; SD=Start D ate;ED=End  Date;EM=E -Mail?
  22                      S  (TYPE,DEL, SD,ED,EM,I OFILE,CHUC I)="",POP= 0
  23                      W  !!,"Auto S elected Ve ndor Repor t:",!
  24                      S  TYPE=$$VPo rE() Q:TYP E=U U                                   ;Pr int or exp ort?
  25                      I  TYPE="E" S  DEL=$$DCh ar() Q:DEL ="@" U S:D EL="<Tab>"  DEL=$C(9)     ;Delim iter
  26                      D  NOW^%DTC S  TODAY=X
  27                      D  GETDATE Q: POP
  28                      ;S  SD=$$SDat e(TODAY) Q :SD=U U                                         ;Start  date
  29                      ;S  ED=$$EDat e(TODAY) Q :ED=U U                                           ;End  date
  30                      S  EM=$$EMail () Q:EM=U  U                                                 ;E-m ail?
  31                      I  TYPE="P" W  !!,"Repor t does NOT  require a  ""WIDE""  printer.", !!
  32                      I   S IOP="Q"  D ^%ZIS Q :POP U                           ;If printi ng, get de vice
  33                      IF  TYPE="P"  { W !,"Pri nting Auto  Selected  Vendor Rep ort for "
  34                                      W $$DFD( SD)," thro ugh ",$$DF D(ED),!,"t o: ",IO,IO N,".",! }
  35                      EL SEIF TYPE= "E" { X ^% ZOSF("UCI" ) S CHUCI= $P(Y,",")
  36                                  S  IOFILE="A SV_"_DUZ_" _"_TODAY_" _"_($P($H, ",",2)\60)
  37                                  S :CHUCI'="H AC" IOFILE =IOFILE_"_ TST" S IOF ILE=IOFILE _".TXT"
  38                                      W !,"Exp orting Aut o Selected  Vendor Re port (",$$ DFD(SD)
  39                                      W " thro ugh ",$$DF D(ED),") t o:"
  40                                      W !!,?24 ,"Data sha re: Fs3big "
  41                                      W !,?28, "Folder: C PD_VENDOR_ REPORTS"
  42                                      W !,?30, "File: ",I OFILE,! }
  43                      EL SE { W !!, "Gathering  AVS data  ..." }
  44                      Q  1
  45                      ;
  46   DFD(D)  Q  $E(D,4,5)_ "/"_$E(D,6 ,7)_"/"_$E (D,2,3) ;F ormat date
  47                  ;
  48   VARSAVE ;S ave variab les for qu eued job:
  49                   S CHF IO=$G(ION) ,ZTIO="" S  PAR=$$VPA CK
  50                   S ZTD ESC="Auto  Selected V endor "_$S (TYPE="P": "Report",1 :"File Ext ract")
  51                   S (ZT SAVE("CHFI O"),ZTSAVE ("U"),ZTSA VE("PAR")) =""
  52                   Q
  53                   ;
  54   VPACK() Q  $LB(TYPE,D EL,SD,ED,Q ED,TAB,TOD AY,IOFILE, CHUCI,XDUZ ,EM)
  55                   ;
  56   VSET(P) S  TYPE=$LI(P ,1),DEL=$L I(P,2),SD= $LI(P,3),E D=$LI(P,4)
  57                   S QED =$LI(P,5), TAB=$LI(P, 6),TODAY=$ LI(P,7),IO FILE=$LI(P ,8)
  58                   S CHU CI=$LI(P,9 ),XDUZ=$LI (P,10),EM= $LI(P,11)  Q
  59                   ;
  60   CALC    ;S can CHAMPV A IMAGES f ile index  "B" to cou nt PDIs be tween the  Start Date  and the ;
  61                ;End Dat e to get t otal of Al l submissi ons during  period; s ave by dat e:            ;
  62                D:'$D(QE D) VSET(PA R)                                           ;Unpack,  get Start  Date
  63                K AVS,PD I,EO                                                   ;Initializ e count ar rays
  64   PDIs    S  CHPDI="20" _$$FMJUL^C HTFLIB(SD- 1)_"999999 99"                                 ;Start  PDI
  65                S EPDI=" 20"_$$FMJU L^CHTFLIB( ED)_"99999 999"                                   ;End  PDI
  66                F  S CHP DI=$O(^CHM IMAGE(CHPD I)) Q:CHPD I>EPDI  D   
  67                .S FD=$$ JULFM^CHTF LIB($E(CHP DI,3,7))
  68                     .Q: FD>ED
  69                .S PDI(F D)=$I(PDI( FD))                                         ;Total Su bmissions
  70                .S CHPGM =$E(CHPDI, 8,9)
  71                .Q:CHPGM '=94&(CHPG M'=91)  ;M ust be EDI  or OCR 
  72            . S EOF=0
  73            . S:CHPGM=94  EOF=1 
  74                .S EO(FD )=$I(EO(FD ))                           ;To tal EDI/OC R submissi ons
  75                .S EO(FD ,EOF)=$I(E O(FD,EOF))       ;Inc rement EDI  or OCR co unter by d ate
  76                .I $$AVS (CHPDI,0)  D                              ; Was vendor  auto sele cted?
  77                ..S AVS( FD)=$I(AVS (FD))                        ;In crement au to selecte d
  78                ..S AVS( FD,EOF)=$I (AVS(FD,EO F))          ;Increme nt AVS by  EOF by dat e
  79   CEND    ;F inished wi th data co llection,  spin off o utput:
  80                ;K CD,PT RS,CLAP,CA BP,SEOD,EE OD,SPDI,EP DI,FD
  81                G ASVIO: 'QED
  82                S %ZIS=" Q",IOP="Q; "_CHFIO D  ^%ZIS K ZT IO
  83                S ZTRTN= "ASVIO^CHM XV003",ZTD ESC="AUTO  SELECTED V ENDORS",ZT DTH=$H
  84                S PAR=$$ VPACK,(ZTS AVE("PDI(" ),ZTSAVE(" PAR"),ZTSA VE("CHFIO" ))=""
  85                S (ZTSAV E("TAS"),Z TSAVE("TEO S"),ZTSAVE ("EO("),ZT SAVE("AVS( "))=""
  86                D ^%ZTLO AD
  87                Q
  88   AVS(P,N)         ;(Pd i,Numberse lected);Wa s vendor a uto select ed?:
  89                    I '$ D(^CHMIMAG E(P,100))  Q 0                                                    ;Not
  90                    I '$ D(^CHMIMAG E(P,100,0) ,N) Q 0                                                ;Not
  91                    Q $S ($P(N,U,4) =1:1,1:0)              ;If numbe r selected  = 1, then  Yes; else  Not
  92   ASVIO   ;P ut accumul ated data  to printer  or file:
  93                 D:'$D(Q ED) VSET(P AR)
  94                 IF TYPE ="E" {
  95                   S XFILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[Fs3big .CPD_VENDO R_REPORTS] "
  96                  S XFIL E=XFILE_IO FILE O XFI LE:"NWS"
  97                  D INIT (1),HEADER (1),DETAIL  C XFILE }
  98              ELSEIF TYP E="V" { D  INIT(0) W  !!,SUB," ( ",PARAM,") :",!
  99                                 D  COLUMN,DET AIL,EOR }
  100              ELSE { D I NIT(0),HEA DER(0,1),D ETAIL,EOR  }
  101                 IF CHUC I="HAC",EM '="NN" {
  102                  S ZML( 1)="",XMTE XT="ZML(", XMDUZ=XDUZ ,XMY(EM)=" "
  103                  S XMSU B="Your Au to Selecte d Vendor " _$S(TYPE=" E":"File", 1:"Report" )_" Is Rea dy"
  104                  D ^XMD  }
  105                 Q
  106                 ;
  107   EOR         W !!,"End  Of Report " Q
  108   DETAIL  ;P rint or ex port dates , counts,  percentage s:
  109                  S N=1
  110                  S SD=" "
  111                  F  S S D=$O(PDI(S D)) Q:SD=" "  D
  112                  .S X=$ $FIX($$FMT E^DILIBF(S D,6))_TAB
  113                  .S X=X _$J(+$G(AV S(SD,0)),6 ,0)_TAB        ;# EDI s auto sel ected
  114                  .S X=X _$J(+$G(AV S(SD,1)),6 ,0)_TAB        ;# OCR s auto sel ected
  115                  .S X=X _$J($G(EO( SD)),6,0)_ TAB
  116                  .I +$G (AVS(SD))> 0&(+$G(EO( SD))>0) S  X=X_$J(AVS (SD)/EO(SD )*100,5,1) _TAB
  117                  .E  S  X=X_"----- "_TAB
  118                  .S X=X _$J($G(PDI (SD)),6,0) _TAB
  119                  .I +$G (AVS(SD))> 0 S X=X_$J (AVS(SD)/P DI(SD)*100 ,5,1)_TAB
  120                  .E  S  X=X_"----- "_TAB
  121                  .D LIN EOUT(X,TYP E,N) S N=0
  122                  .I TYP E="P",$$HC (2)
  123                  Q
  124                  ;
  125   HC(L)   I  $Y+L>$S(CH UCI="HAC": 59,1:58) D  HEADER(0, 1) S N=1
  126                 Q 1 ;
  127   LINEOUT(X, T,N)  ;(Xs cratch,Typ e,liNefeed );Put a ro w out to s creen, pri nter or fi le:
  128                           IF T="E"  { U XFILE  W X,! }
  129                           ELSE { D :N EXTRA
  130                                  W  !,$P(X,U) ,?13,$P(X, U,2),?23,$ P(X,U,3),? 35,$P(X,U, 4)
  131                                  W  ?48,$P(X, U,5),?58,$ P(X,U,6),? 70,$P(X,U, 7) }
  132                           Q
  133                           ;
  134   EXTRA   W: $$HC(1) !  Q ;
  135   HEADER(EF, CPF)  ;Pri nt or expo rt header  (EF=Export  Flag, CPF =Column ti tle Print  Flag):
  136                           IF EF {  U XFILE W  "Auto Sele cted Vendo r Report ( "_PARAM_") : ",!,HDR, ! }
  137                           ELSE {
  138                           W @IOF,! ,DUZ,?TT,T ITLE,?71," Page: ",$J (PG,3)
  139                           W !,DATE ,?ST,SUB,! ,TIME,?PT, PARAM,!
  140                              D:CPF  COLUMN S  PG=PG+1 }
  141                           Q
  142                           ;
  143   INIT(EF)         ;Set  up print  or export  header (EF =Export Fl ag):
  144                    IF E F { S HDR= ""
  145                         F I=1:1:7  S HDR=HDR_ $P($P($T(F HDR),";",2 ),U,I)_$S( I'=12:TAB, 1:"")
  146                         S PARAM=$$ DFD(SD)_"  to "_$$DFD (ED) }
  147                    ELSE   {
  148                     S D ATE=$$FIX( $$FMTE^DIL IBF(TODAY, 6)),TIME=$ $HTIM^ACKQ UTL($H,0)
  149                         S TITLE="H EALTH ADMI NISTRATION  CENTER",T T=40-($L(T ITLE)\2)
  150                         S SUB="Aut o Selected  Vendor Re port",ST=4 0-($L(SUB) \2)
  151                         S PARAM=$$ DFD(SD)_"  to "_$$DFD (ED),PT=40 -($L(PARAM )\2),PG=1  }
  152                    Q
  153   FHDR    ;D ate^EDI^OC R^# EDI/OC R^% EDI/OC R^# All^%  All;
  154   FIX(D)  Q  $E(D,1,2)_ "/"_$E(D,4 ,5)_"/"_$E (D,7,10)         ;<Re place "-"  with "/" i n (D)ate
  155                  ;
  156   COLUMN  ;P rint colum n titles
  157                  W !,"D ate",?13," EDI",?23," OCR",?33," # EDI/OCR"
  158                  W ?45, "% EDI/OCR ",?57,"# o f All",?68 ,"% of All "
  159                  W !,"- ---------" ,?13,"---- ---",?23," -------",? 33,"------ ---"
  160                  W ?45, "--------- ",?57,"--- -----",?68 ,"-------- "
  161                  Q
  162                  ;
  163                  ;Run t ime parame ters (crit eria):
  164   VPorE() ;S olicit out put destin ation (pri nt or expo rt):
  165                   K DIR  S DIR(0)= "SAB^V:Vie w on scree n;"
  166                   S DIR (0)=DIR(0) _"P:Print  to selecte d network  device;"
  167                   S DIR (0)=DIR(0) _"E:Export  to delimi ted text f ile"
  168                   S DIR ("A")="(V) iew, (P)ri nt or (E)x port outpu t: ",DIR(" B")="V"
  169                   S DIR ("PRE")="I  X="""" S  X=""V"" W  X"
  170                   S DIR ("?")="""V "" to view , ""P"" to  print to  a network  printer, "
  171                   S DIR ("?")=DIR( "?")_"""E" " to expor t to a fil e."
  172                   D ^DI R K DIR Q: "^^@"[X "^ "
  173                   Q Y
  174                   ;
  175   DChar() ;S olicit fie ld delimit er:
  176                   K DIR  S DIR(0)= "FAU^"
  177                   S DIR ("A")="           Fie ld delimit er for fil e: ",DIR(" B")="<Tab> "
  178                   S DIR ("PRE")="I  X="""" S  X=""<Tab>" " W X"
  179                   S DIR ("?")="Ent er a chara cter to pl aced betwe en fields  in the out put data f ile."
  180                   D ^DI R K DIR Q: "@"[X "@"
  181                   Q Y
  182                   ;
  183   GETDATE ;G et begin/e nd dates
  184                    W !  S %DT="AEP ",%DT("A") ="Enter Be gin Date ( Inclusive) : " D ^%DT
  185                             I Y=-1  S POP=1 Q   ; Quit i f nothing  entered
  186                    S SD =Y
  187                    W !  S %DT="AEP ",%DT("A") ="Enter En d Date: "  D ^%DT
  188                    I Y= -1 S POP=1  Q  ; Quit  if nothin g entered
  189                    S ED =Y
  190                    I ED <SD W !,"B ad dates.. .reenter!"  G GETDATE
  191                    W ! 
  192           Q
  193   SDate(D)         ;Sol icit Start  Date for  report or  file:
  194                    K DI R S DIR(0) ="DA^10001 01:"_D_":E X"
  195                    S DI R("A")="         Begi nning date  (inclusiv e): "
  196                    S DI R("?")="En ter valid  VistA date  not great er than to day."
  197                    D ^D IR K DIR Q :"^^@"[X " ^"
  198                    Q Y
  199                    ;
  200   EDate(D)         ;Sol icit End D ate for re port or fi le:
  201                    S DI R(0)="DOA^ 1000101:"_ D_":EX"
  202                    S DI R("A")="            E nding date  (inclusiv e): "
  203                    S DI R("?")="En ter valid  VistA date  not less  than the S tart Date. "
  204                    D ^D IR K DIR Q :"^^@"[X " ^"
  205                    Q Y
  206                    ;
  207   EMail() ;S olicit e-m ail notifi cation add ress:
  208                   K DIR  S DIR(0)= "FA^^I X'= ""NN"",X'? 1.U1"".""1 .U1""@VA.C OM"" K X W  ""  ??"""
  209                   S DIR ("A")="  E -mail to n otify upon  completio n: ",DIR(" B")="None"
  210                   S DIR ("PRE")="I  X="""" S  X=""NN"" W  ""No noti fication"" "
  211                   S DIR ("?")="Ent er an Outl ook e-mail  address t o notify w hen report /file is c omplete."
  212                   D ^DI R K DIR Q: "^^@"[X "^ "
  213                   Q Y
  214                   ;