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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBTRHRS

Package: Integrated Billing

Routine: IBTRHRS


Information

IBTRHRS ;ALB/JWS - CLAIMS TRACKING 278 STATISTICAL REPORT ;24-AUG-2015

Source Information

Source file <IBTRHRS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTE^XLFDT  $$UP^XLFSTR  
VA FileMan 5 ^%DT  ^DIC  DT^DICRW  $$GET1^DIQ  ^DIR  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Integrated Billing 1 IBT 278 STATISTICAL REPORT  

Entry Points

Name Comments DBIA/ICR reference
PAT ; Patient filter
HDR ; -- Print header for billing report
FM2E ;
DEV ; -- select device, run option
PRINT ; -- print one billing report from ct
FMDQ ;
DQ
PR ;
SET ; -- set tmp array
FM2 ;
FM1 ;
1 ;
3 ;
2 ;
ONE(DIC,IEN)
4 ;
END ; -- Clean up
FM1E ;
ASKSTAFF(FILTERS)
PR1 ;
ASKPAT(FILTERS) ; Sets a list of Patients
; Input: FILTERS - Current Array of filter settings
; Output: FILTERS - Updated Array of filter settings
FMDATES(PROMPT) ; ask for date range
STAFF ; Staff ( New Person file) filter

External References

Name Field # of Occurrence
^%DT FM1+1, FM2+1
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+19, SET+14
^DIC ONE+6
DT^DICRW %+15
$$GET1^DIQ PR+20, PR+21, PR+25, PR+26, SET+5, SET+9, SET+30, SET+41
^DIR %+30, 1+7, 2+14, 3+14, STAFF+6, PAT+6
PAUSE^VALM1 HDR+2
$$HTE^XLFDT PRINT+3
$$UP^XLFSTR STAFF+8, PAT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"278 Statistical Volume Report"
  • Line Location: IBTRHRS+20
Function Call: WRITE
  • Prompt: !
  • Line Location: IBTRHRS+34
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+14
Function Call: WRITE
  • Prompt: !
  • Line Location: STAFF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Compiling report data..."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No 278 Transactions found in date range.",!
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: ?18,$E(Z2,4,5),"/",$E(Z2,6,7),"/",$E(Z2,2,3)
  • Line Location: PR+9
Function Call: WRITE
  • Prompt: !,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$S($E(Z1)=3:20,1:19),$E(Z1,2,3)
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !,$E(Z2,1,16),?18,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$E(Z1,2,3)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?27,$J($P(DATA,"^"),3),?33,$J($P(DATA,"^",2),3)
  • Line Location: PR+13
Function Call: WRITE
  • Prompt: ?39,$J($P(DATA,"^",3),3),?45,$J($P(DATA,"^",4),3)
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: ?51,$J($P(DATA,"^",5),3),?57,$J($P(DATA,"^",6),3)
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: ?63,$J($P(DATA,"^",7),3),?69,$J($P(DATA,"^",8),3),?75,$J($P(DATA,"^",9),3)
  • Line Location: PR+16
Function Call: WRITE
  • Prompt: !?18,"Detail Rejection/Review Decision Code:",?70,"----"
  • Line Location: PR+18
Function Call: WRITE
  • Prompt: !?18,D1,"-",D2,?72,DDATA
  • Line Location: PR+22
Function Call: WRITE
  • Prompt: !?18,D1,"-",D2,?72,DDATA
  • Line Location: PR+27
Function Call: WRITE
  • Prompt: !?26,$TR($J(" ",54)," ","-")
  • Line Location: PR+38
Function Call: WRITE
  • Prompt: !," Total"
  • Line Location: PR+39
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+40
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+41
Function Call: WRITE
  • Prompt: !,?18,$TR($J(" ",62)," ","=")
  • Line Location: PR+50
