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

Package: Integrated Billing

Routine: IBMHVRP


Information

IBMHVRP ;EDE/YMG - Mental Health Visit Summary/Detail Report; 09/13/2023

Source Information

Source file <IBMHVRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
COMPILE ; compile report
PRINT ; print report
PRDET(IBYR,IBMON) ; Print the details of the summary
TOTALS ; Print the totals.
HDR ; Print header.
EXHDR ; Print Excel version of the header.
MON(IBMON)
CHKSTOP
DATE
DATAGN ;Loop entry point
FIRST(IBDT)
LAST(IBDT)
ASKDT(IBPRMT,IBDFLT) ;Date input
GETPRMPT(IBPRMPT) ;
GETEXCEL() ; Export the report to MS Excel?
; Function return values:
; 0 - User selected "No" at prompt.
; 1 - User selected "Yes" at prompt.
; ^ - User aborted.
; This function allows the user to indicate whether the report should be
; printed in a format that could easily be imported into an Excel
; spreadsheet. If the user wants to print in EXCEL format, the variable
; IBEXCEL will be set to '1', otherwise IBEXCEL will be set to '0' for "No"
; or "^" to abort.
PRTEXCEL() ;Print the MS Excel instructions.
PAUSE(IBEND) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column display.",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !!,"No Mental Health Visits found within the specified period"
  • Line Location: PRINT+8
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: PRINT+15
Function Call: WRITE
  • Prompt: !!,"*The total unique patient number only counts a patient once for the period",!,"of the report."
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,"REPORT TOTALS",U,IBTOT,U,IBTOTF,U,IBTOTC,U,IBTOTN,U,IBTOTV,U,$G(^TMP($J,"IBMHVRPNM"))
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOTALS+5
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,"IBMHVRPNM")),6)
  • Line Location: TOTALS+6
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: !,"Ending date must follow start date!",!
  • Line Location: DATAGN+8
Function Call: WRITE
  • Prompt: " (",$$FMTE^XLFDT(Y),")"
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETEXCEL+19
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: PRTEXCEL+1
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: PRTEXCEL+2
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: PRTEXCEL+3
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: PRTEXCEL+4
Function Call: WRITE
  • Prompt: !?11,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: PRTEXCEL+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call