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

Package: Integrated Billing

Routine: IBUCERP


Information

IBUCERP ;EDE/LLB - IBUC VISIT EXCEPTION REPORT;09-MAR-23

Source Information

Source file <IBUCERP.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$UP^XLFSTR  
Integrated Billing 3 SITE^IBAUTL  $$EXCEL^IBJD  REPORT1^IBUCERP  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  

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

Package Total Caller Graph
Integrated Billing 2 IBUC EXCEPTION REPORT  IBUCERP  

Entry Points

Name Comments DBIA/ICR reference
REPORT ;
REPORT1 ; Entry point for Report Generation
ASKFLTR ; Ask what to filter by
; Use index on field 3.03 to display a list of sites that can be selected
; to filter by
; Loop asking for filter values until user <ENTER> with no value
; store values in temporary array to test against in the report.
DISPLST ;
GETINST ;
RPTASK ;
TSTVALID() ; Checks if the enty is in the list of sites with exceptions
ASKSORT ; Ask for sorting preferences
COLLECT ;Collect data into ^TMP($J,"UCEXRPT",CNT)
PRTRPT ; Output report to screen
RPTHDR ; Prints the report header
COLHDR ; Prints the header for the colums in the report. Report is 115 characters wide
ASKDEV ; Ask about output device and print the report (or run task)
RUNTASK ; Start Taskman job
CHKSTOP ;
PAUSE(IBEND) ;
EXCMSG ; - Displays the message about capturing to an Excel file format

External References

Name Field # of Occurrence
^%ZIS ASKDEV+4
HOME^%ZIS RUNTASK+8
^%ZISC ASKDEV+10
^%ZTLOAD RUNTASK+4
$$GET1^DIQ COLLECT+22, PRTRPT+4
GETS^DIQ DISPLST+4, COLLECT+8
^DIR ASKFLTR+13, RPTASK+1, ASKSORT+6, PAUSE+7
SITE^IBAUTL PRTRPT+3
$$EXCEL^IBJD REPORT+7
REPORT1^IBUCERP ASKDEV+9
$$FMTE^XLFDT PRTRPT+17, PRTRPT+18, RPTHDR+3, RPTHDR+4
$$UP^XLFSTR RPTASK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,"Integrated Billing Urgent Care Exception Report"
  • Line Location: REPORT+4
Function Call: WRITE
  • Prompt: !,"Select Site/Division from list above",!
  • Line Location: ASKFLTR+21
Function Call: WRITE
  • Prompt: !,IBNAME,?6,ARRAY(4,IBNAME_",",.01,"E")
  • Line Location: DISPLST+5
Function Call: WRITE
  • Prompt: !,"INVALID SELECTION try again"
  • Line Location: RPTASK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSORT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRPT+5
Function Call: WRITE
  • Prompt: !,$E($P(IBREC,U,7),1,25),?27,$E($P($P(IBREC,U,1),"/",2),1,20),?50,$$FMTE^XLFDT($P(IBREC,U,3),"5DZ"),?62,$P(IBREC,U,2),?76,$P(IBREC,U,6)_"-"_$P(IBREC,U,4),?103,$E($P(IBREC,U,5),1,20)
  • Line Location: PRTRPT+17
Function Call: WRITE
  • Prompt: !,$E($P(IBREC,U,7),1,25),"^",$E($P($P(IBREC,U,1),"/",2),1,20),"^",$$FMTE^XLFDT($P(IBREC,U,3),"5DZ"),"^",$P(IBREC,U,2),"^",$P(IBREC,U,6)_"-"_$P(IBREC,U,4),"^",$E($P(IBREC,U,5),1,20)
  • Line Location: PRTRPT+18
Function Call: WRITE
  • Prompt: !,"Urgent Care Exception Report ",$$FMTE^XLFDT(DT,"5DZ"),?72,"Page "_PG
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: !,"Urgent Care Exception Report ","^",$$FMTE^XLFDT(DT,"5DZ")
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !,"For Site: ",IBSITE," ",IBFACNM
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: !,"For Site: ","^",IBSITE," ",IBFACNM
  • Line Location: RPTHDR+6
Function Call: WRITE
  • Prompt: PRTFLTBY
  • Line Location: RPTHDR+11
