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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 444 |
Changed | 0 | 0 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.