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

Package: Integrated Billing

Routine: IBJDIPR


Information

IBJDIPR ;ALB/HMC - PERCENTAGE OF PATIENTS PREREGISTERED REPORT ;10-MAY-2004

Source Information

Source file <IBJDIPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
TIME ;Pre-Registration time frame, default is 180 days
DQ ; - Tasked entry point.
ENQ
ENQ1
OUTPT(DFN,IBBDT,IBEDT,IBCBK,IBMSG,IBQ,IBSUBSCR,IBQUERY,IBDIR) ;
; Input: DFN = IEN of patient if using PATIENT/DATE index, otherwise,
; if null or 0, DATE/TIME index will be used
; IBCBK = The MUMPS code to execute when valid enctr found
; IBBDT/IBEDT = The start/end dates
; IBMSG = The text to send to STOP PROCESSING CALL (if null, no
; call made)
; IBQ = Flag that says whether or not the process was stopped
; by user
; IBQUERY = The # of the QUERY OBJECT to be used to extract outpt
; visits
; IBDIR = Null to look forward, 'B' to look backward thru file
ENC(IBOED) ; - Encounter extract.
; Input: IBOED = Data from outpatient encounter file, ^SCE.
PROC(DFN,IBOED) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBOED = Data from outpatient encounter file, ^SCE.
PRCQ
SUM ; - Print the summary report.
HEAD ; - Report Header
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
THLP ; - 'Pre-Registration time frame (days)' prompt
EHLP ; - 'Detailed list of Exclusions' prompt
IBAR(IBBDT,IBEDT) ;Entry point for Vista IB AR data to ARC
IBARD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides number of patients treated, the number of"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"patients pre-registered, % of patients pre-registered, number of"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"patients pre-registered past the pre-registration time frame,"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"number of patients never pre-registered, the clinic exclusions,"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"and the eligibility exclusions.",!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TIME+3
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: TIME+18
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: TIME+19
Function Call: WRITE
  • Prompt: !!,"You should queue this report to run after normal business hours.",!
  • Line Location: TIME+20
Function Call: WRITE
  • Prompt: !!?15,"Patients pre-registered from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!?17,"Pre-registration time frame: ",$J(IBPRF,5)," days"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?10,$$DASH(55),!!
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: ?35,"*Number of Unique Patients Treated: ",$J(IB("TOT"),5)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !?1,"Unique Outpatients Pre-registered within pre-registration time frame: ",$J(IB("PRE"),5)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !?47,"Percent Pre-registered: ",$J(PCENT,5,2),"%"
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !!?3,"Unique Outpatients Pre-registered past pre-registration time frame: ",$J(IB("PAST"),5)
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !?30,"Unique Outpatients never Pre-registered: ",$J(IB("NEVR"),5)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !!?8,"*Counts may not include all patients because of exclusions."
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !!?37,"Number of Eligibility Exclusions: ",$J(DGPREE,5)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !!?42,"Number of Clinic Exclusions: ",$J(DGPREC,5)
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?21,"PERCENTAGE OF PATIENTS PRE-REGISTERED",?71,"Page: ",IBPAG
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!?33,"SUMMARY REPORT"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?10,$$DASH(55),!!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?10,"Listing of all Exclusions: ",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!?10,"Eligibility Exclusions",!?9,$$DASH(24),!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!?10,"Clinic Exclusions",!?9,$$DASH(19),!
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !!,"Number of days to search for pre-registered patients."
  • Line Location: THLP+2
Function Call: WRITE
  • Prompt: !,"Number of days must be greater that zero."
  • Line Location: THLP+3
Function Call: WRITE
  • Prompt: !,"Select '<CR>' to accept the default 180 days."
  • Line Location: THLP+4
Function Call: WRITE
  • Prompt: !?11,"'^' to quit."
  • Line Location: THLP+5
Function Call: WRITE
  • Prompt: !!,"Select '<CR>' to print only the number of eligibility and clinic exclusions."
  • Line Location: EHLP+2
Function Call: WRITE
  • Prompt: !!?11,"'Y' to print list of all eligibility and clinic exclusions."
  • Line Location: EHLP+3
Function Call: WRITE
  • Prompt: !?11,"'^' to quit."
  • Line Location: EHLP+4
Info |  Source |  Entry Points |  Interaction Calls