Function Call: WRITE
  • Prompt: " ","Sorted by: ",$S(SORT="BN":"Bill Number",SORT="ES":"Exception Site/Division",1:"Patient"),!
  • Line Location: RPTHDR+12
Function Call: WRITE
  • Prompt: PRTFLTBY
  • Line Location: RPTHDR+14
Function Call: WRITE
  • Prompt: "^Sorted by:^",$S(SORT="BN":"Bill Number",SORT="ES":"Exception Site/Division",1:"Patient"),!
  • Line Location: RPTHDR+15
Function Call: WRITE
  • Prompt: !,"Division",?27,"Patient Name",?50,"Visit Dt",?62,"Bill Number",?76,"Exception Site",?103,"Reason"
  • Line Location: COLHDR+2
Function Call: WRITE
  • Prompt: !,"Division","^","Patient Name","^","Visit Dt","^","Bill Number","^","Exception Site","^","Reason"
  • Line Location: COLHDR+3
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: COLHDR+4
Function Call: WRITE
  • Prompt: !!,"The report requires 132 columns."
  • Line Location: ASKDEV+2
Function Call: WRITE
  • Prompt: !,"Screen length set to ",IOSL," cannot be less than 7."
  • Line Location: ASKDEV+5
Function Call: WRITE
  • Prompt: !!,"This request has been queued. The task number is "_ZTSK_"."
  • Line Location: RUNTASK+5
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RUNTASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTASK+8
Function Call: WRITE
  • Prompt: !,"End of the report."
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+8
Function Call: WRITE
  • Prompt: !!?5,"To capture as an Excel format, it is recommended that you queue this"
  • Line Location: EXCMSG+2
Function Call: WRITE
  • Prompt: !?5,"report to a spool device with margins of 256 and page length of 99999"
  • Line Location: EXCMSG+3
Function Call: WRITE
  • Prompt: !?5,"(e.g. 0;256;99999). This should help avoid wrapping problems."
  • Line Location: EXCMSG+4
Function Call: WRITE
  • Prompt: !!?5,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXCMSG+5
Function Call: WRITE
  • Prompt: !?5,"report data. On some terminals, this can be done by invoking 'Logging'"
  • Line Location: EXCMSG+6
Function Call: WRITE
  • Prompt: !?5,"or clicking on the 'Tools' menu above, then click on 'Capture Incoming "
  • Line Location: EXCMSG+7
Function Call: WRITE
  • Prompt: !?5,"Data' to save to Desktop. To avoid undesired wrapping of the data saved"
  • Line Location: EXCMSG+8
Function Call: WRITE
  • Prompt: !?5,"to the file, change the DISPLAY screen width size to 132 and you can"
  • Line Location: EXCMSG+9
Function Call: WRITE
  • Prompt: !?5,"enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: EXCMSG+10
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+4
Routine Call
  • %ZIS
  • Line Location:
    • RUNTASK+8
