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

Package: Accounts Receivable

Routine: RCTCSWL1


Information

RCTCSWL1 ;ALB/PAW-Cross Servicing Worklist ;30-SEP-2015

Source Information

Source file <RCTCSWL1.m>

Entry Points

Name Comments DBIA/ICR reference
GETRPT(RCRPT) ; Create patient report based upon report selection
; required input RCRPT (see comments below for number/report correlation)
; output ^TMP("RCTCSWL",$J), containing auths for group queue
BLDTMP ; Build ^TMP("RCTCSWL",$J) for the main list screen
BLDWL ; Format main list screen data lines
; build display lines
SETL(LINE,DATA,LABEL,COL,LNG) ; Creates a line of data to be set into the body
; of the worklist
; Input: LINE - Current line being created
; DATA - Information to be added to the end of the current line
; LABEL - Label to describe the information being added
; COL - Column position in line to add information add
; LNG - Maximum length of data information to include on the line
; Returns: Line updated with added information
EXCEL ;Format and Print EXCEL file
CSTOP(BILL) ;
; Input:
; BILL - Bill number from #430 - External Value (.01), not IEN
; Output:
; CSTOP - Cross-serviced status (blank = not found, 0 = not stopped, 1 = stopped)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXCEL+1
Function Call: WRITE
  • Prompt: !,RCXX_" Report"
  • Line Location: EXCEL+6
Function Call: WRITE
  • Prompt: !,"Patient Name^Patient ID^Bill Number^Current Amount^Rt Rsn Code"
  • Line Location: EXCEL+7
Function Call: WRITE
  • Prompt: !,"Bill Number^Patient ID^Patient Name^Current Amount^Rt Rsn Code"
  • Line Location: EXCEL+8
Function Call: WRITE
  • Prompt: !,"Rt Rsn Code^Bill Number^Patient ID^Patient Name^Current Amount"
  • Line Location: EXCEL+9
Function Call: WRITE
  • Prompt: !,$P(RCZ,U)_"^",$P(RCZ,U,2)_"^"_$P(RCZ,U,5)_"^"_RCAMT_"^"_$P(RCZ,U,9)
  • Line Location: EXCEL+18
Function Call: WRITE
  • Prompt: !,$P(RCZ,U,5)_"^",$P(RCZ,U,2)_"^"_$P(RCZ,U)_"^"_RCAMT_"^"_$P(RCZ,U,9)
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: !,$P(RCZ,U,9)_"^",$P(RCZ,U,5)_"^"_$P(RCZ,U,2)_"^"_$P(RCZ,U)_"^"_RCAMT
  • Line Location: EXCEL+20
Function Call: READ
  • Formatting: !!
  • Prompt: "END OF REPORT...PRESS RETURN TO CONTINUE"
  • Variable: X
  • Timeout: DTIME
  • Line Location: EXCEL+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXCEL+21
Function Call: WRITE
  • Prompt: !,?10,X
  • Line Location: EXCEL+77

FileMan Files Accessed Via FileMan Db Call

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