RCDPARC ;ALB/TJB - CARC REPORT ON PAYER OR CARC CODE ;9/15/14 3:00pm
Source file <RCDPARC.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 6 | SORT^RCDPARC1 GCARC^RCDPCRR $$NMORTIN^RCDPEAPP ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1 ($$CHECKDT,$$DATE,$$NOW,$$VAL,ASK,RNG)^RCDPRU ($$CHK,$$GPAYR,$$PAYTIN,PAYTINS)^RCDPRU2 |
VA FileMan | 4 | ($$GET1,GETS)^DIQ ^DIR ^DIWP ^DIWW |
Kernel | 3 | (,HOME)^%ZIS ^%ZTLOAD $$NOW^XLFDT |
Registration | 1 | DIVISION^VAUTOMA |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 1 | RCDPE CARC CODE PAYER REPORT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Entry point for Report
|
|
ENQ | ; Queue point for report.
|
|
REPORT | ; Print out the report
; Set up Division Header Text and CARC Header Text |
|
ARCQ | ; Clean-up and quit
|
|
PRTREP(DATA,SUMM,SORT,CD,RA,RCSTOP) | ; Print report data out of the "REPORT" subarray
; Input: DATA - Compiled report data in ^TMP("RCDPARC_REPORT",$J) ; SUM - Compiled grand totals in ^TMP("RCDPARC_REPORT",$J,"~~SUM") ; SORT - Selected Sort Option ; CD - 'D' - Detail report, 'S' - Summary report ; RA - Always 0 for now to not display CARCS on report ; Output: RCSTOP - 1 if user quit out of the display, 0 otherwise |
|
DETAIL(DATA,L1,L2,RCSL,DSTOP) | ; Print detail information for this entry
|
|
HDR(CD,RA) | ; Report header
|
|
HDRP(Z,X,Z1) | ; Print Header (Z=String, X=1 (line feed) X=0 (no LF), Z1 (page number right justified)
|
|
NEWPG(RCPG,RCNEW,RCSL,CD,RA) | ; Check for new page needed, output header
; RCPG = Page number passwd by referece ; RCNEW = 1 to force new page ; RCSL = page length passed by reference ; Function returns 1 if user chooses to stop output |
|
CARC | ;
|
|
GETDATA(GCARC,GPAYER,GTIN,GSORT,GRARC,GSTART,GSTOP,GARRAY,GDIV) | ;
; Input: GCCARC - Range of CARC codes to include ; GPAYER - Range of payers to include ; GTIN - Range of TINs to include ; GSORT - Sort order ; GRARC - Flag to display RARC codes on the report (0 = No) ; GSTART - Start date ; GSTOP - End date ; GARRAY - Root of the array in which to store the output data ; GDIV - Range of Divisions to include ; Output: @GARRAY("BILLS",IEN,0)=A1^A2^A3^A4^A5^A6^A7 ; A1=Pointer to BILL/CLAIM file (#399) ; A2=Bill Number ; A3=Pointer to patient file (#2) ; A4=Payer Name from EOB, pointer to Insurance file (#36) ; A5=TIN from EOB ; A6=Total Charges ; A7=Paid amount |
Name | Field # of Occurrence |
---|---|
^%ZIS | EN+51 |
HOME^%ZIS | EN+56 |
^%ZTLOAD | EN+54 |
$$GET1^DIQ | DETAIL+10, DETAIL+12, GETDATA+26, GETDATA+28 |
GETS^DIQ | GETDATA+50, GETDATA+60 |
^DIR | EN+9, EN+33, EN+38, EN+43, CARC+6 |
^DIWP | PRTREP+29, PRTREP+76, DETAIL+17 |
^DIWW | PRTREP+29, PRTREP+76, DETAIL+17 |
SORT^RCDPARC1 | GETDATA+70 |
GCARC^RCDPCRR | EN+13 |
$$NMORTIN^RCDPEAPP | EN+19 |
$$ISSEL^RCDPEU1 | GETDATA+40 |
$$ISTYPE^RCDPEU1 | GETDATA+36 |
$$PAYRNG^RCDPEU1 | EN+21 |
$$RTYPE^RCDPEU1 | EN+17 |
$$SELPAY^RCDPEU1 | EN+30 |
$$CHECKDT^RCDPRU | EN+46 |
$$DATE^RCDPRU | EN+42, EN+47, DETAIL+10, NEWPG+18 |
$$NOW^RCDPRU | ENQ+1 |
$$VAL^RCDPRU | CARC+8 |
ASK^RCDPRU | EN+47, REPORT+20, NEWPG+8 |
RNG^RCDPRU | GETDATA+22 |
$$CHK^RCDPRU2 | GETDATA+54, GETDATA+64 |
$$GPAYR^RCDPRU2 | GETDATA+30 |
$$PAYTIN^RCDPRU2 | PRTREP+42, PRTREP+60 |
PAYTINS^RCDPRU2 | PRTREP+38, PRTREP+56 |
DIVISION^VAUTOMA | EN+5 |
$$NOW^XLFDT | EN+42 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBM(361.1 - [#361.1] | GET1^DIQ, GETS^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | GETDATA+44, GETDATA+45 |
^IBM(361.1 - [#361.1] | GETDATA+20, GETDATA+24, GETDATA+25, GETDATA+30, GETDATA+33, GETDATA+45, GETDATA+48, GETDATA+58 |
^TMP("RCDPARC_REPORT" | ENQ+3!, ENQ+5, REPORT+19 |
^TMP("RCDPEU1" | ARCQ+2! |
^UTILITY($J | PRTREP+29!, PRTREP+76!, DETAIL+17! |
Name | Line Occurrences |
---|---|
$$HDR | NEWPG+10 |
$$NEWPG | REPORT+14, PRTREP+14, PRTREP+26, PRTREP+28, PRTREP+30, PRTREP+32, PRTREP+36, PRTREP+44, PRTREP+46, PRTREP+48 , PRTREP+50, PRTREP+52, PRTREP+62, PRTREP+70, PRTREP+73, PRTREP+75, PRTREP+77, PRTREP+79, PRTREP+81, DETAIL+9 , DETAIL+14, DETAIL+18 |
ARCQ | EN+6, EN+10, EN+13, EN+17, EN+19, EN+22, EN+25, EN+34, EN+39, EN+44 , EN+47, REPORT+19 |
CARC | CARC+9 |
DETAIL | PRTREP+49, PRTREP+78 |
GETDATA | ENQ+5 |
HDRP | NEWPG+10, NEWPG+11, NEWPG+12, NEWPG+17, NEWPG+18 |
PRTREP | REPORT+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | EN+1~, EN+51* |
AMTA | PRTREP+7~, PRTREP+24*, PRTREP+27, PRTREP+64*, PRTREP+65 |
AMTB | PRTREP+7~, PRTREP+21*, PRTREP+24*, PRTREP+27, PRTREP+64*, PRTREP+65 |
AMTP | PRTREP+7~, PRTREP+21*, PRTREP+24*, PRTREP+27, PRTREP+64*, PRTREP+65 |
CARR | GETDATA+19~, GETDATA+22, GETDATA+54, GETDATA+64 |
CD | PRTREP~, PRTREP+14, PRTREP+26, PRTREP+28, PRTREP+30, PRTREP+32, PRTREP+36, PRTREP+44, PRTREP+46, PRTREP+48 , PRTREP+50, PRTREP+52, PRTREP+62, PRTREP+70, PRTREP+73, PRTREP+75, PRTREP+77, PRTREP+79, PRTREP+81, DETAIL+9 , DETAIL+14, DETAIL+18, HDR~, HDR+2, NEWPG~, NEWPG+10 |
CH | REPORT+8~*, REPORT+9* |
CL | PRTREP+7~, PRTREP+21*, PRTREP+24*, PRTREP+25, PRTREP+64*, PRTREP+65 |
CNT | GETDATA+19~, GETDATA+46*, GETDATA+55*, GETDATA+56, GETDATA+65*, GETDATA+66 |
CRHDR | EN+1~, REPORT+4*, REPORT+5*, REPORT+7, REPORT+9, REPORT+11*, NEWPG+12 |
CZ | PRTREP+7~, PRTREP+33*, PRTREP+35, PRTREP+67*, PRTREP+69 |
DATA | PRTREP~, PRTREP+22, PRTREP+24, PRTREP+33, PRTREP+34, PRTREP+49, PRTREP+64, PRTREP+67, PRTREP+68, PRTREP+78 , DETAIL~, DETAIL+3, DETAIL+10 |
DESC | PRTREP+7~, PRTREP+21*, PRTREP+24*, PRTREP+29 |
DH | REPORT+8~*, REPORT+9* |
DHDR | ARCQ+1! |
DIR | EN+1~, EN+9!, EN+33!, EN+38!, EN+43!, CARC+1~, CARC+6! |
DIR("?" | EN+37*, EN+41*, CARC+3*, CARC+4*, CARC+5* |
DIR("A" | EN+8*, EN+32*, EN+38*, EN+43*, CARC+2*, CARC+9*, CARC+10! |
DIR("B" | EN+9*, EN+33*, EN+38*, EN+42*, EN+43* |
DIR(0 | EN+8*, EN+32*, EN+38*, EN+43*, CARC+2* |
DIVHDR | EN+1~, REPORT+2*, REPORT+3*, REPORT+7, REPORT+9, REPORT+10*, NEWPG+12 |
DIWL | PRTREP+7~, PRTREP+29*, PRTREP+76*, DETAIL+17* |
DIWR | PRTREP+7~, PRTREP+29*, PRTREP+76*, DETAIL+17* |
DLN | PRTREP+7~, PRTREP+9*, PRTREP+19 |
DOS | DETAIL+1~, DETAIL+10*, DETAIL+13 |
DSTOP | DETAIL~, DETAIL+3, DETAIL+5, DETAIL+9*, DETAIL+14*, DETAIL+18* |
DT | EN+38, EN+43 |
DTOK | EN+1~, EN+46*, EN+47 |
DTOUT | EN+1~, EN+10, EN+34, EN+39, EN+44, CARC+7 |
DUOUT | EN+1~, EN+10, EN+34, EN+39, EN+44, CARC+7 |
DX | DETAIL+1~, DETAIL+10*, DETAIL+12, DETAIL+13 |
DX0 | PRTREP+7~, PRTREP+11*, PRTREP+12, PRTREP+13, PRTREP+17, PRTREP+18, PRTREP+24*, PRTREP+64* |
DY | DETAIL+1~, DETAIL+10*, DETAIL+13, DETAIL+17 |
DZ | PRTREP+7~, PRTREP+34*, PRTREP+47, PRTREP+68*, PRTREP+71, PRTREP+72, PRTREP+74, PRTREP+76 |
DZN | GETDATA+19~, GETDATA+44*, GETDATA+45 |
EX | EN+2~ |
GARRAY | GETDATA~, GETDATA+45, GETDATA+56, GETDATA+66, GETDATA+68, GETDATA+70 |
GCARC | GETDATA~, GETDATA+22 |
GDIV | GETDATA~, GETDATA+28 |
GDIV( | GETDATA+28 |
GLINE | GETDATA+19~ |
GPAYER | GETDATA~ |
GRARC | GETDATA~ |
GSORT | GETDATA~, GETDATA+70 |
GSTART | GETDATA~, GETDATA+20 |
GSTOP | GETDATA~, GETDATA+24 |
GTIN | GETDATA~ |
HDR | DETAIL+1~, DETAIL+2*, DETAIL+3*, DETAIL+5 |
I | REPORT+3~* |
IEN | PRTREP+21*, DETAIL+1~, DETAIL+3*, DETAIL+10, GETDATA+19~, GETDATA+25*, GETDATA+26, GETDATA+28, GETDATA+30, GETDATA+33 , GETDATA+36, GETDATA+40, GETDATA+45, GETDATA+48, GETDATA+50, GETDATA+56, GETDATA+58, GETDATA+60, GETDATA+66, GETDATA+68 |
IO | EN+57 |
IO("Q" | EN+52, EN+56! |
IOF | NEWPG+9 |
IOM | ENQ+1, REPORT+7, REPORT+8, HDRP+2 |
IOSL | PRTREP+14, PRTREP+26, PRTREP+28, PRTREP+30, PRTREP+32, PRTREP+36, PRTREP+44, PRTREP+46, PRTREP+48, PRTREP+50 , PRTREP+52, PRTREP+62, PRTREP+70, PRTREP+73, PRTREP+75, PRTREP+77, PRTREP+79, PRTREP+81, DETAIL+9, DETAIL+14 , DETAIL+18, NEWPG+7 |
IX | PRTREP+7~, PRTREP+21*, PRTREP+22*, PRTREP+24, PRTREP+25, PRTREP+33, PRTREP+34, PRTREP+49, PRTREP+56, PRTREP+64 , PRTREP+67, PRTREP+68, PRTREP+78, GETDATA+50~*, GETDATA+52*, GETDATA+54, GETDATA+56, GETDATA+60~*, GETDATA+62*, GETDATA+64 , GETDATA+66, GETDATA+68* |
IY | PRTREP+7~, PRTREP+22*, PRTREP+67*, PRTREP+68, PRTREP+72, PRTREP+78 |
L1 | DETAIL~, DETAIL+3, DETAIL+10 |
L2 | DETAIL~, DETAIL+3, DETAIL+10 |
LN | PRTREP+7~, PRTREP+9*, PRTREP+31, PRTREP+51, PRTREP+66, PRTREP+80 |
LN2 | PRTREP+7~, PRTREP+9*, PRTREP+35, PRTREP+69 |
OKAY | CARC+1~, CARC+8*, CARC+9 |
PAT | DETAIL+1~, DETAIL+12*, DETAIL+13 |
PAY | PRTREP+7~, PRTREP+33*, PRTREP+34, PRTREP+38, PRTREP+49 |
PCT | PRTREP+7~, PRTREP+11*, PRTREP+12*, PRTREP+13*, PRTREP+17, PRTREP+24*, PRTREP+25, PRTREP+34*, PRTREP+47, PRTREP+64* , PRTREP+65, PRTREP+71*, PRTREP+72, DETAIL+1~, DETAIL+10*, DETAIL+13 |
PNARR | GETDATA+19~ |
POP | EN+1~, EN+51 |
PTARR | GETDATA+19~ |
PTR | GETDATA+19~, GETDATA+30*, GETDATA+44, GETDATA+45 |
PYRTINS | PRTREP+7~, PRTREP+38, PRTREP+56 |
PYRTINS( | PRTREP+41, PRTREP+42, PRTREP+59, PRTREP+60 |
PYZ | PRTREP+7~, PRTREP+41*, PRTREP+42, PRTREP+59*, PRTREP+60 |
R1 | REPORT+8~*, REPORT+9*, REPORT+11 |
R2 | REPORT+8~*, REPORT+9*, REPORT+10, REPORT+11 |
RA | PRTREP~, PRTREP+14, PRTREP+26, PRTREP+28, PRTREP+30, PRTREP+32, PRTREP+36, PRTREP+44, PRTREP+46, PRTREP+48 , PRTREP+50, PRTREP+52, PRTREP+62, PRTREP+70, PRTREP+73, PRTREP+75, PRTREP+77, PRTREP+79, PRTREP+81, DETAIL+9 , DETAIL+14, DETAIL+18, HDR~, HDR+1, NEWPG~, NEWPG+10 |
RCDEN | GETDATA+19~, GETDATA+28* |
RCDET | EN+1~, EN+11*, REPORT+14, REPORT+19, PRTREP+49, PRTREP+78 |
RCDIV | EN+2~, GETDATA+28* |
RCDT1 | EN+1~, EN+40*, EN+43, EN+46, EN+47, ENQ+5, NEWPG+18 |
RCDT2 | EN+1~, EN+45*, EN+46, EN+47, ENQ+5, NEWPG+18 |
RCERR | GETDATA+19~ |
RCEXCEL | EN+49*, REPORT+13, ARCQ+1! |
RCGX | GETDATA+50~, GETDATA+60~ |
RCGX("361.111" | GETDATA+52, GETDATA+54, GETDATA+56 |
RCGX("361.11511" | GETDATA+62, GETDATA+64, GETDATA+66 |
RCGX("361.1154" | GETDATA+68 |
RCHR | EN+2~, ENQ+1*, NEWPG+19 |
RCINC | EN+2~ |
RCJOB | EN+2~ |
RCLAIM | EN+2~, EN+17*, EN+26, NEWPG+16, GETDATA+35, GETDATA+36 |
RCLIST | ARCQ+1! |
RCLPAY | ARCQ+1! |
RCNEW | NEWPG~, NEWPG+7 |
RCNOW | EN+2~, ENQ+1*, NEWPG+11 |
RCNP | EN+2~ |
RCNP1 | EN+2~ |
RCODE | EN+2~, EN+13, ARCQ+1!, CARC+8*, CARC+11 |
RCODE("CARC" | ENQ+5, REPORT+4, REPORT+5 |
RCPAR | EN+2~, EN+30 |
RCPAR("DICA" | EN+29* |
RCPAR("FILE" | EN+28* |
RCPAR("SELC" | EN+21*, EN+22, EN+23, EN+25 |
RCPAR("SRCH" | EN+27* |
RCPAR("TYPE" | EN+26* |
RCPAY | EN+2~, EN+23*, ENQ+5, ARCQ+1!, NEWPG+14, GETDATA+35, GETDATA+39 |
RCPG | EN+2~, ENQ+1*, REPORT+14, PRTREP+14, PRTREP+26, PRTREP+28, PRTREP+30, PRTREP+32, PRTREP+36, PRTREP+44 , PRTREP+46, PRTREP+48, PRTREP+50, PRTREP+52, PRTREP+62, PRTREP+70, PRTREP+73, PRTREP+75, PRTREP+77, PRTREP+79 , PRTREP+81, DETAIL+9, DETAIL+14, DETAIL+18, NEWPG~, NEWPG+7, NEWPG+8, NEWPG+9*, NEWPG+10 |
RCRANGE | EN+2~ |
RCRARC | EN+2~, EN+3*, EN+15*, ENQ+5, REPORT+14, REPORT+19, ARCQ+1!, DETAIL+17 |
RCSET | GETDATA+19~, GETDATA+31*, GETDATA+33*, GETDATA+35, GETDATA+36*, GETDATA+40*, GETDATA+42 |
RCSL | REPORT+14, PRTREP+7~, PRTREP+9*, PRTREP+14, PRTREP+19*, PRTREP+25*, PRTREP+26, PRTREP+27*, PRTREP+28, PRTREP+29* , PRTREP+30, PRTREP+31*, PRTREP+32, PRTREP+35*, PRTREP+36, PRTREP+40*, PRTREP+43*, PRTREP+44, PRTREP+46, PRTREP+47* , PRTREP+48, PRTREP+49, PRTREP+50, PRTREP+51*, PRTREP+52, PRTREP+58*, PRTREP+61*, PRTREP+62, PRTREP+65*, PRTREP+66* , PRTREP+69*, PRTREP+70, PRTREP+72*, PRTREP+73, PRTREP+74*, PRTREP+75, PRTREP+76*, PRTREP+77, PRTREP+78, PRTREP+79 , PRTREP+80*, PRTREP+81, DETAIL~, DETAIL+6*, DETAIL+7*, DETAIL+8*, DETAIL+9, DETAIL+13*, DETAIL+14, DETAIL+17* , DETAIL+18, DETAIL+19*, NEWPG~, NEWPG+19* |
RCSORT | EN+35*, ENQ+5, REPORT+19, ARCQ+1!, NEWPG+11 |
RCSTOP | EN+2~, EN+3*, EN+13, EN+47, REPORT+14*, REPORT+19, REPORT+20, PRTREP~, PRTREP+14*, PRTREP+22 , PRTREP+23, PRTREP+26*, PRTREP+28*, PRTREP+30*, PRTREP+32*, PRTREP+33, PRTREP+36*, PRTREP+41, PRTREP+44*, PRTREP+46* , PRTREP+48*, PRTREP+49, PRTREP+50*, PRTREP+51, PRTREP+52*, PRTREP+53, PRTREP+54, PRTREP+59, PRTREP+62*, PRTREP+67 , PRTREP+70*, PRTREP+73*, PRTREP+75*, PRTREP+77*, PRTREP+78, PRTREP+79*, PRTREP+80, PRTREP+81*, CARC+7* |
RCTIN | ENQ+5, ARCQ+1! |
RCTLIST | ARCQ+1! |
RCWHICH | EN+2~, EN+19*, EN+21, EN+27, EN+29, NEWPG+14 |
RM | GETDATA+19~, GETDATA+26* |
SDT | GETDATA+19~, GETDATA+20*, GETDATA+24*, GETDATA+25 |
SORT | PRTREP~, PRTREP+23, PRTREP+54 |
SSN | DETAIL+1~, DETAIL+12*, DETAIL+13 |
SUMM | PRTREP~, PRTREP+11 |
TIN | PRTREP+8~ |
TIX | PRTREP+8~, PRTREP+22* |
TIY | PRTREP+8~ |
U | PRTREP+12, PRTREP+13, PRTREP+17, PRTREP+18, PRTREP+24, PRTREP+34, PRTREP+47, PRTREP+64, PRTREP+71, PRTREP+72 , PRTREP+74, PRTREP+76, DETAIL+10, DETAIL+12, DETAIL+13, DETAIL+17, GETDATA+30, GETDATA+45, GETDATA+56, GETDATA+66 , GETDATA+68 |
VAL | REPORT+8~*, REPORT+9, REPORT+10, REPORT+11 |
VAUTD | EN+2~, EN+6, ENQ+5, REPORT+2 |
VAUTD( | REPORT+3 |
X | EN+1~, PRTREP+8~, PRTREP+29*, PRTREP+76*, DETAIL+17*, HDRP~, HDRP+1, CARC+8 |
XX | EN+25, EN+30*, PRTREP+8~, NEWPG+5~, NEWPG+14*, NEWPG+15*, NEWPG+16*, NEWPG+17 |
Y | EN+1~, EN+10, EN+11, EN+34, EN+35, EN+39, EN+40, EN+44, EN+45, CARC+7 |
YY | PRTREP+8~ |
Z | HDRP~, HDRP+2 |
Z1 | HDRP~, HDRP+2 |
ZND | GETDATA+19~, GETDATA+30*, GETDATA+45 |
ZPAY | GETDATA+19~, GETDATA+30* |
ZSTOP | NEWPG+5~, NEWPG+6*, NEWPG+8, NEWPG+20 |
ZTDESC | EN+1~, EN+53* |
ZTRTN | EN+1~, EN+53* |
ZTSAVE | EN+1~ |
ZTSAVE("*" | EN+53* |
ZTSK | EN+1~, EN+55, EN+56! |
ZTSTOP | EN+1~ |
ZX | GETDATA+19~, GETDATA+68* |
ZZ | PRTREP+8~, HDR+1~*, HDR+2 |