Routine Call
  • DIR
  • Line Location:
    • ASKFLTR+13
    • RPTASK+1
    • ASKSORT+6
    • PAUSE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBUC(351.82 - [#351.82] GET1^DIQ,  GETS^DIQ
^DIC(4 - [#4] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBUC(351.82 - [#351.82] DISPLST+2, COLLECT+5
^TMP($J COLLECT+4!, COLLECT+23*, COLLECT+26*, COLLECT+27*, COLLECT+30*, PRTRPT+10, PRTRPT+12, PRTRPT+14, PRTRPT+16, PRTRPT+19

Label References

Name Line Occurrences
$$TSTVALID RPTASK+6
ASKDEV REPORT+9, ASKDEV+5
ASKFLTR REPORT+5
ASKSORT REPORT+6
CHKSTOP PRTRPT+19
COLHDR PRTRPT+7, CHKSTOP+5
COLLECT REPORT1+1
DISPLST ASKFLTR+20
EXCMSG REPORT+8
GETINST ASKFLTR+23
PAUSE PRTRPT+21, CHKSTOP+2
PRTRPT REPORT1+2
RPTASK RPTASK+7
RPTHDR PRTRPT+6, CHKSTOP+4
RUNTASK ASKDEV+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV+1~, ASKDEV+3*
ARRAY ASKFLTR+5~, DISPLST+1!, COLLECT+2~, COLLECT+7!
ARRAY( COLLECT+9, COLLECT+10, COLLECT+12, COLLECT+13, COLLECT+14, COLLECT+15, COLLECT+17, COLLECT+18, COLLECT+19
ARRAY(4 DISPLST+5
CNT ASKFLTR+5~, ASKFLTR+19*, DISPLST+3*, DISPLST+5, COLLECT+1~, COLLECT+3*, COLLECT+6*, COLLECT+23, COLLECT+26, COLLECT+27
, COLLECT+30, PRTRPT+1~, PRTRPT+2*, PRTRPT+15*, CHKSTOP+1, CHKSTOP+3*
DA ASKFLTR+6~, GETINST+1~, ASKSORT+1~, PAUSE+2~
DASH COLHDR+1~, COLHDR+4*
DIR ASKFLTR+6~, ASKFLTR+9!, ASKFLTR+14!, GETINST+1~, GETINST+2!, ASKSORT+1~, ASKSORT+2!, ASKSORT+7!, PAUSE+2~, PAUSE+7!
DIR("A" ASKFLTR+10*, GETINST+4*, GETINST+5*, ASKSORT+4*, PAUSE+6*
DIR("B" ASKFLTR+12*, ASKSORT+5*
DIR(0 ASKFLTR+11*, GETINST+3*, ASKSORT+3*, PAUSE+5*
DIROUT ASKFLTR+6~, GETINST+2!, ASKSORT+1~, PAUSE+2~
DIRUT ASKFLTR+6~, GETINST+2!, ASKSORT+1~, ASKSORT+10!, PAUSE+2~
DT RPTHDR+3, RPTHDR+4
DTOUT ASKFLTR+6~, ASKFLTR+23, GETINST+2!, RPTASK+4, ASKSORT+1~, ASKSORT+10!, PAUSE+2~
DUOUT ASKFLTR+6~, ASKFLTR+15, ASKFLTR+23, GETINST+2!, RPTASK+3, ASKSORT+1~, ASKSORT+8, ASKSORT+10!, PAUSE+2~, PAUSE+7
EIN COLLECT+1~, COLLECT+3*, COLLECT+5*, COLLECT+8, COLLECT+9, COLLECT+10, COLLECT+12, COLLECT+13, COLLECT+14, COLLECT+15
, COLLECT+17, COLLECT+18, COLLECT+19, COLLECT+22
FBCNT RPTHDR+1~, RPTHDR+7*, RPTHDR+8, RPTHDR+9
IBBN COLLECT+1~, COLLECT+15*, COLLECT+16*, COLLECT+23, COLLECT+27
IBCNT TSTVALID+1~, TSTVALID+4*
IBCNTIT ASKFLTR+6~, ASKFLTR+22*, GETINST+5, RPTASK+8*
IBEND PAUSE~, PAUSE+4
IBES COLLECT+1~, COLLECT+21*, COLLECT+22*
IBESITE COLLECT+1~, COLLECT+18*, COLLECT+20, COLLECT+23
IBESITEN COLLECT+1~, COLLECT+19*, COLLECT+23, COLLECT+29
IBEXCEL REPORT+1~, REPORT+7*, REPORT+8, PRTRPT+17, PRTRPT+18, RPTHDR+3, RPTHDR+4, RPTHDR+5, RPTHDR+6, RPTHDR+10
, RPTHDR+13, COLHDR+2, COLHDR+3, COLHDR+4
IBFAC PRTRPT+1~, PRTRPT+4
IBFACNM PRTRPT+1~, PRTRPT+4*, RPTHDR+5, RPTHDR+6
IBFLTR REPORT+1~, ASKFLTR+8*, ASKFLTR+16*
IBFLTRBY REPORT+1~, ASKFLTR+7*, ASKFLTR+17*, RPTASK+9*, COLLECT+20, RPTHDR+7, RPTHDR+11, RPTHDR+14
IBI COLHDR+1~
IBJ ASKFLTR+6~, GETINST+1~, ASKSORT+1~, PAUSE+2~
IBLSITE COLLECT+2~, COLLECT+12*, COLLECT+23
IBLSITNB REPORT+1~
IBLSITNM REPORT+1~
IBLSTNUM COLLECT+2~, COLLECT+13*, COLLECT+23
IBNAME REPORT+1~, DISPLST+1!, DISPLST+2*, DISPLST+4, DISPLST+5
IBNAME( DISPLST+5*, TSTVALID+2, TSTVALID+4
IBPAT COLLECT+1~, COLLECT+9*, COLLECT+23
IBPATNM COLLECT+1~, COLLECT+10*, COLLECT+11, COLLECT+23, COLLECT+26, COLLECT+30
IBQUIT REPORT+1~, REPORT+2*, REPORT+5, REPORT+6, ASKFLTR+15*, RPTASK+3*, ASKSORT+8*, PRTRPT+1~, PRTRPT+2*, PRTRPT+10
, PRTRPT+12, PRTRPT+14, PRTRPT+20, ASKDEV+7*, PAUSE+7*
IBREC PRTRPT+1~, PRTRPT+16*, PRTRPT+17, PRTRPT+18
IBRESN COLLECT+2~, COLLECT+17*, COLLECT+23
IBRSN COLLECT+1~
IBSITE PRTRPT+1~, RPTHDR+5, RPTHDR+6
IBSL PRTRPT+1~, PRTRPT+2*, CHKSTOP+1
IBSTOP TSTVALID+1~*, TSTVALID+2*, TSTVALID+4
IBTES COLLECT+1~, COLLECT+29*, COLLECT+30
IBTSITE COLLECT+2~, COLLECT+20*
IBVAR RUNTASK+1~, RUNTASK+3*
IBVSTDT COLLECT+2~, COLLECT+14*, COLLECT+23
IO ASKDEV+7, ASKDEV+9
IO("Q" ASKDEV+8
IOF REPORT+3, PAUSE+7, PAUSE+8
IOSL PRTRPT+2, ASKDEV+5
IOST PAUSE+1
ITEM RPTHDR+1~, RPTHDR+8*, RPTHDR+9
LOOP1 PRTRPT+1~, PRTRPT+9*, PRTRPT+10*, PRTRPT+12, PRTRPT+14, PRTRPT+19
LOOP2 PRTRPT+1~, PRTRPT+11*, PRTRPT+12*, PRTRPT+14, PRTRPT+19
LOOP3 PRTRPT+1~, PRTRPT+13*, PRTRPT+14*, PRTRPT+16, PRTRPT+19
MAX RPTHDR+1~, RPTHDR+7*, RPTHDR+9
PG PRTRPT+1~, PRTRPT+2*, RPTHDR+2*, RPTHDR+3
PH COLLECT+2~, COLLECT+25*, COLLECT+26, COLLECT+27
POP ASKDEV+1~, ASKDEV+4
PRTFLTBY RPTHDR+1~, RPTHDR+7*, RPTHDR+9*, RPTHDR+11, RPTHDR+14
S COLHDR+1~
SORT REPORT+1~, REPORT+6, ASKSORT+9*, ASKSORT+10*, COLLECT+26, COLLECT+27, COLLECT+28, RPTHDR+12, RPTHDR+15
TEMP PRTRPT+1~, RPTHDR+1~, RPTHDR+7*, RPTHDR+8
U COLLECT+23, PRTRPT+17, PRTRPT+18
V COLHDR+1~
VALID GETINST+1~, RPTASK+6*, RPTASK+7, TSTVALID+3*, TSTVALID+4*, TSTVALID+5
X ASKFLTR+6~, GETINST+1~, GETINST+2!, ASKSORT+1~, PAUSE+2~
Y ASKFLTR+5~, ASKFLTR+6~, ASKFLTR+16, ASKFLTR+17, ASKFLTR+23, GETINST+2!, RPTASK+4, RPTASK+5*, RPTASK+9, TSTVALID+4*
, ASKSORT+1~, ASKSORT+9, PAUSE+2~
Y(0 ASKSORT+2!
ZTDESC RUNTASK+1~, RUNTASK+2*
ZTQUEUED PRTRPT+21, RUNTASK+7!, CHKSTOP+2
ZTRTN RUNTASK+1~, RUNTASK+2*
ZTSAVE RUNTASK+1~
ZTSAVE( RUNTASK+3*
ZTSK RUNTASK+1~, RUNTASK+5
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