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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBOHLS

Package: Integrated Billing

Routine: IBOHLS


Information

IBOHLS ;ALB/JWS,BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015

Source Information

Source file <IBOHLS.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$UP^XLFSTR  DISP^XQORM1  
List Manager 4 EN^VALM  (CLEAR,FULL,PAUSE)^VALM1  (CLEAN,SET)^VALM10  EN^VALM2  
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Integrated Billing 2 PSDR^IBODIV  SORT^IBOHLS1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 4 IB OUTPUT HELD CHARGES LM  IBOH EXPAND HELD CHARGES  IBOH HELD CHARGES LIST  IBOHLS2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
SORT ; get the data
ONEPAT(DIC,IEN,FIRST)
EN ; -- main entry point for HELD CHARGES LIST
; add code to do filters here
HDR ; -- header code
FMDQ
CHKFILT ; Check Filters
WRAP(STR,FLG,CL) ;
; STR - STRING TO BE WRAPPED PASSED IN BE REFERENCE SO IT CONTAINS THE REMAING PORTION OF STRING
; FLG - FLAG TO INDICATE WRAPPING NEEDS TO OCCUR
; CL - COLUMN LENGTH
FMDATES(PROMPT) ; ask for date range
SHOWFILT(FILTERS)
INIT ; -- init variables and list array
; input - none
; output ^TMP($J,"IBOHLS")
ASKPAT(FILTERS)
EXIT ; -- exit code
SETL(LINE,DATA,LABEL,COL,LNG) ; Creates a line of data to be set into the body
; of the worklist
; Input: LINE - Current line being created
; DATA - Information to be added to the end of the current line
; LABEL - Label to describe the information being added
; COL - Column position in line to add information add
; LNG - Maximum length of data information to include on the line
; Returns: Line updated with added information
FILTER(FILTERS) ; filter display
; Sets an array of filters to determine which entris to include in display
; Input: None
; Output:
; Returns: 0 if the user entered '^' or timed out, 1 otherwise
; FILTERS(0) = from date ^ to date ^ 0 (all) 1 (selected) institutions ^ 0 (all) 1 (selected) patients
; FILTERS(1,inst ien) = ""
; FILTERS(2,pat ien) = ""
; FILTERS(3) = 0 (NO) 1 (YES) to include insurance information
BLD ; build data to display
; build display
EXPAND ; -- expand code
HELP ; -- help code

External References

Name Field # of Occurrence
^%DT FMDATES+12, FMDATES+14
^%ZISC EN+9, EXIT+7
^DIC ONEPAT+8
$$GET1^DIQ SHOWFILT+19, SHOWFILT+31, CHKFILT+7, CHKFILT+8, CHKFILT+9
^DIR FILTER+25, FILTER+36, FMDATES+6
PSDR^IBODIV FILTER+17
SORT^IBOHLS1 SORT+10
EN^VALM EN+8, EXPAND+13
CLEAR^VALM1 EXIT+6
FULL^VALM1 EXPAND+1
PAUSE^VALM1 SHOWFILT+38
CLEAN^VALM10 EXIT+6
SET^VALM10 BLD+26, BLD+29, BLD+35, BLD+47, BLD+53, BLD+63, BLD+67, BLD+76, BLD+80, BLD+88
EN^VALM2 EXPAND+3
$$FMTE^XLFDT BLD+21, BLD+22, BLD+42, BLD+43, BLD+73, BLD+74, SHOWFILT+9, SHOWFILT+10
$$UP^XLFSTR FILTER+27
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+16
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+25
Function Call: WRITE
  • Prompt: !
  • Line Location: FMDATES+6
Function Call: WRITE
  • Prompt: !!!,"Show From Date: ",$S(STDT=0:"First",1:$$FMTE^XLFDT(STDT,"2DZ"))
  • Line Location: SHOWFILT+9
Function Call: WRITE
  • Prompt: !," Thru Date: ",$$FMTE^XLFDT($P(FILTERS(0),U,2),"2DZ")
  • Line Location: SHOWFILT+10
