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

Package: Integrated Billing

Routine: IBJDI21


Information

IBJDI21 ;ALB/CPM - VETERANS WITH UNVERIFIED ELIGIBILITY (CONT'D) ;16-DEC-96

Source Information

Source file <IBJDI21.m>

Entry Points

Name Comments DBIA/ICR reference
ENQ
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
STOP(IBQ,MSG) ; - Check if user wants to stop.
ENC(IBOED,IBQUERY1) ; - Encounter extract for all patients loop.
; IBQUERY1 = the # of the QUERY to use to do the extract.
; Pre-set variables IB array, IBSORT are required.
PROC(DFN,IBIPC,IBQUERY) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBIPC = Inpatient treatment marker
; ("*"=Had inpat. treatment, null=No inpat. treatment)
; IBQUERY = The # of the QUERY OBJECT to be used to extract
; outpatient visits
PRCS
PRCQ
SET(IBQUERY) ; - Set up detailed information to appear on the report.
; Working variable definitions:
; IBLT = Last treatment date
; IBDN = Zero node of Patient file entry
; IBDOD = Patient's date of death (if any)
; IBNUMO = No. outpatient visits in date range
; IBNUMD = No. discharges in date range
; IBNEXT = Next scheduled treatment date
; IBQUERY = The # of the QUERY OBJECT to be used to extract outpatient
; visits
DIV(X,Y) ; - Return division name.
; Input: X=1-Inpatient, 0-Outpatient
; Y=IEN of file #42 (If X=1) or IEN of file #40.8 (If X=0)
DET ; - Print the detailed report.
DETQ
HDET ; - Write the detail report header.
SUM ; - Print the summary report.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.
ESTAT(X) ; - Decode the eligibility status.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There were no patients treated in this date range with unverified eligibility."
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Patients who were treated in the period ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !?91,"# Opt # Last Nxt Sched Date of"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,"Patient (*=Had inpt. care)",?28,"SSN",?42,"Primary Eligibility"
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: ?67,"Eligibility Status",?91,"Visits Disc Seen Visit/Adm Death"
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: !,$$DASH(IOM),!
  • Line Location: HDET+8
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?21,"VETERANS WITH UNVERIFIED ELIGIBILITY",!
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: ?(61-$L(IBDIV))\2,"SUMMARY REPORT for ",IBDIV
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?19,"Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?13,$$DASH(53),!!
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: ?29,"Number of Patients Treated:",?58,$J(IB(IBDIV,"TOT"),5)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !?28,"Number of Deceased Patients:",?58,$J(IB(IBDIV,"DEC"),5),?67,"(",IBPERD,"%)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !?11,"Number of Patients with Verified Eligibility:",?58,$J(IB(IBDIV,"VER"),5),?67,"(",IBPERV,"%)"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !?5,"Number of Patients Whose Verified Eligibility Date"
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !?13,"is At Least 2 Years Old (from above total):",?58,$J(IB(IBDIV,"VERO"),5),?67,"(",IBPERO,"%)"
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: !?10,"Number of Patients with a Pending Eligibility:",?58,$J(IB(IBDIV,"PEN"),5),?67,"(",IBPERP,"%)"
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls