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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPRTP0

Package: Accounts Receivable

Routine: RCDPRTP0


Information

RCDPRTP0 ;ALB/LDB - CLAIMS MATCHING REPORT ;5/24/00 10:48 AM

Source Information

Source file <RCDPRTP0.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 $$FMADD^XLFDT  $$UP^XLFSTR  EN^XUTMDEVQ  
Accounts Receivable 2 $$SCRNARCT^RCDPRTP  ($$NAM,$$SSN)^RCFN01  
Integrated Billing 1 $$TYP^IBRFN  
Registration 1 (DEM,ELIG)^VADPT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Accounts Receivable 1 RCDPRTP  

Entry Points

Name Comments DBIA/ICR reference
PAT
DATE
TYPE
BILL
REC
TYPEPIC(RCTYPE) ; function for user selection of care types PRCA*4.5*315
; RCTYPE is an output array, pass by reference
; RCTYPE(type)="" where type can be (I)npatient, (O)utpatient,(P)rosthetics or (R)x (Prescription)
; Function value is 1 if at least 1 care type was selected, 0 otherwise
; User can select one, all or a combination of care types.
FORMAT(RCEXCEL) ; capture the report format from the user (normal or CSV output) PRCA*4.5*315
; RCEXCEL=0 for normal output
; RCEXCEL=1 (^ separated values) for Excel output
; pass parameter by reference
DEVICE ; Device Selection for Excel output PRCA*4.5*315
; RCEXCEL=1 for Excel ('^' separated values) output
EXMSG ; - Displays the message about capturing to an Excel file format

External References

Name Field # of Occurrence
^DIR TYPEPIC+17, TYPEPIC+28, FORMAT+14, DEVICE+16
$$TYP^IBRFN PAT+9, TYPE+12
$$SCRNARCT^RCDPRTP PAT+4, DATE+6, TYPE+6, REC+7
$$NAM^RCFN01 PAT+1, DATE+9, TYPE+9, BILL+2, REC+11
$$SSN^RCFN01 PAT+2, DATE+10, TYPE+10, BILL+3, REC+10
DEM^VADPT PAT+8, DATE+11, TYPE+11, BILL+5, REC+12
ELIG^VADPT PAT+8, DATE+11, TYPE+11, BILL+5, REC+12
$$FMADD^XLFDT DATE+2, TYPE+2
$$UP^XLFSTR TYPEPIC+22, TYPEPIC+32
EN^XUTMDEVQ DEVICE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPEPIC+17
Function Call: WRITE
  • Prompt: !!,"User exited with '^', quitting",!
  • Line Location: TYPEPIC+29
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TYPEPIC+36
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+14
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: !!?5,"This report may take a while to run. It is recommended that you Queue it."
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !!?5,"To capture as an Excel format, it is recommended that you queue this"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"report to a spool device with margins of 256 and page length of 99999"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !?5,"report data. On some terminals, this can be done by clicking on the"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !?5,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !?5,"Desktop. To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+9
Function Call: WRITE
  • Prompt: !?5,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+10
Routine Call
  • DIR
  • Line Location:
    • TYPEPIC+17
    • TYPEPIC+28
    • FORMAT+14
    • DEVICE+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] PAT+3, PAT+4, DATE+5, TYPE+5, REC+6
