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 |  Marked Items  | All
Print Page as PDF
Routine: IBJDI4

Package: Integrated Billing

Routine: IBJDI4


Information

IBJDI4 ;ALB/CPM - PATIENTS WITH UNIDENTIFIED INSURANCE ;17-DEC-96

Source Information

Source file <IBJDI4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 5 DS^IBJD  E^IBJDE  EN^IBJDI41  PSDR^IBODIV  DATE^IBOUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^DIR  

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 INTAKE INS  IBJDI41  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
SEL
RPTS ; - Select line item report(s).
RMK ; - Select print/not print remarks.
FMT ; - Select output format.
DEV ; - Select a device.
DQ ; - Tasked entry point.
PROC
ENQ
ENQ1
HLP1 ; - 'Sort by division' prompt.
HLP2 ; - 'Print 1-MAIN REPORT'... prompt.
TITLE(X) ; - Print report title.
TITLE1 ;;Patients with Unidentified Insurance
TYPE(INS) ; - Find type of insurance.
; Input: INS=Patient's insurance info in file #2 (.3121)
; Output: Y=1-HMO, 2-Medicare, 3-Medigap, 4-Indemnity, or
; 0-None of the above
TYP1
TYPQ
OUT() ; Prompt to allow users to select output format

External References

Name Field # of Occurrence
^%ZIS DEV+4
HOME^%ZIS DEV+10
^%ZISC ENQ+3
^%ZTLOAD DEV+8
^DIR DATE+5, RPTS+3, RPTS+7, RMK+3, OUT+6
DS^IBJD DATE+11
E^IBJDE DQ+2
EN^IBJDI41 PROC
PSDR^IBODIV DATE+8
DATE^IBOUTL DATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides the number of patients who have been treated,"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"but not identified as having or not having insurance.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+12
Function Call: WRITE
  • Prompt: !!,"Print 1-MAIN REPORT or 2-LINE ITEM REPORTS: 1// "
  • Line Location: SEL+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: " ",$S(X=2:"LINE ITEM REPORTS",1:"MAIN REPORT")
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RMK+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report."
  • Line Location: FMT+4
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now. To avoid undesired wrapping of the data saved to the file, please enter '0;256;99999' at the DEVICE: prompt"
  • Line Location: FMT+6
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,"Select: '<CR>' to print the trend report without regard to"
  • Line Location: HLP1+1
Function Call: WRITE
  • Prompt: !?15,"division"
  • Line Location: HLP1+2
Function Call: WRITE
  • Prompt: !?11,"'Y' to select those divisions for which a separate"
  • Line Location: HLP1+3
Function Call: WRITE
  • Prompt: !?15,"trend report should be created",!?11,"'^' to quit"
  • Line Location: HLP1+4
Function Call: WRITE
  • Prompt: !!,"Select: '1' to print the Patients w/Unidentified Insurance Report"
  • Line Location: HLP2+1
Function Call: WRITE
  • Prompt: !?8,"'2' to print up to nine specific reports based on the line items"
  • Line Location: HLP2+2
Function Call: WRITE
  • Prompt: !?12,"of the summary report",!?8,"'^' to quit"
  • Line Location: HLP2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+10
Routine Call
  • DIR
  • Line Location:
    • DATE+5
    • RPTS+3
    • RPTS+7
    • RMK+3
    • OUT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DQ+7, DQ+8
