Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RCDPETR

Package: Accounts Receivable

Routine: RCDPETR


Information

RCDPETR ;ALB/TMK,PJH - EOB TRANSFER IN/TRANSFER OUT REPORTS ; 9/17/10 6:31pm

Source Information

Source file <RCDPETR.m>

Entry Points

Name Comments DBIA/ICR reference
RPT ; Transfer In/Out Report
RPTQ
EN(RCRPT,RCDT1,RCDT2) ; Entry point for queued job
ENQ
HDR(RCCT,RCPG,RCSTOP,RCINOUT,RCDT1,RCDT2) ;Prints report heading
; Function returns RCPG = current page # and RCCT = running line count
; and RCSTOP = 1 if user aborted print
; Parameters must be passed by reference
SETLINE(Z,RCCT) ; Writes line
; Z = txt to output
; RCCT = line counter
ASK(RCSTOP) ; Ask to continue
; If passed by reference ,RCSTOP is returned as 1 if print is aborted
STOP(CT,RCSTOP,RCPG) ; Function returns 1 if queued job/user requested forced exit
; Function returns CT if passed by ref to only check every 100 records
RAWBILL(RC3445,RCDAT) ; Returns bill specific data for entry in file 344.5
; RC3445 = Ien file 344.5
; FUNCTION RETURNS RCDAT(SEQ #)=Bill #^amt pd^EOB date (pass by ref)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: RPT+18
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: SETLINE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+4
Info |  Source |  Entry Points |  Interaction Calls