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

Package: Integrated Billing

Routine: IBUCMM1


Information

IBUCMM1 ;WOIFO/AAT-IBUC VISIT SUMMARY/DETAIL REPORT;30-JUL-02

Source Information

Source file <IBUCMM1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (COMMA,NOW)^%DTC  $$GET1^DIQ  ^DIR  
Integrated Billing 1 SITE^IBAUTL  
Kernel 1 $$FMTE^XLFDT  

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 IBUCMM  

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
GETDATA(IBBDT,IBEDT) ;Gather the data for the report
PRSUM ; Print report from the temp. global
PRDET(IBYR,IBMON) ; Print the details of the summary
TOTALS ; Print the totals.
FORMAT(IBNUM,IBDIG,IBFRM) ; Comma format the number
CHKSTOP
HDR ; Print header.
EXHDR ; Print Excel version of the header.
STAT() ; Display bill number or status
HLD(STAT) ; Return an 'on hold' status string
PAUSE(IBEND) ;
DAT(IBDT) ; Convert FM date to (mm/dd/yy) format.
MON(IBMON)

External References

Name Field # of Occurrence
COMMA^%DTC FORMAT+3
NOW^%DTC PRSUM+3
$$GET1^DIQ GETDATA+18, PRDET+12, PRDET+15, HDR+8
^DIR PAUSE+6
SITE^IBAUTL GETDATA+5
$$FMTE^XLFDT PRSUM+3, DAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Urgent Care Visits found within the specified period"
  • Line Location: PRSUM+7
Function Call: WRITE
  • Prompt: !,$$MON($E(IBMON,4,5))_" "_(1700+$E(IBMON,1,3)),U,+$P(IBY,U,1),U,+$P(IBY,U,2),U,+$P(IBY,U,3),U,+$P(IBY,U,4),U,+$P(IBY,U,5),U,+$P(IBY,U,6)
  • Line Location: PRSUM+17
Function Call: WRITE
  • Prompt: !,$$MON($E(IBMON,4,5)),?10,1700+$E(IBMON,1,3)
  • Line Location: PRSUM+21
Function Call: WRITE
  • Prompt: ?34,$J(+$P(IBY,U,1),5)
  • Line Location: PRSUM+22
Function Call: WRITE
  • Prompt: ?43,$J(+$P(IBY,U,2),5)
  • Line Location: PRSUM+23
Function Call: WRITE
  • Prompt: ?52,$J(+$P(IBY,U,3),5)
  • Line Location: PRSUM+24
Function Call: WRITE
  • Prompt: ?62,$J(+$P(IBY,U,4),5)
  • Line Location: PRSUM+25
Function Call: WRITE
  • Prompt: ?72,$J(+$P(IBY,U,5),5)
  • Line Location: PRSUM+26
Function Call: WRITE
  • Prompt: ?83,$J(+$P(IBY,U,6),5)
  • Line Location: PRSUM+27
Function Call: WRITE
  • Prompt: !!,"*The total unique patient number only counts a patient once for the period",!,"of the report."
  • Line Location: PRSUM+34
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2,IBDFN_",",.01,"E"),U,+$P(IBDATA,U,1),U,+$P(IBDATA,U,2),U,+$P(IBDATA,U,3),U,+$P(IBDATA,U,4),U,+$P(IBDATA,U,5)
  • Line Location: PRDET+12
Function Call: WRITE
  • Prompt: !?3,$$GET1^DIQ(2,IBDFN_",",.01,"E")
  • Line Location: PRDET+15
Function Call: WRITE
  • Prompt: ?34,$J(+$P(IBDATA,U,1),5)
  • Line Location: PRDET+16
Function Call: WRITE
  • Prompt: ?43,$J(+$P(IBDATA,U,2),5)
  • Line Location: PRDET+17
Function Call: WRITE
  • Prompt: ?52,$J(+$P(IBDATA,U,3),5)
  • Line Location: PRDET+18
Function Call: WRITE
  • Prompt: ?62,$J(+$P(IBDATA,U,4),5)
  • Line Location: PRDET+19
Function Call: WRITE
  • Prompt: ?72,$J(+$P(IBDATA,U,5),5)
  • Line Location: PRDET+20
