275. EPMO Open Source Coordination Office Redaction File Detail Report

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

275.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSBDATA.m Mon Nov 5 16:45:04 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSBDATA.m Fri Nov 9 03:49:04 2018 UTC

275.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 11 458
Changed 10 36
Inserted 0 0
Removed 0 0

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

275.4 Active regular expressions

No regular expressions were active.

275.5 Comparison detail

  1   CHSBDATA
  2    ;HAC/AEB; DRIVER TO  GENERATE A SCII FILE  FOR CDC;05 /28/04  11 :34 AM
  3    ;;V1.0;CH AMPVA SYST EM;;JUNE 2 5, 2015
  4    ;JAJ/01/1 6/2009 DEV 004565-02  MODIFY SPI NA BIFIDA  DATA TRANS FER WITH C DC
  5    ;DEF01655 4 REPLACE  DECNET WIT H FTP      06/25/2015   DRW 
  6   INIT ;INIT IALIZING A LL VARIABL ES ; JAJ 0 1/21/2009  DEV004565- 02 
  7    S (DFNPT, BFNPT,CDFN PT,CLMPT,D FN,CLMCT,B ENECT,CHMD FN,CHMBFN, BGEND,BIND EX,BSSN,BD OB,BDOD,BS SN,BST,BZI P,MARR,SDO B,SZIP,AWA RDCD,AWARD DAT,AMTBEN EPD,AMTPAI D,TOTOHIPM T)=""
  8   CALC ;
  9    K ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ) ; JAJ BU G004565-01  2/24/2009  KILLS CHM ZHOLD $J S TUFF TO CL EAR IT OUT  EACH TIME
  10    K ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC")  ; JAJ BUG 004565-01  2/24/2009
  11    S DFN=0,C LMCT=0,BEN ECT=0 ; SE T THESE VA RIABLES TO  0
  12    ;
  13   CALC1 S DF N=$O(^AHCH VA("SB",DF N)) G:'DFN  CEND ; OR DER THROUG H THE FILE  FOR SB DF N
  14    I DFN=523 419 G CALC 1 ;REJECTE D 523419 C REATES LOG IC LOOP
  15    I DFN=520 478 G CALC 1
  16    I DFN=526 052 G CALC 1 ; STUCK  IN LOOP (L IVE) JAJ 3 /9/2009
  17    I DFN=528 009 G CALC 1
  18    I DFN=524 432 G CALC 1 ; STUCK  IN LOOP JA J 2/12/200 9
  19    I DFN=533 182 G CALC 1
  20    S BFN=0
  21   CALC2 S BF N=$O(^AHCH VA("SB",DF N,BFN)) G: 'BFN CALC1  ; ORDER T HROUGH THE  FILE FOR  SB BFN
  22    ; 
  23    ;TEST ONL Y NEXT LIN E <<<<<<<< <<<<<<<
  24    ;G:BENECT >20 CEND   ; FOR TEST ING, LET'S  JUST LOOK  AT 20!
  25    I '$D(^AH CHVA(DFN,1 00,BFN,0))  G CALC2
  26    S ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ,DFN,BFN)= ""   ; PUT  THIS STUF F INTO CHM ZHOLD?
  27    S BENECT= BENECT+1 ;  INCREMENT S BENEFICI ARY COUNT
  28    D CLMCT
  29    G CALC2
  30   CLMCT S DF NPT=0
  31   CALC3 S DF NPT=$O(^CH MDFN("B",D FN,DFNPT))  Q:'DFNPT
  32    S BFNPT=0
  33   CALC4 S BF NPT=$O(^CH MDFN(DFNPT ,100,"B",B FN,BFNPT))  G:'BFNPT  CALC3
  34    I '$D(^CH MDFN(DFNPT ,100,BFNPT ,100,0)) Q
  35    S CDFNPT= 0
  36   CALC5 S CD FNPT=$O(^C HMDFN(DFNP T,100,BFNP T,100,CDFN PT)) G:'CD FNPT CALC4
  37    G:'$D(^CH MDFN(DFNPT ,100,BFNPT ,100,CDFNP T,0)) CALC 5
  38    S CLMPT=$ P(^CHMDFN( DFNPT,100, BFNPT,100, CDFNPT,0), "^",1)
  39    S X1=CLMP T D PROGTY P^CHFCD001
  40    G:'$D(@(G LPAY_"CLMP T,1)")) CA LC5
  41    G:'$D(@(G LPAY_"CLMP T,0)")) CA LC5
  42    G:'$D(@(G LPAY_"CLMP T,""COMMON "")")) CAL C5
  43    S ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC", DFN,BFN,CL MPT)=DFNPT _"^"_BFNPT
  44    S CLMCT=C LMCT+1
  45    ;Q:CLMCT= 70
  46    ;W !,CLMP T,"    DFN =",DFN," C OUNT=",CLM CT
  47    G CALC5
  48   CEND ;
  49    W !,"SB B ENE COUNT  = ",BENECT  
  50    W !,"CLAI M COUNT =  ",CLMCT  
  51    D TASKMAN
  52    K DFN
  53    Q
  54   TASKMAN S  CHFIO=""
  55    I CHFIO'[ "W" S CHFI O=CHFIO_"/ W"
  56    S ZTRTN=" FILEC^CHSB DATA",ZTIO ="" 
  57     S ZTSAVE ("CHFIO")= "",ZTSAVE( "^CHMZHOLD ($J,")=""
  58    ;D ^%ZTLO AD
  59    D FILEC^C HSBDATA
  60    Q
  61   FILEC ;CRE ATE FILES
  62    ;S PFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CPERSON.DA T" ; MODIF Y TO COMME NT OUT OR  REMOVE - U SE FS3BIG
  63    ;S CFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CCLAIM.DAT "  ; MODIF Y TO COMME NT OUT OR  REMOVE - U SE FS3BIG
  64    ;S DFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CPROC.DAT"   ; MODIFY  TO COMMEN T OUT OR R EMOVE - US E FS3BIG
  65    ;S VFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CVENDOR.DA T"  ; MODI FY TO COMM ENT OUT OR  REMOVE -  USE FS3BIG
  66    ;S AFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CCLAIMDOD. DAT"  ; MO DIFY TO CO MMENT OUT  OR REMOVE  - USE FS3B IG
  67    ;S ZFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CINPATIENT .DAT"  ; M ODIFY TO C OMMENT OUT  OR REMOVE  - USE FS3 BIG
  68    ;S GFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CDIAGNOSIS .DAT" ; JA J DEV00456 5-02 01/16 /2009
  69    ;S PFILEI O="CDCPERS ON.DAT"
  70    ;S CFILEI O="CDCCLAI M.DAT"
  71    ;S DFILEI O="CDCPROC .DAT"
  72    ;S VFILEI O="CDCVEND OR.DAT"
  73    ;S PFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCPERSON. TXT" ; JAJ  DEV004565 -02 01/16/ 2009
  74    ;S CFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCCLAIM.T XT" ; JAJ  DEV004565- 02 01/16/2 009
  75    ;S DFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCPROC.TX T" ; JAJ D EV004565-0 2 01/16/20 09
  76    ;S VFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCVENDOR. TXT" ; JAJ  DEV004565 -02 01/16/ 2009
  77    ;S AFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCCLAIMDO D.TXT" ; J AJ DEV0045 65-02 01/1 6/2009
  78    ;S ZFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCINPATIE NT.TXT" ;  JAJ DEV004 565-02 01/ 16/2009
  79    ;S GFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCDIAGNOS ISOPT.TXT"  ; JAJ DEV 004565-02  01/16/2009
  80    ;S XFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] AWARD.TXT"  ; JAJ BUG 004565-02  02/19/2009  
  81    ;S IFILEI O="HACFS3" " DNS  HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCDIAGNOS ISIPT.TXT"  ; JAJ BUG 004565-02  02/19/2009  
  82    ;O PFILEI O:"RWE":5  C PFILEIO: "D" O PFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  83    ;O CFILEI O:"RWE":5  C CFILEIO: "D" O CFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  84    ;O DFILEI O:"RWE":5  C DFILEIO: "D" O DFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  85    ;O VFILEI O:"RWE":5  C VFILEIO: "D" O VFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  86    ;O ZFILEI O:"RWE":5  C ZFILEIO: "D" O ZFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  87    ;O AFILEI O:"RWE":5  C AFILEIO: "D" O AFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  88    ;O GFILEI O:"RWE":5  C GFILEIO: "D" O GFIL EIO:"RWE": 5 ; JAJ DE V004565-02  01/16/200 9
  89    ;O XFILEI O:"RWE":5  C XFILEIO: "D" O XFIL EIO:"RWE": 5 ; JAJ BU G004565-02  02/19/200 9
  90    ;O IFILEI O:"RWE":5  C IFILEIO: "D" O IFIL EIO:"RWE": 5 ; JAJ BU G004565-02  02/19/200 9
  91    S DFN=0,B CT=0
  92    D FILESET                                  ;;FILESET  IS TO REPL ACE ABOVE  OPEN FOR E ACH FILE P RESENT  DE F016554 07 /01/2015
  93    D HEADER  ;JAJ 02/24 /2009 BUG0 04565-01
  94   FILEC1 S D FN=$O(^CHM ZHOLD($J," SB_PERSON_ DATA_FOR_C DC",DFN))  G:'DFN FEN D
  95    ;
  96    ;NEXT LIN E FOR TEST  ONLY<<<<< <<<<<<<<<< <<< LIMITS  NUMBER OF  ITEMS PUL LED
  97    ;I BCT>20  G FEND
  98    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) ;CH ECKS UCI 
  99    I CHUCI'= "HAC" U 0  W !,"DFN =  ",DFN,! ;  JAJ 01/27 /09 DEV004 565-02
  100    S BFN=0
  101   FILEC2 S B FN=$O(^CHM ZHOLD($J," SB_PERSON_ DATA_FOR_C DC",DFN,BF N)) G:'BFN  FILEC1
  102    D PERSON
  103    I $D(^CHM ZHOLD($J," SB_CLAIM_D ATA_FOR_CD C",DFN,BFN )) D CLAIM ^CHSBDAT1
  104    S BCT=BCT +1
  105    G FILEC2
  106   HEADER ; W RITES OUT  FILE HEADE R INFORMAT ION  JAJ 0 2/24/2009  BUG004565- 01
  107    S TITLE=" CDCPERSON"   ;JAJ 02/ 24/2009 BU G004565-01
  108    U PFILEIO  W !!,TITL E  ;JAJ 02 /24/2009 B UG004565-0 1
  109    S HEADP=" B-INDEX_VA LUE^BSSN^G ENDER^B_DO B^B_DOD^MA RRIED^B_ST ATE^B_ZIP^ S_DOB^S_ZI P" ;JAJ 02 /24/2009 B UG004565-0 1
  110    U PFILEIO  W !!,HEAD P,! ;JAJ 0 2/24/2009  BUG004565- 01
  111    S TITLE1= "CDCCLAIMS " ;JAJ 02/ 24/2009 BU G004565-01
  112    U CFILEIO  W !!,TITL E1 ;JAJ 02 /24/2009 B UG004565-0 1
  113    S HEADC=" BINDEX_VAL UE^CLAIM_N UMBER^VEND OR_POINTER ^CLAIM_STA TUS^TYPE_O F_SVC^PLAC E_OF_SVC^D ATE_OF_SVC ^DATE_COMP LETED^DISC HARGE_DATE ^CLAIM_DRG ^AMT_PD^AM T_BILLED^A MT_ALLOWED " ;JAJ 02/ 24/2009 BU G004565-01
  114    U CFILEIO  W !!,HEAD C,! ;JAJ 0 2/24/2009  BUG004565- 01
  115    S TITLE2= "CDCVENDOR " ;JAJ 02/ 24/2009 BU G004565-01
  116    U VFILEIO  W !!,TITL E2 ;JAJ 02 /24/2009 B UG004565-0 1
  117    S HEADT=" VENDOR_POI NTER^VENDO R_STATE^VE NDOR_ZIP^V ENDOR_SPEC IALTY_CODE ^VENDOR_SP ECIALITY_C ODE_DESC"  ;JAJ 02/24 /2009 BUG0 04565-01
  118    U VFILEIO  W !!,HEAD T,! ;JAJ 0 2/24/2009  BUG004565- 01
  119    S TITLE3= "CDCDIAGNO SIS_OPT" ; JAJ 02/24/ 2009 BUG00 4565-01
  120    U GFILEIO  W !!,TITL E3 ;JAJ 02 /24/2009 B UG004565-0 1
  121    S HEADD=" CLAIM_NUMB ER^DIAGNOS IS^DIAGNOS IS_DESC" ; JAJ 02/24/ 2009 BUG00 4565-01
  122    U GFILEIO  W !!,HEAD D,! ;JAJ 0 2/24/2009  BUG004565- 01
  123    S TITLE4= "CDCDIAGNO SIS_IPT" ;  JAJ 02/24 /2009 BUG0 04565-01
  124    U IFILEIO  W !!,TITL E4 ; JAJ 0 2/24/2009  BUG004565- 01
  125    S HEADI=" CLAIM_NUMB ER^ADMIT_D IAGNOSIS^A DMIT_DIAGN OSIS_DESC^ OTHER_DIAG NOSES^OTHE R_DIAGNOSE S_DESC" ;  JAJ 02/24/ 2009 BUG00 4565-01
  126    U IFILEIO  W !!,HEAD I,! ; JAJ  02/24/2009  BUG004565 -01
  127    S TITLE5= "CDCPROCED URE" ; JAJ  02/24/200 9 BUG00456 5-01
  128    U DFILEIO  W !!, TIT LE5 ; JAJ  02/24/2009  BUG004565 -01
  129    S HEADPR= "CLAIM_NUM BER^PROC_C ODE^PROC_C ODE_DESC"  ; ; JAJ 02 /24/2009 B UG004565-0 1
  130    U DFILEIO  W !!, HEA DPR,! ; JA J 02/24/20 09 BUG0045 65-01
  131    S TITLE6= "TO_GET_AW ARD_INFORM ATION - DO  NOT SEND  TO CDC!!"  ; JAJ 02/2 4/2009 BUG 004565-01
  132    U XFILEIO  W !!, TIT LE6 ; JAJ  02/24/2009  BUG004565 -01
  133    S HEADAW= "BINDEX^SS N" ; JAJ 0 2/24/2009  BUG004565- 01
  134    U XFILEIO  W !!, HEA DAW,! ; JA J 02/24/20 09 BUG0045 65-01
  135    S TITLE7= "CDCINPATI ENT" ; JAJ  02/24/200 9 BUG00456 5-01
  136    U ZFILEIO  W !!,TITL E7 ; JAJ 0 2/24/2009  BUG004565- 01
  137    S HEADIPT ="CLAIM_NU MBER^ADMIT _DX^ADMIT_ DX_DESC^DI SCH_STATUS ^DISCHAGE_ DX_CODE^DI SCHARGE_DX _DESC^DRG/ C-T-C^BILL ED_AMT^PAI D_AMT" ; J AJ 02/24/2 009 BUG004 565-01
  138    U ZFILEIO  W !!,HEAD IPT,! ; JA J 02/24/20 09 BUG0045 65-01
  139    S TITLE8= "CDC_INPT_ CLAIMS_DOD " ; JAJ 02 /24/2009 B UG004565-0 1
  140    U AFILEIO  W !!,TITL E8 ; JAJ 0 2/24/2009  BUG004565- 01
  141    S HEADDOD ="B_INDEX^ CLAIM_NUMB ER^CVA_VEN _POINTER^C H_STATUS^T YPE_OF_SVC ^PLACE_OF_ SVC^DATE_S VC_^DATE_D ISCHARGE^C LAIM_DRG^P D_AMT^BILL ED_AMT^ALL OWED^AMT"  ; JAJ 02/2 4/2009 BUG 004565-01
  142    U AFILEIO  W !!,HEAD DOD,! ; JA J 02/24/20 09 BUG0045 65-01
  143    Q ;JAJ 02 /24/2009 B UG004565-0 1
  144   PERSON ;CR EATES PERS ON DATA
  145    Q:'$D(^AH CHVA(DFN,1 00,BFN,0))   S BREC=^ AHCHVA(DFN ,100,BFN,0 )
  146    Q:'$D(^AH CHVA(DFN,1 00,BFN,1))   S BADD=^ AHCHVA(DFN ,100,BFN,1 )
  147    S BGEND=$ P(BREC,"^" ,2)
  148    S BINDEX= DFN_BFN
  149    S BDOB=$P (BREC,"^", 3)
  150    S BDOD=$P (BREC,"^", 6)  ;JAJ D EV004565-0 2 01/16/20 09 DT OF D EATH
  151    S BSSN=$P (BREC,"^", 9)
  152    S BST=$P( BADD,"^",4 )
  153    S:BST'=""  BST=$P(^D IC(5,BST,0 ),"^",2) ; JAJ DEV004 565-02 01/ 16/2009 ST ATE ABBR 
  154    S BZIP=$P (BADD,"^", 5)
  155    S BMARR=$ P(BREC,"^" ,19)
  156    I BMARR=" " S BMARR= "0"
  157    S BDOB=$$ FMTE^XLFDT (BDOB,"5D" )
  158    S BDOD=$$ FMTE^XLFDT (BDOD,"5D" )  ;JAJ DE V004565-02  01/16/200 9 DT OF DE ATH READAB LE
  159    Q:'$D(^AH CHVA(DFN,0 ))  S SREC 0=^AHCHVA( DFN,0)
  160    Q:'$D(^AH CHVA(DFN,1 ))  S SREC 1=^AHCHVA( DFN,1)
  161    S SDOB=$P (SREC0,"^" ,3)
  162    S SDOB=$$ FMTE^XLFDT (SDOB,"5D" )
  163    S SZIP=$P (SREC1,"^" ,5)
  164    ; NEXT 4  LINES ADDE D BY AHJ T O INCLUDE  LEVEL OF D ISABILITY  AWARDED 1- 3 ; JAJ 2/ 19/2009 BU G0465-01 D O NOT COLL ECT IN VIS TA
  165    ;S AWARDC D=0 ;JAJ 0 2/19/2009  BUG004565- 01  
  166    ;I $D(^CH MZHOLD($J, "CDC-AWARD -SSN",BSSN )) S AWARD DAT=^CHMZH OLD("CDC-A WARD-SSN", BSSN) ; JA J DEV00456 5-02 1/21/ 09 ADDED $ J ONLY ;JA J 02/19/20 09 BUG0045 65-01  
  167    ;I $D(^CH MZHOLD($J, "CDC-AWARD -SSN",BSSN )) S AWARD CD=$P(AWAR DDAT,"^",2 ) ; JAJ DE V004565-02  1/21/09 A DDED $J ON LY ;JAJ 02 /19/2009 B UG004565-0 1  
  168    U PFILEIO  W BINDEX_ "^"_BSSN_" ^"_BGEND_" ^"_BDOB_"^ "_BDOD_"^" _BMARR_"^" _BST_"^"_B ZIP_"^"_SD OB_"^"_SZI P,! ;JAJ D EV004565-0 2 01/16/20 09 (ADDED  BDOD) ;JAJ  02/19/200 9 BUG00456 5-01 (REMO VED AWARD, MOVED BDOD )
  169    D AWARDIN F ; JAJ 2/ 25/2009 BU G004565-01  AWARD INF ORMATION F OR HAC ONL Y
  170    Q   ;JAJ  2/25/2009  BUG004565- 01 AWARD I NFORMATION  FOR HAC O NLY
  171   AWARDINF ;  JAJ 2/25/ 2009 BUG00 4565-01 AW ARD INFORM ATION FOR  HAC ONLY
  172    U XFILEIO  W BINDEX_ "^"_BSSN,!   ;JAJ 2/2 5/2009 BUG 004565-01  AWARD INFO RMATION FO R HAC ONLY
  173    Q
  174   FEND ;
  175    ;C CFILEI O
  176    ;C PFILEI O
  177    ;C DFILEI O
  178    ;C VFILEI O
  179    ;C ZFILEI O
  180    ;C AFILEI O ; JAJ DE V004565-02  1/21/09
  181    ;C GFILEI O ; JAJ DE V004565-02  1/21/09
  182    ;C XFILEI O ; JAJ BU G004565-01  2/19/2009
  183    ;C IFILEI O ; JAJ BU G004565-01  2/19/2009
  184    S FLDER=" /FS3BIG/BP O/CDC_REPO RT/"     ; ;USE THIS  INSTEAD OF  THE CLOSE  TO SEND F ILES OUT T O FS3BIG   DEF016554  07/01/2015
  185    D CLOSEF^ CHTFLIB9(P FILEIO,"PF ILEIO") 
  186    D FTPFILE ^CHTFLIB9( PFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  187    D CLOSEF^ CHTFLIB9(C FILEIO,"CF ILEIO")
  188    D FTPFILE ^CHTFLIB9( CFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  189    D CLOSEF^ CHTFLIB9(D FILEIO,"DF ILEIO")
  190    D FTPFILE ^CHTFLIB9( DFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  191    D CLOSEF^ CHTFLIB9(V FILEIO,"VF ILEIO")
  192    D FTPFILE ^CHTFLIB9( VFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  193    D CLOSEF^ CHTFLIB9(A FILEIO,"AF ILEIO")
  194    D FTPFILE ^CHTFLIB9( AFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  195    D CLOSEF^ CHTFLIB9(Z FILEIO,"ZF ILEIO")
  196    D FTPFILE ^CHTFLIB9( ZFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  197    D CLOSEF^ CHTFLIB9(G FILEIO,"GF ILEIO")
  198    D FTPFILE ^CHTFLIB9( GFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  199    D CLOSEF^ CHTFLIB9(X FILEIO,"XF ILEIO")
  200    D FTPFILE ^CHTFLIB9( XFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  201    D CLOSEF^ CHTFLIB9(I FILEIO,"IF ILEIO")
  202    D FTPFILE ^CHTFLIB9( IFILEIO," DNS     fs3. DNS             ",FLDER,"P UT")
  203    X "D $SYS TEM.Proces s.SetZEOF( 0)"                 ; ;DEF016554  CLOSE MOD IFIED 07/3 0/2015       
  204    K DFNPT,B FNPT,CDFNP T,CLMPT,DF N,BFN,CLMC T,BENECT,C HMDFN,CLMN UM,CHMBFN, BSSN,BGEND ,BINDEX,BD OB,BDOD,BS T,BZIP,MAR R,SDOB,SZI P,AWARDCD, AWARDDAT,C ODE,DES,CH G,AMT,ODIA G,ODIAGD,C HDIAG,CHDI AGD ; JAJ  DEV004565- 02 1/21/09
  205    K ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ) ; JAJ BU G004565-01  2/24/2009  KILLS CHM ZHOLD $J S TUFF TO CL EAR IT OUT  EACH TIME
  206    K ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC")  ; JAJ BUG 004565-01  2/24/2009
  207    Q
  208   FILESET;   INSTEAD OF  USING DEC NET -- USE  FTPFILE I N CHTFLIB9  TO SEND T HE FILES
  209    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  210    S FILENM= "CDCPERSON .TXT"
  211    S PFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM
  212    I UCI'="H AC" S PFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM
  213    X "D $SYS TEM.Proces s.SetZEOF( 1)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/2015
  214    I '$$OPEN FIWR^CHTFL IB9(.PFILE IO,"PFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  215    S FILENM1 ="CDCCLAIM .TXT"
  216    S CFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM1
  217    I UCI'="H AC" S CFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 1
  218    I '$$OPEN FIWR^CHTFL IB9(.CFILE IO,"CFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  219    S FILENM2 ="CDCPROC. TXT"
  220    S DFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2
  221    I UCI'="H AC" S DFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  222    I '$$OPEN FIWR^CHTFL IB9(.DFILE IO,"DFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  223    S FILENM3 ="CDCVENDO R.TXT"
  224    S VFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM3
  225    I UCI'="H AC" S VFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 3
  226    I '$$OPEN FIWR^CHTFL IB9(.VFILE IO,"VFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  227    S FILENM4 ="CDCCLAIM DOD.TXT"
  228    S AFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM4
  229    I UCI'="H AC" S AFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 4
  230    I '$$OPEN FIWR^CHTFL IB9(.AFILE IO,"AFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT
  231    S FILENM5 ="CDCINPAT IENT.TXT"
  232    S ZFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM5
  233    I UCI'="H AC" S ZFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 5
  234    I '$$OPEN FIWR^CHTFL IB9(.ZFILE IO,"ZFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  235    S FILENM6 ="CDCDIAGN OSISOPT.TX T"
  236    S GFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM6
  237    I UCI'="H AC" S GFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 6
  238    I '$$OPEN FIWR^CHTFL IB9(.GFILE IO,"GFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  239    S FILENM7 ="AWARD.TX T"
  240    S XFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM7
  241    I UCI'="H AC" S XFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 7
  242    I '$$OPEN FIWR^CHTFL IB9(.XFILE IO,"XFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "
  243    S FILENM8 ="CDCDIAGN OSISIPT.TX T"
  244    S IFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM8
  245    I UCI'="H AC" S IFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 8
  246    I '$$OPEN FIWR^CHTFL IB9(.IFILE IO,"IFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT "        
  247    Q