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

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 E^IBJDE  $$TESTP^IBJDI1  ($$DAT1,$$DAT2,$$STOP)^IBOUTL  (CLOSE,SCAN)^IBSDU  
Registration 2 ELIG^VADPT  $$SITE^VASITE  
VA FileMan 2 (,NOW)^%DTC  ^DIR  
Kernel 1 $$NOW^XLFDT  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Scheduling 1 $$SDAPI^SDAMA301  

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

Package Total Caller Graph
Integrated Billing 5 IBJDI2  IBJDI3  IBJDI41  IBJDI5  IBJDI7  

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.

External References

Name Field # of Occurrence
^%DTC PROC+21
NOW^%DTC IBJDI21+33
^DIR PAUSE+4
E^IBJDE IBJDI21+27
$$TESTP^IBJDI1 PROC+9
$$DAT1^IBOUTL PROC+22, SET+37, DET+9, DET+12, HDET+4, SUM+6
$$DAT2^IBOUTL IBJDI21+33
$$STOP^IBOUTL STOP+1
CLOSE^IBSDU IBJDI21+15, IBJDI21+20
SCAN^IBSDU OUTPT+21
$$GETICN^MPIF001 SET+27
$$SDAPI^SDAMA301 IBJDI21+30
ELIG^VADPT PROC+10
$$SITE^VASITE DIV+4
$$NOW^XLFDT IBJDI21+30

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV+4
^DGPM - [#405] IBJDI21+8
^DGPM("ATID3" SET+14
^DGPM("ATT3" IBJDI21+5, IBJDI21+6
^DGS(41.1 - [#41.1] SET+28, SET+29
^DIC(42 - [#42] DIV+3
^DPT - [#2] PROC+15, PROC+21, SET+23, SET+36, SET+37
^TMP("DIERR" OUTPT+21!
^TMP("IBDFN" SET+27*
^TMP("IBJDI21" IBJDI21+13, PROC+13*
^TMP("IBJDI22" SET+39*, DET+2, DET+4
^TMP("IBJDI23" PROC+22*, DET+7
^TMP($J DET+10

Label References

Name Line Occurrences
$$DASH HDET+8, SUM+7
$$DIV IBJDI21+9, ENC+4
$$ESTAT DET+7
$$SSN DET+6
$$STOP IBJDI21+7, HDET+9
DET IBJDI21+35
DETQ DET+2
ENQ IBJDI21+16, IBJDI21+22, IBJDI21+25
HDET DET+1, DET+5
OUTPT IBJDI21+19, SET+20
PAUSE IBJDI21+35, DET+5, DETQ
PRCQ PROC+10, PROC+19
PRCS PROC+19, PROC+23
PROC IBJDI21+13, ENC+5
SET PRCS
SUM IBJDI21+35

Naked Globals

Name Field # of Occurrence
^( SET+37, DET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IBJDI21+33
DFN IBJDI21+10*, IBJDI21+13, OUTPT~, OUTPT+14, OUTPT+21, PROC~, PROC+9, PROC+13, PROC+15, PROC+21
, PROC+22, SET+14, SET+20, SET+23, SET+27, SET+28, SET+36, SET+37, SET+39
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DT PROC+21, SET+23, SET+31
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
>> IB( IBJDI21+9, IBJDI21+26*, IBJDI21+34, ENC+4, PROC+13*, PROC+15*, PROC+20*, PROC+22*, PROC+23*, PROC+24*
, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14, SUM+15, SUM+17, SUM+18, SUM+19
>> IB("ALL" IBJDI21+26
>> IBARRAY IBJDI21+30
>> IBARRAY("FLDS" IBJDI21+30*
>> IBARRAY("SORT" IBJDI21+30*
>> IBARRAY(1 IBJDI21+30*
>> IBARRAY(4 IBJDI21+30*
IBBDT IBJDI21+5, IBJDI21+19, OUTPT~, OUTPT+14, SET+16, SET+20, HDET+4, SUM+6
IBCBK OUTPT~, OUTPT+19*, OUTPT+21
>> IBCOUNT IBJDI21+30*, DET+10*, DET+11
>> IBD IBJDI21+5*, IBJDI21+6
IBDIR OUTPT~, OUTPT+20*, OUTPT+21
>> IBDIV IBJDI21+9*, IBJDI21+34*, ENC+4*, PROC+13, PROC+15, PROC+20, PROC+22, PROC+23, PROC+24, SET+39
, DET+2, DET+4, DET+7, HDET+3, SUM+4, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13
, SUM+14, SUM+15, SUM+17, SUM+18, SUM+19
>> IBDN SET+36*, SET+39
>> IBDOD SET+37*, SET+39
>> IBDT SET+14*, SET+15
>> IBDTF SET+15*, SET+16
IBEDT IBJDI21+5, IBJDI21+19, OUTPT~, OUTPT+14, SET+16, HDET+4, SUM+6
>> IBES PROC+18*, PROC+19, PROC+23, SET+39
>> IBESD PROC+21*, PROC+22
IBFILTER OUTPT+13~, OUTPT+18*, OUTPT+21
IBIPC PROC~, SET+39
>> IBLT SET+11*, SET+16*, SET+23*, SET+39
IBMSG OUTPT~
>> IBNEXT SET+26*, SET+34*, SET+39
>> IBNUMD SET+11*, SET+17*, SET+39
>> IBNUMO SET+11*, SET+39
IBOED ENC~, ENC+4, ENC+5
>> IBPAG IBJDI21+35*, HDET+1, HDET+2*, HDET+3, SUM+1, SUM+2*
>> IBPERD SUM+11*, SUM+14
>> IBPERO SUM+12*, SUM+17
>> IBPERP SUM+10*, SUM+18, SUM+19
>> IBPERV SUM+9*, SUM+15, SUM+19
>> IBPM IBJDI21+6*, IBJDI21+7, IBJDI21+8
>> IBPMD IBJDI21+8*, IBJDI21+9, IBJDI21+10
IBQ IBJDI21+5, IBJDI21+6, IBJDI21+7, IBJDI21+16, IBJDI21+19, IBJDI21+22, IBJDI21+33*, IBJDI21+34, IBJDI21+35, OUTPT~
, STOP~, STOP+1*, STOP+2, DET+1, DET+4, DET+5, DETQ, HDET+9*, PAUSE+4*
IBQUERY IBJDI21+13, IBJDI21+15, IBJDI21+19, IBJDI21+20, OUTPT~, OUTPT+21, PROC~, PRCS, SET~, SET+20
IBQUERY1 IBJDI21+20, ENC~, ENC+5
>> IBRPT IBJDI21+30, IBJDI21+35, PRCS
>> IBRUN IBJDI21+33*, HDET+3, SUM+7
>> IBSORT IBJDI21+9, ENC+4
IBSUBSCR OUTPT~, OUTPT+19
IBVAL OUTPT+13~, OUTPT+21
IBVAL("BDT" OUTPT+14*
IBVAL("DFN" OUTPT+14*
IBVAL("EDT" OUTPT+14*
IBX DET+4*, DET+6, DET+7, DET+8, DET+9, DET+11*, DET+12, DET+13, PAUSE+2~, PAUSE+3*
>> IBXTRACT IBJDI21+25
>> IBXX DET+4*, DET+6, DET+7, DET+10
IOF HDET+1, SUM+1
IOM HDET+8
IOSL DET+5, PAUSE+3
IOST HDET+1, SUM+1, PAUSE+1
MSG STOP~, STOP+1
U IBJDI21+9, IBJDI21+10, ENC+4, ENC+5, PROC+18, PROC+21, SET+30, SET+32, SET+33, SET+39
, DIV+3, DIV+4, DET+6, DET+7, DET+8, DET+9, DET+12, DET+13
VA PRCQ!
VAEL PRCQ!
VAEL(1 SET+39
VAEL(4 PROC+10
VAEL(8 PROC+18
VAERR PRCQ!
X IBJDI21+26*, PROC+19, PROC+22, SET+28*, SET+29, DIV~, DIV+3, DASH~, DASH+1, PAUSE+2~
, SSN~, SSN+1, ESTAT~, ESTAT+1
>> X1 PROC+21*, SET+29*, SET+30, SET+32, SET+33
>> X2 PROC+21*, SET+30*, SET+31, SET+34
Y STOP+1~, DIV~, DIV+3*, DIV+4, PAUSE+2~
Y0 STOP+1~
>> Z DIV+4*, DIV+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All