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

Package: Accounts Receivable

Routine: RCDPCRR


Information

RCDPCRR ;ALB/TJB - CARC/RARC DATA TABLE REPORT ;11/03/14 1:00pm

Source Information

Source file <RCDPCRR.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  $$DT^XLFDT  $$UP^XLFSTR  
VA FileMan 4 ($$GET1,GETS)^DIQ  ^DIR  ^DIWP  ^DIWW  
Accounts Receivable 1 ($$DATE,$$NOW,$$VAL,ASK)^RCDPRU  

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

Package Total Caller Graph
Accounts Receivable 6 RCDPARC  RCDPE CARC/RARC QUICK SEARCH  RCDPE CARC/RARC TABLE REPORT  RCDPESP1  RCDPESP5  RCDPESP7  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for Report
R1 ;
DT1 ; Check the date
ENQ ; Return here for queued print
REPORT ;
; Report
ARCQ ; Clean up and quit
GETCODES(CARC,RARC,STAT,RDT,ARRAY,DESC) ;
; CARC = CARC data to retrieve
; RARC = RARC data to retrieve
; CARC and RARC can be a single code, a list of codes, range or combination.
; STAT = Retrieve Active, Inactive or Both codes
; RDT = Report date (used to determine Active/Inactive status)
; ARRAY = Stuff the data into ARRAY passed for as a string for indirection
; DESC (optional) = Add description to ARRAY, second ^ is length, if
; undefined or less than 10 characters description
; length will be 10 characters, maximum is 250 characters
ELEM(TYPE,FILE,DAT,STAT,RDT,ARRAY,DESC) ;
STAT(INC,ZDT,SP,ST) ; Determine if this code should be included in report
; INC = Active, Inactive, Both; ZDT = Date of report ; ST = Start date of code ; SP = Stop Date of code
GCARC(RET) ; Get CARC data elements for report
C1
C2
LIST(FILE) ; Used for "??" to list the CARC or RARC code and 60 characters of the description
GRARC(RET) ; Get RARC data elements for report
G1
G2
GCD(RET,CS) ; Get CARC and/or RARC data elements for Quick Search report
GC1 ;if invalid code return here
DATE(X,F) ; date in external format See XLFDT1 for codes
HDR2(ST,RT,DT) ; Report header
HDR3() ; Fuction to return report column header lines, just used within this routine.
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) ; 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
VAL(XF,CODE) ; Validate a range or list of CARC (345), RARC (346) or PLB (345.1) Codes
; If invalid code is found VAILD = 0 and CODE will contain the offending codes
UP(TEXT) ; Translate text to upper case

External References

Name Field # of Occurrence
^%ZIS DT1+13
HOME^%ZIS DT1+18
^%ZTLOAD DT1+16
$$GET1^DIQ ELEM+11, ELEM+21
GETS^DIQ REPORT+15
^DIR R1+3, R1+9, R1+20, DT1+2, GCARC+4, C1+6, C2+6, LIST+5, GRARC+4, G1+6
, G2+6, GC1+5
^DIWP REPORT+32, REPORT+36
^DIWW REPORT+33, REPORT+36
$$DATE^RCDPRU DATE+1
$$NOW^RCDPRU EN+12, ENQ+1
$$VAL^RCDPRU VAL+2
ASK^RCDPRU REPORT+40, NEWPG+7
$$DT^XLFDT EN+10
$$UP^XLFSTR UP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Error: No Codes selected for display...",!,"Please select either CARC and/or RARC to include on report",!
  • Line Location: R1+14
Function Call: WRITE
  • Prompt: !,"Invalid date entered, no records for report.",!,"Please select a date after 1/1/1995.",!
  • Line Location: DT1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DT1+7
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: DT1+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: $$HDR3(),!
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: RCHR,!
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: "CODE^START^STOP^MODIFIED^VDATE^TYPE^DESCRIPTION^NOTES",!
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: EXLN,!
  • Line Location: REPORT+25
