111. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:56 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.

111.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMHMS05.m Mon Nov 5 16:41:52 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMHMS05.m Mon Nov 5 17:47:47 2018 UTC

111.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 380
Changed 4 8
Inserted 0 0
Removed 0 0

111.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

111.4 Active regular expressions

No regular expressions were active.

111.5 Comparison detail

  1   CHMHMS05 ; HAC/JSG;HM S INSURANC E VERIFICA TION CONTR OL (PROCES S RETURNS) ;09/10/08  10:10AM
  2            ; DEV004972- 03;Process es HMS Ret urn Files  located in  Fs3big in  the folde r named
  3            ; HMS Insura nce File.  The Return  File name s are ente red into t he Control  list  
  4            ; in routine  ^CHMHMS11 . The ente red file n ame is use d to proce ss the Ret urn    
  5            ; and genera te the HMS  Insurance  Verificat ion Report .                            
  6            ; Called by:  CHMHMS01                                                                
  7            ; DEV005641- 01;JSG;HMS  Return Fi le process ing & test  return fi le build.         
  8   PROCESS(XN ) ;(Export  Number);P rocess Ret urn File &  print rep ort:
  9                ;D DERR( "Process A ction not  currently  available. ") Q
  10                I XN'>0  D DERR("Ac tivated ex port requi red.") Q
  11                S EI=$$F INDX(XN,"H MS_INS_VER ")
  12                I '$D(^C HMZHOLD("H MS_INS_VER ",EI),X) D  DERR("Not  a valid e xport.") Q
  13                I $P(X,U ,2)="" D D ERR("Build  in progre ss.") Q
  14                S HMSRF= $P(X,U,3)  I HMSRF=""  D DERR("N o Return F ile Specif ied.") Q
  15                S HMSXF= $P(X,U,2)  I HMSXF=""  D DERR("N o Export F ile Specif ied.") Q
  16                I $P(X,U ,4)=4 D DE RR("Proces sing in pr ogress.")  Q
  17                S X="Pre paring to  Process Re turn File:  "_HMSRF
  18                W:$$PXY( 5,0) !,?80
  19                W:$$PXY( 6,40-($L(X )\2)+1) @C HBON,X,@CH BOFF,!,CHL
  20                D SCROLL ("B")                                               ;B lank scrol l area
  21                S QED=0, XDUZ=DUZ G :"^^@"[$$P ARAM PEND               ;Get run  time para meters
  22                I '$$OPE N(HMSRF) D  DERR("Can 't open Re turn File. ") G PEND
  23                I $D(IO( "Q"))!(TYP E="E") S Q ED=1                                     ;2 Q!'2Q?
  24                S TAB=$S (DEL'="":D EL,1:U)
  25                IF 'QED  { D PRINTQ  }                                                 ;If  'Qing
  26                ELSE { S  CHFIO=$G( ION),ZTIO= ""                                       ;I f Qing
  27                  I TYPE ="E" S IOP =0
  28                  E  S % ZIS="Q",IO P="Q;"_CHF IO D ^%ZIS  K ZTIO
  29                  S ZTRT N="PRINTQ^ CHMHMS05"  D VARSAVE  D ^%ZTLOAD
  30                  S IOP= "HOME" D H OME^%ZIS
  31                  W !,"Y our Task N umber is:  ",$G(ZTSK)
  32                  R !!," Type <Ente r> to cont inue: ",X: 300 }
  33   PEND         D SCROLL ("R") Q                                 ;Re -display s creen
  34   DERR(T) ;( Text) Disp lay error  message:
  35           W  "   ?? ",$ C(7),T,?50 ," " H 3 Q
  36   FINDX(E,F)  ;(Export  Index,File  heading); Find expor t to delet e:
  37               N XF S (X ,XF)=0
  38               F I=1:1 S  X=$O(^CHM ZHOLD(F,X) ) Q:X'>0   I I=E S XF =X Q
  39               Q XF                                 ;Retu rn subscri pt, if fou nd
  40   PXY(R,C) ; Position c urser
  41            S  DY=R,(DX, $X)=C X XY  Q 1
  42   SCROLL(A)  ;(Action); Blank, Re- display;
  43              IF A="B" {  S DTM=9,D BM=21 X CH MAR
  44                 D RNGEC LR^CHSC1(8 ,21,XY,CHE OL)
  45                 W:$$PXY (8,1) ?0 }
  46              ELSEIF A=" R" { S DTM =9,DBM=21  X CHMAR
  47              F EP="HEAD ER","FOOTE R","COLUMN S","LXPORT S" D @(EP_ "^CHMHMS02 ") }
  48              Q
  49   VARSAVE ;S ave variab les for qu eued job:                                    ;
  50           S  PAR=$$VPAC K,(ZTSAVE( "CHFIO"),Z TSAVE("U") ,ZTSAVE("P AR"))=""
  51           S  (ZTSAVE("H MSRF"),ZTS AVE("HMSXF "))="",ZTD ESC="HMS I ns Ver Rep "
  52           Q  ;--------- ---------- ---------- ---------- ---------- ---------- -;
  53   VPACK() Q  $LB(TYPE,E I,DEL,XN,Q ED,TAB,TOD AY,IOFILE, CHUCI)
  54           ;R eturn all  variables  needed for  next job  packed --- ---------- -;
  55   VSET(P) S  TYPE=$LI(P ,1),EI=$LI (P,2),DEL= $LI(P,3),X N=$LI(P,4) ,QED=$LI(P ,5)
  56           S  TAB=$LI(P, 6),TODAY=$ LI(P,7),IO FILE=$LI(P ,8),CHUCI= $LI(P,9) Q
  57   PRINTQ ;No  claims qu eue proces sing:                                        ;
  58          ;S  RTNFILE=$$ VOLUME_HMS RF
  59          X ^ %ZOSF("UCI ") S UCI=$ P(Y,",",1)
  60          S F ILENM2=HMS RF
  61          S R TNFILE="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  62          I U CI'="HAC"  S FIO="HAC _HFS$:[DSM MANAG.CHAM PVA]"_FILE NM2
  63            D FTPFILE^ CHTFLIB9(R TNFILE," DNS     fs3. DNS             ","/FS3BIG .HMS_Insur ance_File" ,"GET")
  64          X " D $SYSTEM. Process.Se tZEOF(1)"
  65          I ' $$OPENFIRD ^CHTFLIB9( .RTNFILE," RTNFILE") 
  66          D:' $D(QED) VS ET(PAR)
  67          S T S=$S(CHUCI ="HAC":5,1 :0) ;If 'p roduction,  make room  4 debug c ol
  68          S $ P(^CHMZHOL D("HMS_INS _VER",EI), U,4)=4   ; Mark expor t Processi ng
  69          O:$ ZUTIL(68,4 0,1)!1 RTN FILE:"R":5   ;Turn of f EOF erro r, open fi le
  70          I ' $T S $P(^C HMZHOLD("H MS_INS_VER ",EI),U,4) ="ERR" H       ;No fi le
  71          S $ Y=80 H 2
  72          IF  TYPE="E" {  
  73              ;S REPFILE ="HMSRTNRE P_"_DUZ_"_ "_TODAY_"_ "
  74              ;S REPFILE =REPFILE_( $P($H,",", 2)\60)_"_" _CHUCI_".T XT"
  75              ;S REPFILE =$$VOLUME_ REPFILE
  76          ;O  REPFILE:"N WS"
  77          ;C  REPFILE
  78          X ^ %ZOSF("UCI ") S UCI=$ P(Y,",",1)
  79              S FILENM2= "HMSRTNREP _"_DUZ_"_" _TODAY_"_"
  80              S FILENM2= FILENM2_($ P($H,",",2 )\60)_"_"_ CHUCI_".TX T"
  81              S FIO="HAC _HFS$:[SCR .TEMP_FILE S]"_FILENM 2
  82              I UCI'="HA C" S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_F ILENM2
  83              I '$$OPENF IWR^CHTFLI B9(.FIO,"F IO") Q
  84          D I NIT(1,TAB) ,HEADER(1) ,DETAIL          
  85          D C LOSEF^CHTF LIB9(FIO," FIO")
  86               D FTPFILE^ CHTFLIB9(F IO," DNS     fs3. DNS             ","/FS3BIG .HMS_Insur ance_File" ,"PUT") }
  87       ELSE {  D INIT(0) ,DETAIL U  IO W !!,"E nd of Repo rt ;s&" }
  88       D CLOS EF^CHTFLIB 9(.RTNFILE ,"RTNFILE" )
  89       X "D $ SYSTEM.Pro cess.SetZE OF(0)"
  90       ;C RTN FILE
  91       S $P(^ CHMZHOLD(" HMS_INS_VE R",EI),U,4 )=3     ;M ark export  Complete
  92       Q ;--- ---------- ---------- ---------- ---------- ---------- --------;
  93   DETAIL ;Pa ss through  Return Fi le, get it em, send f or printin g
  94          S E OF=0
  95          WHI LE 'EOF {  S HMSREC=$ $READRTN(R TNFILE)
  96              IF HMSREC= "" { S EOF =1 }
  97              ELSE { S H MSTN=$P(HM SREC,U),DO B=$P(HMSRE C,U,6)
  98                 S LST=$ P(HMSREC,U ,2),FST=$P (HMSREC,U, 3),MI=$P(H MSREC,U,4)
  99                 S OHINA ME=$E($P(H MSREC,U,7) ,1,30),OHI TOC=$P(HMS REC,U,10)
  100                 S OHIEF F=$P(HMSRE C,U,8),OHI EXP=$P(HMS REC,U,9)
  101                 S ACARD =$P(HMSREC ,U,5),EIN= +$E(HMSTN, 7,11)
  102                 IF $D(^ CHMZHOLD(" HMS_INS_VE R",EI,EIN) ,X) {
  103                 S DFN=$ P(X,U),BFN =$P(X,U,2)
  104                 S BNAM= $E(LST_"," _FST_" "_M I,1,30)
  105                 S ACARD =$E(ACARD, 1,3)_"-"_$ E(ACARD,4, 5)_"-"_$E( ACARD,6,9)
  106                 D LINE( TAB) } } }
  107          Q ; ---------- ---------- ---------- ---------- ---------- ---------- -;
  108   READRTN(F)  ;Get a re cord from  the Return  File:
  109               N SFR U F  R SFR Q $ S('$ZEOF:S FR,1:"")
  110   LINE(T) ;( Tab charac ter);Get d ata to go  out
  111           IF  TYPE'="P"  { U REPFI LE
  112               W BNAM_T_ ACARD_T_OH INAME_T_OH IEFF_T_OHI EXP_T_OHIT OC,! }
  113           EL SE { U IO  D:($Y>57)  HEADER(0)  W !
  114               W $E(BNAM ,1,30+TS), ?32+TS,ACA RD,?45+TS, OHINAME,?7 7+TS,OHIEF F
  115               W ?89+TS, OHIEXP,?10 1+TS,OHITO C
  116               W:CHUCI'= "HAC" ?126 ,EIN }
  117           Q  ;--------- ---------- ---------- ---------- ---------- ---------- -;
  118   HEADER(EF)  ;Print or  export he ader (EF=E xport Flag ):
  119               IF EF { U  REPFILE W  HDR,! }
  120               ELSE { W  @IOF,DUZ,? TT,TITLE,? 122,"Page:  ",$J(PG,3 )
  121                  W !,DA TE,?ST,SUB ,!,TIME,?R TPT,RTPARA M,!
  122                  W !,"B eneficiary  Name",?32 +TS,"  ACa rd #",?45+ TS,"OHI Na me"
  123                  W ?77+ TS," Eff D ate",?89+T S," Exp Da te",?101+T S,"OHI Typ e of Cover age"
  124                  W !,$E ("-------- ---------- ---------- -------",1 ,30+TS)
  125                  W ?32+ TS,"------ -----"
  126                  W ?45+ TS,"------ ---------- ---------- ----",?77+ TS,"------ ----"
  127                  W ?89+ TS,"------ ----",?101 +TS,"----- ---------- -----"
  128                  S PG=P G+1 }
  129               Q ;------ ---------- ---------- ---------- ---------- ---------- ;
  130   INIT(EF,T)  ;Set up p rint or ex port heade r (EF=Expo rt Flag):
  131               IF EF { S  HDR="Bene ficiary"_T _"A Card # "_T_"OHI N ame"_T
  132                  S HDR= HDR_"Effec tive"_T_"E xpiration" _T_"Type o f Coverage " }
  133               ELSE  { S  DATE=$$FI X($$FMTE^D ILIBF(TODA Y,6))
  134                  S TIME =$$HTIM^AC KQUTL($H,0 )
  135                  S TITL E="HEALTH  ADMINISTRA TION CENTE R"
  136                  S TT=6 6-($L(TITL E)\2)
  137                  S SUB= "HMS INSUR ANCE VERIF ICATION RE PORT",ST=6 6-($L(SUB) \2)
  138                  S RTPA RAM="Expor t File: "_ HMSXF_"; "
  139                  S RTPA RAM=RTPARA M_"Return  File: "_HM SRF
  140                  S RTPT =66-($L(RT PARAM)\2), PG=1 }
  141               Q ;------ ---------- ---------- ---------- ---------- ---------- ;
  142   FIX(D) ;(D ate);                                                             ;
  143          Q $ TR(D,"-"," /")                           ;< Replace "- " with "/" ;
  144          ;Re turn date  with slash es ------- ---------- ---------- ---------- ;
  145   OPEN(RF) ; (Return Fi le);Check  to see if  Return Fil e can be o pened:
  146            ; N IOF,Z S  IOF=$$VOLU ME_RF O IO F:"R":5 I  '$T Q 0
  147            ; U IOF R Z  C IOF Q 1
  148            X  ^%ZOSF("U CI") S UCI =$P(Y,",", 1)
  149            S  FILENM2=R F
  150            S  FIO="HAC_ HFS$:[SCR. TEMP_FILES ]"_FILENM2
  151            I  UCI'="HAC " S FIO="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FI LENM2
  152              D FTPFILE^ CHTFLIB9(F IO," DNS     fs3. DNS             ","/FS3BIG .HMS_Insur ance_File" ,"GET")
  153            X  "D $SYSTE M.Process. SetZEOF(1) "
  154            I  '$$OPENFI RD^CHTFLIB 9(.FIO,"FI O") Q 0
  155            U  FIO R Z G :$$STATUS^ %ZISH OPEN C
  156   OPENC    D  CLOSEF^CH TFLIB9(FIO ,"FIO")
  157            X  "D $SYSTE M.Process. SetZEOF(0)
  158            Q  1
  159   VOLUME() ; Return Fs3 big file p ath:
  160            Q  
  161              Q "HACFS3" " DNS     decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] "
  162   PARAM() ;T YPE=P!E;DE L=delimite r                                           ;
  163           S  (TYPE,DEL, IOFILE,CHU CI)=""
  164           S  TYPE=$$Por E() Q:TYPE =U U                      ;Print  or export ?
  165           X  ^%ZOSF("UC I") S CHUC I=$P(Y,"," )
  166           IF  TYPE="P"  {
  167           W  !!,"Report  does requ ire a ""WI DE"" print er.",!!
  168               S IOP="Q"  D ^%ZIS Q :POP U           ;If  printing,  get device
  169               W !,"Prin ting HMS R eturn Repo rt to: ",I O,ION,".", ! }
  170           EL SE {
  171           S  DEL=$$DCha r() Q:DEL= "@" U S:DE L="<Tab>"  DEL=$C(9)
  172           S  IOFILE="HM SRTNRPT_"_ DUZ_"_"_TO DAY_"_"_($ P($H,",",2 )\60)
  173           S  IOFILE=IOF ILE_"_"_CH UCI_".TXT"
  174               W !!,"Exp orting HMS  Return Re port to:"
  175               W !!,?20, "Data shar e: Fs3big"
  176               W !,?24," Folder: HM S_Insuranc e_File"
  177               W !,?26," File: ",IO FILE,! }
  178           Q  1 ;Return  true param eters read ; -------- ---------- ---------- ;
  179   PorE() ;So licit outp ut destina tion (prin t or expor t):                   ;
  180          K D IR S DIR(0 )="SAB^P:P rint to se lected dev ice;"
  181          S D IR(0)=DIR( 0)_"E:Expo rt to deli mited text  file"
  182          S D IR("A")="( P)rint or  (E)xport t he output:  ",DIR("B" )="P"
  183          S D IR("PRE")= "I X=""""  S X=""P""  W X"
  184          S D IR("?")="" "P"" uses  any printe r, ""E"" c reates a . TXT file."
  185          D ^ DIR K DIR  Q:"^^@"[X  "^"
  186          Q Y  ;Return E  or P; --- ---------- ---------- ---------- ---------- ;
  187   DChar() ;S olicit fie ld delimit er:                                         ;
  188           K  DIR S DIR( 0)="FAU^"
  189           S  DIR("A")="       Fiel d delimite r for file : ",DIR("B ")="<Tab>"
  190           S  DIR("PRE") ="I X=""""  S X=""<Ta b>"" W X"
  191           S  DIR("?")=" Enter a ch aracter to  placed be tween "
  192           S  DIR("?")=D IR("?")_"f ields in t he output  data file. "
  193           D  ^DIR K DIR  Q:"@"[X " @"
  194           Q  Y ;Return  field deli miter; --- ---------- ---------- ---------;