Function Call: WRITE
  • Prompt: !,"Show All Divisions or Selected Divisions: "
  • Line Location: SHOWFILT+11
Function Call: WRITE
  • Prompt: $S($P(FILTERS(0),U,3)=0:"All",1:"Selected")
  • Line Location: SHOWFILT+12
Function Call: WRITE
  • Prompt: !,$$WRAP(.LINE,.PFLG,80)
  • Line Location: SHOWFILT+21
Function Call: WRITE
  • Prompt: !,?22,$$WRAP(.LINE,.PFLG,58)
  • Line Location: SHOWFILT+22
Function Call: WRITE
  • Prompt: !,"Show All Patients or Selected Patients: "
  • Line Location: SHOWFILT+24
Function Call: WRITE
  • Prompt: $S($P(FILTERS(0),U,4)=0:"All",1:"Selected")
  • Line Location: SHOWFILT+25
Function Call: WRITE
  • Prompt: !,$$WRAP(.LINE,.PFLG,80)
  • Line Location: SHOWFILT+33
Function Call: WRITE
  • Prompt: !,?21,$$WRAP(.LINE,.PFLG,60)
  • Line Location: SHOWFILT+34
Function Call: WRITE
  • Prompt: !,"Include Insurance information on the Held Charges list? ",$S(FILTERS(3)=1:"Yes",1:"No")
  • Line Location: SHOWFILT+36
Routine Call
  • VALM
  • Line Location:
    • EN+8
    • EXPAND+13
Routine Call
  • DIC
  • Line Location:
    • ONEPAT+8
