13. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/27/2019 2:32:51 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.

13.1 Files compared

# Location File Last Modified
1 MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip TAS ePay US4915 SDD.docx Fri Jan 25 13:56:06 2019 UTC
2 MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip TAS ePay US4915 SDD.docx Tue Feb 26 14:26:11 2019 UTC

13.2 Comparison summary

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

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

13.4 Active regular expressions

No regular expressions were active.

13.5 Comparison detail

  1   MCCF EDI T AS US4915
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   August 201 8
  10   Version 1
  11   User Story  ID: US491 5
  12   User Story  Name:  Vi ew/Print E RA in List  Manager
  13   Sizing:  5
  14   Story
  15   As a...
  16   I need...
  17   So that...
  18   ePayments  user
  19   An easier  way to sea rch for da ta, when u sing the V iew/Print  ERA option .  Current ly it’s ro ll and scr oll, which  works for  small ERA s but not  large ones .
  20   I can find  data quic kly and al so decreas e the depe ndence on  printing t hem, just  to find th e necessar y data/lin e item(s).
  21  
  22   Conversati on (if des ired by de velopers)
  23   When staff  look at V iew/Print  ERA, they  have to ro ll and scr oll to fin d what the y are look ing for.   If the ERA  has hundr eds of lin e items, t hat means  a lot of r oll and sc roll and h oping to f ind it.  I f the View /Print ERA  option wa s put into  a basic l ist manage r format,  users coul d use the  standard l ist manage r fields,  to assist  in researc h.
  24  
  25   Summary
  26   This chang e gives th e user the  option of  viewing E RA detail  informatio n in a lis t manger w hich allow s for the  ability to  easily se arch for s pecific te xt.  Curre ntly, View  Print ERA  functiona lity may b e called d irectly fr om the Vie w/Print ER A [RCDPE V IEW/PRINT  ERA] optio n on the E DI LOCKBOX  REPORTS m enu, as an  action fr om the ERA  Worklist  – View/Pri nt ERA [RC DPE ERA LI ST VIEW ER A], as an  action fro m the ERA  Worklist S cratchpad  – View/Pri nt ERA [RC DPE VIEW/P RINT WORLI ST ERA] ,  or as an a ction from  the APAR  worklist –  RCDPE APA R VIEW/PRI NT ERA
  27  
  28   Routines
  29   RCDPEWL0 –  Modified  to ask the  user if t hey want t o see the  output in  a list man ager forma t (see RCD PEWL0us491 5)
  30   RCDPEARL –  Modified  to optiona lly pass a  specific  list manag er templat e (see RCD PEARLus491 5)
  31  
  32   RCDPE VIEW  ERA DETAI L – New Li st Manager  Template
  33  
  34  
  35     Resoluti on – Added  Changed O bjects
  36  
  37  
  38   New Templa te Definit ion
  39   NAME: RCDP E VIEW ERA  DETAIL               TYPE OF LI ST: DISPLA Y
  40     RIGHT MA RGIN: 80                         TOP MARGIN : 2
  41     BOTTOM M ARGIN: 21                        OK TO TRAN SPORT?: NO T OK
  42     USE CURS OR CONTROL : YES                 PROTOCOL M ENU: 
  43     SCREEN T ITLE: View  ERA Detai l          ALLOWABLE  NUMBER OF  ACTIONS: 1
  44     AUTOMATI C DEFAULTS : YES                 HIDDEN ACT ION MENU:  VALM HIDDE N ACTIONS
  45     ARRAY NA ME:  
  46     EXIT COD E: D LMEXI T^RCDPEARL            HEADER COD E: D LMHDR ^RCDPEARL
  47     HELP COD E: D LMHLP ^RCDPEARL             ENTRY CODE :  D LMINI T^RCDPEARL
  48  
  49  
  50   Routines
  51   Activities
  52   Routine Na me
  53   RCDPEWL0
  54   Enhancemen t Category
  55    New
  56    Modify
  57    Delete
  58    No Change
  59   RTM
  60  
  61   Related Op tions
  62   ERA Workli st  (WL)    [RCDP EDI  LOCKBOX W ORKLIST]
  63   Routines
  64   Activities
  65   Data Dicti onary (DD)  Reference s
  66  
  67   Related Pr otocols
  68  
  69   Related In tegration  Control Re gistration s (ICRs)
  70  
  71   Data Passi ng
  72    Input
  73    Output Re ference
  74    Both
  75    Global Re ference
  76    Local
  77   Input Attr ibute Name  and Defin ition
  78   Name:
  79   Definition :
  80   Output Att ribute Nam e and Defi nition
  81   Name:
  82   Definition :
  83   Related Ro utines
  84   Routines “ Called By”
  85   Routines “ Called”   
  86  
  87   RCDPEAA1
  88   RCDPEAA2
  89   RCDPEWL
  90   RCDPEWL5
  91   RCDPEWL7
  92   RCDPEWLA
  93   RCDPEWLP
  94  
  95      GETEOB^ IBCESA6
  96      GERERR^ RCDPEDS
  97      $$BILLR EF^RCDPDES R0
  98      DISP^RC DPESR0    
  99      NOEDIT^ RCDPEWL
  100      SEL^RCD PEWL
  101      $$PNM4^ RCDPEWL1 
  102      BLD^RCD PEWL1
  103      SPLIT^R CDPEWL3       
  104      $$PARAM S2^RCDPEWL D
  105      PROV^RC DPEWLD
  106      EXCWARN ^RCDPEWLP
  107      TXT0^RC DPEX31
  108      TXT00^R CDPEX31
  109  
  110  
  111   Current Lo gic – RCDP EWL0
  112   .
  113   .
  114   .
  115   PRTERA ; V iew/prt N  DIC,X,Y,RC SCR S DIC= "^RCY(344. 4,",DIC(0) ="AEMQ" D  ^DIC Q:Y'> 0 S RCSCR= +Y D PRERA 1 Q ;PRERA  ; RCSCR i s assumed  to be defi ned
  116    D FULL^VA LM1 ; Prot ocol entry PRERA1 ; O ption entr y N %ZIS,Z TRTN,ZTSAV E,ZTDESC,P OP,DIR,X,Y ,RCERADET  D EXCWARN^ RCDPEWLP(R CSCR) S DI R("?",1)=" Including  expanded d etail will  significa ntly incre ase the si ze of this  report",D IR("?",2)= "IF YOU CH OOSE TO IN CLUDE IT,  ALL PAYMEN T DETAILS  FOR EACH E EOB WILL B E" S DIR(" ?")="liste d. If you  want just  summary da ta for eac h EEOB, do  NOT inclu de it." S  DIR(0)="YA ",DIR("A") ="Do you w ant to inc lude expan ded EEOB d etail?: ", DIR("B")=" NO" W ! D  ^DIR K DIR  I $D(DUOU T)!$D(DTOU T) G PRERA Q S RCERAD ET=+Y S %Z IS="QM" D  ^%ZIS G:PO P PRERAQ I  $D(IO("Q" )) D  G PR ERAQ . S Z TRTN="VPER A^RCDPEWL0 ("_RCSCR_" ,"_RCERADE T_")",ZTDE SC="AR - P rint ERA F rom Workli st" . D ^% ZTLOAD . W  !!,$S($D( ZTSK):"You r task # " _ZTSK_" ha s been que ued.",1:"U nable to q ueue this  job.") . K  ZTSK,IO(" Q") D HOME ^%ZIS U IO  D VPERA(R CSCR,RCERA DET) Q ;VP ERA(RCSCR, RCERADET)  ; Queued e ntry ; RCS CR = ien o f entry in  file 344. 4 ; RCERAD ET = 1 if  inclusion  of all EOB  details f rom file 3 61.1 is ;  desired, 0  if not N  Z,Z0,RCSTO P,RCZ,RCPG ,RCDOT,RCD IQ,RCDIQ1, RCDIQ2,RCX M1,RC,RCSC R1,RC3611  K ^TMP($J, "RC_SUMRAW "),^TMP($J ,"RC_SUMOU T"),^TMP($ J,"RC_SUMA LL") S (RC STOP,RCPG) =0,RCDOT=" ",$P(RCDOT ,".",79)=" " D GETS^D IQ(344.4,R CSCR_","," *","IEN"," RCDIQ") D  TXT0^RCDPE X31(RCSCR, .RCDIQ,.RC XM1,.RC) ;  Get top l evel 0-nod e captione d flds I $ O(^RCY(344 .4,RCSCR,2 ,0)) S RC= RC+1,RCXM1 (RC)=" **E RA LEVEL A DJUSTMENTS **" S RCSC R1=0 F  S  RCSCR1=$O( ^RCY(344.4 ,RCSCR,2,R CSCR1)) Q: 'RCSCR1  D  . K RCDIQ 2 . D GETS ^DIQ(344.4 2,RCSCR1_" ,"_RCSCR_" ,","*","IE N","RCDIQ2 ") . D TXT 2^RCDPEX31 (RCSCR,RCS CR1,.RCDIQ 2,.RCXM1,. RC) ; Get  top level  ERA adjs S  RCSCR1=0  F  S RCSCR 1=$O(^RCY( 344.4,RCSC R,1,RCSCR1 )) Q:'RCSC R1  D . K  RCDIQ1 . D  GETS^DIQ( 344.41,RCS CR1_","_RC SCR_",","* ","IE","RC DIQ1") ;PR CA*4.5*298  need to r etrieve al l fields e ven if nul l (changed  "IEN" to  "IE") . D  TXT00^RCDP EX31(RCSCR ,RCSCR1,.R CDIQ1,.RCX M1,.RC) .  ;HIPAA 501 0 . N PNAM E4 . S PNA ME4=$$PNM4 ^RCDPEWL1( RCSCR,RCSC R1) . I $L (PNAME4)<3 2 D . .S R C=RC+1,RCX M1(RC-1)=$ E("PATIENT : "_PNAME4 _$J("",41) ,1,41)_"CL AIM #: "_$ $BILLREF^R CDPESR0(RC SCR,RCSCR1 ),RCXM1(RC )=" " . I  $L(PNAME4) >31 D . .S  RC=RC+1,R CXM1(RC-1) =$J("",41) _"CLAIM #:  "_$$BILLR EF^RCDPESR 0(RCSCR,RC SCR1) . .S  RC=RC+1,R CXM1(RC-1) =$E("PATIE NT: "_PNAM E4,1,78),R CXM1(RC)="  " . D PRO V^RCDPEWLD (RCSCR,RCS CR1,.RCXM1 ,.RC) . S  RC3611=$P( $G(^RCY(34 4.4,RCSCR, 1,RCSCR1,0 )),U,2) .  I RCERADET  D .. I 'R C3611 D  Q  ... D DIS P^RCDPESR0 ("^RCY(344 .4,"_RCSCR _",1,"_RCS CR1_",1)", "^TMP($J," "RC_SUMRAW "")",1,"^T MP($J,""RC _SUMOUT"") ",75,1) .. ; .. E  D   ; Detail  record is  in 361.1 . .. K ^TMP( "PRCA_EOB" ,$J) ... D  GETEOB^IB CECSA6(RC3 611,2) ...  I $O(^IBM (361.1,RC3 611,"ERR", 0)) D GETE RR^RCDPEDS (RC3611,+$ O(^TMP("PR CA_EOB",$J ,RC3611,"  "),-1)) ;  get filing  errors .. . S Z=0 F   S Z=$O(^T MP("PRCA_E OB",$J,RC3 611,Z)) Q: 'Z  S RC=R C+1,^TMP($ J,"RC_SUMO UT",RC)=$G (^TMP("PRC A_EOB",$J, RC3611,Z))  ... S RC= RC+2,^TMP( $J,"RC_SUM OUT",RC-1) =" ",^TMP( $J,"RC_SUM OUT",RC)="  " ... K ^ TMP("PRCA_ EOB",$J) .  I $D(RCDI Q1(344.41, RCSCR1_"," _RCSCR_"," ,2)) D ..  S RC=RC+1, RCXM1(RC)= " **EXCEPT ION RESOLU TION LOG D ATA**" ..  S Z=0 F  S  Z=$O(RCDI Q1(344.41, RCSCR1_"," _RCSCR_"," ,2,Z)) Q:' Z  S RC=RC +1,RCXM1(R C)=RCDIQ1( 344.41,RCS CR1_","_RC SCR_",",2, Z) . S RC= RC+1,RCXM1 (RC)=" " .  S Z0=+$O( ^TMP($J,"R C_SUMALL", " "),-1) .  S Z=0 F   S Z=$O(RCX M1(Z)) Q:' Z  S Z0=Z0 +1,^TMP($J ,"RC_SUMAL L",Z0)=RCX M1(Z) . K  RCXM1 S RC =0 . S Z=0  F  S Z=$O (^TMP($J," RC_SUMOUT" ,Z)) Q:'Z   S Z0=Z0+1 ,^TMP($J," RC_SUMALL" ,Z0)=$G(^T MP($J,"RC_ SUMOUT",Z) ) S RCSTOP =0,Z="" F   S Z=$O(^T MP($J,"RC_ SUMALL",Z) ) Q:'Z  D   Q:RCSTOP  . I $D(ZTQ UEUED),$$S ^%ZTLOAD S  (RCSTOP,Z TSTOP)=1 K  ZTREQ I + $G(RCPG) W  !!,"***TA SK STOPPED  BY USER** *" Q . I ' RCPG!(($Y+ 5)>IOSL) D   I RCSTOP  Q .. D:RC PG ASK(.RC STOP) I RC STOP Q ..  D HDR(.RCP G) . W !,$ G(^TMP($J, "RC_SUMALL ",Z)) ; I  'RCSTOP,RC PG D ASK(. RCSTOP) ;  I $D(ZTQUE UED) S ZTR EQ="@" I ' $D(ZTQUEUE D) D ^%ZIS C ;PRERAQ  K ^TMP($J, "RC_SUMRAW "),^TMP($J ,"RC_SUMOU T"),^TMP($ J,"SUMALL" ) S VALMBC K="R" Q ;
  117   .
  118   .
  119   .
  120  
  121   Modified L ogic – RCD PEWL0
  122   .
  123   .
  124   .
  125   PRTERA ; E P from men u option V iew/Print  ERA (VP) [ RCDPE VIEW /PRINT ERA ] ; View t he selecte d ERA in a  listman t emplate ;  Input: RCS CR - IEN o f the ERA  to be view ed
  126    N DIC,X,Y ,RCSCR S D IC="^RCY(3 44.4,",DIC (0)="AEMQ"  D ^DIC
  127    D ^DIC Q: Y'>0 S RCS CR=+Y D PR ERA1 Q ;PR ERA ; RCSC R is assum ed to be d efined D F ULL^VALM1  ; Protocol  entryPRER A1 ; Optio n entry N  %ZIS,ZTRTN ,ZTSAVE,ZT DESC,POP,D IR,X,Y,RCE RADET N DI R,X,Y,RCER ADET,RCLST MGR,POP,ZT RTN,ZTSAVE ,ZTDESC,%Z IS
  128    D EXCWARN ^RCDPEWLP( RCSCR) S D IR("?",1)= "Including  expanded  detail wil l signific antly incr ease the s ize of thi s report", DIR("?",2) ="IF YOU C HOOSE TO I NCLUDE IT,  ALL PAYME NT DETAILS  FOR EACH  EEOB WILL  BE" S DIR( "?")="list ed. If you  want just  summary d ata for ea ch EEOB, d o NOT incl ude it." S  DIR(0)="Y A",DIR("A" )="Do you  want to in clude expa nded EEOB  detail?: " ,DIR("B")= "NO" W ! D  ^DIR K DI R
  129    W ! D ^DI R K DIR I  $D(DUOUT)! $D(DTOUT)  G PRERAQ S  RCERADET= +Y S RCLST MGR=$$ASKL M^RCDPEARL (1)  I RCL STMGR D VP ERA(RCSCR, RCERADET,1 ) Q
  130    S %ZIS="Q M" D ^%ZIS  G:POP PRE RAQ I $D(I O("Q")) D   G PRERAQ  . S ZTRTN= "VPERA^RCD PEWL0("_RC SCR_","_RC ERADET_")" ,ZTDESC="A R - Print  ERA From W orklist" .  D ^%ZTLOA D . W !!,$ S($D(ZTSK) :"Your tas k # "_ZTSK _" has bee n queued." ,1:"Unable  to queue  this job." ) . K ZTSK ,IO("Q") D  HOME^%ZIS  U IO D VP ERA(RCSCR, RCERADET,0 ) Q ;VPERA (RCSCR,RCE RADET.LSTM GR) ; Queu ed entry ;  Input: RC SCR - IEN  of ERA to  be viewed  (#344.4) ;  RCERADET  - 1 if inc lusion of  all EOB de tails from  file 361. 1 is ; des ired, 0 if  not ; LST MGR - 1 di splay in l ist manage r, 0 other wise
  131    N Z,Z0,RC STOP,RCZ,R CPG,RCDOT, RCDIQ,RCDI Q1,RCDIQ2, RCXM1,RC,R CSCR1,RC36 11 N RC,RC DIQ,RCDIQ1 ,RCDIQ2,RC DOT,RCPG,R CSCR1,RC36 11,RCXM1,R CZ,RC3611, XX,Z,Z0
  132    K ^TMP($J ,"RC_SUMRA W"),^TMP($ J,"RC_SUMO UT"),^TMP( $J,"RC_SUM ALL") S (R CSTOP,RCPG )=0,RCDOT= "",$P(RCDO T,".",79)= "" D GETS^ DIQ(344.4, RCSCR_",", "*","IEN", "RCDIQ") D  TXT0^RCDP EX31(RCSCR ,.RCDIQ,.R CXM1,.RC)  ; Get top  level 0-no de caption ed flds I  $O(^RCY(34 4.4,RCSCR, 2,0)) S RC =RC+1,RCXM 1(RC)=" ** ERA LEVEL  ADJUSTMENT S**" S RCS CR1=0 F  S  RCSCR1=$O (^RCY(344. 4,RCSCR,2, RCSCR1)) Q :'RCSCR1   D . K RCDI Q2 . D GET S^DIQ(344. 42,RCSCR1_ ","_RCSCR_ ",","*","I EN","RCDIQ 2") . D TX T2^RCDPEX3 1(RCSCR,RC SCR1,.RCDI Q2,.RCXM1, .RC) ; Get  top level  ERA adjs  S RCSCR1=0  F  S RCSC R1=$O(^RCY (344.4,RCS CR,1,RCSCR 1)) Q:'RCS CR1  D . K  RCDIQ1 .  D GETS^DIQ (344.41,RC SCR1_","_R CSCR_","," *","IE","R CDIQ1") ;P RCA*4.5*29 8 need to  retrieve a ll fields  even if nu ll (change d "IEN" to  "IE") . D  TXT00^RCD PEX31(RCSC R,RCSCR1,. RCDIQ1,.RC XM1,.RC) .  ;HIPAA 50 10 . N PNA ME4 . S PN AME4=$$PNM 4^RCDPEWL1 (RCSCR,RCS CR1) . I $ L(PNAME4)< 32 D . .S  RC=RC+1,RC XM1(RC-1)= $E("PATIEN T: "_PNAME 4_$J("",41 ),1,41)_"C LAIM #: "_ $$BILLREF^ RCDPESR0(R CSCR,RCSCR 1),RCXM1(R C)=" " . I  $L(PNAME4 )>31 D . . S RC=RC+1, RCXM1(RC-1 )=$J("",41 )_"CLAIM # : "_$$BILL REF^RCDPES R0(RCSCR,R CSCR1) . . S RC=RC+1, RCXM1(RC-1 )=$E("PATI ENT: "_PNA ME4,1,78), RCXM1(RC)= " " . D PR OV^RCDPEWL D(RCSCR,RC SCR1,.RCXM 1,.RC) . S  RC3611=$P ($G(^RCY(3 44.4,RCSCR ,1,RCSCR1, 0)),U,2) .  I RCERADE T D .. I ' RC3611 D   Q ... D DI SP^RCDPESR 0("^RCY(34 4.4,"_RCSC R_",1,"_RC SCR1_",1)" ,"^TMP($J, ""RC_SUMRA W"")",1,"^ TMP($J,""R C_SUMOUT"" )",75,1) . .; .. E  D   ; Detail  record is  in 361.1  ... K ^TMP ("PRCA_EOB ",$J) ...  D GETEOB^I BCECSA6(RC 3611,2) .. . I $O(^IB M(361.1,RC 3611,"ERR" ,0)) D GET ERR^RCDPED S(RC3611,+ $O(^TMP("P RCA_EOB",$ J,RC3611,"  "),-1)) ;  get filin g errors . .. S Z=0 F   S Z=$O(^ TMP("PRCA_ EOB",$J,RC 3611,Z)) Q :'Z  S RC= RC+1,^TMP( $J,"RC_SUM OUT",RC)=$ G(^TMP("PR CA_EOB",$J ,RC3611,Z) ) ... S RC =RC+2,^TMP ($J,"RC_SU MOUT",RC-1 )=" ",^TMP ($J,"RC_SU MOUT",RC)= " " ... K  ^TMP("PRCA _EOB",$J)  . I $D(RCD IQ1(344.41 ,RCSCR1_", "_RCSCR_", ",2)) D ..  S RC=RC+1 ,RCXM1(RC) =" **EXCEP TION RESOL UTION LOG  DATA**" ..  S Z=0 F   S Z=$O(RCD IQ1(344.41 ,RCSCR1_", "_RCSCR_", ",2,Z)) Q: 'Z  S RC=R C+1,RCXM1( RC)=RCDIQ1 (344.41,RC SCR1_","_R CSCR_",",2 ,Z) . S RC =RC+1,RCXM 1(RC)=" "  . S Z0=+$O (^TMP($J," RC_SUMALL" ," "),-1)  . S Z=0 F   S Z=$O(RC XM1(Z)) Q: 'Z  S Z0=Z 0+1,^TMP($ J,"RC_SUMA LL",Z0)=RC XM1(Z) . K  RCXM1 S R C=0 . S Z= 0 F  S Z=$ O(^TMP($J, "RC_SUMOUT ",Z)) Q:'Z   S Z0=Z0+ 1,^TMP($J, "RC_SUMALL ",Z0)=$G(^ TMP($J,"RC _SUMOUT",Z )) I LSTMG R D DOLSTM AN,PRERAQ  Q
  133    S RCSTOP= 0,Z="" F   S Z=$O(^TM P($J,"RC_S UMALL",Z))  Q:'Z  D   Q:RCSTOP .  I $D(ZTQU EUED),$$S^ %ZTLOAD S  (RCSTOP,ZT STOP)=1 K  ZTREQ I +$ G(RCPG) W  !!,"***TAS K STOPPED  BY USER*** " Q . I 'R CPG!(($Y+5 )>IOSL) D   I RCSTOP  Q .. D:RCP G ASK(.RCS TOP) I RCS TOP Q .. D  HDR(.RCPG ) . W !,$G (^TMP($J," RC_SUMALL" ,Z)) ; I ' RCSTOP,RCP G D ASK(.R CSTOP) ; I  $D(ZTQUEU ED) S ZTRE Q="@" I '$ D(ZTQUEUED ) D ^%ZISC  ;PRERAQ K  ^TMP($J," RC_SUMRAW" ),^TMP($J, "RC_SUMOUT "),^TMP($J ,"SUMALL")  S VALMBCK ="R" Q ;
  134   DOLSTMAN ;  Display t he ERA Det ail in a l istman for mat S HDR( "TITLE")=" VIEW ERA D ETAIL" D L MRPT^RCDPE ARL(.HDR,$ NA(^TMP($J ,"RC_SUMAL L")),"RCDP E VIEW ERA  DETAIL")  ; generate  ListMan d isplay Q ;
  135   .
  136   .
  137   .
  138  
  139  
  140   Routines
  141   Activities
  142   Routine Na me
  143   RCDPEARL
  144   Enhancemen t Category
  145    New
  146    Modify
  147    Delete
  148    No Change
  149   RTM
  150  
  151   Related Op tions
  152   ERA Workli st  (WL)    [RCDP EDI  LOCKBOX W ORKLIST]
  153   Routines
  154   Activities
  155   Data Dicti onary (DD)  Reference s
  156  
  157   Related Pr otocols
  158  
  159   Related In tegration  Control Re gistration s (ICRs)
  160  
  161   Data Passi ng
  162    Input
  163    Output Re ference
  164    Both
  165    Global Re ference
  166    Local
  167   Input Attr ibute Name  and Defin ition
  168   Name:
  169   Definition :
  170   Output Att ribute Nam e and Defi nition
  171   Name:
  172   Definition :
  173   Related Ro utines
  174   Routines “ Called By”
  175   Routines “ Called”   
  176  
  177   RCDPE8NZ
  178   RCDPEAC
  179   RCDPEAD1
  180   RCDPEADP
  181   RCDPEAR1
  182   RCDPEAR2
  183   RCDPEDAR
  184   RCDPEFTL
  185   RCDPELA1
  186   RCDPELAR
  187   RCDPEM3
  188   RCDPEM4
  189   RCDPEM6
  190   RCDPEMA1
  191   RCDPEMAP
  192   RCDPENR1
  193   RCDPENR2
  194   RCDPESP1
  195   RCDPESP2
  196   RCDPESP3
  197   RCDPESP8
  198   RCDPEWL0
  199   RCDPWEL7
  200   RCDPLPS2
  201   RCDPRLIS
  202  
  203  
  204   Current Lo gic – RCDP EARL
  205   RCDPEARL ; ALB/hrubov cak - Misc . Report u tilities f or ListMan , etc. ;Ju n 06, 2014 @19:11:19  ;;4.5;Acco unts Recei vable;**29 8,321**;15  April 201 4;Build 12 1 ;Per VA  Directive  6402, this  routine s hould not  be modifie d. ; ; IA  594 - ACCO UNTS RECEI VABLE CATE GORY file  (#430.2) ;  IA 1992 -  BILL/CLAI MS file (# 399) ; IA  3822 - RAT E TYPE fil e (#399.3)  ; IA 4051  - EXPLANA TION OF BE NEFITS fil e (#361.1)  ; Q ;ASK( STOP) ; As k to conti nue ; STOP  passed by  ref., ret urned as 1  if timeou t or user  enters '^'  Q:'($E(IO ST,1,2)="C -") ; must  have user  N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,X,Y S DI R("A")="Pr ess enter  to continu e, '^' to  exit: " S  DIR(0)="EA " D ^DIR I  ($D(DTOUT ))!($D(DUO UT))!(Y="^ ") S STOP= 1 Q ;ASKLM () ; extri nsic funct ion, ask f or ListMan  display u sing ^DIR  ; returns  zero = No,  1 = yes,  -1 on time out or '^'  N DIR,RSL T,X,Y S RS LT=0 S DIR (0)="YA",D IR("A")="D isplay in  List Manag er format?  (Y/N): ", DIR("B")=" NO" D ^DIR  S RSLT=$S ($D(DUOUT) !$D(DTOUT) :-1,1:Y) Q  RSLT ;CLM CHMPV(RCLM IEN) ; boo lean funct ion, retur ns true if  CHAMPVA c laim, else  false ; R CLMIEN - f ile entry,  format: ' file #;ien ' (see PTR 4302 comme nts) Q $$E VALCLM(RCL MIEN,"CHAM PVA") ;CLM TRICR(RCLM IEN) ; boo lean funct ion, retur ns true if  TRICARE c laim, else  false ; R CLMIEN - f ile entry,  format: ' file #;ien ' (see PTR 4302 comme nts) Q $$E VALCLM(RCL MIEN,"TRIC ARE") ;END ORPRT() ;  extrinsic  variable,  formatted  for 80 col umn displa y N A S A= "***** END  OF REPORT  *****" Q  $J(" ",80- $L(A)\2)_A  ;EVALCLM( RCLMIEN,TR GTXT) ; bo olean func tion, case  insensiti ve ; retur ns 1 if cl aim has ta rget text,  else fals e (error m essages ev aluate as  false) ; R CLMIEN (re quired) -  file entry , format:  'file #;ie n' (see PT R4302 comm ents) ; TR GTXT (requ ired) - ta rget text  Q:($G(RCLM IEN)="")!( $G(TRGTXT) ="") "^inv alid"  ; b oth requir ed N RSLT, F,R,T S T= $$UP(TRGTX T),RSLT=0  ; text to  uppercase,  default t o false S  F=$G(RCLMI EN) Q:'($P (F,";")>1) !'($P(F,"; ",2)>0) RS LT  ; file  must be >  1 and ent ry > zero  S R=$$PTR4 302(RCLMIE N) Q:'R RS LT  ; no t ext to che ck ; S F=$ $UP($P(R," ;",2,99))  ; text of  entry from  ACCOUNTS  RECEIVABLE  CATEGORY  (#430.2) S  RSLT=F[T   ; boolean  result Q  RSLT ;INCH MPVA() ; f unction, i nclude CHA MPVA quest ion ; retu rns zero =  No, 1 = y es, -1 on  timeout or  '^' N DIR ,DTOUT,DUO UT,RSLT,X, Y S RSLT=0  S DIR(0)= "YA",DIR(" A")="Inclu de CHAMPVA ? (Y/N): " ,DIR("B")= "YES" S DI R("?")="En ter 'NO' t o exclude  entries re lated to C HAMPVA fro m the repo rt." D ^DI R S RSLT=$ S($D(DUOUT )!$D(DTOUT ):-1,1:Y)  Q RSLT ;IN TRICAR() ;  function,  include T RICARE que stion ; re turns zero  = No, 1 =  yes, -1 o n timeout  or '^' N D IR,DTOUT,D UOUT,RSLT, X,Y S RSLT =0 S DIR(0 )="YA",DIR ("A")="Inc lude TRICA RE? (Y/N):  ",DIR("B" )="YES" S  DIR("?")=" Enter 'NO'  to exclud e entries  related to  TRICARE f rom the re port." D ^ DIR S RSLT =$S($D(DUO UT)!$D(DTO UT):-1,1:Y ) Q RSLT ;  Begin PRC A*4.5*321  ;EXCHMPVA( ) ; functi on, exclud e CHAMPVA  question -  EP RCDPEM 4 ; return s zero = N o, 1 = yes , -1 on ti meout or ' ^' N DIR,D TOUT,DUOUT ,RSLT,X,Y  S RSLT=0 S  DIR(0)="Y A",DIR("A" )="Exclude  CHAMPVA?  (Y/N): ",D IR("B")="N O" S DIR(" ?")="Enter  'Y' to ex clude entr ies relate d to CHAMP VA from th e report."  D ^DIR S  RSLT=$S($D (DUOUT)!$D (DTOUT):-1 ,1:Y) Q RS LT ;EXTRIC AR() ; fun ction, exc lude TRICA RE questio n - EP RCD PEM4 ; ret urns zero  = No, 1 =  yes, -1 on  timeout o r '^' N DI R,DTOUT,DU OUT,RSLT,X ,Y S RSLT= 0 S DIR(0) ="YA",DIR( "A")="Excl ude TRICAR E? (Y/N):  ",DIR("B") ="NO" S DI R("?")="En ter 'Y' to  exclude e ntries rel ated to TR ICARE from  the repor t." D ^DIR  S RSLT=$S ($D(DUOUT) !$D(DTOUT) :-1,1:Y) Q  RSLT ; En d PRCA*4.5 *321 ;HDRL ST(RCSTOP, RCHDR) ; w rite the h eader in R CHDR ; RCS TOP, RCHDR  passed by  ref. Q:RC STOP  ; no thing to d o ; I $E(I OST,1,2)=" C-",'RCDIS PTY,RCPGNU M D ASK(.R CSTOP) Q:R CSTOP  ; n o header n eeded I 'R CDISPTY W  @IOF X RCH DR("XECUTE ") ; incre ment page  count, ins ert into h eader N J  F J=1:1:RC HDR(0) W ! ,RCHDR(J)  Q ;LMEN ;  invoke Lis tMan for R CDPE MISC  REPORTS li st templat e ; extern al routine s should c all LMRPT  D EN^VALM( "RCDPE MIS C REPORTS" ) Q ;LMHDR  ; ListMan  header N  J S J=0 F  J=1:1 Q:'$ D(RCLMHDR( J)) S VALM HDR(J)=RCL MHDR(J) S: $G(RCLMHDR ("TITLE")) '="" VALM( "TITLE")=R CLMHDR("TI TLE") Q ;L MINIT ; se t up ListM an array,  invoked fr om inside  List Templ ate ; N C, J,Y S (J,C )=0 F  S J =$O(@RCLMN D@(J)) Q:' J  S Y=$G( @RCLMND@(J )),C=C+1 D  SET^VALM1 0(C,Y) S V ALMCNT=C Q  ;LMHLP ;  ListMan he lp S X="?"  D DISP^XQ ORM1 W !!  Q ;LMEXIT  ; performe d on exiti ng ListMan  screen K  @RCLMND  ;  delete Li stMan data  D FULL^VA LM1 ; rese t terminal  display Q  ;LMEXPND  ; expand c ode for Li stMan Q ;L MRPT(RCLMH DR,RCLMND)  ; generat e ListMan  display ;  RCLMHDR =  header tex t, passed  by ref. (r equired) ;  RCLMND =  storage no de for Lis tMan data  (required)  Q:'$D(RCL MHDR) Q:($ G(RCLMND)= "") ; both  required  D LMEN Q ; NOW() Q $$ FMTE^XLFDT ($$NOW^XLF DT,2) ; ex trinsic va riable, no w as MM/DD /YY@HH:MM: SS ;PAD(TX T,LNGTH) ;  function,  pad TXT w ith spaces  to LNGTH  Q $$LJ^XLF STR(TXT,LN GTH) ;PTR4 302(FLNTRY ) ; functi on, return s entry fr om 430.2 o r error me ssage ; FL NTRY - fil e entry (r equired),  format: 'f ile #;ien'  ; on succ ess return s 'ien^nam e' else '^ error mess age' ; fil e number a nd ien can  be from:  ; ^PRCA(43 0.2,0) = A CCOUNTS RE CEIVABLE C ATEGORY^43 0.2I ; ^DG CR(399.3,0 ) = RATE T YPE^399.3I ^ ; ^DGCR( 399,0) = B ILL/CLAIMS ^399I ; ^I BM(361.1,0 ) = EXPLAN ATION OF B ENEFITS^36 1.1PI^ ; ^ RCY(344.4, 0) = ELECT RONIC REMI TTANCE ADV ICE^344.4I  ; ^RCY(34 4,0) = AR  BATCH PAYM ENT^344I ;  N F,PF,RC FLNUM,RCIE N,RSLT,X,Y  ; PF - pa rent file  ; RCFLNUM  - file num ber ; RCIE N - intern al entry n umber ; RS LT - resul t ; S RSLT =U,F=$G(FL NTRY),RCFL NUM=+$P(F, ";"),RCIEN =+$P(F,";" ,2) Q:'(RC FLNUM>1) U _"invalid  file #" Q: '(RCIEN>0)  U_"invali d IEN" ; ;  default r esult S RS LT="^file  "_RCFLNUM_ " no entry  #"_RCIEN  ; ; ACCOUN TS RECEIVA BLE CATEGO RY file #4 30.2 I RCF LNUM=430.2  D  Q RSLT  .S X=$G(^ PRCA(430.2 ,RCIEN,0)) ,Y=$P(X,U)  S:Y]"" RS LT=RCIEN_" ;"_Y ; ; R ATE TYPE f ile #399.3 , (#.06) A CCOUNTS RE CEIVABLE C ATEGORY [6 P:430.2] I  RCFLNUM=3 99.3 D  Q  RSLT .S X= $G(^DGCR(3 99.3,RCIEN ,0)),Y=+$P (X,U,6) Q: '(Y>0) .S  RSLT=$$PTR 4302("430. 2;"_Y) ; ;  BILL/CLAI MS file #3 99, (#.07)  RATE TYPE  [7P:399.3 ] I RCFLNU M=399 D  Q  RSLT .S X =$G(^DGCR( 399,RCIEN, 0)) Q:X=""  .S PF=399 .3,RSLT="^ no pointer  to "_PF,Y =+$P(X,U,7 ) Q:'(Y>0)  .S RSLT=$ $PTR4302(P F_";"_Y) ;  ; EXPLANA TION OF BE NEFITS fil e #361.1,  (#.01) BIL L [1P:399]  I RCFLNUM =361.1 D   Q RSLT .S  X=$G(^IBM( 361.1,RCIE N,0)) Q:X= "" .S PF=3 99,RSLT="^ no pointer  to "_PF,Y =+$P(X,U)  Q:'(Y>0) . S RSLT=$$P TR4302(PF_ ";"_Y) ; ;  ELECTRONI C REMITTAN CE ADVICE  file #344. 4 ; ERA DE TAIL sub-f ile #344.4 1, (#.02)  EOB DETAIL  [2P:361.1 ] I RCFLNU M=344.4 D   Q RSLT .S  X=$G(^RCY (344.4,RCI EN,0)) Q:X =""  ; top  level ent ry not fou nd .S RSLT ="^sub-fil e 344.41 n o entries"  .; take f irst entry  that give s result f rom file # 430.2 .N J ,C S (J,C) =0 F  S J= $O(^RCY(34 4.4,RCIEN, 1,J)) Q:'J !RSLT  S X =$G(^(J,0) ) D ..S PF =361.1,RSL T="^no poi nter to "_ PF ..S Y=+ $P(X,U,2)  Q:'(Y>0) S  C=C+1 ..S  RSLT="^su b-file 344 .41 total  checked "_ C,F=$$PTR4 302(PF_";" _Y) S:F RS LT=F ; ; A R BATCH PA YMENT file  #344, (#. 18) ERA RE FERENCE [1 8P:344.4]  I RCFLNUM= 344 D  Q R SLT .S X=$ G(^RCY(344 ,RCIEN,0))  Q:X="" .S  PF=344.4, Y=+$P(X,U, 18),RSLT=" ^no pointe r to "_PF  Q:'(Y>0) . S RSLT=$$P TR4302(PF_ ";"_Y) ; ;  finished  all checks , valid fi le number  not found  S RSLT=U_" invalid fi le #"_RCFL NUM ; Q RS LT ;SL(T,R CLNCNT,RC2 GLBL) ; Se t text int o global o r write li ne ; T = t ext to out put ; RCLN CNT = line  counter,  passed by  ref. (opti onal) ; RC 2GLBL = if  non-null  indicates  output to  global, no  writes I  $G(RC2GLBL )="" W !,T  Q S RCLNC NT=RCLNCNT +1,^TMP($J ,RC2GLBL,R CLNCNT)=T  Q ;UP(A) ;  Returns U PPERCASE Q  $$UP^XLFS TR(A)
  206  
  207   Modified L ogic – RCD PEARL
  208   RCDPEARL ; ALB/hrubov cak - Misc . Report u tilities f or ListMan , etc. ;Ju n 06, 2014 @19:11:19  ;;4.5;Acco unts Recei vable;**29 8,321**;15  April 201 4;Build 12 1 ;Per VA  Directive  6402, this  routine s hould not  be modifie d. ; ; IA  594 - ACCO UNTS RECEI VABLE CATE GORY file  (#430.2) ;  IA 1992 -  BILL/CLAI MS file (# 399) ; IA  3822 - RAT E TYPE fil e (#399.3)  ; IA 4051  - EXPLANA TION OF BE NEFITS fil e (#361.1)  ; Q ;ASK( STOP) ; As k to conti nue ; STOP  passed by  ref., ret urned as 1  if timeou t or user  enters '^'  Q:'($E(IO ST,1,2)="C -") ; must  have user  N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,X,Y S DI R("A")="Pr ess enter  to continu e, '^' to  exit: " S  DIR(0)="EA " D ^DIR I  ($D(DTOUT ))!($D(DUO UT))!(Y="^ ") S STOP= 1 Q ;ASKLM (DEFAULT)  ; Extrinsi c function , ask for  ListMan di splay usin g ^DIR ; I nput: DEFA ULT - 1 -  Default 'Y ES', 0 - D efault 'NO ' ; Option al default s to 0 ; R eturns: 0  - No, 1 -  YES, -1 on  timeout o r '^'
  209    N DIR,RSL T,X,Y
  210    S:'$D(DEF AULT) DEFA ULT=0
  211    S RSLT=0  S DIR(0)=" YA",DIR("A ")="Displa y in List  Manager fo rmat? (Y/N ): ",DIR(" B")="NO"
  212    S DIR("B" )=$S(DEFAU LT:"YES",1 :"NO") D ^ DIR
  213    S RSLT=$S ($D(DUOUT) !$D(DTOUT) :-1,1:Y) Q  RSLT ;CLM CHMPV(RCLM IEN) ; boo lean funct ion, retur ns true if  CHAMPVA c laim, else  false ; R CLMIEN - f ile entry,  format: ' file #;ien ' (see PTR 4302 comme nts) Q $$E VALCLM(RCL MIEN,"CHAM PVA") ;CLM TRICR(RCLM IEN) ; boo lean funct ion, retur ns true if  TRICARE c laim, else  false ; R CLMIEN - f ile entry,  format: ' file #;ien ' (see PTR 4302 comme nts) Q $$E VALCLM(RCL MIEN,"TRIC ARE") ;END ORPRT() ;  extrinsic  variable,  formatted  for 80 col umn displa y N A S A= "***** END  OF REPORT  *****" Q  $J(" ",80- $L(A)\2)_A  ;EVALCLM( RCLMIEN,TR GTXT) ; bo olean func tion, case  insensiti ve ; retur ns 1 if cl aim has ta rget text,  else fals e (error m essages ev aluate as  false) ; R CLMIEN (re quired) -  file entry , format:  'file #;ie n' (see PT R4302 comm ents) ; TR GTXT (requ ired) - ta rget text  Q:($G(RCLM IEN)="")!( $G(TRGTXT) ="") "^inv alid"  ; b oth requir ed N RSLT, F,R,T S T= $$UP(TRGTX T),RSLT=0  ; text to  uppercase,  default t o false S  F=$G(RCLMI EN) Q:'($P (F,";")>1) !'($P(F,"; ",2)>0) RS LT  ; file  must be >  1 and ent ry > zero  S R=$$PTR4 302(RCLMIE N) Q:'R RS LT  ; no t ext to che ck ; S F=$ $UP($P(R," ;",2,99))  ; text of  entry from  ACCOUNTS  RECEIVABLE  CATEGORY  (#430.2) S  RSLT=F[T   ; boolean  result Q  RSLT ;INCH MPVA() ; f unction, i nclude CHA MPVA quest ion ; retu rns zero =  No, 1 = y es, -1 on  timeout or  '^' N DIR ,DTOUT,DUO UT,RSLT,X, Y S RSLT=0  S DIR(0)= "YA",DIR(" A")="Inclu de CHAMPVA ? (Y/N): " ,DIR("B")= "YES" S DI R("?")="En ter 'NO' t o exclude  entries re lated to C HAMPVA fro m the repo rt." D ^DI R S RSLT=$ S($D(DUOUT )!$D(DTOUT ):-1,1:Y)  Q RSLT ;IN TRICAR() ;  function,  include T RICARE que stion ; re turns zero  = No, 1 =  yes, -1 o n timeout  or '^' N D IR,DTOUT,D UOUT,RSLT, X,Y S RSLT =0 S DIR(0 )="YA",DIR ("A")="Inc lude TRICA RE? (Y/N):  ",DIR("B" )="YES" S  DIR("?")=" Enter 'NO'  to exclud e entries  related to  TRICARE f rom the re port." D ^ DIR S RSLT =$S($D(DUO UT)!$D(DTO UT):-1,1:Y ) Q RSLT ;  Begin PRC A*4.5*321  ;EXCHMPVA( ) ; functi on, exclud e CHAMPVA  question -  EP RCDPEM 4 ; return s zero = N o, 1 = yes , -1 on ti meout or ' ^' N DIR,D TOUT,DUOUT ,RSLT,X,Y  S RSLT=0 S  DIR(0)="Y A",DIR("A" )="Exclude  CHAMPVA?  (Y/N): ",D IR("B")="N O" S DIR(" ?")="Enter  'Y' to ex clude entr ies relate d to CHAMP VA from th e report."  D ^DIR S  RSLT=$S($D (DUOUT)!$D (DTOUT):-1 ,1:Y) Q RS LT ;EXTRIC AR() ; fun ction, exc lude TRICA RE questio n - EP RCD PEM4 ; ret urns zero  = No, 1 =  yes, -1 on  timeout o r '^' N DI R,DTOUT,DU OUT,RSLT,X ,Y S RSLT= 0 S DIR(0) ="YA",DIR( "A")="Excl ude TRICAR E? (Y/N):  ",DIR("B") ="NO" S DI R("?")="En ter 'Y' to  exclude e ntries rel ated to TR ICARE from  the repor t." D ^DIR  S RSLT=$S ($D(DUOUT) !$D(DTOUT) :-1,1:Y) Q  RSLT ; En d PRCA*4.5 *321 ;HDRL ST(RCSTOP, RCHDR) ; w rite the h eader in R CHDR ; RCS TOP, RCHDR  passed by  ref. Q:RC STOP  ; no thing to d o ; I $E(I OST,1,2)=" C-",'RCDIS PTY,RCPGNU M D ASK(.R CSTOP) Q:R CSTOP  ; n o header n eeded I 'R CDISPTY W  @IOF X RCH DR("XECUTE ") ; incre ment page  count, ins ert into h eader N J  F J=1:1:RC HDR(0) W ! ,RCHDR(J)  Q ;LMEN(LM TMP) ; inv oke ListMa n for RCDP E MISC REP ORTS list  template ;  Input: LM TMP - Name  of a diff erent list man templa te to use  ; Optional , defaults  to ""
  214    N XX S XX =$S($G(LMT MP)'="":LM TMP,1:"RCD PE MISC RE PORTS")
  215    D EN^VALM (XX) Q ;LM HDR ; List Man header  N J S J=0  F J=1:1 Q :'$D(RCLMH DR(J)) S V ALMHDR(J)= RCLMHDR(J)  S:$G(RCLM HDR("TITLE "))'="" VA LM("TITLE" )=RCLMHDR( "TITLE") Q  ;LMINIT ;  set up Li stMan arra y, invoked  from insi de List Te mplate ; N  C,J,Y S ( J,C)=0 F   S J=$O(@RC LMND@(J))  Q:'J  S Y= $G(@RCLMND @(J)),C=C+ 1 D SET^VA LM10(C,Y)  S VALMCNT= C Q ;LMHLP  ; ListMan  help S X= "?" D DISP ^XQORM1 W  !! Q ;LMEX IT ; perfo rmed on ex iting List Man screen  K @RCLMND   ; delete  ListMan d ata D FULL ^VALM1 ; r eset termi nal displa y Q ;LMEXP ND ; expan d code for  ListMan Q  ;LMRPT(RC LMHDR,RCLM ND,LMTMP)  ; generate  ListMan d isplay ; I nput: RCLM HDR - Head er text, p assed by r ef. (requi red) ; RCL MND - Stor age node f or ListMan  data (req uired) ; L MTMP - Nam e of a lis tman templ ate to use  ; Optiona l, default s to ""
  216    Q:'$D(RCL MHDR) Q:($ G(RCLMND)= "") ; both  required
  217    S:'$D(LMT MP) LMTMP= "" D LMEN( LMTMP) Q ; NOW() Q $$ FMTE^XLFDT ($$NOW^XLF DT,2) ; ex trinsic va riable, no w as MM/DD /YY@HH:MM: SS ;PAD(TX T,LNGTH) ;  function,  pad TXT w ith spaces  to LNGTH  Q $$LJ^XLF STR(TXT,LN GTH) ;PTR4 302(FLNTRY ) ; functi on, return s entry fr om 430.2 o r error me ssage ; FL NTRY - fil e entry (r equired),  format: 'f ile #;ien'  ; on succ ess return s 'ien^nam e' else '^ error mess age' ; fil e number a nd ien can  be from:  ; ^PRCA(43 0.2,0) = A CCOUNTS RE CEIVABLE C ATEGORY^43 0.2I ; ^DG CR(399.3,0 ) = RATE T YPE^399.3I ^ ; ^DGCR( 399,0) = B ILL/CLAIMS ^399I ; ^I BM(361.1,0 ) = EXPLAN ATION OF B ENEFITS^36 1.1PI^ ; ^ RCY(344.4, 0) = ELECT RONIC REMI TTANCE ADV ICE^344.4I  ; ^RCY(34 4,0) = AR  BATCH PAYM ENT^344I ;  N F,PF,RC FLNUM,RCIE N,RSLT,X,Y  ; PF - pa rent file  ; RCFLNUM  - file num ber ; RCIE N - intern al entry n umber ; RS LT - resul t ; S RSLT =U,F=$G(FL NTRY),RCFL NUM=+$P(F, ";"),RCIEN =+$P(F,";" ,2) Q:'(RC FLNUM>1) U _"invalid  file #" Q: '(RCIEN>0)  U_"invali d IEN" ; ;  default r esult S RS LT="^file  "_RCFLNUM_ " no entry  #"_RCIEN  ; ; ACCOUN TS RECEIVA BLE CATEGO RY file #4 30.2 I RCF LNUM=430.2  D  Q RSLT  .S X=$G(^ PRCA(430.2 ,RCIEN,0)) ,Y=$P(X,U)  S:Y]"" RS LT=RCIEN_" ;"_Y ; ; R ATE TYPE f ile #399.3 , (#.06) A CCOUNTS RE CEIVABLE C ATEGORY [6 P:430.2] I  RCFLNUM=3 99.3 D  Q  RSLT .S X= $G(^DGCR(3 99.3,RCIEN ,0)),Y=+$P (X,U,6) Q: '(Y>0) .S  RSLT=$$PTR 4302("430. 2;"_Y) ; ;  BILL/CLAI MS file #3 99, (#.07)  RATE TYPE  [7P:399.3 ] I RCFLNU M=399 D  Q  RSLT .S X =$G(^DGCR( 399,RCIEN, 0)) Q:X=""  .S PF=399 .3,RSLT="^ no pointer  to "_PF,Y =+$P(X,U,7 ) Q:'(Y>0)  .S RSLT=$ $PTR4302(P F_";"_Y) ;  ; EXPLANA TION OF BE NEFITS fil e #361.1,  (#.01) BIL L [1P:399]  I RCFLNUM =361.1 D   Q RSLT .S  X=$G(^IBM( 361.1,RCIE N,0)) Q:X= "" .S PF=3 99,RSLT="^ no pointer  to "_PF,Y =+$P(X,U)  Q:'(Y>0) . S RSLT=$$P TR4302(PF_ ";"_Y) ; ;  ELECTRONI C REMITTAN CE ADVICE  file #344. 4 ; ERA DE TAIL sub-f ile #344.4 1, (#.02)  EOB DETAIL  [2P:361.1 ] I RCFLNU M=344.4 D   Q RSLT .S  X=$G(^RCY (344.4,RCI EN,0)) Q:X =""  ; top  level ent ry not fou nd .S RSLT ="^sub-fil e 344.41 n o entries"  .; take f irst entry  that give s result f rom file # 430.2 .N J ,C S (J,C) =0 F  S J= $O(^RCY(34 4.4,RCIEN, 1,J)) Q:'J !RSLT  S X =$G(^(J,0) ) D ..S PF =361.1,RSL T="^no poi nter to "_ PF ..S Y=+ $P(X,U,2)  Q:'(Y>0) S  C=C+1 ..S  RSLT="^su b-file 344 .41 total  checked "_ C,F=$$PTR4 302(PF_";" _Y) S:F RS LT=F ; ; A R BATCH PA YMENT file  #344, (#. 18) ERA RE FERENCE [1 8P:344.4]  I RCFLNUM= 344 D  Q R SLT .S X=$ G(^RCY(344 ,RCIEN,0))  Q:X="" .S  PF=344.4, Y=+$P(X,U, 18),RSLT=" ^no pointe r to "_PF  Q:'(Y>0) . S RSLT=$$P TR4302(PF_ ";"_Y) ; ;  finished  all checks , valid fi le number  not found  S RSLT=U_" invalid fi le #"_RCFL NUM ; Q RS LT ;SL(T,R CLNCNT,RC2 GLBL) ; Se t text int o global o r write li ne ; T = t ext to out put ; RCLN CNT = line  counter,  passed by  ref. (opti onal) ; RC 2GLBL = if  non-null  indicates  output to  global, no  writes I  $G(RC2GLBL )="" W !,T  Q S RCLNC NT=RCLNCNT +1,^TMP($J ,RC2GLBL,R CLNCNT)=T  Q ;UP(A) ;  Returns U PPERCASE Q  $$UP^XLFS TR(A)
  218  
  219  
  220  
  221  
  222