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

Package: Integrated Billing

Routine: IBTRHRC


Information

IBTRHRC ;ALB/JWS - CLAIMS TRACKING 278 CERTIFICATION REPORT ;24-AUG-2015

Source Information

Source file <IBTRHRC.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 CERTIFICATION REPORT  

Entry Points

Name Comments DBIA/ICR reference
PAT ; Patient filter
HDR ; -- Print header for billing report
PAY ; Payer filter
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 ;
4 ;
ONE(DIC,IEN)
END ; -- Clean up
FM1E ;
ASKSTAFF(FILTERS)
ASKPAY(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+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+21, SET+17
^DIC ONE+6
DT^DICRW %+19
$$GET1^DIQ PR+19, PR+20, SET+4, SET+8, SET+12, SET+20, SET+25
^DIR %+36, 1+7, 1+15, 1+34, 2+14, 3+14, PAY+6, STAFF+6, PAT+6
PAUSE^VALM1 HDR+2
$$HTE^XLFDT PRINT+3
$$UP^XLFSTR PAY+8, STAFF+8, PAT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"278 Certification Report"
  • Line Location: IBTRHRC+24
Function Call: WRITE
  • Prompt: !
  • Line Location: IBTRHRC+40
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: STAFF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+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: ?30,$E(Z2,4,5),"/",$E(Z2,6,7),"/",$S($E(Z2)=3:20,1:19),$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: !,Z2,?30,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$S($E(Z1)=3:20,1:19),$E(Z1,2,3)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?49,$J($P(DATA,"^"),3),?57,$J($P(DATA,"^",2),3)
  • Line Location: PR+13
Function Call: WRITE
  • Prompt: ?67,$J($P(DATA,"^",3),3),?77,$J($P(DATA,"^",4),3),?87,$J($P(DATA,"^",5),3),?97,$J($P(DATA,"^",6),3)
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: ?107,$J($P(DATA,"^",7),3),?117,$J($P(DATA,"^",8),3),?126,$J($P(DATA,"^",9),4)
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?48,"Detail Autho/Review Decision Code:",?93,"----"
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: !?48,D1,"-",D2,?95,DDATA
  • Line Location: PR+21
Function Call: WRITE
  • Prompt: !?48,Z3,?95,DDATA
  • Line Location: PR+23
Function Call: WRITE
  • Prompt: !?48,$TR($J(" ",84)," ","-")
  • Line Location: PR+34
Function Call: WRITE
  • Prompt: !," Total"
  • Line Location: PR+35
Function Call: WRITE
  • Prompt: ?48,$J(TOT1,4)
  • Line Location: PR+36
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+37
Function Call: WRITE
  • Prompt: ?126,$J(TOT9,4)
  • Line Location: PR+38
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","-")
  • Line Location: PR+39
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","-")
  • Line Location: PR+47
Function Call: WRITE
  • Prompt: !,"Grand Total"
  • Line Location: PR+48
Function Call: WRITE
  • Prompt: ?48,$J(GTOT1,4)
  • Line Location: PR+49
Function Call: WRITE
  • Prompt: @TAB,$J(@TOT,4)
  • Line Location: PR+50
Function Call: WRITE
  • Prompt: !?29,$TR($J(" ",103)," ","=")
  • Line Location: PR+51
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+52
Function Call: WRITE
  • Prompt: !?(132-$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 Certification Report",?55,IBHDT,?125,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," Sort by: ",$S($P(FILTERS(0),"^",6)=1:$S($P(FILTERS(0),"^")=1:"Payer",$P(FILTERS(0),"^")=2:"Staff",1:"Patient"),1:"Date"),?116,"Detail: ",$S($P(FILTERS(0),"^",7)=1:"Included",1:"Excluded")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?55,"Report Timeframe:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?52,$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: !?55,$S($P(FILTERS(0),"^",2)=1:"Selected",1:"All")," Payer(s)"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?55,$S($P(FILTERS(0),"^",3)=1:"Selected",1:"All")," Staff"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?55,$S($P(FILTERS(0),"^",4)=1:"Selected",1:"All")," Patient(s)"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?55,"Selected Dates"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,$S($P(FILTERS(0),"^")=1:"Payer",$P(FILTERS(0),"^")=2:"Staff",$P(FILTERS(0),"^")=3:"Patient",1:"Date")
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?30
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: "Date"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?48,"#278s",?58,"#A1",?68,"#A2",?78,"#A6",?88,"#A4",?98,"#A3",?108,"#C",?118,"CT",?128,"NA"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,$TR($J(" ",132)," ","=")
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: SET+17
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:
    • %+36
    • 1+7
    • 1+15
    • 1+34
    • 2+14
    • 3+14
    • PAY+6
    • 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
^DIC(36 - [#36] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+5
^DPT - [#2] PRINT+13
^IBT(356.22 - [#356.22] PRINT+6, PRINT+7, PRINT+8, PRINT+22, PRINT+32, PRINT+33
^TMP($J PRINT+4!, PR+2, PR+6, PR+7, PR+16, PR+18, PR+22, SET+18, SET+23*, SET+27
, SET+29*, SET+31, SET+33*

Label References

Name Line Occurrences
$$FMDATES 1+1
1 %+39, %+40, %+41
2 1+19
3 1+20
4 1+10, 1+18, 1+38, 2+18
ASKPAT PAT+11
ASKPAY PAY+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+17
ONE ASKPAY+7, ASKSTAFF+6, ASKPAT+6
PAT %+42
PAY %+39
PR1 PR+2
PRINT DQ
SET PRINT+34
STAFF %+40

Naked Globals

Name Field # of Occurrence
^( PR+7, PR+18, PR+22, SET+18*
^(103 PRINT+33

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