^DIC(36 - [#36] TYP1
^IBA(355.3 - [#355.3] TYPE+6
^IBE(355.1 - [#355.1] TYPE+7, TYPE+8, TYPE+9, TYPE+10, TYPE+11, TYPE+12, TYPE+13
^IBE(355.2 - [#355.2] TYP1+1, TYP1+2, TYP1+3, TYP1+4
^TMP("IBJDI41" DQ+4!, ENQ!
^TMP("IBJDI42" DQ+4!, ENQ!

Label References

Name Line Occurrences
$$OUT FMT+2
$$TITLE RPTS+2, RPTS+6
ENQ DATE, DATE+5, DATE+8, DATE+11, SEL+1, RPTS+3, RPTS+7, RMK+3, FMT+2, DEV+4
, DEV+5
ENQ1 ENQ+1
FMT DATE+12
HLP2 SEL+1
PROC DQ+6
RMK SEL+2
RPTS RPTS+8
SEL SEL+1
TYP1 TYPE+6
TYPQ TYP1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENQ1+3!
%ZIS DEV+4*, ENQ1+3!
DFN ENQ1+2!
DIR DATE+6!, RPTS+3!, RPTS+7!, RMK+3!, ENQ1+3!, OUT+1~
DIR("?" DATE+3*
DIR("A" DATE+4*, RPTS+2*, RPTS+3*, RPTS+4*, RPTS+5*, RPTS+6*, RPTS+7*, RMK+2*, OUT+4*
DIR("B" DATE+3*, RPTS+3*, RPTS+7*, RMK+3*, OUT+5*
DIR(0 DATE+3*, RPTS+1*, RPTS+4*, RMK+1*, OUT+3*
DIROUT DATE+5, DATE+6!, ENQ1+3!, OUT+1~
DIRUT DATE+5, DATE+6!, ENQ1+3!, OUT+1~, OUT+6
DTIME SEL+1
DTOUT DATE+5, DATE+6!, ENQ1+3!, OUT+1~
DUOUT DATE+5, DATE+6!, ENQ1+3!, OUT+1~
I DEV+7*, DQ+7*, DQ+8, DQ+9*, ENQ1+2!
IB DQ+4!, ENQ1!
IB( DQ+8*
IB("ALL" DQ+9*
IBBDT DATE, ENQ1!
IBC DQ+5*, DQ+8, DQ+9, ENQ1+1!
IBD ENQ1!
IBDIV DQ+9*, ENQ1+2!
IBDN ENQ1!
IBDOD ENQ1+1!
IBEDT DATE, ENQ1!
IBELIG ENQ1+1!
IBFL ENQ1+1!
IBFL1 ENQ1+1!
IBINSC ENQ1+1!
IBIPC ENQ1+1!
IBOUT FMT+1!, FMT+2*, FMT+4, FMT+6, ENQ1+3!
IBPAG ENQ1!
IBPAT ENQ1+1!
IBPER ENQ1+1!
IBPH ENQ1!
IBPM ENQ1+1!
IBPMD ENQ1+1!
IBQ DQ+5*, ENQ1!
IBQUERY DQ+4~
IBRMK RMK+3*, ENQ1!
IBRPT DATE+11, DATE+12, FMT+4, ENQ1!
IBRUN ENQ1!
IBSEL DATE+11*, RPTS+4*, RPTS+6, ENQ1+1!
IBSEL1 ENQ1+2!
IBSORT DATE+5*, DATE+8, DQ+6, ENQ1+2!
IBX ENQ1!
IBX1 ENQ1!
IBX2 ENQ1!
IBXTRACT DQ+2, ENQ1+3!
INS TYPE~, TYPE+6, TYP1
IO DEV+12
IO("Q" DEV+5, DEV+10!
J DQ+8*, ENQ1+2!
K DQ+8*, ENQ1+2!
POP DEV+4, ENQ1+2!
STOP FMT+2, ENQ1+3!, OUT+6*
TYP TYPE+5~, TYPE+6*, TYPE+7, TYPE+8, TYPE+9, TYPE+10, TYPE+11, TYPE+12, TYPE+13, TYP1*
, TYP1+1, TYP1+2, TYP1+3, TYP1+4
U DQ+8, DQ+9, TYPE+6, TYP1
VAUTD DQ+7, ENQ1+2!
VAUTD( DQ+7
X SEL+1*, SEL+2, RPTS+2*, RPTS+5, RPTS+6*, ENQ1+2!, TITLE~, OUT+1~
X1 RPTS+6*, ENQ1+2!
X2 ENQ1+2!
Y DATE+5, DATE+8, RPTS+3, RPTS+4, RPTS+7, RPTS+8, RMK+3, ENQ1+2!, TYPE+6*, TYPE+7*
, TYPE+8*, TYPE+9*, TYPE+10*, TYPE+11*, TYPE+12*, TYPE+13*, TYP1, TYP1+1*, TYP1+2*, TYP1+3*
, TYP1+4*, TYPQ, OUT+1~, OUT+7
ZTDESC DEV+6*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DEV+6*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DEV+7*
ZTSK DEV+9, DEV+10!

Marked Items

Name Field # of Occurrence
$T(TITLE1+X TITLE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All