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

Package: Integrated Billing

Routine: IBTRHRD


Information

IBTRHRD ;ALB/JWS - CLAIMS TRACKING 278 DISPOSITION REPORT ;21-SEP-2015

Source Information

Source file <IBTRHRD.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

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

Package Total Caller Graph
Integrated Billing 1 IBT 278 DISPOSITION REPORT  

Entry Points

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

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+18, SET+14
^DIC ONE+6
DT^DICRW %+15
$$GET1^DIQ PR+17, PR+18, SET+5, SET+9
^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 Deletion Disposition Report"
  • Line Location: IBTRHRD+20
Function Call: WRITE
  • Prompt: !
  • Line Location: IBTRHRD+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: ?25,$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,23),?25,$E(Z1,4,5),"/",$E(Z1,6,7),"/",$E(Z1,2,3)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?47,$J(+$P(DATA,"^"),3),?69,$J(+$P(DATA,"^",2),3)
  • Line Location: PR+13
Function Call: WRITE
  • Prompt: !?10,"Detail Delete Reason:",?40,"---"
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?10,D1,"-",$E(D2,1,25),?41,DDATA
  • Line Location: PR+19
Function Call: WRITE
  • Prompt: !?38,$TR($J(" ",42)," ","-")
  • Line Location: PR+26
Function Call: WRITE
  • Prompt: !," Total"
  • Line Location: PR+27
Function Call: WRITE
  • Prompt: ?46,$J(TOT1,4),?68,$J(TOT2,4)
  • Line Location: PR+28
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+29
Function Call: WRITE
  • Prompt: !,?25,$TR($J(" ",55)," ","=")
  • Line Location: PR+34
Function Call: WRITE
  • Prompt: !,"Grand Total"
  • Line Location: PR+35
Function Call: WRITE
  • Prompt: ?46,$J(GTOT1,4),?68,$J(GTOT2,4)
  • Line Location: PR+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+37
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 Deletion Disposition 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: ?27,"Date"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?43,"#278s Submitted",?64,"#Delete Reasons"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,$TR($J(" ",80)," ","=")
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+18
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
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^IBT(356.023 - [#356.023] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+6
^DPT - [#2] PRINT+15
^IBT(356.22 - [#356.22] PRINT+6, PRINT+7, PRINT+8
^TMP($J PRINT+4!, PR+2, PR+6, PR+7, PR+14, PR+16, SET+16, SET+22, SET+23*

Label References

Name Line Occurrences
$$FMDATES 1+1
1 %+33, %+34
3 1+12
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+33
PRINT DQ
SET PRINT+28
STAFF %+33

Naked Globals

Name Field # of Occurrence
^( PR+7, PR+16, SET+22*

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!
CERT PRINT+2~
CHK PR+24~*, PR+25*
COUNT SET+1~, SET+16*, SET+18*, SET+21*, SET+23
D1 PR+4~, PR+17*, PR+19
D2 PR+4~, PR+18*, PR+19
DATA PR+3~, PR+7*, PR+13, PR+21
DATE SET+1~
DDATA PR+3~, PR+16*, PR+19
DELETE SET+1~, SET+15*, SET+20, SET+22
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+12, 2+1, 2+2*, 2+16*, 3+1, 3+2*, 3+16*
, STAFF+9*, STAFF+11, PAT+9*, PAT+11, PRINT+17, PRINT+19, PRINT+23, PRINT+24, PR+9, PR+10
, PR+11, PR+14, PR+23, HDR+6, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15, SET+3
, SET+7, SET+11, SET+12, SET+13, SET+22
FILTERS(2 2+2, PRINT+20, PR+24, PR+25, SET+4, ASKSTAFF+8*
FILTERS(3 3+2, PRINT+25, PR+25, SET+8, ASKPAT+8*
FILTERS(4 1+2*, PRINT+5, HDR+8
GTOT1 PR+4~, PR+30*, PR+33, PR+36
GTOT2 PR+4~, PR+30*, PR+33, PR+36
GTOT3 PR+4~
GTOT4 PR+4~
GTOT5 PR+4~
GTOT6 PR+4~
GTOT7 PR+4~
GTOT8 PR+4~
GTOT9 PR+4~
I END+4!
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+18*, SET+14*
IBTRN END+4!
IBTRND END+4!
IEN PRINT+2~, PRINT+7*, PRINT+8, 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+12*, PRINT+14, PRINT+15
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+12, PRINT+18, SET+2, SET+15, SET+18
OK %+14~, 2+1*, 2+2*, 2+3, 3+1*, 3+2*, 3+3, PRINT+16*, PRINT+17, PRINT+18*
, PRINT+19, PRINT+20*, PRINT+23, PRINT+24, PRINT+25*
PATIEN PRINT+2~, PRINT+12*, PRINT+13, PRINT+15, PRINT+25, SET+8, SET+9
PATINS PRINT+2~, PRINT+15*
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+16, SET+22, SET+23
ST2 SET+1~, SET+12*, SET+13*, SET+16, SET+22, SET+23
STAFF PRINT+2~, PRINT+18*, PRINT+20, SET+4, SET+5
TOT1 PR+3~, PR+21*, PR+22, PR+28, PR+30, PR+31*
TOT2 PR+3~, PR+21*, PR+22, PR+28, PR+30, PR+31*
TOT3 PR+3~
TOT4 PR+3~
TOT5 PR+3~
TOT6 PR+3~
TOT7 PR+3~
TOT8 PR+3~
TOT9 PR+3~
TRANST SET+1~, SET+2*, SET+18
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!, FMDATES+1~, FM1+1, FM2+1, ASKSTAFF+3~, ASKPAT+3~
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+14, PR+16
Z2 PR+3~, PR+5*, PR+7*, PR+9, PR+12, PR+14, PR+16
Z3 PR+3~, PR+16*, PR+17, PR+18
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, PR1+2, HDR+18, SET+14
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+18*, 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