^PRCA(433 - [#433] PAT+5, PAT+6, DATE+2, DATE+3, DATE+4, TYPE+2, TYPE+3, TYPE+4, BILL+6, REC+2
, REC+3, REC+4, REC+15
^RCD(340 - [#340] DATE+8, TYPE+8, BILL+1, BILL+4, REC+9
^TMP("RCDPRTPB" PAT+12*, PAT+13*, DATE+12*, DATE+13*, TYPE+15*, TYPE+16*, BILL+7*, BILL+8*, REC+13*, REC+15*

Label References

Name Line Occurrences
EXMSG DEVICE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DAT DATE+2*, DATE+3, DATE+13, TYPE+2*, TYPE+3, TYPE+16
>> DATEEND PAT+7, DATE+2, TYPE+2
>> DATESTRT PAT+7, DATE+2, TYPE+2
DFN PAT+8*, PAT+14!, DATE+11*, DATE+14!, TYPE+11*, TYPE+17!, BILL+4*, BILL+9!, REC+12*, REC+14!
DIR TYPEPIC+6~, TYPEPIC+17!, TYPEPIC+28!, FORMAT+5~, FORMAT+14!, DEVICE+3~, DEVICE+16!
DIR("?" FORMAT+10*, FORMAT+11*, FORMAT+12*, FORMAT+13*
DIR("A" TYPEPIC+16*, TYPEPIC+28*, FORMAT+7*
DIR("B" TYPEPIC+15*, FORMAT+8*
DIR(0 TYPEPIC+9*, TYPEPIC+15*, TYPEPIC+27*, FORMAT+9*, DEVICE+16*
DIROUT TYPEPIC+6~, FORMAT+5~, DEVICE+3~
DIRUT TYPEPIC+6~, TYPEPIC+21, TYPEPIC+26, TYPEPIC+30, FORMAT+5~, FORMAT+15, DEVICE+3~
DTOUT TYPEPIC+6~, TYPEPIC+35, FORMAT+5~, DEVICE+3~
DUOUT TYPEPIC+6~, TYPEPIC+29, TYPEPIC+35, FORMAT+5~, DEVICE+3~
OK TYPEPIC+6~, TYPEPIC+8*, TYPEPIC+26*, TYPEPIC+30*, TYPEPIC+35*, TYPEPIC+36*, TYPEPIC+37
POP DEVICE+3~, DEVICE+15
RC TYPEPIC+6~, TYPEPIC+10*, TYPEPIC+11*, TYPEPIC+12*, TYPEPIC+13*, TYPEPIC+14*, TYPEPIC+15
RCBIL PAT+3*, PAT+4, PAT+5, PAT+9, PAT+13, DATE+4*, DATE+5, DATE+13, TYPE+4*, TYPE+5
, TYPE+12, TYPE+16, REC+1~, REC+4*, REC+5, REC+6, REC+15
RCBIL0 DATE+5*, DATE+6, DATE+7, TYPE+5*, TYPE+6, TYPE+7, REC+1~, REC+6*, REC+7, REC+8
RCBILL BILL+6, BILL+8, BILL+9!
RCDEBT PAT+1, PAT+2, PAT+15!, DATE+1~, DATE+8*, DATE+9, DATE+10, DATE+12, DATE+13, TYPE+1~
, TYPE+8*, TYPE+9, TYPE+10, TYPE+15, TYPE+16, BILL+1*, BILL+2, BILL+3, BILL+4, REC+1~
, REC+9*, REC+10, REC+11, REC+13, REC+15
RCDFN PAT+3, PAT+8, PAT+15!, DATE+1~, DATE+7*, DATE+8, DATE+11, TYPE+1~, TYPE+7*, TYPE+8
, TYPE+11, BILL+1, REC+1~, REC+8*, REC+9, REC+12
RCEXCEL FORMAT~, FORMAT+6*, FORMAT+16*, FORMAT+17
>> RCNAM PAT+1*, PAT+12, PAT+13, DATE+9*, DATE+12, DATE+13, TYPE+9*, TYPE+15, TYPE+16, BILL+2*
, BILL+7, BILL+8, REC+11*, REC+13, REC+15
>> RCPAY PAT+5*, PAT+6, DATE+3*, DATE+4, TYPE+3*, TYPE+4
RCPAY1 PAT+6*, PAT+7, PAT+13, REC+1~, REC+3*, REC+4
>> RCPT REC+2
>> RCQUIT TYPEPIC+25, TYPEPIC+26*, TYPEPIC+29*, FORMAT+15*
RCREC1 REC+1~, REC+2*, REC+3, REC+4, REC+15
>> RCSORT DEVICE+10, DEVICE+11, DEVICE+12, DEVICE+13
RCSSN PAT+2*, PAT+12, DATE+10*, DATE+12, TYPE+10*, TYPE+15, BILL+3*, BILL+7, REC+1~, REC+10*
, REC+13
RCTP BILL+6*, BILL+8, BILL+9!
RCTP(0 BILL+6*
RCTYP DATE+2*, DATE+3, TYPE+1~, TYPE+2*, TYPE+3
RCTYPE PAT+9*, PAT+10*, PAT+11, TYPE+12*, TYPE+13*, TYPE+14, TYPEPIC~, TYPEPIC+7!, TYPEPIC+36
RCTYPE( PAT+11, TYPE+14, TYPEPIC+19*, TYPEPIC+23*, TYPEPIC+33*
U TYPEPIC+15
VA PAT+14!, DATE+14!, TYPE+17!, BILL+9!, REC+14!
VADM PAT+14!, DATE+14!, TYPE+17!, BILL+9!, REC+14!
VADM(3 PAT+12, DATE+12, TYPE+15, BILL+7, REC+13
VAEL PAT+14!, DATE+14!, TYPE+17!, BILL+9!, REC+14!
VAEL(1 PAT+12, DATE+12, TYPE+15, BILL+7, REC+13
VAERR PAT+14!, DATE+14!, TYPE+17!, BILL+9!, REC+14!
X TYPEPIC+6~, TYPEPIC+19*, TYPEPIC+22*, TYPEPIC+23, TYPEPIC+25, TYPEPIC+31, TYPEPIC+32*, TYPEPIC+33, FORMAT+5~, DEVICE+3~
Y TYPEPIC+6~, TYPEPIC+18, TYPEPIC+21, TYPEPIC+25, FORMAT+5~, FORMAT+16, DEVICE+3~
ZTDESC DEVICE+3~, DEVICE+7*, DEVICE+15
ZTRTN DEVICE+3~, DEVICE+6*, DEVICE+15
ZTSAVE DEVICE+3~, DEVICE+15
ZTSAVE("DATE*" DEVICE+13*
ZTSAVE("DATEEND" DEVICE+8*
ZTSAVE("DATESTRT" DEVICE+8*
ZTSAVE("RCAN" DEVICE+9*
ZTSAVE("RCBILL" DEVICE+11*
ZTSAVE("RCDEBT" DEVICE+10*, DEVICE+11*
ZTSAVE("RCDFN" DEVICE+10*, DEVICE+11*
ZTSAVE("RCEXCEL" DEVICE+8*
ZTSAVE("RCPT" DEVICE+12*
ZTSAVE("RCQUIT" DEVICE+8*
ZTSAVE("RCSORT" DEVICE+8*
ZTSAVE("RCTYPE*" DEVICE+10*, DEVICE+13*
ZTSAVE("ZTREQ" DEVICE+9*
ZTSAVE("^TMP(""RCDPRTPB"",$J," DEVICE+9*
ZTSK DEVICE+3~, DEVICE+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All