Routine Call
  • DIR
  • Line Location:
    • FILTER+25
    • FILTER+36
    • FMDATES+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("VALMAR" BLD+3!
^TMP($J SORT+5*, SORT+6!, SORT+7!, SORT+8!, EXPAND+5!, EXPAND+6, EXPAND+8, EXPAND+9, EXPAND+10, EXPAND+12*
, BLD+2!, BLD+7, BLD+9, BLD+10, BLD+11, BLD+12, BLD+15, BLD+16, BLD+30*, BLD+31
, BLD+32, BLD+36, BLD+37, BLD+38, BLD+54, BLD+68, BLD+69, BLD+77, BLD+81, BLD+82
, EXIT+1!, EXIT+2!, EXIT+3!, EXIT+4!

Label References

Name Line Occurrences
$$FILTER EN+3
$$FMDATES FILTER+12
$$SETL BLD+14, BLD+18, BLD+19, BLD+20, BLD+21, BLD+22, BLD+23, BLD+24, BLD+27, BLD+33
, BLD+39, BLD+40, BLD+41, BLD+42, BLD+43, BLD+44, BLD+45, BLD+50, BLD+51, BLD+57
, BLD+58, BLD+59, BLD+60, BLD+61, BLD+66, BLD+70, BLD+71, BLD+72, BLD+73, BLD+74
, BLD+78, BLD+83, BLD+84, BLD+85, BLD+86
$$WRAP SHOWFILT+21, SHOWFILT+22, SHOWFILT+33, SHOWFILT+34
ASKPAT FILTER+30
BLD INIT+7, EXPAND+15
CHKFILT FILTER+18
FMDQ FMDATES+9, FMDATES+12, FMDATES+14
ONEPAT ASKPAT+7
SHOWFILT FILTER+39
SORT EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FMDATES+1~, FMDATES+12*!, FMDATES+14*!
%DT("A" FMDATES+12*, FMDATES+14*
%DT("B" FMDATES+13*
%DT(0 FMDATES+13*
A WRAP+8~, WRAP+11*, WRAP+13, WRAP+15, WRAP+16, WRAP+17
B WRAP+8~, WRAP+10*, WRAP+16*, WRAP+18
BCNT BLD+4~, BLD+37*, BLD+38
BDATE HDR+2~, HDR+4*, INIT+3~, INIT+4*, SORT+1~, SORT+2*
C WRAP+8~, WRAP+15*, WRAP+16, WRAP+17
CL WRAP~, WRAP+6, WRAP+10, WRAP+11, WRAP+13, WRAP+17
CLINIC EXPAND+2~, EXPAND+10*, EXPAND+12, BLD+4~, BLD+12*, BLD+27, BLD+30
CLINS ASKPAT+4~
CNT SORT+4*, BLD+4~, BLD+6*, BLD+9*, BLD+10, BLD+11, BLD+12, BLD+15, BLD+16, BLD+30
, BLD+31, BLD+32, BLD+36, BLD+37, BLD+38
COL SETL~, SETL+8
D HDR+3~, HDR+11*
DATA SETL~, SETL+8
DFN EXPAND+2~, EXPAND+7*, EXPAND+12, BLD+16*, BLD+30, ONEPAT+10*
DIC ASKPAT+4~, ASKPAT+5*, ASKPAT+7, ONEPAT~
DIC("A" ONEPAT+7*
DIC(0 ASKPAT+5*
DIR FILTER+9~, FILTER+25!, FILTER+36!, FMDATES+6!, ASKPAT+4~, SHOWFILT+7~, SHOWFILT+37!
DIR("?" FILTER+22*, FILTER+23*, FILTER+33*, FILTER+34*, FILTER+35*, FMDATES+3*, FMDATES+4*
DIR("A" FILTER+21*, FILTER+32*, FMDATES+2*
DIR("B" FILTER+21*, FILTER+32*, FMDATES+2*
DIR(0 FILTER+21*, FILTER+24*, FILTER+32*, FMDATES+2*, FMDATES+5*
DIROUT FILTER+9~, SHOWFILT+7~
DIRUT FILTER+9~, FILTER+26, FILTER+37, FMDATES+8, ASKPAT+4~, SHOWFILT+7~
DNAME BLD+4~, BLD+17*, BLD+18
DPTNOFZY ONEPAT+6~*
DT FMDATES+9, FMDATES+13
DT1 FMDATES+1~, FMDATES+9*, FMDATES+10*, FMDATES+15*, FMDQ
DT2 FMDATES+1~, FMDATES+13*, FMDATES+15
DTOUT FILTER+9~, SHOWFILT+7~
DUOUT FILTER+9~, ASKPAT+4~, SHOWFILT+7~
ECNT EXPAND+2~, EXPAND+7*, EXPAND+8, EXPAND+9, EXPAND+10, EXPAND+12
EDATE HDR+2~, HDR+4*, INIT+3~, INIT+4*, SORT+1~, SORT+2*
FILTERS EN+2~, EN+3, FILTER~, FILTER+10!, FILTER+30, FILTER+39, ASKPAT~, SHOWFILT~
FILTERS(0 HDR+4, HDR+5, INIT+4, INIT+5, SORT+2, SORT+3, SORT+5, FILTER+13*, FILTER+28*, FILTER+30
, ASKPAT+11*, SHOWFILT+8, SHOWFILT+10, SHOWFILT+12, SHOWFILT+15, SHOWFILT+25, SHOWFILT+27, CHKFILT+2*, CHKFILT+4*
FILTERS(1 HDR+11, SHOWFILT+18, CHKFILT+12*
FILTERS(2 ASKPAT+19*, SHOWFILT+30
FILTERS(3 HDR+6, INIT+6, SORT+4, FILTER+38*, SHOWFILT+36
FIRST BLD+4~, BLD+8*, BLD+54, BLD+55*, ASKPAT+4~, ASKPAT+5*, ASKPAT+7, ONEPAT~, ONEPAT+7, ONEPAT+9*
FLAG BLD+4~, BLD+10*, BLD+17, BLD+30
FLG WRAP~, WRAP+6*, WRAP+7*
I EXPAND+2~, SHOWFILT+22*, SHOWFILT+34*
IB0 FMDATES+1~
IB1 FMDATES+1~, FMDATES+10*, FMDATES+11*, FMDATES+12
IB2 FMDATES+1~, FMDATES+10*, FMDATES+11*, FMDATES+14
IBDATES FILTER+9~, FILTER+12*, FILTER+13
IBDIVS ASKPAT+4~, CHKFILT+1~, CHKFILT+2*, CHKFILT+10*, CHKFILT+11*
IBFST CHKFILT+1~, CHKFILT+5*, CHKFILT+10, CHKFILT+11*
IBHLD0 EXPAND+2~
IBIEN EXPAND+2~, EXPAND+8*, EXPAND+11, EXPAND+12
IBIENS ASKPAT+4~, ASKPAT+11
IBIENS( ASKPAT+9*, ASKPAT+16, ASKPAT+18
IBIENS2 ASKPAT+4~
IBIENS2( ASKPAT+10*
IBSTAT CHKFILT+1~, CHKFILT+5*, CHKFILT+6*, CHKFILT+7, CHKFILT+8, CHKFILT+9
IBXX EXPAND+2~, EXPAND+4*, EXPAND+6, CHKFILT+1~, CHKFILT+7*, CHKFILT+10, CHKFILT+11, CHKFILT+12
IBXXX CHKFILT+1~, CHKFILT+8*, CHKFILT+10, CHKFILT+11, CHKFILT+12
IBXXXX CHKFILT+1~, CHKFILT+9*, CHKFILT+12
IEN ASKPAT+4~, ASKPAT+6, ASKPAT+7, ASKPAT+8, ASKPAT+9, ASKPAT+10, ONEPAT~, ONEPAT+9*, SHOWFILT+7~, SHOWFILT+17*
, SHOWFILT+18*, SHOWFILT+19, SHOWFILT+29*, SHOWFILT+30*, SHOWFILT+31
IINS HDR+2~, HDR+6*, INIT+3~, INIT+6*, SORT+1~, SORT+4*
INST BLD+4~, BLD+11*, BLD+27, BLD+30
INSTS HDR+2~, HDR+5*, HDR+8, HDR+9, INIT+3~, INIT+5*, SORT+1~, SORT+3*
IX SHOWFILT+7~
J EXPAND+2~
LABEL SETL~, SETL+8
LEN SHOWFILT+7~
LINE BLD+14*, BLD+18*, BLD+19*, BLD+20*, BLD+21*, BLD+22*, BLD+23*, BLD+24*, BLD+26, BLD+27*
, BLD+29, BLD+33*, BLD+35, BLD+39*, BLD+40*, BLD+41*, BLD+42*, BLD+43*, BLD+44*, BLD+45*
, BLD+47, BLD+50*, BLD+51*, BLD+53, BLD+57*, BLD+58*, BLD+59*, BLD+60*, BLD+61*, BLD+63
, BLD+66*, BLD+67, BLD+70*, BLD+71*, BLD+72*, BLD+73*, BLD+74*, BLD+76, BLD+78*, BLD+80
, BLD+83*, BLD+84*, BLD+85*, BLD+86*, BLD+88, SETL~, SETL+8*, SETL+9, SHOWFILT+16*, SHOWFILT+20*
, SHOWFILT+21, SHOWFILT+22, SHOWFILT+28*, SHOWFILT+32*, SHOWFILT+33, SHOWFILT+34
LNG SETL~, SETL+8
LST EXPAND+2~, EXPAND+9*, EXPAND+12
N ASKPAT+4~, ASKPAT+18*, ASKPAT+19
NAME BLD+4~, BLD+6*, BLD+7*, BLD+9, BLD+10, BLD+11, BLD+12, BLD+15, BLD+16, BLD+30
, BLD+31, BLD+32, BLD+36, BLD+37, BLD+38, BLD+54, BLD+68, BLD+69, BLD+77, BLD+81
, BLD+82
NM ASKPAT+4~
NODE ASKPAT+4~
OLDH HDR+2~, INIT+3~, SORT+1~
PATS HDR+2~, HDR+5*, INIT+3~, INIT+5*, SORT+1~, SORT+3*
PFLG SHOWFILT+7~, SHOWFILT+17*, SHOWFILT+21, SHOWFILT+22, SHOWFILT+29*, SHOWFILT+33, SHOWFILT+34
PNAME EXPAND+2~, EXPAND+7*, EXPAND+8, EXPAND+9, EXPAND+10, EXPAND+12
PROMPT FMDATES~, FMDATES+11
REC EXPAND+2~, EXPAND+6*, EXPAND+7
RNB BLD+4~, BLD+48*, BLD+49, BLD+51
RX BLD+4~, BLD+32*, BLD+33
STDT SHOWFILT+7~, SHOWFILT+8*, SHOWFILT+9
STR WRAP~, WRAP+6, WRAP+10*, WRAP+11, WRAP+13*, WRAP+17*
T1 HDR+3~, HDR+8*, HDR+10*, HDR+11*, HDR+12
U HDR+4, HDR+5, INIT+4, INIT+5, SORT+2, SORT+3, EXPAND+7, EXPAND+8, EXPAND+9, EXPAND+10
, EXPAND+12, BLD+10, BLD+11, BLD+12, BLD+16, BLD+17, BLD+19, BLD+20, BLD+21, BLD+22
, BLD+23, BLD+24, BLD+30, BLD+40, BLD+41, BLD+42, BLD+43, BLD+44, BLD+45, BLD+48
, BLD+70, BLD+71, BLD+72, BLD+73, BLD+74, BLD+83, BLD+84, BLD+85, BLD+86, FILTER+24
, FILTER+28, FILTER+30, FMDATES+5, FMDATES+9, FMDATES+15, ASKPAT+9, ASKPAT+10, ASKPAT+11, SHOWFILT+8, SHOWFILT+10
, SHOWFILT+12, SHOWFILT+15, SHOWFILT+25, SHOWFILT+27, CHKFILT+2, CHKFILT+4
VAL HDR+3~
>> VALMBCK EXPAND+16*
>> VALMCNT BLD+5*, BLD+25*, BLD+26, BLD+28*, BLD+29, BLD+34*, BLD+35, BLD+46*, BLD+47, BLD+52*
, BLD+53, BLD+62*, BLD+63, BLD+64*, BLD+67, BLD+75*, BLD+76, BLD+79*, BLD+80, BLD+87*
, BLD+88
>> VALMHDR(1 HDR+12*
>> VALMSG HDR+13*
VALMY EXPAND+2~, EXPAND+4
VALMY( EXPAND+4
>> VAUTD CHKFILT+2, CHKFILT+3
>> VAUTD( CHKFILT+6
VCNT BLD+4~, BLD+6*, BLD+13*, BLD+14, BLD+26, BLD+29, BLD+30, BLD+35, BLD+47, BLD+53
, BLD+63, BLD+67, BLD+76, BLD+80, BLD+88
WARDS ASKPAT+4~
X HELP+1*, FILTER+9~, FILTER+27*, FILTER+40, FMDATES+1~, FMDATES+7, ASKPAT+4~
>> XQORNOD(0 EXPAND+3
XX BLD+15*, BLD+17, BLD+19, BLD+20, BLD+21, BLD+22, BLD+23, BLD+24, BLD+38*, BLD+40
, BLD+41, BLD+42, BLD+43, BLD+44, BLD+45, BLD+48, FILTER+9~, ASKPAT+4~, ASKPAT+14*, ASKPAT+15
, ASKPAT+16*, ASKPAT+17, ASKPAT+18, SHOWFILT+7~, SHOWFILT+19*, SHOWFILT+20, SHOWFILT+31*, SHOWFILT+32
Y FILTER+9~, FILTER+28, FILTER+38, FMDATES+1~, FMDATES+9, FMDATES+12, FMDATES+13, FMDATES+14, FMDATES+15, ASKPAT+4~
, ONEPAT+9, ONEPAT+10
ZZ BLD+56~, BLD+68*, BLD+69, BLD+77, BLD+81, BLD+82
ZZ1 BLD+56~, BLD+69*, BLD+70, BLD+71, BLD+72, BLD+73, BLD+74, BLD+82*, BLD+83, BLD+84
, BLD+85, BLD+86
ZZ2 BLD+56~, BLD+65*, BLD+66, BLD+81*, BLD+82
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All