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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEMAR

Package: Accounts Receivable

Routine: RCDPEMAR


Information

RCDPEMAR ;ALB/CNF - MANUAL AUDIT REPORT ;12/31/24

Source Information

Source file <RCDPEMAR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for this report
; Ask Summary or Detail output
DISPLAY(ROW,EFTIEN,TRANS) ; Display EFT detail during user selection process ; PRCA*4.5*439 Modified display
; Input: ROW - Current row number
; EFTIEN - IEN for EFT (#344.31)
; TRANS - EFT transaction number e.g. 999.1
COMPILE(RCDT1,RCDT2,RCREP) ; Compile data for display
; Input: RCDT1 - Beginning date
; RCDT2 - Ending date
; RCREP - D if Detail format, S if Summary format
; Output: ^TMP("RCDPMAR",$J)
REPSUM(RCDT1,RCDT2) ; Print Summary report
; Input: RCDT1 - Start Date
; RCDT2 - End Date
; Output: Written to device
REPDET(RCDT1,RCDT2) ; Build Detailed report in TMP
; Input: RCDT1 - Start Date
; RCDT2 - End Date
; Output: Saved to ^TMP in generic RCDP ListMan report format
SPACES(DATA,COL) ; Return spaces for padding output
; INPUT DATA: String of data
; COL: Column to begin for next data piece
REPEXC ; Print Excel report
SAVE(X,LINES) ; Save a line of the report to the ^TMP global
BK ; Run report in background through task manager
PRINTDET(QUIT) ; Print line in ^TMP global to output the detail report to screen or printer
PAUSE() ; Pause at end of each page for user input
; Input: None
; Output: User response
CHKP(RCREP,RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCSCR,LINES) ; Check if we need to do a page break
; Input: RCREP - D for Detail format, S for Summary format
; RCNOW - DATE/TIME in external format
; RCPG - Current page number
; RCHR - Line of "-" to margin width
; RCDT1 - Start date
; RCDT2 - End date
; RCSCR - 1 - Output is going to the users screen, 0 - to printer
; LINES - Current line count
HEADER(RCREP,RCNOW,RCPG,RCHR,RCDT1,RCDT2) ; Print Header Section
; Input: RCREP - D for Detail format, S for Summary format
; RCNOW - DATE/TIME in external format
; RCPG - Current page number
; RCHR - Line of "-" to margin width
; RCDT1 - Start date
; RCDT2 - End date
; Output: Write statements
LMHDR(RCSTOP,RCDT1,RCDT2,RCHDR) ;
; ListMan report heading
; Input: RCDT1 - Internal Start Date of date range
; RCDT2 - Internal End Date of date range
; Output: RCHDR - Array of listman header lines
; RCSTOP - 1 if user stopped
LMRPT(RCLMHDR,RCLMND,LMTMP)
PAYER(IEN399) ; Get Payer Name and TIN
; Input: IEN399 - IEN to #399
; Output: Payer IEN ^ Payer Name ^ Payer TIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.")
  • Line Location: EN+68
Function Call: WRITE
  • Prompt: !,$E(ROW_". ",1,5)
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: $J(TRANS_SUFX,9)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: " "_$E(PAYER,1,45)_$E($J("",45),1,45-$L(PAYER))
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: " "_$J($$GET1^DIQ(344.31,EFTIEN_",",.07),19)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !,$J(" ",15)_$$GET1^DIQ(344.31,EFTIEN_",",.04)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !,"No data found"
  • Line Location: REPSUM+13
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DATE\1,"2Z"),?13,$J($P(DATA,U,2),6),?23,$J($P(DATA,U,1),6)
  • Line Location: REPSUM+23
Function Call: WRITE
  • Prompt: J
  • Line Location: REPSUM+28
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPSUM+32
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL()
  • Line Location: REPSUM+36
Function Call: WRITE
  • Prompt: !,"DATE^BILL^RATE TYPE CODE^RATE TYPE NAME^USER^PAYER NAME^PAYER TIN^COMMENT 1^COMMENT 2^COMMENT 3^COMMENT 4"
  • Line Location: REPEXC+4
Function Call: WRITE
  • Prompt: !,"No data found"
  • Line Location: REPEXC+7
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DATE\1,"2Z"),"^",$P(DATA,U,2),"^",$P(DATA,U,3),"^",$P(DATA,U,4),"^",$P(DATA,U,6),"^",$P(DATA,U,8),"^",$P(DATA,U,9)
  • Line Location: REPEXC+15
Function Call: WRITE
  • Prompt: "^",X
  • Line Location: REPEXC+16
Function Call: WRITE
  • Prompt: !,"*** END OF REPORT ***",!
  • Line Location: REPEXC+17
Function Call: WRITE
  • Prompt: !,^TMP($J,RCTMPND,LINE)
  • Line Location: PRINTDET+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: "MANUAL AUDIT REPORT - ",$S(RCREP="D":"DETAIL",1:"SUMMARY")
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: ?(IOM-$L(LINE)),LINE
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,"MANUAL AUDIT DATE RANGE: ",$$FMTE^XLFDT(RCDT1\1,"2Z")," - ",$$FMTE^XLFDT(RCDT2,"2Z"),!
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !,"DATE",?10,"BILL",?23,"RATE TYPE",?48,"USER",!,?2,"PAYER/TIN",!,?3,"COMMENTS"
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: !,?14,"MANUAL",?24,"AUTO",!,"DATE",?13,"# BILLS",?22,"# BILLS"
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: !,RCHR
  • Line Location: HEADER+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.31 - [#344.31] GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call