Function Call: WRITE
  • Prompt: ?(4-$L($P(ZN,U,1))),$P(ZN,U,1),?8,$$DATE($P(ZN,U,2))
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: ?64,$$DATE($P($P(ZN,U,5),".",1))
  • Condition for execution: $P(ZN,U,4)'="" ?35,$$DATE($P(ZN,U,4)) W ?51,TY W:$P(ZN,U,5)'=""
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+37
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found. Please try again...",!
  • Line Location: C1+9
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found, Please reenter...",!
  • Line Location: C1+10
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found. Please try again...",!
  • Line Location: C2+8
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found. Please try again...",!
  • Line Location: G1+9
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found, Please try again...",!
  • Line Location: G1+10
Function Call: WRITE
  • Prompt: !!,"Code: "_RCODE_" not found, Please try again...",!
  • Line Location: G2+9
Function Call: WRITE
  • Prompt: !!,"Code: "_RCLIST_" not found. Please try again...",!
  • Line Location: GC1+8
Function Call: WRITE
  • Prompt: !!,"Code: "_CD_" not found. Please try again...",!
  • Line Location: GC1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRP+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z)\2),Z
  • Line Location: HDRP+2
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z1)),Z1
  • Condition for execution: $G(Z1)]""
  • Line Location: HDRP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWPG+12
Function Call: WRITE
  • Prompt: $$HDR3(),!
  • Line Location: NEWPG+13
Function Call: WRITE
  • Prompt: RCHR,!
  • Line Location: NEWPG+14
Routine Call
  • %ZIS
  • Line Location:
    • DT1+13
Routine Call
  • %ZIS
  • Line Location:
    • DT1+18