Function Call: WRITE
  • Prompt: !,"Grand Total"
  • Line Location: PR+51
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+52
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+53
Function Call: WRITE
  • Prompt: !,?(80-$L("*** END OF REPORT ***")\2),"*** END OF REPORT ***"
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !," 278 Statistical Volume Report",?40,IBHDT,?72,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Sort by: ",$S($P(FILTERS(0),"^",6)=1:$S($P(FILTERS(0),"^")=1:"Staff",1:"Patient"),1:"Date")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?30,"Report Timeframe:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?27,$E(SDT,4,5),"/",$E(SDT,6,7),"/",$S($E(SDT)=3:20,1:19),$E(SDT,2,3)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: " - ",$E(EDT,4,5),"/",$E(EDT,6,7),"/",$S($E(EDT)=3:20,1:19),$E(EDT,2,3)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?31,$S($P(FILTERS(0),"^",3)=1:"Selected",1:"All")," Staff"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?31,$S($P(FILTERS(0),"^",4)=1:"Selected",1:"All")," Patient(s)"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?31,"Selected Dates"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,$S($P(FILTERS(0),"^")=1:"Staff",$P(FILTERS(0),"^")=2:"Patient",1:"Date")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?18,"Date"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?27,"#278s",?33,"#217",?39,"#215",?45,"#215",?51,"#Auth",?57,"#Rej",?63,"#Pend",?69,"AAA",?75,"Await"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !?27,"Submitted",?39,"Man",?45,"Auto",?51,"Recd",?57,"Recd"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","=")
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: SET+14
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM1E+1
Function Call: WRITE
  • Prompt: !,"A date must be entered."
  • Line Location: FM2E+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ONE+6
