11. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:27:13 PM Eastern 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.

11.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\902212-CPE005-025 CPD Morning Report EM Claims CP&E Teams 1-3 Developer Form CPE005-025 CHMRSQP.docx Thu Dec 7 15:13:22 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\902212-CPE005-025 CPD Morning Report EM Claims CP&E Teams 1-3 Developer Form CPE005-025 CHMRSQP.docx Thu Dec 7 20:45:46 2017 UTC

11.2 Comparison summary

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

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

  1   Routine Na me:  CHMRS QP
  2   Developer  Name(s):   Hayes Murd ock
  3   Associated  User Stor y/Stories:   CPE005-0 25
  4   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  5   CHMRSQP ;D EN/CJM;STA TUS OF QUE UES/MORNIN G REPORT -  PRINT;09/ 01/98  8:4 4 AM
  6    ;;V1.03;; ;;Build 10
  7    ;DEN/CJM; V1.03;06/1 1/93
  8    ;DEN/CJM; V1.02;01/2 8/93
  9    ;REVISED  BY RLC;12/ 20/95;ADDE D SECTION  FOR CMOP C LAIMS
  10   ;CPE005-01 6A HM/WTC  8.30.17
  11   ;CPE005-01 6B WTC 9.1 .17
  12    ;
  13   MAIN W @IO F D INIT S  FLG=0
  14    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  15    D FOOT
  16    D INIT7
  17    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  18    D FOOT
  19    D INIT10
  20    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  21    D FOOT
  22    W !,"NOTE  1: CHAMPV A CLAIMS =  CHAMPVA +  CFL + CIT I + EM CLA IMS"
  23    W !,"NOTE  2: ALL CL AIMS = CHA MPVA + CWV V + SPINA  BIFIDA + N ON-VA"
  24    D INIT1
  25    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","E OB" D DETA IL
  26    D FOOT
  27    W !,"NOTE  1: CHAMPV A CLAIMS =  CHAMPVA +  CFL + CIT I + EM CLA IMS"
  28    W !,"NOTE  2: ALL CL AIMS = CHA MPVA + CWV V + SPINA  BIFIDA + N ON-VA"
  29    D INIT9
  30    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  31    D FOOT
  32    D INIT6
  33    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  34    D FOOT
  35    D INIT5
  36    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  37    D FOOT
  38    D INIT2
  39    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  40    D FOOT
  41    W !,"NOTE 3: EM CLAI MS = EDI +  CVA EDI R O + SB EDI  RO + MDMT RX + SXC +  CMOP CLAI MS"
  42    D INIT8
  43    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  44    D FOOT
  45    D INIT3
  46    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB"  D D ETAIL
  47    D FOOT
  48    ;HR-PBM-P HASE 1-Beg in - SLM
  49    D INIT11
  50    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  51    D FOOT
  52    ;HR-PBM-P HASE 1-End
  53    D INIT4
  54    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB"  D D ETAIL
  55    D FOOT
  56    ;HM CPE00 5-016a EDI  ReOpen Us er Story
  57    D INIT12
  58    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  59    D FOOT
  60    ;
  61    ;  WTC CP E005-016B  EDI ReOpen  SB User S tory
  62    ;
  63    D INIT13
  64    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  65    D FOOT
  66    ;
  67    D KI
  68    K ^CHMRSQ 1("MARSQCA LC")
  69   END Q
  70    ;
  71   INIT S CHT ITLE="CPD  Morning Re port - Sum mary Aging  of Queues "
  72    S $Y=99,C HPG=0,CHPG L=66,CHPGW =132,U="^"    ;SKD 7- 12-07 DEV0 00272
  73    S CHDTR=$ E(DT,4,7), X=$P($H,", ",2),H=X\3 600,M=X#36 00\60
  74    S:M<10 M= "0"_M S:H< 10 H="0"_H  S CHTM=H_ M,CHSITE=" HEALTH ADM INISTRTION  CENTER"
  75    S Y=$P(CH DTE,".",1)  D DD^%DT  S CHDTL=Y
  76    K CHBL S  $P(CHBL,"- ",CHPGW+1) =""
  77    S CHP=1,C HPO=0,CHST ="ALL CLAI MS"
  78    Q
  79    ;
  80   INIT1 S CH P=2,CHPO=1 ,CHST="CIT I CLAIMS"
  81    D HDING,S UBHD S FLG =1
  82    Q
  83    ;
  84   INIT2 S CH P=3,CHPO=2 ,CHST="EM  CLAIMS"
  85    D SUBHD
  86    Q
  87   INIT3 S CH P=4,CHPO=3 ,CHST="MDM TRX CLAIMS "
  88    D SUBHD
  89    Q
  90   INIT4 S CH P=5,CHPO=4 ,CHST="CMO P CLAIMS"
  91    D HDING,S UBHD
  92    Q
  93   INIT5 S CH P=6,CHPO=5 ,CHST="NON -VA CLAIMS "
  94    D HDING,S UBHD S FLG =2
  95    Q
  96   INIT6 S CH P=7,CHPO=6 ,CHST="SB  CLAIMS"
  97    D SUBHD
  98    Q
  99   INIT7 S CH P=8,CHPO=7 ,CHST="CHA MPVA CLAIM S"
  100    D SUBHD
  101    Q
  102   INIT8 S CH P=9,CHPO=8 ,CHST="EDI  CLAIMS"
  103    D HDING,S UBHD
  104    Q
  105   INIT9 S CH P=10,CHPO= 9,CHST="CW VV CLAIMS"
  106    D SUBHD
  107    Q
  108   INIT10 S C HP=11,CHPO =10,CHST=" CFL CLAIMS "
  109    D SUBHD
  110    Q
  111    ;HR-PBM-P HASE 1-Beg in - SLM
  112   INIT11 S C HP=12,CHPO =11,CHST=" SXC CLAIMS "
  113    D SUBHD
  114    Q
  115    ;HR-PBM-P HASE 1-End
  116    ;
  117    ;HM CPE00 5-016a EDI  ReOpen Us er Story
  118   INIT12 S C HP=13,CHPO =12,CHST=" CVA EDI RO  CLAIMS"
  119    D HDING,S UBHD
  120    Q
  121   ;
  122   INIT13;
  123   ;
  124   ; WTC CPE0 05-016B ED I ReOpen S B User Sto ry
  125   ;
  126   S CHP=14,C HPO=13,CHS T="SB EDI  RO CLAIMS"
  127    D HDING,S UBHD
  128    Q
  129    ;
  130   KI K CHBL, CHDTL,CHDT R,CHNEWPG, CHPG,CHPGL
  131    K CHPGW,C HSITE,CHTI TLE,CHTITL E1,CHTM,CH CNT,CHO30, CHOLD,CHOD T,QUE
  132    K CHP,FLG
  133    Q
  134    ;
  135   DETAIL B:C HP=10
  136    S CHCNT=$ P(^CHMRSQ1 ("MARSQ",Q UE,"CNT"), U,CHP)
  137    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  138    ;S CHO30= $P(^CHMRSQ 1("MARSQ", QUE,"O30") ,U,CHP)
  139    ;S CHO60= $P(^CHMRSQ 1("MARSQ", QUE,"O60") ,U,CHP)
  140    ;S CHO90= $P(^CHMRSQ 1("MARSQ", QUE,"O90") ,U,CHP)
  141    ;S CHO91= $P(^CHMRSQ 1("MARSQ", QUE,"O91") ,U,CHP)
  142    S CHO10=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O10"), U,CHP)
  143    S CHO14=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O14"), U,CHP)
  144    S CHO21=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O21"), U,CHP)
  145    S CHO29=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O29"), U,CHP)
  146    S CHO30=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O30"), U,CHP)
  147    ;END MOD  PER DEV000 272, SKD 6 -27-07
  148    S CHOLD=$ P(^CHMRSQ1 ("MARSQ",Q UE,"OLD"), U,CHP) I C HOLD="" S  CHPGPT=1 G  D1
  149    S CLMPT=0 ,CLMPT=$O( ^CHMINDEX( "B",CHOLD, CLMPT)) I  'CLMPT S C HPGPT=1 G  D1
  150    S X1=CLMP T D PROGTY P^CHFCD001
  151    S:CHPGPT= 1 CHOLD="C V "_CHOLD  S:CHPGPT=2  CHOLD="CV  "_CHOLD
  152    S:CHPGPT= 3 CHOLD="F MP"_CHOLD  S:CHPGPT=4  CHOLD="PG W"_CHOLD
  153    S:CHPGPT= 5 CHOLD="N V "_CHOLD  S:CHPGPT=6  CHOLD="SB  "_CHOLD
  154    S:CHPGPT= 7 CHOLD="W V "_CHOLD
  155   D1 S CHODT =$P(^CHMRS Q1("MARSQ" ,QUE,"ODT" ),U,CHP+CH PO) S:CHOD T["99999"  CHODT=""
  156    ;I CHODT' ="" S Y=CH ODT D DD^% DT S CHODT =$P(Y,"@", 1)
  157    D CKTOP
  158    I QUE="QA CPD" W !," QA-CPD" G  DET1
  159    I QUE="QA QMD" W !," QA-QMD" G  DET1
  160    I QUE="GR P" W !,"GR OUPER" G D ET1
  161    W !,QUE
  162   DET1 W ?25 ,$J(CHCNT, 9)   ;W ?1 5,$J(CHCNT ,9) ; DEV0 00272, SKD  6-27-07
  163    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  164    ;W ?26,$J (CHO30,7)
  165    ;W ?36,$J (CHO60,7)
  166    ;W ?46,$J (CHO90,7)
  167    ;W ?56,$J (CHO91,7)
  168    ;S:CHOLD= 0 CHOLD=""  W ?65,CHO LD S:CHOLD ="" CHODT= ""
  169    W ?39,$J( CHO10,7)
  170    W ?54,$J( CHO14,7)
  171    W ?69,$J( CHO21,7)
  172    W ?84,$J( CHO29,7)
  173    W ?99,$J( CHO30,7)
  174    S:CHOLD=0  CHOLD=""  W ?115,CHO LD S:CHOLD ="" CHODT= ""  ;DEV00 0272, SKD  7-13-07;   W ?75,CHOL D
  175    ;END MOD  PER DEV000 272, SKD 6 -27-07
  176    ;W ?60,CH ODT
  177   DETEND Q
  178    ;
  179   FOOT D CKT OP
  180    W !,"   T OTAL"
  181    W ?25,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","C NT"),U,CHP ),9)
  182    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  183    ;W ?26,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O30"),U,CH P),7)
  184    ;W ?36,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O60"),U,CH P),7)
  185    ;W ?46,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O90"),U,CH P),7)
  186    ;W ?56,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O91"),U,CH P),7)
  187    W ?39,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 10"),U,CHP ),7)
  188    W ?54,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 14"),U,CHP ),7)
  189    W ?69,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 21"),U,CHP ),7)
  190    W ?84,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 29"),U,CHP ),7)
  191    W ?99,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 30"),U,CHP ),7)
  192    ;END MOD  PER DEV000 272, SKD 6 -27-07
  193    G:CHST="E DI CLAIMS"  FOOTEND G :CHST="MDM TRX CLAIMS " FOOTEND
  194    G:CHST="C MOP CLAIMS " FOOTEND  G:CHST="EM  CLAIMS" F OOTEND
  195    G:CHST="S XC CLAIMS"  FOOTEND G :CHST="CVA  EDI RO CL AIMS" FOOT END G:CHST ="SB EDI R O CLAIMS"  FOOTEND
  196    ;W !
  197   FOOTEND Q
  198    ;
  199   CKTOP D:$Y >CHPGL HDI NG,SUBHD
  200    Q
  201    ;
  202   HDING S $Y =0,CHPG=CH PG+1,CHSIT E="HEALTH  ADMINISTRA TION CENTE R"
  203    W:CHPG>1  #
  204    W DUZ,?(C HPGW-$L(CH SITE))\2,C HSITE,?(CH PGW-$L(CHP G)-6),"Pag e: ",CHPG
  205    W !,CHDTR ,?(CHPGW-$ L(CHTITLE) )\2,CHTITL E
  206    W !,CHTM, ?(CHPGW-$L (CHDTL))\2 ,CHDTL
  207    Q
  208    ;
  209   SUBHD ;I C HST="ALL C LAIMS" W ! !,CHST G S UB1
  210    ;W !!,CHS T
  211   SUB1 W !!, CHST,?25," Number Of" ,?40,"Clai ms",?55,"C laims",?70 ,"Claims", ?85,"Claim s"
  212    W ?100,"C laims"  ;M OD PER DEV 000272, SK D 6-27-07
  213    ;W !,"Que ues",?15," Claims",?2 6,"1-30 Dy s",?36,"31 -60 Dys",? 46,"61-90  Dys",?56," >90 Dys"    ;;MOD PER  DEV000272 , SKD 6-27 -07
  214    W !,"Queu es",?25,"C laims",?39 ,"1-10 Dys ",?54,"11- 14 Dys",?6 9,"15-21 D ys",?84,"2 2-29 Dys", ?99,">30 D ys"     ;M OD PER DEV 000272, SK D 6-27-07
  215    W !,$E(CH BL,1,14),? 25,$E(CHBL ,1,9),?39, $E(CHBL,1, 8),?54,$E( CHBL,1,9), ?69,$E(CHB L,1,9)
  216    ;W ?56,$E (CHBL,1,7)   ;MOD PER  DEV000272 , SKD 6-27 -07
  217    W ?84,$E( CHBL,1,9), ?99,$E(CHB L,1,8)  ;M OD PER DEV 000272, SK D 6-27-07
  218    Q
  219    ;
  220  
  221   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  - Striket hru, Chang ed - Itali cs)
  222   CHMRSQP ;D EN/CJM;STA TUS OF QUE UES/MORNIN G REPORT -  PRINT;09/ 01/98  8:4 4 AM
  223    ;;V1.03;; ;;Build 10
  224    ;DEN/CJM; V1.03;06/1 1/93
  225    ;DEN/CJM; V1.02;01/2 8/93
  226    ;REVISED  BY RLC;12/ 20/95;ADDE D SECTION  FOR CMOP C LAIMS
  227   ;CPE005-01 6A HM/WTC  8.30.17
  228   ;CPE005-01 6B WTC 9.1 .17
  229    ;CPE005-0 25 HM 10/1 2/2017
  230   MAIN W @IO F D INIT S  FLG=0
  231    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  232    D FOOT
  233    D INIT7
  234    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  235    D FOOT
  236    D INIT10
  237    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  238    D FOOT
  239    W !,"NOTE  1: CHAMPV A CLAIMS =  CHAMPVA +  CFL + CIT I + EM CLA IMS"
  240    W !,"NOTE  2: ALL CL AIMS = CHA MPVA + CWV V + SPINA  BIFIDA + N ON-VA"
  241    D INIT1
  242    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","E OB" D DETA IL
  243    D FOOT
  244    W !,"NOTE  1: CHAMPV A CLAIMS =  CHAMPVA +  CFL + CIT I + EM CLA IMS"
  245    W !,"NOTE  2: ALL CL AIMS = CHA MPVA + CWV V + SPINA  BIFIDA + N ON-VA"
  246    D INIT9
  247    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  248    D FOOT
  249    D INIT6
  250    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  251    D FOOT
  252    D INIT5
  253    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  254    D FOOT
  255    D INIT2
  256    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  257    D FOOT
  258    W !,"NOTE 3: EM CLAI MS = EDI +  CVA EDI R O + SB EDI  RO + MDMT RX + SXC +  CMOP CLAI MS" ;HM 12 /12/2017
  259    D INIT8
  260    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  261    D FOOT
  262    D INIT3
  263    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB"  D D ETAIL
  264    D FOOT
  265    ;HR-PBM-P HASE 1-Beg in - SLM
  266    D INIT11
  267    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  268    D FOOT
  269    ;HR-PBM-P HASE 1-End
  270    D INIT4
  271    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB"  D D ETAIL
  272    D FOOT
  273    ;HM CPE00 5-016a EDI  ReOpen Us er Story
  274    D INIT12
  275    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  276    D FOOT
  277    ;
  278    ;  WTC CP E005-016B  EDI ReOpen  SB User S tory
  279    ;
  280    D INIT13
  281    F QUE="AU D","COQ"," DUP","ELG" ,"GRP","MC CR","MIS", "PRO","QAC PD","QAQMD ","VEN","C AL","CAP", "EOB" D DE TAIL
  282    D FOOT
  283    ;
  284    D KI
  285    K ^CHMRSQ 1("MARSQCA LC")
  286   END Q
  287    ;
  288   INIT S CHT ITLE="CPD  Morning Re port - Sum mary Aging  of Queues "
  289    S $Y=99,C HPG=0,CHPG L=66,CHPGW =132,U="^"    ;SKD 7- 12-07 DEV0 00272
  290    S CHDTR=$ E(DT,4,7), X=$P($H,", ",2),H=X\3 600,M=X#36 00\60
  291    S:M<10 M= "0"_M S:H< 10 H="0"_H  S CHTM=H_ M,CHSITE=" HEALTH ADM INISTRTION  CENTER"
  292    S Y=$P(CH DTE,".",1)  D DD^%DT  S CHDTL=Y
  293    K CHBL S  $P(CHBL,"- ",CHPGW+1) =""
  294    S CHP=1,C HPO=0,CHST ="ALL CLAI MS"
  295    Q
  296    ;
  297   INIT1 S CH P=2,CHPO=1 ,CHST="CIT I CLAIMS"
  298    D HDING,S UBHD S FLG =1
  299    Q
  300    ;
  301   INIT2 S CH P=3,CHPO=2 ,CHST="EM  CLAIMS"
  302    D SUBHD
  303    Q
  304   INIT3 S CH P=4,CHPO=3 ,CHST="MDM TRX CLAIMS "
  305    D SUBHD
  306    Q
  307   INIT4 S CH P=5,CHPO=4 ,CHST="CMO P CLAIMS"
  308    D HDING,S UBHD
  309    Q
  310   INIT5 S CH P=6,CHPO=5 ,CHST="NON -VA CLAIMS "
  311    D HDING,S UBHD S FLG =2
  312    Q
  313   INIT6 S CH P=7,CHPO=6 ,CHST="SB  CLAIMS"
  314    D SUBHD
  315    Q
  316   INIT7 S CH P=8,CHPO=7 ,CHST="CHA MPVA CLAIM S"
  317    D SUBHD
  318    Q
  319   INIT8 S CH P=9,CHPO=8 ,CHST="EDI  CLAIMS"
  320    D HDING,S UBHD
  321    Q
  322   INIT9 S CH P=10,CHPO= 9,CHST="CW VV CLAIMS"
  323    D SUBHD
  324    Q
  325   INIT10 S C HP=11,CHPO =10,CHST=" CFL CLAIMS "
  326    D SUBHD
  327    Q
  328    ;HR-PBM-P HASE 1-Beg in - SLM
  329   INIT11 S C HP=12,CHPO =11,CHST=" SXC CLAIMS "
  330    D SUBHD
  331    Q
  332    ;HR-PBM-P HASE 1-End
  333    ;
  334    ;HM CPE00 5-016a EDI  ReOpen Us er Story
  335   INIT12 S C HP=13,CHPO =12,CHST=" CVA EDI RO  CLAIMS"
  336    D HDING,S UBHD
  337    Q
  338   ;
  339   INIT13;
  340   ;
  341   ; WTC CPE0 05-016B ED I ReOpen S B User Sto ry
  342   ;
  343   S CHP=14,C HPO=13,CHS T="SB EDI  RO CLAIMS"
  344    D HDING,S UBHD
  345    Q
  346    ;
  347   KI K CHBL, CHDTL,CHDT R,CHNEWPG, CHPG,CHPGL
  348    K CHPGW,C HSITE,CHTI TLE,CHTITL E1,CHTM,CH CNT,CHO30, CHOLD,CHOD T,QUE
  349    K CHP,FLG
  350    Q
  351    ;
  352   DETAIL B:C HP=10
  353    S CHCNT=$ P(^CHMRSQ1 ("MARSQ",Q UE,"CNT"), U,CHP)
  354    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  355    ;S CHO30= $P(^CHMRSQ 1("MARSQ", QUE,"O30") ,U,CHP)
  356    ;S CHO60= $P(^CHMRSQ 1("MARSQ", QUE,"O60") ,U,CHP)
  357    ;S CHO90= $P(^CHMRSQ 1("MARSQ", QUE,"O90") ,U,CHP)
  358    ;S CHO91= $P(^CHMRSQ 1("MARSQ", QUE,"O91") ,U,CHP)
  359    S CHO10=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O10"), U,CHP)
  360    S CHO14=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O14"), U,CHP)
  361    S CHO21=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O21"), U,CHP)
  362    S CHO29=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O29"), U,CHP)
  363    S CHO30=$ P(^CHMRSQ1 ("MARSQ",Q UE,"O30"), U,CHP)
  364    ;END MOD  PER DEV000 272, SKD 6 -27-07
  365    S CHOLD=$ P(^CHMRSQ1 ("MARSQ",Q UE,"OLD"), U,CHP) I C HOLD="" S  CHPGPT=1 G  D1
  366    S CLMPT=0 ,CLMPT=$O( ^CHMINDEX( "B",CHOLD, CLMPT)) I  'CLMPT S C HPGPT=1 G  D1
  367    S X1=CLMP T D PROGTY P^CHFCD001
  368    S:CHPGPT= 1 CHOLD="C V "_CHOLD  S:CHPGPT=2  CHOLD="CV  "_CHOLD
  369    S:CHPGPT= 3 CHOLD="F MP"_CHOLD  S:CHPGPT=4  CHOLD="PG W"_CHOLD
  370    S:CHPGPT= 5 CHOLD="N V "_CHOLD  S:CHPGPT=6  CHOLD="SB  "_CHOLD
  371    S:CHPGPT= 7 CHOLD="W V "_CHOLD
  372   D1 S CHODT =$P(^CHMRS Q1("MARSQ" ,QUE,"ODT" ),U,CHP+CH PO) S:CHOD T["99999"  CHODT=""
  373    ;I CHODT' ="" S Y=CH ODT D DD^% DT S CHODT =$P(Y,"@", 1)
  374    D CKTOP
  375    I QUE="QA CPD" W !," QA-CPD" G  DET1
  376    I QUE="QA QMD" W !," QA-QMD" G  DET1
  377    I QUE="GR P" W !,"GR OUPER" G D ET1
  378    W !,QUE
  379   DET1 W ?25 ,$J(CHCNT, 9)   ;W ?1 5,$J(CHCNT ,9) ; DEV0 00272, SKD  6-27-07
  380    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  381    ;W ?26,$J (CHO30,7)
  382    ;W ?36,$J (CHO60,7)
  383    ;W ?46,$J (CHO90,7)
  384    ;W ?56,$J (CHO91,7)
  385    ;S:CHOLD= 0 CHOLD=""  W ?65,CHO LD S:CHOLD ="" CHODT= ""
  386    W ?39,$J( CHO10,7)
  387    W ?54,$J( CHO14,7)
  388    W ?69,$J( CHO21,7)
  389    W ?84,$J( CHO29,7)
  390    W ?99,$J( CHO30,7)
  391    S:CHOLD=0  CHOLD=""  W ?115,CHO LD S:CHOLD ="" CHODT= ""  ;DEV00 0272, SKD  7-13-07;   W ?75,CHOL D
  392    ;END MOD  PER DEV000 272, SKD 6 -27-07
  393    ;W ?60,CH ODT
  394   DETEND Q
  395    ;
  396   FOOT D CKT OP
  397    W !,"   T OTAL"
  398    W ?25,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","C NT"),U,CHP ),9)
  399    ;BEG MOD  PER DEV000 272, SKD 6 -27-07
  400    ;W ?26,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O30"),U,CH P),7)
  401    ;W ?36,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O60"),U,CH P),7)
  402    ;W ?46,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O90"),U,CH P),7)
  403    ;W ?56,$J ($P(^CHMRS Q1("MARSQ" ,"TOTAL"," O91"),U,CH P),7)
  404    W ?39,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 10"),U,CHP ),7)
  405    W ?54,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 14"),U,CHP ),7)
  406    W ?69,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 21"),U,CHP ),7)
  407    W ?84,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 29"),U,CHP ),7)
  408    W ?99,$J( $P(^CHMRSQ 1("MARSQ", "TOTAL","O 30"),U,CHP ),7)
  409    ;END MOD  PER DEV000 272, SKD 6 -27-07
  410    G:CHST="E DI CLAIMS"  FOOTEND G :CHST="MDM TRX CLAIMS " FOOTEND
  411    G:CHST="C MOP CLAIMS " FOOTEND  G:CHST="EM  CLAIMS" F OOTEND
  412    G:CHST="S XC CLAIMS"  FOOTEND G :CHST="CVA  EDI RO CL AIMS" FOOT END G:CHST ="SB EDI R O CLAIMS"  FOOTEND
  413    ;W !
  414   FOOTEND Q
  415    ;
  416   CKTOP D:$Y >CHPGL HDI NG,SUBHD
  417    Q
  418    ;
  419   HDING S $Y =0,CHPG=CH PG+1,CHSIT E="HEALTH  ADMINISTRA TION CENTE R"
  420    W:CHPG>1  #
  421    W DUZ,?(C HPGW-$L(CH SITE))\2,C HSITE,?(CH PGW-$L(CHP G)-6),"Pag e: ",CHPG
  422    W !,CHDTR ,?(CHPGW-$ L(CHTITLE) )\2,CHTITL E
  423    W !,CHTM, ?(CHPGW-$L (CHDTL))\2 ,CHDTL
  424    Q
  425    ;
  426   SUBHD ;I C HST="ALL C LAIMS" W ! !,CHST G S UB1
  427    ;W !!,CHS T
  428   SUB1 W !!, CHST,?25," Number Of" ,?40,"Clai ms",?55,"C laims",?70 ,"Claims", ?85,"Claim s"
  429    W ?100,"C laims"  ;M OD PER DEV 000272, SK D 6-27-07
  430    ;W !,"Que ues",?15," Claims",?2 6,"1-30 Dy s",?36,"31 -60 Dys",? 46,"61-90  Dys",?56," >90 Dys"    ;;MOD PER  DEV000272 , SKD 6-27 -07
  431    W !,"Queu es",?25,"C laims",?39 ,"1-10 Dys ",?54,"11- 14 Dys",?6 9,"15-21 D ys",?84,"2 2-29 Dys", ?99,">30 D ys"     ;M OD PER DEV 000272, SK D 6-27-07
  432    W !,$E(CH BL,1,14),? 25,$E(CHBL ,1,9),?39, $E(CHBL,1, 8),?54,$E( CHBL,1,9), ?69,$E(CHB L,1,9)
  433    ;W ?56,$E (CHBL,1,7)   ;MOD PER  DEV000272 , SKD 6-27 -07
  434    W ?84,$E( CHBL,1,9), ?99,$E(CHB L,1,8)  ;M OD PER DEV 000272, SK D 6-27-07
  435    Q
  436    ;
  437  
  438  
  439   Difference s
  440  
  441   ;CPE005-02 5 HM 10/12 /2017
  442  
  443   W !,"NOTE3 : EM CLAIM S = EDI +  CVA EDI RO  + SB EDI  RO + MDMTR X + SXC +  CMOP CLAIM S" ;HM 12/ 12/2017
  444  
  445  
  446  
  447  
  448  
  449  
  450  
  451  
  452  
  453  
  454  
  455  
  456  
  457  
  458  
  459  
  460  
  461  
  462  
  463  
  464  
  465   Passed XIN DEX?  (Y /  N):