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

Package: Accounts Receivable

Routine: PRCA399Z


Information

PRCA399Z ;MNTVBB/RGB - Patient bills reset AFTER DISCREPANCY RUN ; 2/22/22

Source Information

Source file <PRCA399Z.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 5 EN^PRCA399A  (14,15,16,20)^PRCA399E  $$REFUREVW^PRCAMRKC  $$NAM^RCFN01  $$SITE^RCMSITE  
Kernel 2 $$FMADD^XLFDT  MES^XPDUTL  
VA FileMan 2 (C,NOW)^%DTC  ^DIC  
List Manager 1 $$UPPER^VALM1  

Entry Points

Name Comments DBIA/ICR reference
EN
XX
CHK0
CHK1
FINDF1ST ;Searches file 433 for first 'PANDEMIC OFFSET' to drive bill reset process
SETTAB ;SET TX CODE TABLE IN TEMP GLOBAL
BILLDT ;FIND PREVIOUS/CURRENT MONTH STATEMENT DATE BASED ON INSTALL DATE VS STATEMENT DAY
GETDBTIM ;Get debtor last statement build end time **NOT CALLED**
ALLDEBTS ;GATHER REST OF DEBTORS/BILLS NOT HIT BY 382/385
USTART ;ASK IF USE TMP GLOBAL OUT OF PRCAMRKC RUN, NEED TO RUN RIGHT AFTER DISCREP RUN
U ;KILL ^TMP("PRCAMARK") AND ASK DEBTOR(S)
U1
U2
SELECT
ASK
CURTX
TXCODES ;TRANSACTIN CODES

External References

Name Field # of Occurrence
C^%DTC BILLDT+4, BILLDT+6
NOW^%DTC EN+5, CHK1+6, CHK1+16, ALLDEBTS+2, ALLDEBTS+14
^DIC ASK+4
EN^PRCA399A CHK1+10
14^PRCA399E CHK1+12
15^PRCA399E CHK1+12
16^PRCA399E CHK1+12
20^PRCA399E CHK1+12
$$REFUREVW^PRCAMRKC U1+3
$$NAM^RCFN01 ASK+3
$$SITE^RCMSITE EN
$$UPPER^VALM1 ASK+1
$$FMADD^XLFDT EN+3
MES^XPDUTL CHK1+13, CHK1+14, CHK1+15, ALLDEBTS+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*********sign off and get a new $J as this $J would kill the INITIAL patch 399 recalc detail ********"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,PRCABILL,?15,PRCAR7
  • Line Location: CHK1+5
Function Call: READ
  • Formatting: !
  • Prompt: "USE TEMP FILE OUT OF STATEMENT DISCREPANCY RUN? Y/N: "
  • Variable: PRCAX
  • Timeout: DTIME
  • Line Location: USTART+2
Function Call: WRITE
  • Prompt: !!,"*** NOTHING IN FILE, MUST SELECT ENTRIES"
  • Line Location: USTART+3
Function Call: WRITE
  • Prompt: " ** NOT DEFINED AS PATIENT **"
  • Line Location: U1+1
Function Call: WRITE
  • Prompt: " ** NO BILLS ON FILE FOR DEBTOR **"
  • Line Location: U1+2
