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  | All
Print Page as PDF
Routine: RCTCSWL

Package: Accounts Receivable

Routine: RCTCSWL


Information

RCTCSWL ;ALB/PAW-Cross Servicing Worklist ;30-SEP-2015

Source Information

Source file <RCTCSWL.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Accounts Receivable 7 ^PRCACM  UPPRIN^PRCADJ  (PATTR,SETTR,TRANUP)^PRCAUTL  DELETE^PRCAWO1  INIT^RCDPAPLM  EXCMSG^RCTCSJR  (BLDWL,EXCEL,GETRPT)^RCTCSWL1  
VA FileMan 5 ^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  $$UP^XLFSTR  DISP^XQORM1  
List Manager 4 EN^VALM  (CLEAR,FULL,PAUSE)^VALM1  CLEAN^VALM10  EN^VALM2  
Integrated Billing 1 EN1AR^IBECEA  
Registration 1 EN^DGRPD  

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: 10

Package Total Caller Graph
Accounts Receivable 9 PRCA TCSP WORKLIST ACCOUNT PROFILE  PRCA TCSP WORKLIST CANCEL/EDIT/ADD  PRCA TCSP WORKLIST EXPAND  PRCA TCSP WORKLIST INSURANCE  PRCA TCSP WORKLIST PRINT STATEMENT  PRCA TCSP WORKLIST REMOVE  PRCA TCSP WORKLIST VIEW PATIENT  RCTCSP RECONCILIATION WORKLIST  
RCTCSP WORKLIST  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Main entry point for RCTCSP RECONCILIATION WORKLIST
INIT ; Initialize variables
HDR ; Set header for CS Worklist
FILTER(FILTERS) ; Set filters
; Sets an array of filters to determine which entries to include in display
; Input: None
; Output:
; Returns: 0 if the user entered '^' or timed out, 1 otherwise
; FILTERS(0) = Piece 1 = 1=Bankruptcy,2=Deaths,3=Uncollectable,4=Payment in Full,5=Satisfied PA,6=Compromise,7=All Returns
; Piece 3 = All (0) or Select (1) Patients
SHOWFILT(FILTERS) ; Display
; Displays the currently selected filter selections for the
; Billing and NVC Precert Worklist display
; Input: FILTERS() - Array of filter settings. See FILTERS for a detailed
; explanation of the FILTERS array
; Output: Current Filter settings are displayed
ASKDIV(FILTERS) ; Sets a list of Divisions to be displayed in the Reconciliation Worklist
; Input: FILTERS - Current Array of filter settings
; Output: FILTERS - Updated Array of filter settings
ONEDIV(DIC,IEN,FIRST) ; Prompts the user for a Division
; Input: DIC - Variable/Array of settings needed for ^DIC call
; FIRST - Set to 1 initially and then 0 for subsequent calls
; Output: FIRST - Set to 0
; IEN - IEN of the selected Division
; null if no selection was made
EXPAND ; ACTION - Expand Patient (EP)
LINKI ; ACTION - View Patient Insurance (VI)
ACCTPR ; ACTION - Account Profile (AP)
PTVW ; ACTION - View Patient (PT)
CEA ; ACTION - CANCEL EDIT ADD (CN)
CEAX ;
PRTSTAT ; ACTION - PRINT A PAYMENT STATEMENT (PR)
REMOVE ; ACTION - REMOVE FROM WORKLIST (RM)
KILLGLB ; Kill Worklist Globals
HELP ; -- help code
EXIT ; -- exit code
EXDIV ;
CHKFILT ; Check Filters

External References

