83. EPMO Open Source Coordination Office Redaction File Detail Report

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

83.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMAGE38.m Mon Nov 5 16:40:54 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMAGE38.m Mon Nov 5 17:42:03 2018 UTC

83.2 Comparison summary

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

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

83.4 Active regular expressions

No regular expressions were active.

83.5 Comparison detail

  1   CHMAGE38   ;DPT Aging  of Applic ation repo rt 3884 7/ 14/10
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil
  3           ;D EV009104 
  4           ;b ug009104-0 4-01,02 mo dify layou t correct  <31 days
  5           ;b ug009104-0 4-03,04 mo dify layou t correct  <31 days
  6           ;b ug009104-0 4-05,corre ct undefin ed
  7       ;BUG91 04-06 DPT  correct ed it for 388 4 to get m ost recent  entry,sor t print by  sponsor
  8           ;D EV012893 D PT RMV DEC NET
  9           ;r emove crit eria for i neligible  reason
  10           ;T his report  list spon sor name,  ssn, bene  name and s sn, inelig ible,
  11           ;  with incom ple (RO-38 84( with b eneficiary   DEV00910 4
  12    ;VARIBLES  
  13       ;CHANS  - PRINT O R FILE       
  14           ;D FN - SPONS OR INTERNA L REFERENC E
  15    ;BFN - BE NE INTERNA L REFERNEC
  16           ;B NAME - BEN E NAME
  17           ;B SSN - BENE  SSN
  18           ;S PNAME - SP ONSOR NAME
  19    ;SPSSN -  SPONSOR SS N
  20    ;SSTATUS  - SPONSOR  ELIGIBILIT Y STATUS 
  21    ;BSTATUS  - BENE ELI GIBILITY S TATUS 
  22    ;CHDATE -  AS OF DAT E
  23    ;SCHCK1 - Sponsor 30  TO 59 DAY S
  24    ;SCHCK2 - Sponsor    60 TO 89 D AYS
  25    ;SCHCK3 - Sponsor  9 0-119 DAYS
  26    ;SCHCK4 - Sponsor  1 20 TO 179  DAYS
  27    ;SCHCK5 - Sponsor GR EATER THAN  OR EQUAL  180 DAYS
  28    ;BCHCK1 - Sponsor 30  TO 59 DAY S
  29           ;S UMCHECK1,  SUMCHECK2,  SUMCHECK3 , SUMCHECK 4, SUMCHEC K5 - TOTAL S FOR EACH  CATEGORY
  30   ZSET  ;
  31    S:'$D(DUZ ) DUZ=1,DU Z(0)="" I  '$D(DT) S  %DT="",X=" T" D ^%DT  S DT=Y
  32    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  33    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
  34   ZSET1 ;
  35    W !,"This  report wi ll show Ag ing of App lication r eport" 
  36    W !,"inel igible, in complete(R O-3884), o utstanding  3884 incl uding"
  37    W !,"bene ficiary an d VARO sta tion"
  38    S CHDATE= DT
  39           S  CHDATE2=$$ FMTE^XLFDT (CHDATE,5)
  40           W  !,"Today's  date will  be used f or as of d ate"
  41    
  42    
  43   ZSET2 W !! ,"WOULD YO U LIKE TO  CREATE A ( F)ILE OR ( P)RINT A R EPORT?  "  D CSBRS^CH SC2
  44    S CHANS=Y
  45    I $D(DQOU T) D  G ZS ET2
  46    .W !," PL EASE ENTER  A 'F' FOR  (F)ILE OR  'P' FOR ( P)RINT. "
  47    .Q
  48    I $D(DFOU T) G END    
  49    I $D(DUOU T) G END
  50    I $D(DTOU T) G END
  51    S CHANS=$ E(CHANS,1)
  52    S CHANS=$ $UP^XLFSTR (CHANS)
  53    I (CHANS' ="F"),(CHA NS'="P")   W !,"MUST  BE A 'F' F OR FILE OR  'P' FOR P RINT" G ZS ET2
  54    I CHANS=" P"  D QUE  G END
  55    I CHANS=" F" D  G EN D
  56    .W #,!,"T HIS MAY TA KE A WHILE  " 
  57    .D CHKMED
  58    .Q
  59    I CHANS=" " G END
  60    Q
  61   QUE ; 
  62    W #,?10," Printing A GING OF AP PLICATION  REPORT  "  ,!!
  63    W !,"PLEA SE SELECT  A WIDE PRI NTER",!! S  IOP="Q" D  ^%ZIS G:P OP END
  64    S ZTIO=IO N
  65    S ZTRTN=" CHKMED^CHM AGE38",ZTD ESC="AGING  OF APPLIC ATION REPO RT"
  66    S ZTSAVE( "CHANS")=" ",ZTSAVE(" CHDATE")=" ",ZTSAVE(" CHDATE2")= ""
  67    D ^%ZTLOA D ;ANSWER  FROM PROMP T TO PRINT  OR VIEW R EPORT
  68    W !!,"YOU R TASK NUM BER IS ",Z TSK
  69    ;D CHKMED ^CHMAGE38
  70    Q
  71   CHKMED  ;E STABLISH V ARIBLES TO  0 OR NULL
  72    K ^CHMZHO LD("9104_A GING_OF_AP P_3884",$J )
  73    D INIT
  74           S  (DFN,CNT,B CNT,SCNT)=
  75    S TCLMS=0    
  76   SPON  ;EST ABLISH VAR IBLES
  77    S DFN=$O( ^AHCHVA(DF N)) G:'DFN  CEND
  78    G:'$D(^AH CHVA(DFN,0 )) SPON
  79    S SPREC=^ AHCHVA(DFN ,0)
  80    I $P(SPRE C,"^",1)[" (SN)" G SP ON  ;SKIP  IF STUB NA ME
  81    S SPNAME= $P(SPREC," ^",1)
  82    I $D(^AHA DIC(554804 .07,"B",SP NAME)) G S PON  ;SKIP  IF SPONSO R IS DELET ED    ;jeh  - this ma y never be  true
  83    S SPSTATU S=$P(SPREC ,"^",5) I  SPSTATUS'= "I" G SPON   ; SKIP I F ELIGIBLE ,PREND OR  UNKNOWN
  84   T1 ;S CH38 84=$P(SPRE C,"^",12)  I CH3884'= 5 G SPON   ; no longe r a valid  criteria
  85    S SPSSN=$ P(SPREC,"^ ",9)
  86    I SPSSN=" " G SPON
  87    S FSPSSN= ""
  88    I SPSSN'= 0 S FSPSSN =$E(SPSSN, 1,3)_"-"_$ E(SPSSN,4, 5)_"-"_$E( SPSSN,6,9)
  89    S SVARO=$ P(SPREC,"^ ",8) 
  90       S J1=" " S J1=$O( ^AHCHVA(DF N,109,J1), -1) G:'J1  SPON  ;BUG 9104-06 DP T
  91   T4 I '$D(^ AHCHVA(DFN ,109,J1,0) ) G SPON    ;BUG9104- 06 DPT
  92    S S2REC=" " S S2REC= ^AHCHVA(DF N,109,J1,0 )  ;BUG910 4-06 DPT
  93    S S3884ST ="" 
  94    S S3884ST =$P(S2REC, "^",2) I S 3884ST'="O " G SPON ; OUTSTANDIN G RO-38884  BUG9104-0 6 DPT
  95   T5 S S3884 DT="" ;BUG 9104-06 DP T
  96    S S3884DT =$P(S2REC, "^",1) I S 3884DT=""  G SPON ;BU G9104-06 D PT
  97    S F3884DT =0    ;BUG 9104-06 DP T
  98    S F3884DT =$E(S3884D T,1,7) S R 3884DT=$$F MTE^XLFDT( F3884DT,5)  ;BUG9104- 06 DPT
  99   T6 S DIFF= $$FMDIFF^X LFDT(CHDAT E,F3884DT, 1) ; FIND  DIFFERENCE  BUG9104-0 6 DPT
  100    I DIFF<30  G SPON  ; BUG9104-06  DPT
  101           I  DIFF>29,DI FF<60       S SCHCK1= $I(SCHCK1)  S SCNT=$I (SCNT) ;BU G9104-06 D PT
  102    I (DIFF>5 9),(DIFF<9 0)    S SC HCK2=$I(SC HCK2) S SC NT=$I(SCNT ) ;BUG9104 -06 DPT
  103    I (DIFF>8 9),(DIFF<1 20)   S SC HCK3=$I(SC HCK3) S SC NT=$I(SCNT ) ;BUG9104 -06 DPT
  104    I (DIFF>1 19),(DIFF< 180)   S S CHCK4=$I(S CHCK4) S S CNT=$I(SCN T) ;BUG910 4-06 DPT
  105    I DIFF>17 9       S  SCHCK5=$I( SCHCK5) S  SCNT=$I(SC NT) ;BUG91 04-06 DPT
  106    S FST="Y" ,FST2="Y" 
  107    S BFN=0 S  BREC=""
  108   BENE S BFN =$O(^AHCHV A(DFN,100, BFN)) G:'B FN SPON 
  109    I '$D(^AH CHVA(DFN,1 00,BFN,0))  G BENE  
  110    S BREC=^A HCHVA(DFN, 100,BFN,0)
  111    I $P(BREC ,"^",1)["( SN)" G BEN E  ;SKIP I F STUB NAM E
  112    I $P(BREC ,"^",1)=""  G BENE  ; SKIP IF NO  BENE NAME
  113    I $P(BREC ,"^",9)=""  G BENE  ; SKIP IF NO  SSN
  114    I $P(BREC ,"^",4)="S F" G BENE   ;SKIP IF  RELATIONSH IP IS SELF  
  115    I $P(BREC ,"^",5)'=" D" G BENE   ;SKIP IF  ELIGIBLE,P REND OR UN KNOWN   
  116       S BNAM E=$P(BREC, "^",1)
  117    I $D(^AHA DIC(554804 .07,"B","B NAME")) G  BENE  ;SKI P IF BENE  IS DELETED  
  118    S BSSN=$P (BREC,"^", 9) 
  119    S FBSSN=" "
  120    I BSSN'=0  S FBSSN=$ E(BSSN,1,3 )_"-"_$E(B SSN,4,5)_" -"_$E(BSSN ,6,9) 
  121           I  S3884ST="O "    D 
  122    .I '$D(^C HMZHOLD("9 104_AGING_ OF_APP_388 4",$J,SPNA ME,DFN,BFN ))
  123    .S ^CHMZH OLD("9104_ AGING_OF_A PP_3884",$ J,SPNAME,D FN,BFN)=SP NAME_"^"_F SPSSN_"^"_ BNAME_"^"_ FBSSN_"^"_ R3884DT_"^ "_SVARO_"^ "_CNT,CNT= CNT+1  ;BU G9104-06 D PT
  124    .Q
  125    G BENE
  126   CEND  
  127    ;I '$D(^C HMZHOLD("9 104_AGING_ OF_APP_388 4")) G END
  128    S PG=0,CN T=0
  129    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  130    I CHANS=" F"{   
  131          ;S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]"_CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT"
  132           S  FIO=CHUCI_ "_9104_AGI NG_OF_APP_ 3884.TXT"  ;DEV012893  DPT
  133           S  FOLDER="HA C_HFS$:[SC R.TEMP_FIL ES]" ;DEV0 12893 DPT
  134           I  CHUCI'="HA C" S FOLDE R="HAC_HFS $:[DSMMANA G.CHAMPVA] " ;DEV0128 93 DPT
  135           S  FIO=FOLDER _FIO  ;DEV 012893 DPT
  136           S  FLDR="/FS3 BIG" ;DEV0 12893 DPT
  137           ;w  !,data wi ll be writ ten to [FS 3BIG\]
  138           W  !,"File: " ,FIO
  139           O  FIO C FIO: "D" O FIO: "NWS"   
  140                    D RP T}
  141    ELSE { D  RPT}
  142           G  END
  143    ; 
  144   RPT ; PRIN T HARDCOPY  OR FILE  
  145           D  NOW^%DTC S  DTE=$$FMT E^XLFDT(%, 5)
  146           S  DTM=$P(DTE ,"@",2) S  DTE2=$P(DT E,"@")
  147       D RPTH EAD
  148       D RPT1
  149       D RPT2
  150    I '$D(^CH MZHOLD("91 04_AGING_O F_APP_3884 ")) D
  151     .I CHANS ="F" U FIO  W !,"NO R ECORDS FOU ND" G END
  152        .W !, "NO RECORD S FOUND" G  END
  153           D  B1  Q ;BUG 009104
  154       Q
  155   RPTHEAD ;  WRITES OUT  AGING REP ORT HEADER  FOR SUMMA RY AND TOT ALS
  156           S  TITLE1="HE ALTH ADMIN ISTRATION  CENTER"
  157           S  TITLE2="AP PLICATIONS  AGING REP ORT as of  "_CHDATE2
  158           S  TITLE3="SP ONSOR WITH  STATUS OF  INELIGIBL E/INCOMPLE TE"
  159           S  TITLE4="AN D OUTSTAND ING RO-388 4 WITH BEN EFICIARY F ILE"
  160           I  CHANS="F"   { U FIO W  !!,?51,TI TLE1
  161                    U FI O W !,?44, TITLE2 
  162                    U FI O W !,?46, TITLE3 
  163                    U FI O W !,?42, TITLE4 U F IO W !?2,D UZ U FIO W  !,?2,DTE2  U FIO W ! ,?2,DTM}
  164           EL SE {W !!,? 51,TITLE1 
  165                 W !,?44 ,TITLE2 
  166                 W !,?46 ,TITLE3 
  167            W  !,?42,TIT LE4  W !?2 ,DUZ W !,? 2,DTE2 W ! ,?2,DTM}   ;bug009104 -04-05 dpt
  168           S  CNT=CNT+4       
  169    Q
  170   RPT1 ;COLU MN HEADERS
  171    I CHANS=" F" {      
  172     U FIO W  !!?2," ",? 23,"Total  #",?43,"Ap plications ",?58,"App lications" ,?73,"Appl ications", ?88,"Appli cations",? 105,"Appli cations"          
  173     U FIO W  !,?2," ",? 23,"Applic ations",?4 3,"30-59 D ays",?58," 60-89 Days ",?73,"90- 119 Days", ?88,"120-1 79 Days",? 105,">180  Days"    
  174     U FIO W  !,?2," ",? 23,"------ ------",?4 3,"------- -----",?58 ,"-------- ----",?73, "--------- ---",?88," ---------- --",?105," ---------- --"}
  175           EL SE {    W  !!?2,"",?2 3,"Total # ",?43,"App lications" ,?58,"Appl ications", ?73,"Appli cations",? 88,"Applic ations",?1 05,"Applic ations"         
  176       W !,?2 ,"",?23,"A pplication s",?43,"30 -59 Days", ?58,"60-89  Days",?73 ,"90-119 D ays",?88," 120-179 Da ys",?105," >180 Days"          
  177       W !,?2 ,"",?23,"- ---------- -",?43,"-- ---------- ",?58,"--- ---------" ,?73,"---- --------", ?88,"----- -------",? 105,"----- -------"}
  178           S  CNT=CNT+3       
  179           Q
  180   RPT2 ;MAIN  SECTION O F SUMMARY
  181    S SSUMAPP =SCHCK1+SC HCK2+SCHCK 3+SCHCK4+S CHCK5
  182       S CNT= CNT+3
  183       I CHAN S="F"  {  
  184           U  FIO W !,?2 ,"",?23,SS UMAPP,?43, SCHCK1,?58 ,SCHCK2,?7 3,SCHCK3,? 88,SCHCK4, ?105,SCHCK 5}     
  185           EL SE {W !,?2 ,"",?23,SS UMAPP,?43, SCHCK1,?58 ,SCHCK2,?7 3,SCHCK3,? 88,SCHCK4, ?105,SCHCK 5}
  186           Q
  187    
  188   B1 ;PRINT  DETAILS
  189       I CHAN S="P" W @I OF
  190    D BHEAD
  191    S SPNAME= 0
  192   B15 S SPNA ME=$O(^CHM ZHOLD("910 4_AGING_OF _APP_3884" ,$J,SPNAME )) G:SPNAM E="" SEND
  193           S  DFN=0
  194   B16 S DFN= $O(^CHMZHO LD("9104_A GING_OF_AP P_3884",$J ,SPNAME,DF N)) G:DFN= "" B15
  195           S  BFLG=0,BFN =0
  196   B2 ;
  197           S  BFN=$O(^CH MZHOLD("91 04_AGING_O F_APP_3884 ",$J,SPNAM E,DFN,BFN) ) G:BFN=""  B16
  198           S  BFLG=1
  199   B4 ;
  200           S  SPONAME=$P (^CHMZHOLD ("9104_AGI NG_OF_APP_ 3884",$J,S PNAME,DFN, BFN),"^",1 )
  201           S  SPOSSN=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",2)
  202           S  BENAME=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",3)
  203           S  BENSSN=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",4)
  204           S  BF3884DT=$ P(^CHMZHOL D("9104_AG ING_OF_APP _3884",$J, SPNAME,DFN ,BFN),"^", 5)
  205           S  SNVARO=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",6)
  206           S  BDATA=SPON AME_"^"_SP OSSN_"^"_B ENAME_"^"_ BENSSN_"^" _BF3884DT_ "^"_SNVARO   
  207           I  CHANS="P" 
  208    .I $Y>58 
  209    ..W @IOF
  210    ..D BHEAD
  211    ..Q
  212           I  BFLG=1 S C NT=CNT+1
  213                I CHANS= "F" {U FIO  W !,?2,SP ONAME,?32, SPOSSN,?45 ,BENAME,?7 6,BENSSN,? 90,BF3884D T,?102,SNV ARO S BFLG =0 } ;BUG0 09104
  214          ELS E   { W !, ?2,SPONAME ,?32,SPOSS N,?45,BENA ME,?76,BEN SSN,?90,BF 3884DT,?10 2,SNVARO S  BFLG=0 }   ;BUG00910 4
  215           G  B2
  216   BHEAD ; WR ITES OUT R EPORT HEAD ER DETAIL
  217           D  RPTHEAD
  218           S  TITLE5="DE TAIL"
  219           S  CNT=CNT+4
  220           I  CHANS="F"  {
  221                U FIO W  !!,?60,TIT LE5  
  222                U FIO W  !!,?2,"SPO NSOR",?32, "SPONSOR", ?45,"BENEF ICIARY",?7 6,"BENEFIC IARY",?90, "DATE OF", ?102,"VARO
  223           U  FIO W !,?2 ,"NAME",?3 2,"SSN",?4 5,"NAME",? 76,"SSN",? 90,"OF 388 4",?102,"N UMBER" 
  224                U FIO W  !,?2,"---- ---",?32," ---------- -",?45,"-- ---------" ,?76,"---- -------",? 90,"------ ----",?102 ,"------"  }
  225           EL SE {W !!,? 60,TITLE5 
  226                           W !!,?2, "SPONSOR", ?32,"SPONS OR",?45,"B ENEFICIARY ",?76,"BEN EFICIARY", ?90,"DATE  OF",?102," VARO" 
  227                      W  !,?2,"NAME ",?32,"SSN ",?45,"NAM E",?76,"SS N",?90,"OF  3884",?10 2,"NUMBER"  
  228                      W  !,?2,"---- ---",?32," ---------- -",?45,"-- ---------" ,?76,"---- -------",? 90,"------ ----",?102 ,"------"  }
  229           Q
  230   SUMHEAD ;  WRITES OUT  REPORT HE ADER FOR T OTALS OF D ETAIL
  231           ;D  RPTHEAD
  232           S  TITLE6="DE TAIL TOTAL S"
  233    I CHANS=" F" {
  234        U FIO  W !!,?64, TITLE6  
  235                U FIO W  !!,?2,"TOT AL SPONSOR  COUNT = " ,SCNT }
  236    ELSE {W ! !,?60,TITL E6  
  237         W !! ,?2,"TOTAL  SPONSOR C OUNT = ",S CNT }
  238    Q
  239   SEND; 
  240       D SUMH EAD   ;BUG 009104
  241       I CHAN S="F"  {C  FIO
  242          X ^ %ZOSF("UCI ") S CHUCI =$P(Y,",", 1)
  243                    ;S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]"_CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT"    ;BUG9104-0 6 DPT
  244          S F IO=CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT"
  245          S F OLDER="HAC _HFS$:[SCR .TEMP_FILE S]" ;DEV01 2893 DPT
  246              I CHUCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  247          S F IO=FOLDER_ FIO  ;DEV0 12893 DPT
  248              S FLDR="/F S3BIG" ;DE V012893 DP T
  249          H 3 0 }
  250           EL SE {Q}
  251   PEND
  252       I CHAN S="F" U 0  W !,"END O F PRINT RE PORT" ;DEV 012893 DPT
  253    I CHANS=" P" W !,"EN D OF PRINT  REPORT"
  254   END ;CLOSE  ALL FILES , DELETE V ARIABLES
  255         I CHANS="F " C FIO D  FTPFILE^CH TFLIB9(FIO ," DNS     fs3. DNS             ",FLDR,"PU T")    ;DEV012893  DPT
  256           K  ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J)
  257    K DFN,BFN ,J1,BSSN,B NAME,BREC, BENSSN,SPS SN,SPNAME  ;BUG9104-0 6 DPT
  258           K  SPREC,S2PR EC,SCNT,BC NT,CHLNAME ,SPSTATUS, CH3884,SVA RO ;BUG910 4-06 DPT 
  259    K DTE,DTE 2,DTM,SCHC K1,SCHCK2, SCHCK3,SCH CK4,SCHCK5 ,CHAOFDT 
  260           K  SUMCHECKA, SUMCHECK1, SUMCHECK2, SUMCHECK3, SUMCHECK4, SUMCHECK5, SSUMAPP,BS UMAPP 
  261    Q
  262   END2
  263    Q      
  264   INIT  ;
  265    S (SPSSN, SPNAME,BSS N,BNAME,BE NSSN,CH388 4,SNVARO)= ""
  266    S (DTE,DT E2,DTM,SCH CK1,SCHCK2 ,SCHCK3,SC HCK4,SCHCK 5,CHAOFDT) =0
  267           S  (SUMCHECKA ,SUMCHECK1 ,SUMCHECK2 ,SUMCHECK3 ,SUMCHECK4 ,SUMCHECK5 ,SSUMAPP,B SUMAPP)=0
  268           Q
  269