Routine Call
  • DIR
  • Line Location:
    • R1+3
    • R1+9
    • R1+20
    • DT1+2
    • GCARC+4
    • C1+6
    • C2+6
    • LIST+5
    • GRARC+4
    • G1+6
    • G2+6
    • GC1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RC( ELEM+3, ELEM+6, ELEM+7, ELEM+8, ELEM+18, LIST+2, LIST+3
^TMP("RC_CARC_RARC_TABLE" EN+10!, EN+11, ENQ+3!, ENQ+4, REPORT+12, REPORT+13, ARCQ+2!
^UTILITY($J REPORT+31!, REPORT+36!

Label References

Name Line Occurrences
$$DATE REPORT+17, REPORT+18, REPORT+27, REPORT+28, HDR2+4
$$HDR2 REPORT+7, NEWPG+12
$$HDR3 REPORT+8, NEWPG+13
$$NEWPG REPORT+29, REPORT+32, REPORT+34, REPORT+38
$$STAT ELEM+14, ELEM+24
$$UP R1+5, R1+11, R1+22, C1+8, C2+8, G1+8, G2+8, GC1+7
$$VAL C1+10, C2+8, G1+10, G2+9, GC1+12, GC1+13
ARCQ EN+9, R1+4, R1+10, R1+21, DT1+3, REPORT+29, REPORT+32, REPORT+34, REPORT+38
C1 C1+9, C1+10
C2 C2+8
DT1 DT1+5
ELEM GETCODES+11, GETCODES+12
G1 G1+9, G1+10
G2 G2+9
GC1 GC1+8, GC1+11
GCD EN+8
GETCODES EN+11, ENQ+4
HDRP REPORT+4, REPORT+5, REPORT+6, REPORT+7, NEWPG+9, NEWPG+10, NEWPG+11, NEWPG+12
R1 EN+6, R1+14
REPORT EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, DT1+13*
ARRAY GETCODES~, GETCODES+11, GETCODES+12, ELEM~, ELEM+15, ELEM+25
C LIST+1~*, LIST+5
CARC GETCODES~, GETCODES+11
CD EN+1~, REPORT+12*, REPORT+13, GCD+1~, GC1+10*, GC1+11*, GC1+12, GC1+13, GC1+17, GC1+18
CK0 GCD+1~, GC1+12*, GC1+15, GC1+17
CK1 GCD+1~, GC1+13*, GC1+15, GC1+18
CNT LIST+1~*, LIST+4*, LIST+5
CODE VAL~, VAL+2
CS GCD~, GC1+20*
DAT ELEM~, ELEM+3*, ELEM+4
DATA ARCQ+1!, ELEM+1~, ELEM+8*, ELEM+15, ELEM+18*, ELEM+25
DESC GETCODES~, GETCODES+10*, GETCODES+11, GETCODES+12, ELEM~, ELEM+2
DHDR ARCQ+1!
DIR EN+1~, R1+3!, R1+9!, R1+20!, DT1+2!, GCARC+4!, C1+6!, C2+6!, LIST+1~, GRARC+4!
, G1+6!, G2+6!, GC1+5!
DIR("?" R1+17*, R1+18*, R1+19*, DT1+1*, C1+2*, C1+3*, C1+4*, C2+2*, C2+3*, C2+4*
, G1+2*, G1+3*, G1+4*, G2+2*, G2+3*, G2+4*, GC1+2*, GC1+3*, GC1+4*
DIR("??" C1+5*, C2+5*, G1+5*, G2+5*
DIR("A" R1+2*, R1+8*, R1+16*, DT1+2*, GCARC+3*, C1+1*, C2+1*, GRARC+3*, G1+1*, G2+1*
, GC1+1*
DIR("B" R1+3*, R1+9*, R1+20*, DT1+2*, GCARC+4*, GRARC+4*
DIR(0 R1+2*, R1+8*, R1+16*, DT1+2*, GCARC+3*, C1+1*, C2+1*, LIST+5*, GRARC+3*, G1+1*
, G2+1*, GC1+1*
DIWF REPORT+32*, REPORT+36*, ARCQ+1!
DIWL REPORT+32*, REPORT+36*, ARCQ+1!
DIWR REPORT+32*, REPORT+36*, ARCQ+1!
DL EN+1~, REPORT+20*, REPORT+21*, REPORT+22, ELEM+1~*, ELEM+2*, ELEM+9, ELEM+12, ELEM+15, ELEM+19
, ELEM+22, ELEM+25
DT DT1+2, LIST+4, HDR2~, HDR2+4
DTOUT EN+1~, R1+4, R1+10, R1+21, DT1+3, GCARC+1~, GCARC+5, C1+7, C2+7, LIST+1~
, LIST+5, GRARC+1~, GRARC+5, G1+7, G2+7, GCD+1~, GC1+6
DUOUT EN+1~, R1+4, R1+10, R1+21, DT1+3, GCARC+1~, GCARC+5, C1+7, C2+7, LIST+1~
, LIST+5, GRARC+1~, GRARC+5, G1+7, G2+7, GCD+1~, GC1+6
ELEM ELEM+1~, ELEM+4*, ELEM+5, ELEM+6, ELEM+18, ELEM+25
ERROR ARCQ+1!
EX GCD+1~, GC1+10*, GC1+11, GC1+15*
EXLN EN+1~, REPORT+17*, REPORT+18*, REPORT+22*, REPORT+24*, REPORT+25
F DATE~, DATE+1
FILE EN+2~, REPORT+12*, REPORT+15, REPORT+21, REPORT+24, REPORT+32, REPORT+36, ELEM~, ELEM+3, ELEM+6
, ELEM+7, ELEM+8, ELEM+11, ELEM+18, ELEM+21, GCARC+1~, GCARC+2*, C1+10, C2+8, LIST~
, LIST+2, LIST+3, GRARC+1~, GRARC+2*, G1+10, G2+9, GCD+1~
FILE(0 GCD+2*, GC1+12
FILE(1 GCD+2*, GC1+13
I EN+1~, ELEM+1~, ELEM+4*, LIST+1~, LIST+2*, GC1+11*
IDX EN+2~, REPORT+11*, REPORT+12
IEN EN+2~, REPORT+13*, REPORT+15, REPORT+21, REPORT+24, REPORT+32, REPORT+36
INC STAT~, STAT+3, STAT+4, STAT+7
IO DT1+19
IO("Q" DT1+14, DT1+18!
IOF REPORT+3, NEWPG+8
IOM EN+12, ENQ+1, REPORT+32, REPORT+36, HDRP+2
IOSL REPORT+29, REPORT+32, REPORT+34, REPORT+38, LIST+1, NEWPG+6
IX EN+1~, REPORT+31*, REPORT+32*, ARCQ+1!
JJ EN+1~, REPORT+12*, LIST+2*, LIST+3
KK EN+1~, REPORT+20*, REPORT+21*
LINE HDR2+1~, HDR2+2*, HDR2+4*, HDR2+5, HDR3+1~, HDR3+2*, HDR3+3*, HDR3+4
O1 ELEM+1~, ELEM+8*, ELEM+11, ELEM+15, ELEM+18*, ELEM+21, ELEM+25
OKAY ELEM+1~, ELEM+14*, ELEM+15, ELEM+24*, ELEM+25
POP EN+1~, DT1+13
QQ LIST+1~*, LIST+2, LIST+5*
QS EN+6, REPORT+4, REPORT+7, ARCQ+1!, NEWPG+9, NEWPG+12
R1 ELEM+1~, ELEM+3*, ELEM+6*
R2 ELEM+1~, ELEM+3*, ELEM+6*, ELEM+7
RARC GETCODES~, GETCODES+12
RC1 LIST+1~, LIST+3*, LIST+4
RCCD EN+2~, EN+8, EN+9
RCCD("CARC" EN+11, R1+6*, ENQ+4
RCCD("RARC" EN+11
RCDAT REPORT+14!
RCDAT( REPORT+21, REPORT+24, REPORT+32, REPORT+36
RCDET EN+1~, EN+8, R1+5*, R1+6, R1+11*, R1+12, REPORT+7, NEWPG+12
RCDISP EN+2~, EN+10*, DT1+9*, REPORT+2, REPORT+16
RCDT1 EN+1~, EN+10*, EN+11, DT1+4*, DT1+5, ENQ+4, REPORT+7, NEWPG+12
RCERR REPORT+14!
RCEXCEL ARCQ+1!
RCHR EN+2~, EN+12*, ENQ+1*, REPORT+9, NEWPG+14
RCJOB EN+2~
RCLIST ARCQ+1!, GCARC+1~, GCARC+6*, GCARC+7, GCARC+8, C1+13, GRARC+1~, GRARC+6*, GRARC+7, GRARC+9
, G1+13, GCD+1~, GC1+7*, GC1+8*, GC1+11*
RCNEW NEWPG~, NEWPG+6
RCNOW EN+2~, EN+12*, ENQ+1*, REPORT+6, NEWPG+11
RCODE EN+2~, EN+12*, R1+1*, R1+6*, R1+12*, R1+14, REPORT+11, ARCQ+1!, GCARC+1~, C1+8*
, C1+9*, C1+10*, C1+11, C2+8*, C2+9, GRARC+1~, G1+8*, G1+9*, G1+10*, G1+11
, G2+8*, G2+9*, G2+10, GCD+1~
RCPG EN+2~, EN+12*, ENQ+1*, REPORT+3*, REPORT+4, REPORT+5, REPORT+29, REPORT+32, REPORT+34, REPORT+38
, NEWPG~, NEWPG+6, NEWPG+7, NEWPG+8*, NEWPG+9, NEWPG+10
RCQUIT EN+2~, EN+3*, REPORT+12, REPORT+29*, REPORT+32*, REPORT+34*, REPORT+38*, REPORT+40
RCRD EN+2~
RCRD("RARC" R1+12*, ENQ+4
RCSL REPORT+9*, REPORT+28*, REPORT+29, REPORT+32*, REPORT+33*, REPORT+34, REPORT+36*, REPORT+37*, REPORT+38, NEWPG~
, NEWPG+14*
RCSTAT EN+2~, EN+10*, EN+11, R1+22*, ENQ+4, REPORT+7, NEWPG+12
RCSTOP REPORT+40, GCARC+5*, C1+7*, C2+7*, GRARC+5*, G1+7*, G2+7*, GC1+6*, NEWPG+5~*, NEWPG+7
, NEWPG+15
RCZ LIST+1~, LIST+3*, LIST+4
RCZT ELEM+1~, ELEM+11!, ELEM+21!
RCZT( ELEM+11, ELEM+21
RDT GETCODES~, GETCODES+11, GETCODES+12, ELEM~, ELEM+14, ELEM+24
REP HDR2+1~, HDR2+3*, HDR2+4
RET STAT+2~*, STAT+3*, STAT+4*, STAT+5*, STAT+6*, STAT+7*, STAT+8*, STAT+9*, GCARC~, GRARC~
, GCD~, GC1+6*
RET("CARC" GCARC+7*, C1+11*, C2+9*, GC1+10!, GC1+17*, GC1+20
RET("RARC" GRARC+7*, G1+11*, G2+10*, GC1+10!, GC1+18*
RT HDR2~, HDR2+3
RX ELEM+1~, ELEM+6*, ELEM+7*, ELEM+8, ELEM+15
RY ELEM+1~, ELEM+11*, ELEM+12*, ELEM+15, ELEM+21*, ELEM+22*, ELEM+25
RZ ELEM+1~, ELEM+11*, ELEM+21*
SP STAT~, STAT+5, STAT+6, STAT+8, STAT+9
ST STAT~, STAT+3, STAT+6, STAT+8, STAT+9, HDR2~, HDR2+2
START ELEM+1~, ELEM+8*, ELEM+14, ELEM+18*, ELEM+24
STAT GETCODES~, GETCODES+11, GETCODES+12, ELEM~, ELEM+14, ELEM+24
STOP ELEM+1~, ELEM+8*, ELEM+14, ELEM+18*, ELEM+24
TEXT UP~, UP+1
TY EN+2~, REPORT+12*, REPORT+13, REPORT+18, REPORT+28
TYPE ELEM~, ELEM+15, ELEM+25
U REPORT+12, REPORT+17, REPORT+18, REPORT+22, REPORT+24, REPORT+27, REPORT+28, ELEM+2, ELEM+8, ELEM+15
, ELEM+18, ELEM+25, LIST+4
X EN+1~, REPORT+32*, REPORT+36*, C1+8, C1+9*, C1+10*, C2+8*, G1+8, G1+9*, G1+10*
, G2+8, G2+9*, GC1+7, GC1+8*, GC1+11*, DATE~, DATE+1, HDRP~, HDRP+1
XCNT EN+2~, REPORT+31*
XF VAL~, VAL+2
Y EN+1~, R1+4, R1+5, R1+10, R1+11, R1+21, R1+22, DT1+3, DT1+4, GCARC+5
, GCARC+6, C1+7, C2+7, LIST+1~, LIST+5, GRARC+5, GRARC+6, G1+7, G2+7, GC1+6
Z EN+1~, HDRP~, HDRP+2
Z1 HDRP~, HDRP+2
ZDT STAT~, STAT+3, STAT+6, STAT+8, STAT+9
ZN EN+2~, REPORT+13*, REPORT+17, REPORT+18, REPORT+27, REPORT+28
ZTDESC EN+1~, DT1+15*
ZTRTN EN+1~, DT1+15*
ZTSAVE EN+1~
ZTSAVE("*" DT1+15*
ZTSK EN+1~, DT1+17, DT1+18!
ZTSTOP EN+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All