Function Call: WRITE
  • Prompt: !,"REPORT TOTALS",U,IBTOT,U,IBTOTF,U,IBTOTC,U,IBTOTN,U,IBTOTV,U,$G(^TMP($J,"IBUCMMNM"))
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !,"REPORT TOTALS",?34,$J(IBTOT,5),?43,$J(IBTOTF,5),?52,$J(IBTOTC,5),?62,$J(IBTOTN,5),?72,$J(IBTOTV,5),?82,$J($G(^TMP($J,"IBUCMMNM")),6)
  • Line Location: TOTALS+9
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(122-$L(IBH)\2),IBH
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?(122-$L(IBH1)\2),IBH1
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?(122-$L(IBH2)\2),IBH2
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?IOM-36,IBDTH,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,?33,"TOTAL",?60,"REMOVED",?71,"VISITS",?80,"UNIQUE"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !," MONTH",?10,"YEAR",?33,"VISITS",?44,"FREE",?51,"BILLED",?60,"VISITS",?71,"ONLY",?80,"PATIENTS"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"MONTH/YEAR",U,"TOTAL VISITS",U,"FREE",U,"BILLED",U,"REMOVED VISITS",U,"VISITS ONLY",U,"UNIQUE PATIENTS"
  • Line Location: EXHDR+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+7
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.21 - [#350.21] STAT+1
^IBUC(351.82 - [#351.82] GETDATA+10, GETDATA+12, GETDATA+15
^TMP($J REPORT+3!, REPORT+12!, REPORT+13!, GETDATA+21, GETDATA+22*, GETDATA+23*, GETDATA+25*, GETDATA+26*, GETDATA+27*, GETDATA+29*
, GETDATA+30*, GETDATA+31, GETDATA+32*, GETDATA+33*, PRSUM+7, PRSUM+12, PRDET+4, PRDET+6, PRDET+8, TOTALS+5
, TOTALS+9

Label References

Name Line Occurrences
$$DAT HDR+11
$$HLD STAT+2
$$MON PRSUM+17, PRSUM+21
CHKSTOP PRSUM+10, PRDET+7
EXHDR PRSUM+6
GETDATA REPORT+6
HDR PRSUM+5, CHKSTOP
PAUSE PRSUM+7, PRSUM+35, CHKSTOP
PRDET PRSUM+29
PRSUM REPORT+9
TOTALS PRSUM+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRSUM+1~, PRSUM+3
DIR PAUSE+2~, PAUSE+6!
DIR("A" PAUSE+5*
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+6
IBBDT REPORT+6, GETDATA~, GETDATA+8, PRSUM+9, HDR+11
>> IBCA GETDATA+16, HDR+7
IBCHG PRSUM+1~, PRSUM+4*
IBCSITE GETDATA+2~, GETDATA+5*, GETDATA+16
IBCTX GETDATA+2~, GETDATA+17*, GETDATA+23, GETDATA+26, GETDATA+30
IBD PRSUM+1~
IBDA PRSUM+1~
IBDATA GETDATA+2~, GETDATA+15*, GETDATA+16, GETDATA+17, PRDET+8*, PRDET+12, PRDET+16, PRDET+17, PRDET+18, PRDET+19
, PRDET+20
IBDFN GETDATA+2~, GETDATA+17*, GETDATA+18, GETDATA+21, GETDATA+22, GETDATA+23, GETDATA+31, GETDATA+32, PRDET+2~, PRDET+5*
, PRDET+6*, PRDET+8, PRDET+12, PRDET+15
IBDIG FORMAT~, FORMAT+2
IBDT DAT~, DAT+1
>> IBDTH PRSUM+3*, HDR+13
IBEDT REPORT+6, GETDATA~, GETDATA+10, PRSUM+9, HDR+11
IBEND PAUSE~, PAUSE+5, PAUSE+7
>> IBEXCEL PRSUM+5, PRSUM+6, PRSUM+10, PRSUM+16, PRSUM+20, PRDET+11, TOTALS+4
>> IBFAC HDR+8
IBFACNM HDR+1~, HDR+8*, HDR+9
IBFRM FORMAT~
IBH HDR+1~, HDR+4*, HDR+5
IBH1 HDR+1~, HDR+6*, HDR+9*, HDR+10
IBH2 HDR+1~, HDR+11*, HDR+12
IBHDR HDR+1~, HDR+3*, HDR+4
IBI TOTALS+1~, TOTALS+8*, HDR+1~, HDR+16*
IBIEN GETDATA+2~, GETDATA+11*, GETDATA+12*, GETDATA+15
IBJ PAUSE+2~
IBLINE PRSUM+1~, PRSUM+4*
IBLP GETDATA+2~, GETDATA+7*, GETDATA+8*, GETDATA+10*, GETDATA+12, GETDATA+15
IBMN GETDATA+2~, GETDATA+15*, GETDATA+21, GETDATA+22, GETDATA+23, GETDATA+25, GETDATA+26, GETDATA+27
IBMON PRSUM+1~, PRSUM+9*, PRSUM+11, PRSUM+12, PRSUM+17, PRSUM+21, PRSUM+29, PRDET~, PRDET+4, PRDET+6
, PRDET+8, MON~, MON+1
IBNEW GETDATA+2~, GETDATA+14*, GETDATA+21*, GETDATA+27
IBNM GETDATA+18*, GETDATA+19, GETDATA+21, GETDATA+22, GETDATA+23, PRDET+2~, PRDET+3*, PRDET+4*, PRDET+6, PRDET+8
IBNUM FORMAT~, FORMAT+2
IBPAG PRSUM+1~, PRSUM+4*, HDR+2, HDR+5*, HDR+13
>> IBQUIT PRSUM+4*, PRSUM+9, PRSUM+10, PRSUM+30, PRDET+7, CHKSTOP, PAUSE+6*
IBSAV PRSUM+1~
>> IBSD PRSUM+29, HDR+3
IBSEQ PRSUM+1~
IBSITE GETDATA+2~, GETDATA+5*, GETDATA+17*
IBSTAT GETDATA+2~, GETDATA+17*, STAT+1~*, STAT+2
IBTOT PRSUM+1~, PRSUM+2~, PRSUM+4*, PRSUM+28*, TOTALS+5, TOTALS+9
IBTOTC PRSUM+2~, PRSUM+4*, PRSUM+28*, TOTALS+5, TOTALS+9
IBTOTF PRSUM+2~, PRSUM+4*, PRSUM+28*, TOTALS+5, TOTALS+9
IBTOTN PRSUM+2~, PRSUM+4*, PRSUM+28*, TOTALS+5, TOTALS+9
IBTOTV PRSUM+2~, PRSUM+4*, PRSUM+28*, TOTALS+5, TOTALS+9
IBTY PRSUM+1~
IBY PRSUM+1~, PRSUM+12*, PRSUM+14, PRSUM+17, PRSUM+22, PRSUM+23, PRSUM+24, PRSUM+25, PRSUM+26, PRSUM+27
, PRSUM+28
IBYR GETDATA+2~, GETDATA+15*, GETDATA+21, GETDATA+22, GETDATA+23, GETDATA+25, GETDATA+26, GETDATA+27, GETDATA+29, GETDATA+30
, PRSUM+1~, PRSUM+11*, PRSUM+12, PRSUM+29, PRDET~, PRDET+4, PRDET+6, PRDET+8
>> IBZ STAT+1, STAT+2
IOF HDR+2, PAUSE+6, PAUSE+7
IOM PRSUM+4, HDR+13
IOSL CHKSTOP
IOST HDR+2, PAUSE+1
STAT HLD~, HLD+1
U GETDATA+16, GETDATA+17, GETDATA+22, GETDATA+23, GETDATA+25, GETDATA+26, GETDATA+27, GETDATA+29, GETDATA+30, PRSUM+17
, PRSUM+22, PRSUM+23, PRSUM+24, PRSUM+25, PRSUM+26, PRSUM+27, PRSUM+28, PRDET+12, PRDET+16, PRDET+17
, PRDET+18, PRDET+19, PRDET+20, TOTALS+5, EXHDR+1, STAT+1, STAT+2
X PRSUM+1~, TOTALS+1~, FORMAT+1~, FORMAT+2*, FORMAT+4
X1 FORMAT+1~
X2 PRSUM+1~
X3 PRSUM+1~, FORMAT+1~, FORMAT+2*
Y PRSUM+1~, PAUSE+2~
>> ZTQUEUED REPORT+14
>> ZTREQ REPORT+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 |  Local Variables  | All