Name Field # of Occurrence
^%ZIS FILTER+61
^%ZISC EXIT+4
EN^DGRPD PTVW+8
^DIC ONEDIV+7
YN^DICN REMOVE+14
^DIE REMOVE+19, REMOVE+37, REMOVE+41
$$GET1^DIQ ASKDIV+11, CHKFILT+7, CHKFILT+8, CHKFILT+9
^DIR INIT+9, INIT+16, FILTER+22, FILTER+34, FILTER+54
EN1AR^IBECEA CEA+29
^PRCACM PRTSTAT+9
UPPRIN^PRCADJ REMOVE+43
PATTR^PRCAUTL REMOVE+27
SETTR^PRCAUTL REMOVE+27
TRANUP^PRCAUTL REMOVE+43
DELETE^PRCAWO1 REMOVE+42
INIT^RCDPAPLM CEA+30
EXCMSG^RCTCSJR FILTER+60
BLDWL^RCTCSWL1 INIT+20, REMOVE+48
EXCEL^RCTCSWL1 INIT+14
GETRPT^RCTCSWL1 INIT+4, INIT+5
EN^VALM EN+5, EXPAND+9, LINKI+9, ACCTPR+7
CLEAR^VALM1 KILLGLB+9
FULL^VALM1 EXPAND+1, LINKI+1, ACCTPR+1, PTVW+1, CEA+2, PRTSTAT+1, REMOVE+1
PAUSE^VALM1 LINKI+7, PTVW+7, CEA+11, CEA+21, PRTSTAT+10, REMOVE+22
CLEAN^VALM10 REMOVE+23, EXIT+3
EN^VALM2 EXPAND+3, LINKI+3, ACCTPR+3, PTVW+3, PRTSTAT+3, REMOVE+4
$$UP^XLFSTR FILTER+24, FILTER+36, FILTER+56
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,VALMHDR(1)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Please Select Type of Report"
  • Line Location: FILTER+12
Function Call: WRITE
  • Prompt: !!?11,"1 Bankruptcy"
  • Line Location: FILTER+13
Function Call: WRITE
  • Prompt: !?11,"2 Deaths"
  • Line Location: FILTER+14
Function Call: WRITE
  • Prompt: !?11,"3 Uncollectible"
  • Line Location: FILTER+15
Function Call: WRITE
  • Prompt: !?11,"4 Payment in Full"
  • Line Location: FILTER+16
Function Call: WRITE
  • Prompt: !?11,"5 Satisfied PA"
  • Line Location: FILTER+17
Function Call: WRITE
  • Prompt: !?11,"6 Compromise"
  • Line Location: FILTER+18
Function Call: WRITE
  • Prompt: !?11,"7 All Returns"
  • Line Location: FILTER+19
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+20
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+22
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+34
Function Call: WRITE
  • Prompt: !!,*7,"No Division(s) selected. Quitting.",!
  • Line Location: FILTER+35
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+54
Function Call: WRITE
  • Prompt: !!!,"Type of Report: "
  • Line Location: SHOWFILT+8
