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

Package: Integrated Billing

Routine: IBEPTC2


Information

IBEPTC2 ;ALB/CPM/ARH - TP LIST NON-BILLABLE STOP CODES AND CLINICS ; 05-AUG-93

Source Information

Source file <IBEPTC2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point - describe output.
DQ ; Tasked entry point.
ENQ
ENQ1
HDR ; Generate a report header.
LST ; List all selected entries.
LSTQ
NBILL(IBF,IBEN,IBD) ; Is the entry not billable as of the effective date?
; Input: IBF -- Base file (#352.3, #352.4)
; IBEN -- Internal entry number for entry
; IBD -- Effective date for non-billing
NBILLQ
VAL(IBF,IBEN) ; Return the entry name.
; Input: IBF -- Base file (#352.3, #352.4)
; IBEN -- Internal entry number for entry
; Output: Entry name (#.01 from respective file)
VALQ
DASH() ; Return a dashed line.
PAUSE ; Page break

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"This report may be used to generate a list of all clinic stop codes,"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?5,"and clinics that are non-billable in Third Party Billing or "
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,"that will not have bills created by the Third Party Auto Biller.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $$DASH(),!?(80-$L(IBT)\2),IBT,!?33,"As Of: ",$$DAT1^IBOUTL(IBDAT)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?64,"Page: ",IBPAG,!?60,"Run Date: ",$$DAT1^IBOUTL(DT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$DASH(),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "All ",$S(IBI=352.3:"clinic stop codes",1:"clinics")," are billable and may be auto billed on this date."
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !,"No ",$S(IBI=352.3:"clinic stop codes",1:"clinics")," are flagged as ",IBK1,!
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: $$VAL(IBI,IBH)
  • Line Location: LST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls