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

Package: Integrated Billing

Routine: IBATOP


Information

IBATOP ;ALB/CPM-TRANSFER PRICING PATIENT LISTING ;21-MAR-99

Source Information

Source file <IBATOP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point.
DQ ; Tasked entry point.
PRINT ;
; now call scheduling to look up future appts
ENQ
ENQ1
SET(IBNET,IBSTA,DFN) ; Create the temporary sort file.
; Input: IBNET -- The network/VISN number
; IBSTA -- The Station number
; DFN -- Pointer to the patient in file #2
TXMT(DFN) ; Find the patient's last treatment date and next sched date
; Input: DFN -- Pointer to the patient in file #2
; Output: 1^2, where
; 1 => last treatment date, or null
; 2 => next scheduled treatment date, or null
; (not including scheduling)
TXMTN ; - find next scheduled treatment date
APPT(SDOE0) ; Determine if appt associated with encounter is valid
PAUSE ; Page break
HDR(IBNET) ; Write the detail report header.
DISFAC(X) ; Display the station number and name.
; Input: X -- The Station Number
; Variable input: IBFACN array
DASH(X) ; Return a dashed line.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report creates a listing of all Transfer Pricing patients for"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"specific networks or facilities. Please enter all applicable networks"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"and facilities, specifying networks by VISN (i.e., 'VISN 1').",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"This report requires only an 80 column printer.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!!,"There are no Transfer Pricing patients for the selected networks/facilities."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Transfer Pricing Patient Listing",?38,"Run Date: ",IBRUN,?72,"Page: ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Network: VISN ",IBNET
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?50,"MT",?55,"Act",?63,"Last",?71,"Nxt Sched"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Patient Name/ID",?28,"Primary Eligibility",?49,"Stat"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?55,"Ins",?63,"Seen",?71,"Visit/Adm"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$$DASH(IOM)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!?4,"Home Facility: ",$P(IBFACN(X),"^",2)," ",$P(IBFACN(X),"^"),!
  • Line Location: DISFAC+4
Info |  Source |  Entry Points |  Interaction Calls