Function Call: WRITE
  • Prompt: $S(RCRPT[99:"All Returns",1:"Selected")
  • Line Location: SHOWFILT+10
Function Call: WRITE
  • Prompt: !,"Show All or Selected Divisions: "
  • Line Location: SHOWFILT+12
Function Call: WRITE
  • Prompt: $S($G(VAUTD)=0:"Selected",1:"All")
  • Line Location: SHOWFILT+13
Function Call: WRITE
  • Prompt: !!,*7,"Division entry is required!",!
  • Line Location: ONEDIV+8
Function Call: WRITE
  • Prompt: !!,*7,"User exited the option with '^',quitting.",!
  • Line Location: ONEDIV+9
Function Call: WRITE
  • Prompt: !!,"Debtor is not a VA Patient"
  • Line Location: LINKI+7
Function Call: WRITE
  • Prompt: !!,"Debtor is not a VA Patient."
  • Line Location: PTVW+7
Function Call: WRITE
  • Prompt: *7,!!?3,"You must hold the IB AUTHORIZE security key in order to access this option.",!
  • Line Location: CEA+10
Function Call: WRITE
  • Prompt: *7,!!?3,"The AR Debtor must be a patient for this action."
  • Line Location: CEA+19
Function Call: WRITE
  • Prompt: !?3,"For this account, the AR Debtor is ",DEBTTYP,".",!
  • Line Location: CEA+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CEA+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • %ZIS
  • Line Location:
    • FILTER+61
Routine Call
  • DIC
  • Line Location:
    • ONEDIV+7
Routine Call
  • DIE
  • Line Location:
    • REMOVE+19
    • REMOVE+37
    • REMOVE+41
Routine Call
  • DIR
  • Line Location:
    • INIT+9
    • INIT+16
    • FILTER+22
    • FILTER+34
    • FILTER+54
Routine Call
  • VALM
  • Line Location:
    • EN+5
    • EXPAND+9
    • LINKI+9
    • ACCTPR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^PRCA(430 - [#430] Classic Fileman Calls
^PRCA(433 - [#433] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] REMOVE+10, REMOVE+44
^PRCA(430.3 - [#430.3] REMOVE+33
^PRCA(433 - [#433] REMOVE+28, REMOVE+42, REMOVE+44*
^RCD(340 - [#340] CEA+17, REMOVE+44
^TMP("RCTCBPLM" KILLGLB+7!
^TMP("RCTCSWE" EXPAND+5!, EXPAND+8*, EXPAND+11!, KILLGLB+3!
^TMP("RCTCSWL" INIT+6, REMOVE+20!, KILLGLB+1!
^TMP("RCTCSWLX" EXPAND+6, LINKI+5, ACCTPR+5, PTVW+5, PRTSTAT+5, REMOVE+6, KILLGLB+2!
^TMP("RCTPAPLM" KILLGLB+6!
^TMP("VALMAR" KILLGLB+4!
^TMP("XQORS" KILLGLB+5!
^TMP($J LINKI+8*
^XUSEC("IB AUTHORIZE" CEA+9

Label References

Name Line Occurrences
$$FILTER EN+2
ASKDIV FILTER+41
CEAX CEA+3, CEA+9, CEA+15
CHKFILT ASKDIV+23
EXIT INIT+11, INIT+18
KILLGLB INIT+1, EXIT+1, EXDIV+1
ONEDIV ASKDIV+6, ONEDIV+8
SHOWFILT FILTER+48

Naked Globals

Name Field # of Occurrence
^(0 REMOVE+28, REMOVE+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REMOVE+14*, REMOVE+15
%X CEA+25~
%Y CEA+25~
>> %ZIS FILTER+61*
C CEA+25~
D CEA+25~
D0 REMOVE+16~
DA CEA+25~, REMOVE+16~, REMOVE+17*, REMOVE+30*
DAT EN+1~
DEBTTYP CEA+16~, CEA+18*, CEA+20
DESC CEA+25~
DFN LINKI+2~, LINKI+6*, LINKI+7, ACCTPR+2~, PTVW+2~, PTVW+6*, PTVW+7, CEA+1~, CEA+5*, CEA+15
, PRTSTAT+2~, REMOVE+3~
DI CEA+25~
DIC ASKDIV+3~, ASKDIV+4*, ASKDIV+6, ONEDIV~, ONEDIV+8, CEA+25~
DIC("A" ONEDIV+6*
DIC(0 ASKDIV+4*
DICR CEA+25~
DIE CEA+25~, REMOVE+16~, REMOVE+17*, REMOVE+30*
DIG CEA+25~
DIH CEA+25~
DILN CEA+25~
DIR FILTER+8~, FILTER+22!, FILTER+34!, FILTER+54!, SHOWFILT+7~, SHOWFILT+16!, ASKDIV+3~, LINKI+2~, PTVW+2~, PRTSTAT+2~
DIR("?" FILTER+31*, FILTER+32*, FILTER+52*, FILTER+53*
DIR("A" FILTER+30*, FILTER+51*
DIR("B" FILTER+30*, FILTER+51*
DIR(0 INIT+8*, INIT+15*, FILTER+21*, FILTER+30*, FILTER+33*, FILTER+51*
DIROUT FILTER+8~, SHOWFILT+7~, LINKI+2~, PTVW+2~, PRTSTAT+2~
DIRUT FILTER+8~, FILTER+23, FILTER+35, FILTER+55, SHOWFILT+7~, LINKI+2~, PTVW+2~, PRTSTAT+2~, PRTSTAT+4, PRTSTAT+7
DIU CEA+25~
DIV EN+1~, ASKDIV+10*, ASKDIV+11, CEA+25~
DIVS ASKDIV+3~
DIW CEA+25~
DP CEA+16~, CEA+17*, CEA+18
DQ CEA+25~
DR CEA+25~, REMOVE+16~, REMOVE+18*, REMOVE+31*, REMOVE+32*, REMOVE+33*, REMOVE+34*, REMOVE+35*, REMOVE+36*, REMOVE+39*
, REMOVE+40*
DT REMOVE+40
DTOUT FILTER+8~, SHOWFILT+7~, LINKI+2~, PTVW+2~, PRTSTAT+2~, PRTSTAT+9!
DUOUT FILTER+8~, FILTER+35, SHOWFILT+7~, ASKDIV+13, ONEDIV+9, LINKI+2~, PTVW+2~, PRTSTAT+2~
DUZ CEA+9, REMOVE+25
ECNT EXPAND+2~, EXPAND+6*, EXPAND+7, LINKI+2~, LINKI+5*, LINKI+6, ACCTPR+2~, ACCTPR+5*, ACCTPR+6, PTVW+2~
, PTVW+5*, PTVW+6, CEA+3, CEA+5, CEA+6, PRTSTAT+2~, PRTSTAT+5*, PRTSTAT+6, REMOVE+3~, REMOVE+6*
, REMOVE+7, REMOVE+8, REMOVE+9, REMOVE+11, REMOVE+12
ENT CEA+25~
EXCEL INIT+13, INIT+20, FILTER+57*, FILTER+59, EXIT+2!, EXDIV+2!
FILTERS EN+1~, EN+2, FILTER~, FILTER+9!, FILTER+41, FILTER+48, SHOWFILT~, ASKDIV~
FILTERS(0 EN+3, INIT+2, HDR+4, FILTER+25*, FILTER+26*, FILTER+27*, FILTER+37*, FILTER+39*, FILTER+40, FILTER+43
, SHOWFILT+9, ASKDIV+13*, ASKDIV+14*, ONEDIV+9*, CHKFILT+2*, CHKFILT+4*
FILTERS(1 ASKDIV+22*
FIRST ASKDIV+3~, ASKDIV+4*, ASKDIV+6, ONEDIV~, ONEDIV+6, ONEDIV+8, ONEDIV+10*
FMSNUM1 CEA+25~
GOTBILL PRTSTAT+2~, PRTSTAT+8*
GOTPAT LINKI+2~, LINKI+8*, PTVW+2~, CEA+1~, CEA+27*, REMOVE+3~
I HDR+9*, EXPAND+2~, LINKI+2~, ACCTPR+2~, PTVW+2~, PRTSTAT+2~, REMOVE+3~
IBAFY CEA+25~
IBATYPN CEA+25~
IBIENS ASKDIV+3~, ASKDIV+13, ASKDIV+14
IBIENS( ASKDIV+8*, ASKDIV+19, ASKDIV+21
IBIENS2 ASKDIV+3~
IBIENS2( ASKDIV+9*
IBSTAR80 CEA+25~
IEN SHOWFILT+7~, ASKDIV+3~, ASKDIV+5, ASKDIV+6, ASKDIV+7, ASKDIV+8, ASKDIV+9, ASKDIV+10, ONEDIV~, ONEDIV+8
, ONEDIV+9*, ONEDIV+10*
J EXPAND+2~, LINKI+2~, ACCTPR+2~, PTVW+2~, PRTSTAT+2~, REMOVE+3~
LEN SHOWFILT+7~
N ASKDIV+3~, ASKDIV+21*, ASKDIV+22
POP FILTER+61, EXIT+2!, EXDIV+2!
PRCA CEA+25~, REMOVE+16~
PRCAA1 REMOVE+16~, REMOVE+28*, REMOVE+29
PRCAA2 REMOVE+16~, REMOVE+29*
PRCABN PRTSTAT+2~, PRTSTAT+6*, REMOVE+26*, REMOVE+31, REMOVE+44
PRCACOMM REMOVE+42*!
PRCAD REMOVE+16~
PRCAD("DELETE" REMOVE+43
PRCAEN REMOVE+16~, REMOVE+27, REMOVE+28, REMOVE+30, REMOVE+42, REMOVE+44
PRCATY REMOVE+16~
RCASK REMOVE+16~, REMOVE+43*
RCBEG EN+1~
RCBILL EXPAND+2~, EXPAND+7*, EXPAND+8
RCBILLDA REMOVE+3~, REMOVE+8*, REMOVE+10, REMOVE+17, REMOVE+26
RCBILLEX EXPAND+2~, EXPAND+7*, EXPAND+8, REMOVE+3~, REMOVE+9*, REMOVE+13, REMOVE+21
RCDATE REMOVE+3~, REMOVE+11*
RCDEBTDA ACCTPR+2~, ACCTPR+6*, CEA+1~, CEA+6*, CEA+17
RCDFN EXPAND+2~, EXPAND+7*, EXPAND+8
RCDIV EN+1~, ASKDIV+11*, ASKDIV+12
RCDIVS EN+1~, HDR+1~, FILTER+39*, CHKFILT+1~, CHKFILT+2*, CHKFILT+10*, CHKFILT+11*
RCDPFXIT EN+1~, ACCTPR+4, ACCTPR+10
RCEND EN+1~
RCEXTBL REMOVE+3~, REMOVE+10*, REMOVE+20
RCFP KILLGLB+8!
RCFPNO KILLGLB+8!
RCFPNOT KILLGLB+8!
RCFPNUM KILLGLB+8!
RCFST CHKFILT+1~, CHKFILT+5*, CHKFILT+10, CHKFILT+11*
RCIENS EN+1~, CHKFILT+2, CHKFILT+4
RCINLN2 KILLGLB+8!
RCINV KILLGLB+8!
RCNAME EXPAND+2~, EXPAND+7*, EXPAND+8, REMOVE+3~, REMOVE+7*, REMOVE+20
RCPTID EXPAND+2~, EXPAND+7*, EXPAND+8
RCREF CEA+25~
RCRPT EN+1~, EN+3*, INIT+2*, INIT+4, INIT+5, SHOWFILT+9*, SHOWFILT+10
RCRPTX EN+1~, INIT+4*
RCRRC FILTER+8~
RCRRSN REMOVE+3~, REMOVE+12*
RCRSN EN+1~, INIT+4*
RCSC1 EN+1~
RCSC2 EN+1~
RCSTAT CHKFILT+1~, CHKFILT+5*, CHKFILT+6*, CHKFILT+7, CHKFILT+8, CHKFILT+9
RCUSER REMOVE+16~, REMOVE+25*, REMOVE+35
RCVXCTY CEA+26~
RCX HDR+1~, HDR+4*, HDR+5, HDR+7, HDR+9
RCXQFL CEA+26~
RCXVBDT CEA+26~
RCXVBST CEA+26~
RCXVDA CEA+26~
RCXX FILTER+8~, SHOWFILT+7~, EXPAND+2~, EXPAND+4*, EXPAND+6, LINKI+2~, LINKI+4*, LINKI+5, ACCTPR+2~, ACCTPR+4*
, ACCTPR+5, PTVW+2~, PTVW+4*, PTVW+5, PRTSTAT+2~, PRTSTAT+4*, PRTSTAT+5, REMOVE+3~, REMOVE+5*, REMOVE+6
, CHKFILT+1~, CHKFILT+7*, CHKFILT+10, CHKFILT+11
RCXXX CHKFILT+1~, CHKFILT+8*, CHKFILT+10, CHKFILT+11
RCXXXX CHKFILT+1~, CHKFILT+9*
RCY HDR+18*, HDR+19, SHOWFILT+7~
RCYY SHOWFILT+7~
RCZ SHOWFILT+7~
REC LINKI+2~, LINKI+5*, LINKI+8, ACCTPR+2~, ACCTPR+5*, PTVW+2~, PTVW+5*, PRTSTAT+2~, PRTSTAT+5*, REMOVE+3~
, REMOVE+6*
SORTBY HDR+2, HDR+3, FILTER+45*, EXIT+2!, EXDIV+2!
>> STOP FILTER+58*, FILTER+61*, FILTER+62
U EN+3, INIT+2, HDR+4, FILTER+25, FILTER+26, FILTER+27, FILTER+33, FILTER+37, FILTER+39, FILTER+40
, SHOWFILT+9, ASKDIV+8, ASKDIV+9, ASKDIV+10, ASKDIV+14, ONEDIV+10, EXPAND+7, EXPAND+8, LINKI+6, LINKI+8
, ACCTPR+6, PTVW+6, CEA+5, CEA+6, CEA+17, PRTSTAT+6, REMOVE+7, REMOVE+8, REMOVE+9, REMOVE+10
, REMOVE+11, REMOVE+12, REMOVE+28, REMOVE+29, CHKFILT+2, CHKFILT+4
>> VALMBCK EXPAND+12*, LINKI+10*, ACCTPR+9*, ACCTPR+10*, PTVW+9*, CEAX+1*, PRTSTAT+12*, REMOVE+2*, REMOVE+49*
>> VALMCAP HDR+2*, HDR+3*
VALMEVL EN+4!
>> VALMHDR(1 HDR+5*, HDR+7*, HDR+10*, HDR+11
>> VALMHDR(2 HDR+15*, HDR+16*, HDR+19*
>> VALMQUIT INIT+10*, INIT+17*
VALMY EXPAND+2~, EXPAND+4, LINKI+2~, LINKI+4, ACCTPR+2~, ACCTPR+4, PTVW+2~, PTVW+4, PRTSTAT+2~, PRTSTAT+4
, REMOVE+3~, REMOVE+4
VALMY( EXPAND+4, LINKI+4, ACCTPR+4, PTVW+4, PRTSTAT+4, REMOVE+5
VAUTC EXIT+2!, EXDIV+2!
VAUTD HDR+16, HDR+17, FILTER+37*, FILTER+39, SHOWFILT+13, EXIT+2!, EXDIV+2!, CHKFILT+3
VAUTD( HDR+18, ASKDIV+12*, CHKFILT+6
X HDR+9~*, HDR+10, FILTER+8~, FILTER+24*, FILTER+36*, FILTER+56*, ASKDIV+3~, ONEDIV+8, ONEDIV+10, LINKI+2~
, PTVW+2~, CEA+26~, PRTSTAT+2~, HELP+1*
>> XQORNOD(0 EXPAND+3, LINKI+3, ACCTPR+3, PTVW+3, PRTSTAT+3, REMOVE+4
XQORS EN+4!
XX FILTER+8~, ASKDIV+3~, ASKDIV+17*, ASKDIV+18, ASKDIV+19*, ASKDIV+20, ASKDIV+21
Y FILTER+8~, FILTER+25, FILTER+26, FILTER+27, FILTER+37, FILTER+57, ASKDIV+3~, ONEDIV+9, ONEDIV+10, LINKI+2~
, PTVW+2~, CEA+26~, PRTSTAT+2~
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  | All