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

Package: Integrated Billing

Routine: IBEMTF2


Information

IBEMTF2 ;ALB/CPM - LIST NON-BILLABLE STOP CODES, DISPOSITIONS, AND CLINICS ; 05-AUG-93

Source Information

Source file <IBEMTF2.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.2, #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.2, #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,"dispositions, and clinics where Means Test billing will be ignored.",!
  • Line Location: EN+2
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+12
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.2:"dispositions",IBI=352.3:"clinic stop codes",1:"clinics")," are billable on this date."
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: $$VAL(IBI,IBJ)
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls