RCDPCRR ;ALB/TJB - CARC/RARC DATA TABLE REPORT ;11/03/14 1:00pm
Source file <RCDPCRR.m>
| 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
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
