45. EPMO Open Source Coordination Office Redaction File Detail Report

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

45.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHELIGRT.m Mon Nov 5 16:43:33 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHELIGRT.m Mon Nov 5 17:38:15 2018 UTC

45.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 550
Changed 3 6
Inserted 0 0
Removed 0 0

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

45.4 Active regular expressions

No regular expressions were active.

45.5 Comparison detail

  1   CHELIGRT   ;TLH/CVA E LIGIBILITY  REPORTS C HECKS QE D ATE AND TE RMINATION  OF REMARRI AGE DATES 
  2     ;VERSION  1 ; 10/12 /07 
  3     ;;DEF016 554, SBB,  12/27/13 -  Updating  with PST A PI functio n calls
  4     ;;DEF016 554, SBB,  07/30/15 -  Adding ch anges for  DECNET
  5     ;
  6     ;VARIABL E LIST
  7     ;DFN - S PONSOR NUM BER
  8     ;BFN - B ENE NUMBER  
  9     ;BNAME -  BENE NAME  
  10     ;BSSN -  BENE SSN 
  11     ;QEDT -  QE DATE OF  BENE 
  12     ;TERMDT  - REMARRAI GE TERMINA TION DATE 
  13     ;TERMFG  - TERMINAT ION FLAG
  14     ;STATUS  - BENE STA TUS 
  15     ;QECNT -  QE DATE R EPORT COUN T
  16     ;TERMCNT  - NO TERM INATION DA TE REPORT  COUNT
  17     ;BTWCNT  - TERMINAT ED DATE BE TWEEN REPO RT COUNT
  18   ZSET  ;
  19    S:'$D(DUZ ) DUZ=1,DU Z(0)="" I  '$D(DT) S  %DT="",X=" T" D ^%DT  S DT=Y
  20    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  21    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  22   ZNAM  ;
  23    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  24    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") D
  25    .W #,?10, "ELIGIBILI TY DATA RE PORTS",!!
  26    .W !,"PLE ASE SELECT  A PRINTER ",!! S IOP ="Q" D ^%Z IS G:POP E ND
  27    .S ZTIO=I ON
  28    .S ZTRTN= "CALC^CHEL IGRT",ZTDE SC="ELIGIB ILITY DATA  REPORTS"
  29    .;D ^%ZTL OAD 
  30    .W !!,"YO UR TASK NU MBER IS ", ZTSK
  31    .S IOP=0  D HOME^%ZI S
  32    .D CALC^C HELIGRT
  33    .Q
  34    I CHUCI=" HAC" D
  35    .W #,?10, "ELIGIBILI TY DATA RE PORTS",!!
  36    .;S ION=" CHVDEV$PRT "  ;PRINTE R NOT USED  IN PRODUC TION
  37    .S ZTIO=" ",CHFIO="" ,ZTSAVE("C HFIO")=""  K ION
  38    .S ZTRTN= "CALC^CHEL IGRT",ZTDE SC="ELIGIB ILITY DATA  REPORTS"
  39    .D ^%ZTLO AD 
  40    .W !!,"YO UR TASK NU MBER IS ", ZTSK
  41    .S IOP=0  D HOME^%ZI S
  42    .;D CALC^ CHELIGRT
  43    Q
  44   CALC 
  45    ;
  46    N POP1,PO P2,POP3
  47    S POP1=0, POP2=0,POP 3=0
  48    D INIT
  49    I 'POP1!' POP2!'POP3  D 
  50    . I 'POP1 ,CHUCI'="H AC" U 0 W  !,"File: " _IOFILE1_"  couldn't  be opened. "
  51    . I 'POP2 ,CHUCI'="H AC" U 0 W  !,"File: " _IOFILE2_"  couldn't  be opened. "
  52    . I 'POP3 ,CHUCI'="H AC" U 0 W  !,"File: " _IOFILE3_"  couldn't  be opened. "
  53    . Q
  54    K ^CHMZHO LD($J,"QE_ DATE") K ^ CHMZHOLD($ J,"NO_TERM _DATE") K  ^CHMZHOLD( $J,"TERM_B ETWEEN")
  55   GETSPN ;TH IS WILL FI ND THE SPO NSOR 
  56    S DFN=0
  57   GS1 S DFN= $O(^AHCHVA (DFN)) G E ND:'DFN 
  58   GETBEN ; T HIS WILL F IND THE BE NE 
  59    S BFN=0 
  60   GB1 S BFN= $O(^AHCHVA (DFN,100,B FN)) G:'BF N GS1
  61     G:'$D(^A HCHVA(DFN, 100,BFN,0) ) GB1 G:'$ D(^AHCHVA( DFN,100,BF N,1)) GB1  G:'$D(^AHC HVA(DFN,10 0,BFN,2))  GB1 G:'$D( ^AHCHVA(DF N,100,BFN, 3)) GB1
  62     S BNAME= $P(^AHCHVA (DFN,100,B FN,0),"^", 1)
  63     I BNAME= "" G GB1   ;SKIP IF N O BENE NAM
  64     I BNAME[ "(SN)" G G B1  ;SKIP  IF BENE NA ME IS STUB  NAME  
  65     I $D(^AH ADIC(55480 4.07,"B",B NAME)) G G B1  ;SKIP  IF BENE NA ME IS DELE TED
  66     S SDOD=$ P(^AHCHVA( DFN,0),"^" ,4)
  67     S REL=$P (^AHCHVA(D FN,100,BFN ,0),"^",4)
  68     S TERMFG =$P(^AHCHV A(DFN,100, BFN,0),"^" ,18)
  69     S TERMDT =$P(^AHCHV A(DFN,100, BFN,0),"^" ,7)
  70     S BSSN=$ P(^AHCHVA( DFN,100,BF N,0),"^",9 )
  71     I BSSN=" " G GB1  ; SKIP IF SS N IS BLANK
  72     I $P(^AH CHVA(DFN,1 00,BFN,0), "^",5)'="E A" G GB1
  73     I '$D(^A HCHVA(DFN, 100,BFN,10 9)) G GB1
  74     S QEDT=$ P(^AHCHVA( DFN,100,BF N,0),"^",1 0)
  75   QEDT ; CHE CK QE DATE  FOR REPOR
  76    I QEDT<27 30901 D 
  77    .I '$D(^C HMZHOLD($J ,"QE_DATE" ,BNAME,DFN ,BFN)) S ^ CHMZHOLD($ J,"QE_DATE ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N_"^"_REL_ "^"_QEDT
  78    .Q
  79   NOTERM  ;C HECK FOR N O TERMINAT ION DATE 
  80    I SDOD'=" " I REL="S " I TERMFG =1 I TERMD T=""  D
  81    .I '$D(^C HMZHOLD($J ,"NO_TERM_ DATE",BNAM E,DFN,BFN) ) S ^CHMZH OLD($J,"NO _TERM_DATE ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N
  82    .Q
  83   TERM ; CHE CK TO DETE RMINE IF T ERMINATION  IS BETWEE N 11/1/199 0 AND 11/3 1/1999
  84    I SDOD'=" " I REL="S " I TERMFG =1 I TERMD T>2901101  I TERMDT<2 991131 D 
  85    .I '$D(^C HMZHOLD($J ,"TERM_BET WEEN",BNAM E,DFN,BFN) ) S ^CHMZH OLD($J,"TE RM_BETWEEN ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N_"^"_TERM DT
  86    .Q
  87    G GB1
  88   HEAD ;
  89    S PG=PG+1
  90    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W #
  91    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  92    S TAB=(80 -$L(TITLE) )/2  
  93    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S  Y=DT X ^D D("DD")
  94    I CHUCI=" HAC" U IOF ILE1 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD")
  95    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7)
  96    S TITLE=" QE DATE BE FORE 09/01 /1973 "
  97    S TAB=(80 -$L(TITLE) )/2
  98    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE
  99    I CHUCI=" HAC" U IOF ILE1 W !,T _TITLE
  100    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN",?55 ,"REL",?67 ,"QE DATE"
  101    I CHUCI=" HAC" U IOF ILE1 W !!, "BENE NAME "_T_"BENE  SSN"_T_"RE L"_T_"QE D ATE"
  102    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----",?55, "-----",?6 7,"------- ----"
  103    Q
  104   HEAD1 
  105    S PG=PG+1
  106    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W #
  107    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  108    S TAB=(80 -$L(TITLE) )/2  
  109    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S  Y=DT X ^D D("DD")
  110    I CHUCI=" HAC" U IOF ILE2 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD")
  111    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7)
  112    I CHUCI=" HAC" U IOF ILE2 W !,$ E(DT,4,7)
  113    S TITLE=" REMARRIAGE  TERMINATE D NO TERM  DATE "
  114    S TAB=(80 -$L(TITLE) )/2
  115    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE
  116    I CHUCI=" HAC" U IOF ILE2 W !,T _TITLE
  117    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN"
  118    I CHUCI=" HAC" U IOF ILE2 W !!, "BENE NAME "_T_"BENE  SSN"
  119    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----"
  120    Q 
  121   HEAD2
  122    S PG=PG+1
  123    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W #
  124    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  125    S TAB=(80 -$L(TITLE) )/2  
  126    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S  Y=DT X ^D D("DD")
  127    I CHUCI=" HAC" U IOF ILE3 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD")
  128    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7)
  129    I CHUCI=" HAC" U IOF ILE3 W !,$ E(DT,4,7)
  130    S TITLE=" REMARRIAGE  TERMINATE D BETWEEN  11/1/1990  AND 11/31/ 1999"
  131    S TAB=(80 -$L(TITLE) )/2
  132    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE
  133    I CHUCI=" HAC" U IOF ILE3 W !,T _TITLE
  134    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN",?67 ,"TERM DAT E"
  135    I CHUCI=" HAC" U IOF ILE3 W !," BENE NAME" _T_"BENE S SN"_T_"TER M DATE"
  136    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----",?67, "--------- --"
  137    Q
  138   END
  139    D QEDTRPT
  140    ;DEF01655 4-12/27/13 -SBB use C LOSE^%ZISH  to close  file
  141    ;DEF01655 4 SBB 12/2 7/13  - Co nverting f rom DECNET  to FTP.
  142    I CHUCI=" HAC" D
  143    .;C IOFIL E1 S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE1
  144    .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G1_COPY.CO M/PARAM=(" _IOFILE1_" )") R X:45
  145    .D CLOSEF ^CHTFLIB9( IOFILE1,"I OFILE1")
  146    .D FTPFIL E^CHTFLIB9 (IOFILE1," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  147    .Q
  148    D TERMRPT
  149    I CHUCI=" HAC" D
  150    .;C IOFIL E2 S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE2
  151    .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G2_COPY.CO M/PARAM=(" _IOFILE2_" )") R X:45
  152    .D CLOSEF ^CHTFLIB9( IOFILE2,"I OFILE2")
  153    .D FTPFIL E^CHTFLIB9 (IOFILE2," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  154    .Q
  155    D BTWRPT
  156    D PEND
  157    Q
  158   INIT ; SET  UP ALL VA RIABLES TO  NULL 
  159    S BNAME=" "
  160    S BSSN=""
  161    S QEDT=""
  162    S TERMFG= ""
  163    S TERMDT= ""
  164    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  165    ;SBB 07/3 0/15 DEF01 6554
  166    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  167    ;DEF01655 4-12/27/13 -SBB call  OPEN^%ZISH  to open t he file
  168    I CHUCI=" HAC" D
  169    .S IOFILE 1="HAC_HFS $:[SCR.TEM P_FILES]QE _DATE.DAT"  S T=$C(9)   ; FOR LI VE ONLY
  170    .;O IOFIL E1:"NWS"
  171    .S POP1=$ $OPENFIWR^ CHTFLIB9(. IOFILE1,"I OFILE1")
  172    .S IOFILE 2="HAC_HFS $:[SCR.TEM P_FILES]NO _TERM_DATE .DAT" S T= $C(9)  ; F OR LIVE ON LY
  173    .;O IOFIL E2:"NWS"
  174    .S POP2=$ $OPENFIWR^ CHTFLIB9(. IOFILE2,"I OFILE2")
  175    .S IOFILE 3="HAC_HFS $:[SCR.TEM P_FILES]TE RM_BETWEEN .DAT" S T= $C(9)  ; F OR LIVE ON LY
  176    .;O IOFIL E3:"NWS"
  177    .S POP3=$ $OPENFIWR^ CHTFLIB9(. IOFILE3,"I OFILE3")
  178    .Q
  179    Q
  180   QEDTRPT ;  REPORT FOR  QEDATE CH ECK
  181    S PG=0
  182    D HEAD
  183    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") I '$D (^CHMZHOLD ($J,"QE_DA TE")) W !, "NO DATA F OUND" Q
  184    I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"QE_DA TE")) U IO FILE1  W ! ,"NO DATA  FOUND" Q
  185    S QEBNAME ="",QECNT= 0
  186   QE1 S QEBN AME=$O(^CH MZHOLD($J, "QE_DATE", QEBNAME))  I QEBNAME= "" D  Q
  187    .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",QECNT
  188    .I CHUCI= "HAC" U IO FILE1 W !, "TOTAL NUM BER OF BEN EFICIARIES  ",QECNT
  189    S DFN=0
  190   QE2 S DFN= $O(^CHMZHO LD($J,"QE_ DATE",QEBN AME,DFN))  G:DFN="" Q E1
  191     S BFN=0
  192   QE3 S BFN= $O(^CHMZHO LD($J,"QE_ DATE",QEBN AME,DFN,BF N)) G:BFN= "" QE2
  193     S QEREC= ^CHMZHOLD( $J,"QE_DAT E",QEBNAME ,DFN,BFN)
  194     S BNAME= $P(QEREC," ^",1)
  195     S BSSN=$ P(QEREC,"^ ",2)
  196     S REL=$P (QEREC,"^" ,3)
  197     S QEDT=$ P(QEREC,"^ ",4)
  198     S QECNT= QECNT+1
  199     I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !, BNAME,?35, BSSN,?55,R EL,?67,$$F MTE^XLFDT( QEDT,"5D")
  200     I CHUCI= "HAC" U IO FILE1 W !, BNAME_T_BS SN_T_REL_T _$$FMTE^XL FDT(QEDT," 5D") G QE3
  201     I $Y>54  D
  202    .W @IOF
  203    .D HEAD
  204    .Q
  205     G QE3
  206   TERMRPT ;  REPORT FOR  TERM DATE  NOT PROVI DED 
  207    S PG=0
  208    D HEAD1
  209    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") I '$D (^CHMZHOLD ($J,"NO_TE RM_DATE"))  W !,"NO D ATA FOUND"  Q 
  210    I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"NO_TE RM_DATE"))  U IOFILE2  W !,"NO D ATA FOUND"  Q 
  211    S TERBNAM E="",TERMC NT=0
  212   TER1 S TER BNAME=$O(^ CHMZHOLD($ J,"NO_TERM _DATE",TER BNAME)) I  TERBNAME=" " D  Q
  213    .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",TERMC NT
  214    .I CHUCI= "HAC" U IO FILE2 W !, "TOTAL NUM BER OF BEN EFICIARIES  ",TERMCNT
  215    S DFN=0
  216   TER2 S DFN =$O(^CHMZH OLD($J,"NO _TERM_DATE ",TERBNAME ,DFN)) G:D FN="" TER1
  217    S BFN=0
  218   TER3 S BFN =$O(^CHMZH OLD($J,"NO _TERM_DATE ",TERBNAME ,DFN,BFN))  G:BFN=""  TER2
  219    S TMREC=^ CHMZHOLD($ J,"NO_TERM _DATE",TER BNAME,DFN, BFN)
  220    S BNAME=$ P(TMREC,"^ ",1)
  221    S BSSN=$P (TMREC,"^" ,2)
  222    S TERMCNT =TERMCNT+1
  223    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,B NAME,?35,B SSN
  224    I CHUCI=" HAC" U IOF ILE2 W !,B NAME_T_BSS N G TER3
  225    I $Y>54 D
  226    .W @IOF
  227    .D HEAD1
  228    .Q
  229    G TER3
  230   BTWRPT ; R EPORT FOR  TERM BETWE EN 11/1/19 90 TO 11/3 1/1999
  231    S PG=0
  232    D HEAD2
  233    I (CHUCI= "DEV")!(CH UCI="TST") !("TRN") I  '$D(^CHMZ HOLD($J,"T ERM_BETWEE N")) W !," NO DATA FO UND" Q
  234    I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"TERM_ BETWEEN"))  U IOFILE3  W !,"NO D ATA FOUND"  Q
  235    S BTBNAME ="",BTWCNT =0
  236   BTW1 S BTB NAME=$O(^C HMZHOLD($J ,"TERM_BET WEEN",BTBN AME)) I BT BNAME="" D   Q
  237    .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",BTWCN T
  238    .I CHUCI= "HAC" U IO FILE3 W !, "TOTAL NUM BER OF BEN EFICIARIES ",BTWCNT
  239    S DFN=0
  240   BTW2 S DFN =$O(^CHMZH OLD($J,"TE RM_BETWEEN ",BTBNAME, DFN)) G:DF N="" BTW1
  241    S BFN=0
  242   BTW3 S BFN =$O(^CHMZH OLD($J,"TE RM_BETWEEN ",BTBNAME, DFN,BFN))  G:BFN="" B TW2
  243    S BTREC=^ CHMZHOLD($ J,"TERM_BE TWEEN",BTB NAME,DFN,B FN)
  244    S BNAME=$ P(BTREC,"^ ",1)
  245    S BSSN=$P (BTREC,"^" ,2)
  246    S TERMDT= $P(BTREC," ^",3)
  247    S BTWCNT= BTWCNT+1
  248    I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,B NAME,?35,B SSN,?67,$$ FMTE^XLFDT (TERMDT,"5 D")
  249    I CHUCI=" HAC" U IOF ILE3 W !,B NAME_T_BSS N_T_$$FMTE ^XLFDT(TER MDT,"5D")  G BTW3
  250    I $Y>54 D
  251    .W @IOF
  252    .D HEAD2
  253    .Q
  254    G BTW3
  255   PEND ; 
  256    ;I CHUCI= "HAC" C IO FILE1,IOFI LE2,IOFILE 3 D
  257    ;.S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE1
  258    ;.S CHTMP 2="SET PRO TECTION=(W :RWED) "_I OFILE2
  259    ;.S CHTMP 3="SET PRO TECTION=(W :RWED) "_I OFILE3
  260    ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE1_") ") R X:45
  261    ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE2_") ") R X:45
  262    ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE3_") ")
  263    I CHUCI=" HAC" D
  264    .;C IOFIL E3 S CHTMP 3="SET PRO TECTION=(W :RWED) "_I OFILE3
  265    .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G3_COPY.CO M/PARAM=(" _IOFILE3_" )")
  266    .D CLOSEF ^CHTFLIB9( IOFILE3,"I OFILE3")
  267    .D FTPFIL E^CHTFLIB9 (IOFILE3," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  268    .Q
  269    ;SBB 07/3 0/15 DEF01 6554
  270    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  271    I CHUCI=" TST" Q  ;P RINT HARD  COPY REPOR T FROM USE R DEFINED  PRINTER
  272    I CHUCI=" DEV" Q  ;P RINT HARD  COPY REPOR T FROM USE R DEFIND P RINTER  
  273    K ^CHMZHO LD($J,"QE_ DATE") K ^ CHMZHOLD($ J,"NO_TERM _DATE") K  ^CHMZHOLD( $J,"TERM_B ETWEEN")
  274    K BNAME,B SSN,TERMCN T,QECNT,BT WCNT,TERMF G,TERMDT,S TATUS,DFN, BFN
  275    Q
  276    
  277     
  278