Function Call: WRITE
  • Prompt: " ** REFUND REVIEW DEBTOR **"
  • Line Location: U1+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DEBTOR NAME or BILL NUMBER: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Routine Call
  • DIC
  • Line Location:
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCD(340 - [#340] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN
^DISV( ASK+3*, ASK+5*
^PRCA(430 - [#430] XX+8, CHK1, CHK1+1, CHK1+3, FINDF1ST+3, ALLDEBTS+5, ALLDEBTS+6, ALLDEBTS+9, ALLDEBTS+12, U1+2
, ASK+2, ASK+3
^PRCA(433 - [#433] FINDF1ST+1, FINDF1ST+2, FINDF1ST+4, FINDF1ST+5, FINDF1ST+6, FINDF1ST+7, FINDF1ST+10*, CURTX+1, CURTX+3, CURTX+4
^RC(341 - [#341] GETDBTIM+4
^RC(342 - [#342] BILLDT+2
^RCD(340 - [#340] XX+4, U1+1, ASK+3
^TMP("PRCACD" CHK1+17!, SETTAB+1!, SETTAB+2*
^TMP("PRCAMRKC" EN+7, XX+2, XX+3, USTART+3, U+1!, U1+4*, ASK+6*
^XTMP("PRCA399" EN+1, EN+2!*, EN+3*, EN+4*, EN+5*, EN+6*, EN+7*, XX+1, XX+5, XX+6*
, XX+7*, CHK0, CHK0+2*, CHK0+3*, CHK1*, CHK1+4*, CHK1+5*, CHK1+6*, CHK1+16*, FINDF1ST+10*
, BILLDT+8*, GETDBTIM+2, GETDBTIM+6*, GETDBTIM+7*, ALLDEBTS+2*, ALLDEBTS+3, ALLDEBTS+6, ALLDEBTS+7, ALLDEBTS+9*, ALLDEBTS+10*
, ALLDEBTS+11*, ALLDEBTS+13*, ALLDEBTS+14*, U2*, U2+2*, CURTX+4*

Label References

Name Line Occurrences
ALLDEBTS CHK1+8
ASK ASK+4, ASK+7
BILLDT XX
CURTX ALLDEBTS+4
FINDF1ST XX
SELECT U1
SETTAB XX
U USTART+2, USTART+3
U2 USTART+4, U1
USTART EN+7

Naked Globals

Name Field # of Occurrence
^(0 ASK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5, EN+6, CHK1+6, CHK1+16, ALLDEBTS+2, ALLDEBTS+14
BAT SELECT~
BILL SELECT~
COUNT SELECT~, ASK*
DA SELECT~
DEBT SELECT~, ASK+3*, ASK+5*
DIC CHK1+19!, ASK+4*
DIC(0 ASK+4*
DPTNOFZK SELECT+1~*
DPTNOFZY SELECT+1~*
DR SELECT~
DT EN+3, BILLDT+3, BILLDT+7
DTIME USTART+2, ASK
DUZ ASK+3, ASK+5
DXS SELECT~
>> FINDF1ST FINDF1ST+1*
I CHK1+18!, U1*
>> II SETTAB+2*
J CHK1*, CHK1+18!, ALLDEBTS+9*
OUT SELECT~, ASK!
PRCA SELECT~
PRCABDAT GETDBTIM+1~, GETDBTIM+3, GETDBTIM+5, GETDBTIM+7
PRCABDAY BILLDT+1~, BILLDT+3*, BILLDT+4, BILLDT+6, BILLDT+8
PRCABDT CHK1+3*, CHK1+4, CHK1+18!, FINDF1ST+3*, FINDF1ST+4*, FINDF1ST+5, ALLDEBTS+12*, ALLDEBTS+13, ALLDEBTS+17!
PRCABILD BILLDT+1~, BILLDT+2*, BILLDT+3, BILLDT+8, GETDBTIM+7
PRCABILL XX+8*, CHK0, CHK0+2, CHK0+3, CHK1, CHK1+1, CHK1+3, CHK1+4, CHK1+5, CHK1+7!
, CHK1+18!
PRCABLDT CHK1+19!
>> PRCABTX FINDF1ST+2*, FINDF1ST+8, FINDF1ST+9*, FINDF1ST+10
PRCACD CHK1+18!, SETTAB+2*
PRCACDT GETDBTIM+1~, GETDBTIM+2*, GETDBTIM+3*, GETDBTIM+4*, GETDBTIM+5*, GETDBTIM+6
PRCADB ALLDEBTS+1*, ALLDEBTS+3*, ALLDEBTS+5, ALLDEBTS+6, ALLDEBTS+10, ALLDEBTS+11, ALLDEBTS+13, ALLDEBTS+17!, SELECT~, ASK*
, ASK+3*, ASK+5*, ASK+6, CURTX+1, CURTX+3, CURTX+4
PRCADBB CHK1+18!, ALLDEBTS+3*, ALLDEBTS+5*, ALLDEBTS+6, ALLDEBTS+7, ALLDEBTS+9, ALLDEBTS+10, ALLDEBTS+11, ALLDEBTS+12, ALLDEBTS+13
, ALLDEBTS+17!
PRCADBT CHK1+18!
PRCADEB XX+2*, XX+3, XX+4, XX+5, XX+6, XX+7, XX+8, CHK0+2, CHK0+3, CHK1+4
, CHK1+7!, CHK1+18!, FINDF1ST+2*, FINDF1ST+3*, FINDF1ST+4, FINDF1ST+5, GETDBTIM+4, GETDBTIM+6
PRCADTCK CURTX~*, CURTX+1*, CURTX+3
>> PRCAERR EN+6*, EN+7, USTART+1*
PRCAF1ST CHK1+18!, FINDF1ST+10*
>> PRCAFIST FINDF1ST+2*
PRCANEWD BILLDT+1~, BILLDT+7*
>> PRCAPRT XX+1*, U2+1*, U2+2
PRCAPRVD BILLDT+1~, BILLDT+5*, BILLDT+7
PRCAR CHK1+7!, CHK1+18!
PRCAR7 CHK1+1*, CHK1+5, CHK1+7!, CHK1+18!
>> PRCASCDT GETDBTIM+3*, GETDBTIM+5
>> PRCASDAY GETDBTIM+7
>> PRCASETD BILLDT+5*, BILLDT+7*, BILLDT+8, CURTX
PRCASITE EN*, CHK1+18!, CHK1+19!, BILLDT+8, GETDBTIM+7
PRCASTNM EN*, CHK1+7!, CHK1+19!
PRCAT XX+1*, CHK1+6, CHK1+7!, CHK1+19!
PRCAT1 XX+1*, CHK0+1*, CHK1+6, CHK1+7!, CHK1+19!
PRCAT2 XX+1*, XX+7*, CHK1+6, CHK1+7!, CHK1+19!
PRCAT3 XX+1*, CHK1+5*, CHK1+6, CHK1+7!, CHK1+19!
PRCAT4 XX+1*, CHK1+19!
PRCAT5 XX+1*, CHK1+6, CHK1+19!
PRCATB1 ALLDEBTS+1*, ALLDEBTS+8*, ALLDEBTS+17!
PRCATX CHK1+7!, CHK1+19!, FINDF1ST+4*, FINDF1ST+5*, FINDF1ST+6, FINDF1ST+7, FINDF1ST+8, FINDF1ST+9, ALLDEBTS+5*, CURTX~
, CURTX+2*, CURTX+3*, CURTX+4
PRCATYR CHK1+18!
>> PRCAX USTART+2*
>> PRCAYES FINDF1ST+3*, FINDF1ST+4, FINDF1ST+5, FINDF1ST+9*
PRCAZ XX+1*, CHK1+5*, CHK1+7!, CHK1+19!
>> RCDEBTDA U1*, U1+1, U1+2, U1+3, U1+4, ASK*, ASK+6*
>> RCDEPTDA ASK*
SEL SELECT~
TRAN SELECT~
U EN, XX+1*, XX+3, XX+4, XX+7, CHK1+3, CHK1+5, CHK1+6, FINDF1ST+2, BILLDT+2
, BILLDT+8, GETDBTIM+2, GETDBTIM+6, GETDBTIM+7, ALLDEBTS+6, ALLDEBTS+12, CURTX+4
X BILLDT+5, BILLDT+7, SELECT~, ASK*, ASK+1*, ASK+2
>> X1 BILLDT+4*, BILLDT+6*
>> X2 BILLDT+4*, BILLDT+6*
Y SELECT~, ASK+2*, ASK+3, ASK+4, ASK+5

Marked Items

Name Field # of Occurrence
$T(TXCODES+II SETTAB+2
Info |  Source |  Call 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