Routine Call
  • DIR
  • Line Location:
    • %+30
    • 1+7
    • 2+14
    • 3+14
    • STAFF+6
    • PAT+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^IBT(356.02 - [#356.02] GET1^DIQ
^IBT(356.021 - [#356.021] GET1^DIQ
^IBE(365.017 - [#365.017] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+6
^DPT - [#2] PRINT+13
^IBT(356.22 - [#356.22] PRINT+6, PRINT+7, PRINT+8, PRINT+26, PRINT+27, PRINT+28, SET+25, SET+26, SET+36, SET+46
, SET+47
^TMP($J PRINT+4!, PR+2, PR+6, PR+7, PR+17, PR+19, PR+24, SET+15, SET+39*, SET+43
, SET+45*, SET+49, SET+51*

Label References

Name Line Occurrences
$$FMDATES 1+1
1 %+33, %+34
3 1+11
4 1+10, 2+18
ASKPAT PAT+11
ASKSTAFF STAFF+11
DEV 4+1
END DEV+2, DEV+3, DQ, PR1+2
FM1 FM1E+1
FM1E FM1+1
FM2 FM2E+1
FM2E FM2+1
FMDQ FM1+1, FM2+1
HDR PR+1, PR+8, SET+14
ONE ASKSTAFF+6, ASKPAT+6
PAT %+35
PR1 PR+2, PR+49
PRINT DQ
SET PRINT+29
STAFF %+33

Naked Globals

Name Field # of Occurrence
^( PR+7, PR+19, PR+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FMDATES+1~, FM1+1*!, FM2+1*!
%DT("A" FM1+1*, FM2+1*
%DT("B" FM1+2*
%DT(0 FM1+2*
%ZIS DEV+2*, END+4!
AUTH PRINT+2~, PRINT+28*, SET+40, SET+41, SET+43, SET+45
AUTH1 SET+1~, SET+41*, SET+42
AUTH2 SET+1~, SET+46*, SET+47
CERT PRINT+2~, PRINT+27*, SET+29, SET+30*, SET+32, SET+34
CHK PR+36~*, PR+37*
COUNT SET+1~, SET+15*, SET+17*, SET+19*, SET+23*, SET+24*, SET+28*, SET+32*, SET+34*, SET+36*
, SET+38*, SET+39, SET+43*, SET+44*, SET+45, SET+49*, SET+50*, SET+51
D1 PR+4~, PR+20*, PR+22, PR+25*, PR+27
D2 PR+4~, PR+21*, PR+22, PR+26*, PR+27
DATA PR+3~, PR+7*, PR+13, PR+14, PR+15, PR+16, PR+29, PR+30, PR+31, PR+32
, PR+33, SET+1~, SET+47*, SET+48, SET+49, SET+51
DATE SET+1~
DDATA PR+3~, PR+19*, PR+22, PR+24*, PR+27
DFN END+4!
DIC ASKSTAFF+3~, ASKSTAFF+4*, ASKSTAFF+6, ONE~, ONE+5, ASKPAT+3~, ASKPAT+4*, ASKPAT+6
DIC("A" ONE+5*
DIC(0 ASKSTAFF+4*, ASKPAT+4*
DIR %+14~, %+30!, 1+7!, 2+14!, 3+14!, STAFF+1~, STAFF+6!, PAT+1~, PAT+6!, ASKSTAFF+3~
, ASKPAT+3~
DIR("?" %+25*, %+26*, %+27*, %+28*, %+29*, 1+4*, 1+5*, 1+6*, 2+10*, 2+11*
, 2+12*, 2+13*, 3+10*, 3+11*, 3+12*, 3+13*, STAFF+3*, STAFF+4*, PAT+3*, PAT+4*
DIR("A" %+19*, 1+3*, 2+5*, 3+5*, STAFF+2*, PAT+2*
DIR("B" 1+3*, STAFF+2*, PAT+2*
DIR("L" %+20*, %+21*, %+22*, %+23*, %+24*, 2+6*, 2+7*, 2+8*, 2+9*, 3+6*
, 3+7*, 3+8*, 3+9*
DIR(0 %+18*, 1+3*, 2+4*, 3+4*, STAFF+2*, STAFF+5*, PAT+2*, PAT+5*
DIROUT %+14~, STAFF+1~, PAT+1~
DIRUT %+14~, %+31, 1+8, 2+3, 2+15, 3+3, 3+15, STAFF+1~, STAFF+7, PAT+1~
, PAT+7, HDR+2, ASKSTAFF+3~, ASKPAT+3~
DIVS ASKSTAFF+3~, ASKPAT+3~
DT %+15, FM1+2
DT1 FMDATES+1~, FMDATES+2*, FM2+2*, FMDQ+1
DT2 FMDATES+1~, FM1+2*, FM2+2
DTOUT %+14~, STAFF+1~, PAT+1~
DUOUT %+14~, STAFF+1~, PAT+1~, ASKSTAFF+3~, ASKPAT+3~
EDT PRINT+2~, PRINT+5*, PRINT+6, HDR+8*, HDR+10
FILTERS %+14~, STAFF+11, PAT+11, ASKSTAFF~, ASKPAT~
FILTERS(0 %+32*, 1+9*, 1+10*, 1+11, 2+1, 2+2*, 2+16*, 3+1, 3+2*, 3+16*
, STAFF+9*, STAFF+11, PAT+9*, PAT+11, PRINT+15, PRINT+17, PRINT+21, PRINT+22, PR+9, PR+10
, PR+11, PR+17, PR+35, HDR+6, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15, SET+3
, SET+7, SET+11, SET+12, SET+13
FILTERS(2 2+2, PRINT+18, PR+36, SET+4, SET+5*, ASKSTAFF+8*
FILTERS(3 3+2, PRINT+23, PR+37, SET+8, SET+9*, ASKPAT+8*
FILTERS(4 1+2*, PRINT+5, HDR+8
GTOT1 PR+4~, PR+42*, PR+49
GTOT2 PR+4~, PR+42*
GTOT3 PR+4~, PR+43*
GTOT4 PR+4~, PR+43*
GTOT5 PR+4~, PR+44*
GTOT6 PR+4~, PR+44*
GTOT7 PR+4~, PR+45*
GTOT8 PR+4~, PR+45*
GTOT9 PR+4~, PR+46*
I END+4!, PR+40*, PR+52*
IB1 FMDATES+1~, FMDATES+2*, FMDATES+3*, FM1+1
IB2 FMDATES+1~, FMDATES+2*, FMDATES+3*, FM2+1
IBBDT END+4!
IBDT END+4!
IBEDT END+4!
IBHDT END+4!, PRINT+3*, HDR+5
IBIENS ASKSTAFF+3~, ASKPAT+3~
IBPAG END+4!, PRINT+2~, PRINT+3*, HDR+2, HDR+3, HDR+4*, HDR+5
IBQUIT %+14~, END+4!, PRINT+2~, PRINT+3*, PRINT+7, PR+6, PR+7, PR+8, HDR+1, HDR+2*
, HDR+19*, SET+14*
IBTRN END+4!
IBTRND END+4!
IEN PRINT+2~, PRINT+7*, PRINT+8, PRINT+26, SET+25, ASKSTAFF+3~, ASKSTAFF+5, ASKSTAFF+6, ASKSTAFF+7, ASKSTAFF+8
, ONE~, ONE+7*, ASKPAT+3~, ASKPAT+5, ASKPAT+6, ASKPAT+7, ASKPAT+8
INS SET+1~, SET+4*, SET+5*, SET+6*, SET+8*, SET+9*, SET+10*, SET+11*, SET+12, SET+13
INSIEN PRINT+2~, PRINT+10*, PRINT+12, PRINT+13
IO DEV+5
IO("Q" DEV+3!
IOF HDR+3
IOSL PR+8
IOST HDR+2, HDR+3
J END+4!
N ASKSTAFF+3~, ASKPAT+3~
NM ASKSTAFF+3~, ASKPAT+3~
NODE ASKSTAFF+3~, ASKPAT+3~
NODE0 PRINT+2~, PRINT+8*, PRINT+9, PRINT+10, PRINT+16, SET+2, SET+23, SET+38
NODE103 SET+1~, SET+26*, SET+28
OK %+14~, 2+1*, 2+2*, 2+3, 3+1*, 3+2*, 3+3, PRINT+14*, PRINT+15, PRINT+16*
, PRINT+17, PRINT+18*, PRINT+21, PRINT+22, PRINT+23*
PATIEN PRINT+2~, PRINT+10*, PRINT+11, PRINT+13, PRINT+23, SET+8, SET+9
PATINS PRINT+2~, PRINT+13*
PIECE SET+1~
>> POP DEV+2
PROMPT FMDATES~, FMDATES+3
RPTDATE %+14~, 1+1*, 1+2
SDT PRINT+2~, PRINT+5*, PRINT+6*, PRINT+7, HDR+8*, HDR+9, SET+11, SET+12, SET+13
ST1 SET+1~, SET+12*, SET+13*, SET+15, SET+39, SET+43, SET+45, SET+49, SET+51
ST2 SET+1~, SET+12*, SET+13*, SET+15, SET+39, SET+43, SET+45, SET+49, SET+51
STAFF PRINT+2~, PRINT+16*, PRINT+18, SET+4, SET+5
TAB PR+4~, PR+40*, PR+52*
TOT PR+4~, PR+40*, PR+52*
TOT1 PR+3~, PR+29*, PR+34, PR+42, PR+47*
TOT2 PR+3~, PR+29*, PR+42, PR+47*
TOT3 PR+3~, PR+30*, PR+43, PR+47*
TOT4 PR+3~, PR+30*, PR+43, PR+47*
TOT5 PR+3~, PR+31*, PR+44, PR+47*
TOT6 PR+3~, PR+31*, PR+44, PR+47*
TOT7 PR+3~, PR+32*, PR+45, PR+47*
TOT8 PR+3~, PR+32*, PR+45, PR+47*
TOT9 PR+3~, PR+33*, PR+46, PR+47*
TRANST SET+1~, SET+2*, SET+17, SET+19, SET+22, SET+38
VA END+4!
X %+14~, 2+1*, 2+2*, 3+1*, 3+2*, STAFF+1~, STAFF+8*, PAT+1~, PAT+8*, DEV+6*
, END+4!, SET+1~, FMDATES+1~, FM1+1, FM2+1, ASKSTAFF+3~, ASKPAT+3~
XRESP PRINT+2~, PRINT+26*, PRINT+27, PRINT+28, SET+1~, SET+25*, SET+26, SET+36, SET+46, SET+47
XX ASKSTAFF+3~, ASKPAT+3~
Y %+14~, %+32, %+33, %+34, %+35, 1+9, 2+16, 3+16, STAFF+1~, STAFF+9
, PAT+1~, PAT+9, END+4!, FMDATES+1~, FM1+1, FM1+2, FM2+1, FM2+2, ASKSTAFF+3~, ONE+7
, ASKPAT+3~
Z1 PR+3~, PR+5*, PR+6*, PR+7, PR+9, PR+11, PR+12, PR+17, PR+19, PR+24
Z2 PR+3~, PR+5*, PR+7*, PR+9, PR+12, PR+17, PR+19, PR+24
Z3 PR+3~, PR+19*, PR+20, PR+21, PR+24*, PR+25, PR+26
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, PR1+2, HDR+19, SET+14
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+19*, SET+14*
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 |  Naked Globals |  Local Variables |  All