Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPURED

Package: Accounts Receivable

Routine: RCDPURED


Information

RCDPURED ;WISC/RFJ - File 344 receipt/payment dd calls ;1 Jun 99

Source Information

Source file <RCDPURED.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 5 $$RXST^IBARXEU  $$ARCOST^IBAUTL  $$EOB^IBCNSBL2  $$REC^IBRFN  $$IB^IBRUTL  
Accounts Receivable 3 $$PAID^PRCAFN1  $$ADDTRAN^RCDPURET  $$NAM^RCFN01  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 ($$FMADD,$$FMDIFF)^XLFDT  
National Drug File 1 $$CPTIER^PSNAPIS  
Outpatient Pharmacy 1 RX^PSO52API  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Accounts Receivable 7 RCDPEREC  RCDPLPL4  RCDPRPL3  RCXVDC8  ^RCY(344  TRANSACTION  ^RCY(344.1  

Entry Points

Name Comments DBIA/ICR reference
DUPLCATE ; called by input transform receipt number (.01)
; make sure no duplicate receipt numbers
PAYCOUNT(RCRECTDA) ; called by computed field number of transactions (101)
; return the count of payments for the receipt
PAYTOTAL(RCRECTDA) ; called by computed field total amount of receipts (.15)
; return the total dollars for payments entered for the receipt
CHGAMT ; called from the input transform on the transaction amount (.04)
; field. if the amount is changed, this will create a new cancelled
; transaction showing the original amount before the change.
PAYCHK ; called from the input transform on the transaction amount (.04)
; field. This will compare the amount paid with the amount owed
; for a bill.
PNORBILL ; called by the input transform in receipt file 344, transaction
; multiple (field 1), patient name or bill number (sub field .09)
CHECKPAT(DFN) ; check patient for other charges, etc., show message
CHECKQ ;
DISPLAY(RCBILLDA) ; display bill
PAYDATE ; called by the input transform in receipt file 344, transaction
; multiple (field 1), date of payment (sub field .06)
; date of payment not in future or more than one month ago
RECTOTAL(RCDEPTDA) ; called from computed field TOTAL AMT OF RECEIPTS (.18) in
; deposit file (344.1)
; this returns the total dollars paid for all receipts on deposit ticket
RECCOUNT(RCDEPTDA) ; called from computed field TOTAL RECEIPTS (100) in deposit file (344.1)
; this returns a count of the number of receipts on a deposit ticket
HLP09 ; PRCA*4.5*321 - Add executable help for file 4.01 field .09
ERRMSG ;prnt error message and set exit variables ;prca*4.5*301
LINKMSG ;Linking error messages ;prca*4.5*301

External References

Name Field # of Occurrence
^DIC PNORBILL+24
^DIR PNORBILL+39
$$RXST^IBARXEU CHECKPAT+5
$$ARCOST^IBAUTL CHECKPAT+20, CHECKPAT+26
$$EOB^IBCNSBL2 PAYCHK+16
$$REC^IBRFN PNORBILL+32
$$IB^IBRUTL PNORBILL+54
$$PAID^PRCAFN1 PAYCHK+16
$$CPTIER^PSNAPIS CHECKPAT+13
RX^PSO52API CHECKPAT+9
$$ADDTRAN^RCDPURET CHGAMT+17
$$NAM^RCFN01 DISPLAY+2
$$FMADD^XLFDT CHECKPAT+9
$$FMDIFF^XLFDT PAYDATE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a duplicate receipt number."
  • Line Location: DUPLCATE+2
Function Call: WRITE
  • Prompt: !,"This receipt number has already been used and has been purged from the system. "
  • Line Location: DUPLCATE+3
Function Call: WRITE
  • Prompt: !," Unable to edit amount."
  • Line Location: CHGAMT+18
Function Call: WRITE
  • Prompt: " WARNING: Payment amount greater than amount of bill!"
  • Line Location: PAYCHK+14
Function Call: WRITE
  • Prompt: !!,$P(AMOUNT,"^",2)," may also be billable.",!
  • Line Location: PAYCHK+17
Function Call: WRITE
  • Prompt: !," BILL HAS BEEN REFERRED TO CROSS-SERVICING.",!," NO MANUAL PAYMENTS ARE ALLOWED."
  • Line Location: PNORBILL+13
Function Call: WRITE
  • Prompt: !!,$P($G(^PRCA(430,+RCBILL,0)),"^")," "
  • Line Location: PNORBILL+41
Function Call: WRITE
  • Prompt: " ... This bill appears to have other patient bills on 'hold'."
  • Line Location: PNORBILL+54
Function Call: WRITE
  • Prompt: !?2,"* Patient is exempt from RX Copay: ",$P(X,"^",4)," *"
  • Line Location: CHECKPAT+6
Function Call: WRITE
  • Prompt: !?2,"* This patient has ",RCCOUNT,"-30 day RX's totaling $",$FN(RCTOTAL,",",2)," that are potentially *"
  • Line Location: CHECKPAT+28
Function Call: WRITE
  • Prompt: !?2,"* billable. This represents any Window Rx's issued today. *"
  • Line Location: CHECKPAT+29
Function Call: WRITE
  • Prompt: " ",$P(^PRCA(430.3,DATA,0),"^")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"This bill is not in 'active' status."
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: " $",$J($P(DATA,"^")+$P(DATA,"^",2)+$P(DATA,"^",3)+$P(DATA,"^",4)+$P(DATA,"^",5),1,2)
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?5,"To enter a TRICARE Authorization No, enter 'T.' followed by the number."
  • Line Location: HLP09+1
Function Call: WRITE
  • Prompt: !,?5,"To enter an ECME Rx Reference Number, enter 'E.' followed by the number."
  • Line Location: HLP09+2
Function Call: WRITE
  • Prompt: !,?5,"To enter an Prescription Number, enter 'R.' followed by the number."
  • Line Location: HLP09+3
Function Call: WRITE
  • Prompt: !!,$P($T(LINKMSG+RCMSG),";",2),!
  • Line Location: ERRMSG+1
Routine Call
  • DIC
  • Line Location:
    • PNORBILL+24
Routine Call
  • DIR
  • Line Location:
    • PNORBILL+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" CHECKPAT+4
^PRCA(430 - [#430] PAYCHK+9, PAYCHK+11, PAYCHK+16, PNORBILL+10, PNORBILL+12, PNORBILL+17, PNORBILL+18, PNORBILL+19, PNORBILL+20, PNORBILL+21
PNORBILL+41, PNORBILL+55, DISPLAY+2, DISPLAY+3, DISPLAY+5, DISPLAY+6
^PRCA(430.3 - [#430.3] DISPLAY+4, DISPLAY+5
^PRCA(433 - [#433] DUPLCATE+3
^RCD(340 - [#340] PAYCHK+9, PNORBILL+55, DISPLAY+5
^RCY(344 - [#344] DUPLCATE+2, PAYCOUNT+4, PAYTOTAL+6, PAYTOTAL+8, PAYTOTAL+10, CHGAMT+5, CHGAMT+22*, CHGAMT+26*, PAYCHK+5, PAYCHK+14
PNORBILL+9, PNORBILL+29, RECTOTAL+5, RECCOUNT+4
^RCY(344.4 - [#344.4] PAYTOTAL+7, PAYTOTAL+9
^TMP($J CHECKPAT+8!, CHECKPAT+10, CHECKPAT+11, CHECKPAT+13, CHECKPAT+15, CHECKPAT+16, CHECKPAT+17, CHECKPAT+22, CHECKPAT+23, CHECKQ+1!

Label References

Name Line Occurrences
$$PAYTOTAL RECTOTAL+6
CHECKPAT PNORBILL+51, PNORBILL+56
CHECKQ CHECKPAT+10
DISPLAY PNORBILL+11, PNORBILL+42
ERRMSG PNORBILL+18, PNORBILL+19, PNORBILL+20, PNORBILL+21

Naked Globals

Name Field # of Occurrence
^( PAYTOTAL+8
^(0 PNORBILL+10
^(11 CHECKPAT+16
^(17 CHECKPAT+22
^(2 CHECKPAT+22
^(31 CHECKPAT+16
^(6 CHECKPAT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCOUNT PAYCHK+4~, PAYCHK+5*, PAYCHK+7, PAYCHK+9, PAYCHK+11, PAYCHK+16
AMOUNT PAYCHK+4~, PAYCHK+16*, PAYCHK+17
COUNT PAYCOUNT+2~, PAYCOUNT+3*, PAYCOUNT+4*, PAYCOUNT+5, RECCOUNT+2~, RECCOUNT+3*, RECCOUNT+5*, RECCOUNT+6
>> CSNOPROC CHGAMT+3, PAYCHK+3, PNORBILL+2*, PNORBILL+14*, PNORBILL+16, ERRMSG+1*
>> DA CHGAMT+5, CHGAMT+22, PAYCHK+5
>> DA(1 CHGAMT+5, CHGAMT+17, CHGAMT+22, CHGAMT+26, PAYCHK+5, PAYCHK+14, PNORBILL+29
DATA DISPLAY+1~, DISPLAY+2*, DISPLAY+3*, DISPLAY+4, DISPLAY+5, DISPLAY+6*
DAYSDIFF PAYDATE+3~, PAYDATE+4*, PAYDATE+5
DFN PNORBILL+5~, CHECKPAT~, CHECKPAT+5, CHECKPAT+8, CHECKPAT+9, CHECKPAT+10, CHECKPAT+11, CHECKPAT+13, CHECKPAT+15, CHECKPAT+16
, CHECKPAT+17, CHECKPAT+20, CHECKPAT+22, CHECKPAT+23, CHECKPAT+26, CHECKQ+1
DI CHECKPAT+2~
DIC PNORBILL+5~, PNORBILL+24*
DIC(0 PNORBILL+24*
DIQ2 PNORBILL+34~
DIR PNORBILL+34~
DIR("A" PNORBILL+37*, PNORBILL+38*
DIR("B" PNORBILL+38*
DIR(0 PNORBILL+39*
DIRUT PNORBILL+34~
DT CHECKPAT+5, CHECKPAT+9, CHECKPAT+13, CHECKPAT+16, CHECKPAT+22, PAYDATE+4
DTOUT PNORBILL+34~
DUOUT PNORBILL+34~
DUZ CHGAMT+25
>> HRCDCKSW PNORBILL+2, ERRMSG+1*
ORIGDATA CHGAMT+4~, CHGAMT+5*, CHGAMT+7, CHGAMT+9, CHGAMT+11, CHGAMT+22, CHGAMT+24*, CHGAMT+25*, CHGAMT+26
OWED PAYCHK+4~, PAYCHK+11*, PAYCHK+12*, PAYCHK+14
RCBILL PNORBILL+5~, PNORBILL+32*, PNORBILL+41, PNORBILL+42, PNORBILL+43
RCBILLDA DISPLAY~, DISPLAY+2, DISPLAY+3, DISPLAY+5, DISPLAY+6
RCCOUNT CHECKPAT+1~, CHECKPAT+3*, CHECKPAT+19*, CHECKPAT+25*, CHECKPAT+28
>> RCDCHKSW PNORBILL+2*, PNORBILL+9, PNORBILL+12, PNORBILL+16, ERRMSG+1*
RCDEPTDA RECTOTAL~, RECTOTAL+5, RECCOUNT~, RECCOUNT+4
RCDISP PNORBILL+5~, PNORBILL+32, PNORBILL+37
RCERAIEN PAYTOTAL+2~, PAYTOTAL+6*, PAYTOTAL+7, PAYTOTAL+9
RCINPUT PNORBILL+5~, PNORBILL+7*, PNORBILL+10, PNORBILL+24, PNORBILL+32, PNORBILL+37
RCLIST CHECKPAT+1~, CHECKPAT+7*, CHECKPAT+8, CHECKPAT+9, CHECKPAT+10, CHECKPAT+11, CHECKPAT+13, CHECKPAT+15, CHECKPAT+16, CHECKPAT+17
, CHECKPAT+22, CHECKPAT+23, CHECKQ+1
RCLKFLG PNORBILL+5~, PNORBILL+30*, PNORBILL+31
RCMSG PNORBILL+5~, PNORBILL+18*, PNORBILL+19*, PNORBILL+20*, PNORBILL+21*
RCNODE CHECKPAT+1~, CHECKPAT+7*, CHECKPAT+9
RCOUTPUT PNORBILL+5~, PNORBILL+48*, PNORBILL+51, PNORBILL+54, PNORBILL+55, PNORBILL+57
RCPAY PNORBILL+5~, PNORBILL+29*, PNORBILL+30
RCPMTTYP PNORBILL+5~, PNORBILL+9*, PNORBILL+16, PNORBILL+17, PNORBILL+18, PNORBILL+19, PNORBILL+20, PNORBILL+21
RCPRM PNORBILL+34~, PNORBILL+36*, PNORBILL+37
RCPSO CHECKPAT+1~, CHECKPAT+11*, CHECKPAT+13, CHECKPAT+15, CHECKPAT+16, CHECKPAT+17, CHECKPAT+20, CHECKPAT+22, CHECKPAT+23, CHECKPAT+26
RCRECIPT PAYTOTAL+2~, PAYTOTAL+9*, PAYTOTAL+10
RCRECTDA PAYCOUNT~, PAYCOUNT+4, PAYTOTAL~, PAYTOTAL+6, PAYTOTAL+8, PNORBILL+9, RECTOTAL+3~, RECTOTAL+5*, RECTOTAL+6, RECCOUNT+2~
, RECCOUNT+4*
RCREF CHECKPAT+1~, CHECKPAT+22*, CHECKPAT+23
>> RCSPRSS CHGAMT+14, PNORBILL+24, PNORBILL+41
RCTOTAL CHECKPAT+1~, CHECKPAT+3*, CHECKPAT+20*, CHECKPAT+26*, CHECKPAT+27, CHECKPAT+28
>> RCTRANDA PNORBILL+9
RCTYP PNORBILL+5~, PNORBILL+32, PNORBILL+35*, PNORBILL+36
RCTYPE CHECKPAT+1~, CHECKPAT+15*, CHECKPAT+20, CHECKPAT+26
RCX CHECKPAT+1~, CHECKPAT+17*, CHECKPAT+18*, CHECKPAT+19, CHECKPAT+20, CHECKPAT+23*, CHECKPAT+24*, CHECKPAT+25, CHECKPAT+26
TOTAL PAYTOTAL+2~, PAYTOTAL+3*, PAYTOTAL+7, PAYTOTAL+8*, PAYTOTAL+10*, PAYTOTAL+12, RECTOTAL+3~, RECTOTAL+4*, RECTOTAL+6*, RECTOTAL+7
TRANDA CHGAMT+4~, CHGAMT+17*, CHGAMT+18, CHGAMT+22, CHGAMT+26
U PAYTOTAL+6
X DUPLCATE+2!, DUPLCATE+3!, PAYCOUNT+2~, PAYCOUNT+4*, PAYTOTAL+2~, PAYTOTAL+8*, PAYTOTAL+10*, CHGAMT+9, CHGAMT+11, CHGAMT+18!
PAYCHK+14, PNORBILL+3!, PNORBILL+7, PNORBILL+10*, PNORBILL+11, PNORBILL+12, PNORBILL+14*, PNORBILL+16, PNORBILL+17, PNORBILL+18
PNORBILL+19, PNORBILL+20, PNORBILL+21, PNORBILL+24*, PNORBILL+32*, PNORBILL+43*, PNORBILL+46!, PNORBILL+48, PNORBILL+55*, PNORBILL+56
PNORBILL+57*, CHECKPAT+2~, CHECKPAT+4*, CHECKPAT+5*, CHECKPAT+6, PAYDATE+4, PAYDATE+5!, ERRMSG+1*
Y PNORBILL+5~, PNORBILL+24, PNORBILL+31, PNORBILL+32*, PNORBILL+33, PNORBILL+39*, PNORBILL+40, PNORBILL+46, CHECKPAT+2~

Marked Items

Name Field # of Occurrence
$T(LINKMSG+RCMSG ERRMSG+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All