Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call