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

Package: Integrated Billing

Routine: IBJDI3


Information

IBJDI3 ;ALB/CPM - NO EMPLOYER LISTING ; 17-DEC-96

Source Information

Source file <IBJDI3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
INP ; - Find inpatients treated within the user-specified date range.
ENQ
ENQ1
ENC(IBOED,IBQUERY1) ; - Encounter extract.
; IBQUERY1 = the # of the QUERY to use to do the extract.
; Pre-set variables IB array, IBSORT also 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. Be sure to close the query object
; when done
PRCQ
SET(IBQUERY) ; - Set up detailed information for pts to appear on the report.
; Input: IBQUERY = The # of the QUERY OBJECT to be used to extract
; outpatient visits
SETC
DIV(X) ; - Return division name.
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.
DHLP ; - 'Sort by division' prompt.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a measure of the number of veteran patients who"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"have been identified as being employed, but have no employer on file.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+14
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+17
Function Call: WRITE
  • Prompt: !!,"There were no patients treated in this date range missing an employer."
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: ?50,$S(X="":"UNANSWERED",1:X)
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Patients without an employer treated in the period ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)," ('*' = Had inpatient care)"
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !,"Patient",?34,"SSN",?50,"Employment Status",?72,"Last Trmt Date",?90,"Date of Death"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,$$DASH(132),!
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?30,"NO EMPLOYER LISTING",?71,"Page: ",IBPAG,!
  • 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,!?17,$$DASH(45),!!
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: ?24,"Number of Patients Treated:",?53,$J(IB(IBDIV,"TOT"),5)
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !?3,"Number of Patients Employed without an Employer:",?53,$J(IB(IBDIV,"NO"),5),$S(IB(IBDIV,"NO"):"*",1:""),?62,"(",IBPER,"%)"
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !!,"Select: '<CR>' to print the trend report without regard to"
  • Line Location: DHLP+1
Function Call: WRITE
  • Prompt: !?15,"division"
  • Line Location: DHLP+2
Function Call: WRITE
  • Prompt: !?11,"'Y' to select those divisions for which a separate"
  • Line Location: DHLP+3
Function Call: WRITE
  • Prompt: !?15,"trend report should be created",!?11,"'^' to quit"
  • Line Location: DHLP+4
Info |  Source |  Entry Points |  Interaction Calls