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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMADD^XLFDT  
Integrated Billing 3 $$TESTP^IBJDI1  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  (CLOSE,SCAN)^IBSDU  
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: 2

Package Total Caller Graph
Integrated Billing 2 IBJD PERCENT PREREGISTERED  IBRFN4  

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

External References

Name Field # of Occurrence
NOW^%DTC DQ+51
^%ZIS TIME+23
HOME^%ZIS TIME+29
^%ZISC ENQ+3
^%ZTLOAD TIME+27
^DIR TIME+6, TIME+13, PAUSE+3
$$TESTP^IBJDI1 PROC+6
$$DAT1^IBOUTL SUM+2
$$DAT2^IBOUTL DQ+51
$$STOP^IBOUTL HEAD+10
DATE^IBOUTL DATE
CLOSE^IBSDU DQ+32
SCAN^IBSDU OUTPT+25
ELIG^VADPT PROC+7
$$FMADD^XLFDT DQ+45

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
Routine Call
  • DIR
  • Line Location:
    • TIME+6
    • TIME+13
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • TIME+23
Routine Call
  • %ZIS
  • Line Location:
    • TIME+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] DQ+16, DQ+24
^DGS(41.41 - [#41.41] DQ+43
^DIC(8 - [#8] DQ+25
^SC - [#44] DQ+17
^TMP("DIERR" OUTPT+25!
^TMP("IBJDIPR" DQ+3!, DQ+39, DQ+40, ENQ!, PROC+10*
^TMP("IBJDIPR1" DQ+3!, DQ+18*, DQ+19*, DQ+26*, DQ+27*, ENQ!, ENC+5, ENC+6, SUM+19, SUM+25

Label References

Name Line Occurrences
$$DASH SUM+4, SUM+28, HEAD+6, HEAD+8, HEAD+9
DQ IBAR+4
ENQ DATE, TIME+8, TIME+15, TIME+23, TIME+24, DQ+32
ENQ1 EN+2, ENQ+1
HEAD SUM+1, SUM+18, SUM+20, SUM+27, SUM+29
IBARD IBAR+5
OUTPT DQ+31
PAUSE DQ+52, SUM+18, SUM+20, SUM+27, SUM+29
PRCQ PROC+7
PROC ENC+7
SUM DQ+52

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+51, ENQ1+1!
%ZIS TIME+23*, ENQ1+1!
DFN DQ+38*, DQ+39*, DQ+40, DQ+43, ENQ1+1!, OUTPT~, OUTPT+14, OUTPT+25, ENC+3*, ENC+7
, PROC~, PROC+6, PROC+10
DGEC ENQ1+3!, SUM+24*, HEAD+9
DGEE ENQ1+3!, SUM+17*, SUM+24*, HEAD+8
DGNAM DQ+2~, DQ+17*, DQ+19, DQ+25*, DQ+27, ENQ1+3!
DGPREC DQ+8*, DQ+20*, ENQ1+3!, SUM+14, SUM+23
DGPREE DQ+8*, DQ+28*, ENQ1+3!, SUM+13, SUM+16
DIR TIME+10!, TIME+16!, ENQ1+2!, PAUSE+2~
DIR("?" TIME+5*, TIME+11*
DIR("A" TIME+3*, TIME+12*
DIR("B" TIME+4*, TIME+11*
DIR(0 TIME+2*, TIME+11*, PAUSE+3*
DIROUT TIME+8, TIME+10!, TIME+15, TIME+16!, ENQ1+2!, PAUSE+2~
DIRUT TIME+8, TIME+10!, TIME+15, TIME+16!, ENQ1+2!, PAUSE+2~, PAUSE+3
DTOUT TIME+8, TIME+10!, TIME+15, TIME+16!, ENQ1+2!, PAUSE+2~
DUOUT TIME+8, TIME+10!, TIME+15, TIME+16!, ENQ1+2!, PAUSE+2~, PAUSE+3
I DQ+9*, ENQ1+1!, SUM+19*, SUM+21, SUM+22, SUM+25*, SUM+26, SUM+30, SUM+31
IB DQ+3!, ENQ1!, IBAR+2~
IB( DQ+9*
IB("NEVR" DQ+44*, SUM+11, IBARD
IB("PAST" DQ+45*, SUM+10, IBARD
IB("PRE" DQ+46*, SUM+7, SUM+8, IBAR+6, IBARD
IB("TOT" DQ+41*, SUM+6, SUM+8, IBAR+5, IBAR+6, IBARD
IBARDATA IBAR+2~, IBARD*, IBARD+1
IBARFLAG DQ+50, IBAR+2~, IBAR+3*
IBBDT DATE, DQ+31, ENQ1!, OUTPT~, OUTPT+14, SUM+2, IBAR~
IBCBK OUTPT~, OUTPT+19*, OUTPT+25
IBD ENQ1!
IBDIR OUTPT~, OUTPT+20*, OUTPT+25
IBEDT DATE, DQ+31, ENQ1!, OUTPT~, OUTPT+14, SUM+2, IBAR~
IBEXC TIME+14*, ENQ1+3!, SUM+15, IBAR+2~, IBAR+3*
IBFILTER OUTPT+13~, OUTPT+18*, OUTPT+25
IBMSG OUTPT~
IBOED ENQ1!, ENC~, ENC+3, ENC+5, ENC+6, ENC+7, PROC~, PROC+10
IBPAG DQ+51*, ENQ1!, HEAD+2, HEAD+3*, HEAD+4, HEAD+5
IBPERC IBAR+2~, IBAR+5*, IBAR+6*, IBARD
IBPRF TIME+7*, DQ+45, ENQ1!, SUM+3, IBAR+2~, IBAR+3*
IBQ DQ+8*, DQ+31, DQ+32, DQ+51*, DQ+52, ENQ1!, OUTPT~, SUM+1, SUM+18, SUM+19
, SUM+20, SUM+25, SUM+26, SUM+27, SUM+29, HEAD+10*, PAUSE+3*
IBQUERY DQ+2~, DQ+31, DQ+32, OUTPT~, OUTPT+25
IBQUERY1 DQ+2~, DQ+32
IBRUN DQ+51*, ENQ1!, SUM+4, HEAD+6
IBSUBSCR OUTPT~
IBVAL OUTPT+13~, OUTPT+25
IBVAL("BDT" OUTPT+14*
IBVAL("DFN" OUTPT+14*
IBVAL("EDT" OUTPT+14*
IO TIME+31
IO("Q" TIME+24, TIME+29!
IOF HEAD+2
IOSL SUM+20, SUM+27, SUM+29
IOST HEAD+2, PAUSE+1
PCENT ENQ1+3!, SUM+8*, SUM+9
POP TIME+23, ENQ1+1!
PRDAT DQ+42*, DQ+43*, DQ+44, DQ+45, ENQ1+3!
TAB ENQ1+3!, SUM+21*, SUM+22, SUM+30*, SUM+31
TRDAT DQ+40*, DQ+42, DQ+45, ENQ1+3!
U DQ+17, DQ+19, DQ+25, DQ+27, ENC+3, ENC+5, ENC+6, PROC+10, SUM+22, SUM+31
, IBARD
VA PRCQ!
VAEL PRCQ!
VAEL(4 PROC+7
VAERR PRCQ!
X DQ+16*, DQ+17, DQ+18, DQ+19, DQ+24*, DQ+25, DQ+26, DQ+27, ENQ1+1!, SUM+19*
, SUM+22, SUM+25*, SUM+31, DASH~, DASH+1, PAUSE+2~
X1 ENQ1+1!
X2 ENQ1+1!
Y TIME+7, TIME+14, ENQ1+1!, PAUSE+2~
ZTDESC TIME+25*, ENQ1+1!
ZTQUEUED ENQ+1, ENQ1+1!
ZTREQ ENQ+1*, ENQ1+1!
ZTRTN TIME+25*, ENQ1+1!
ZTSAVE ENQ1+1!
ZTSAVE("IB*" TIME+26*
ZTSK TIME+28, TIME+29!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All