Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 7 ($$EXPAND,DS)^IBJD  E^IBJDE  $$TESTP^IBJDI1  ($$DIV,OUTPT)^IBJDI21  PSDR^IBODIV  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  CLOSE^IBSDU  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBJD INTAKE NO EMPL  

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.

External References

Name Field # of Occurrence
NOW^%DTC INP+22
^%ZIS DATE+20
HOME^%ZIS DATE+26
^%ZISC ENQ+3
^%ZTLOAD DATE+24
^DIR DATE+5, PAUSE+4
$$EXPAND^IBJD DET+7
DS^IBJD DATE+11
E^IBJDE DQ+2, INP+19
$$TESTP^IBJDI1 PROC+10
$$DIV^IBJDI21 INP+5, ENC+5
OUTPT^IBJDI21 INP+13, SET+12
PSDR^IBODIV DATE+8
$$DAT1^IBOUTL HDET+4, SUM+6
$$DAT2^IBOUTL INP+22, DET+8
$$STOP^IBOUTL INP+3, HDET+7
DATE^IBOUTL DATE
CLOSE^IBSDU INP+10, INP+14
ELIG^VADPT PROC+11

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
Routine Call
  • DIR
  • Line Location:
    • DATE+5
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • DATE+20
Routine Call
  • %ZIS
  • Line Location:
    • DATE+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DQ+8, DQ+9, DIV+1
^DGPM - [#405] INP+4
^DGPM("ATID3" SET+7
^DGPM("ATT3" INP+1, INP+2
^DPT - [#2] PROC+14, PROC+20, SET+15
^TMP("IBJDI31" DQ+5!, INP+8, ENQ!, PROC+18*
^TMP("IBJDI32" DQ+5!, ENQ!, SETC*, DET+2, DET+4

Label References

Name Line Occurrences
$$DASH HDET+6, SUM+7
$$SSN DET+6
DET INP+24
DETQ DET+2
ENQ DATE, DATE+5, DATE+8, DATE+11, DATE+20, DATE+21, INP+10, INP+14, INP+17
ENQ1 ENQ+1
HDET DET+1, DET+5
INP DQ+7
PAUSE INP+24, DET+5, DETQ
PRCQ PROC+11, PROC+24
PROC INP+8, ENC+6
SET PROC+25
SUM INP+24

Naked Globals

Name Field # of Occurrence
^( PROC+14, PROC+20, DET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INP+22, ENQ1+2!
%ZIS DATE+20*, ENQ1+2!
DFN INP+4*, INP+8, ENQ1+2!, ENC+4*, ENC+6, PROC~, PROC+10, PROC+14, PROC+18, PROC+20
, SET+7, SET+12, SET+15, SETC
DIR DATE+6!, ENQ1+3!, PAUSE+2~
DIR("?" DATE+3*
DIR("A" DATE+4*
DIR("B" DATE+3*
DIR(0 DATE+3*, PAUSE+4*
DIROUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~
DIRUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~, PAUSE+4
DT SET+15
DTOUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~
DUOUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~, PAUSE+4
I DATE+23*, DQ+8*, DQ+9, DQ+10*, ENQ1+2!
IB DQ+5!, ENQ1!
IB( DQ+9*, INP+5, INP+18*, INP+23, ENC+5, PROC+15*, PROC+18*, PROC+25*, PROC+26*, SUM+9
, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14
IB("ALL" DQ+10*, INP+18
IBBDT DATE, INP+1, INP+13, ENQ1!, SET+9, SET+12, HDET+4, SUM+6
IBC DQ+6*, DQ+9, DQ+10, ENQ1!
IBD INP+1*, INP+2, ENQ1!
IBDIV DQ+10*, INP+5*, INP+23*, ENQ1+1!, ENC+5*, PROC+15, PROC+18, PROC+25, PROC+26, SETC
, DET+2, DET+4, HDET+3, SUM+4, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14
IBDN ENQ1!, PROC+20*, SETC
IBDOD ENQ1+1!, PROC+14*, PROC+15, SETC
IBDT ENQ1+1!, SET+7*, SET+8
IBDTF ENQ1+1!, SET+8*, SET+9
IBEDT DATE, INP+1, INP+13, ENQ1!, SET+9, SET+12, HDET+4, SUM+6
IBEMP ENQ1!, PROC+20*, PROC+24
IBES ENQ1+1!, PROC+20*, PROC+24, SETC
IBIPC PROC~, SETC
IBLT ENQ1+1!, SET+7*, SET+9*, SET+15*, SETC
IBOE ENQ1+1!
IBOED ENQ1+1!, ENC~, ENC+4, ENC+5
IBPAG INP+22*, ENQ1!, HDET+1, HDET+2*, HDET+3, SUM+1, SUM+2*, SUM+3
IBPAT ENQ1+1!
IBPER ENQ1!, SUM+9*, SUM+12, SUM+13
IBPM INP+2*, INP+3, INP+4, ENQ1+1!
IBPMD INP+4*, INP+5, ENQ1+1!
IBQ DQ+6*, INP+1, INP+2, INP+3*, INP+10, INP+13, INP+14, INP+22*, INP+23, INP+24
, ENQ1!, DET+1, DET+4, DET+5, DETQ, HDET+7*, PAUSE+4*
IBQUERY DQ+4~, INP+8, INP+10, INP+13, INP+14, PROC~, PROC+25, SET~, SET+12
IBQUERY1 DQ+4~, INP+14, ENC~, ENC+6
IBRPT DATE+11, DATE+13, INP+24, ENQ1!, PROC+25
IBRUN INP+22*, ENQ1!, HDET+3, SUM+7
IBSORT DATE+5*, DATE+8, DQ+7, INP+5, ENQ1+1!, ENC+5
IBX ENQ1!, DET+4*, DET+6, DET+7, DET+8, PAUSE+2~, PAUSE+3*
>> IBXTRACT DQ+2, INP+17
IBXX ENQ1+1!, DET+4*, DET+6
IO DATE+28
IO("Q" DATE+21, DATE+26!
IOF HDET+1, SUM+1
IOSL DET+5, PAUSE+3
IOST HDET+1, SUM+1, PAUSE+1
J DQ+9*, ENQ1+2!
K DQ+9*, ENQ1+2!
POP DATE+20, ENQ1+2!
U DQ+9, DQ+10, INP+4, INP+5, ENC+4, ENC+5, PROC+20, PROC+24, SETC, DIV+1
, DET+6, DET+7, DET+8
VA PRCQ!
VAEL PRCQ!
VAEL(4 PROC+11
VAERR PRCQ!
VAUTD DQ+8, ENQ1+2!
VAUTD( DQ+8
X INP+18*, ENQ1+2!, DIV~, DIV+1, DET+7*, DASH~, DASH+1, PAUSE+2~, SSN~, SSN+1
X1 ENQ1+2!
X2 ENQ1+2!
Y DATE+5, DATE+8, ENQ1+2!, PAUSE+2~
ZTDESC DATE+22*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DATE+22*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DATE+23*
ZTSK DATE+25, DATE+26!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All