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

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Integrated Billing 1 SITE^IBAUTL  

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 IBMH VISIT REPORT  

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) ;

External References

Name Field # of Occurrence
^%ZIS EN+16
HOME^%ZIS EN+21
^%ZISC EN+25
^%ZTLOAD EN+21
$$GET1^DIQ COMPILE+16, PRDET+9, PRDET+12, HDR+8
^DIR ASKDT+5, GETPRMPT+19, GETEXCEL+20, PAUSE+9
SITE^IBAUTL COMPILE+5
$$FMADD^XLFDT LAST+4
$$FMTE^XLFDT PRINT+4, HDR+11, ASKDT+3, ASKDT+6
$$NOW^XLFDT PRINT+4, DATE+1

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+16
Routine Call
  • %ZIS
  • Line Location:
    • EN+21
Routine Call
  • DIR
  • Line Location:
    • ASKDT+5
    • GETPRMPT+19
    • GETEXCEL+20
    • PAUSE+9

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)
^IBMH(351.83 - [#351.83] COMPILE+10, COMPILE+11, COMPILE+13
^TMP($J COMPILE+2!, COMPILE+18, COMPILE+19*, COMPILE+20*, COMPILE+22*, COMPILE+23*, COMPILE+24*, COMPILE+26*, COMPILE+27*, COMPILE+28
, COMPILE+29*, COMPILE+30*, COMPILE+32!, PRINT+8, PRINT+13, PRDET+3, PRDET+4, PRDET+6, TOTALS+3, TOTALS+6

Label References

Name Line Occurrences
$$ASKDT DATAGN+3, DATAGN+6
$$FIRST DATAGN+3
$$GETEXCEL EN+11
$$GETPRMPT EN+8, EN+10
$$LAST DATAGN+6
$$MON PRINT+15, PRINT+18
CHKSTOP PRINT+11, PRDET+5
COMPILE EN+24
DATAGN DATAGN+8
DATE EN+5
EXHDR PRINT+7
HDR PRINT+6, CHKSTOP
PAUSE EN+22, PRINT+8, PRINT+33, CHKSTOP
PRDET PRINT+27
PRINT COMPILE+31
PRTEXCEL EN+12
TOTALS PRINT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+2~, EN+16*
%ZIS("B" EN+16*
DIR ASKDT+1~, GETPRMPT+1~, GETPRMPT+19!, GETEXCEL+11~, GETEXCEL+21!, PAUSE+5~, PAUSE+9!
DIR("?" GETPRMPT+8*, GETPRMPT+16*, GETEXCEL+16*, GETEXCEL+17*, GETEXCEL+18*
DIR("A" ASKDT+2*, GETPRMPT+5*, GETPRMPT+13*, GETEXCEL+13*, PAUSE+8*
DIR("B" ASKDT+3*, GETPRMPT+6*, GETPRMPT+15*, GETEXCEL+14*, GETEXCEL+15*
DIR(0 ASKDT+4*, GETPRMPT+7*, GETPRMPT+14*, GETEXCEL+12*, PAUSE+7*
DIROUT ASKDT+1~, GETPRMPT+1~, PAUSE+5~
DIRUT ASKDT+1~, ASKDT+5, GETPRMPT+1~, GETEXCEL+11~, GETEXCEL+22, PAUSE+5~
DTOUT GETPRMPT+1~, GETPRMPT+20, PAUSE+5~
DUOUT GETPRMPT+1~, GETPRMPT+20, PAUSE+5~, PAUSE+9
IBBDT EN+1~, EN+5, COMPILE+8, PRINT+10, HDR+11, DATAGN+1*, DATAGN+3*, DATAGN+4, DATAGN+7*, DATAGN+8
IBCA EN+1~, EN+10*, COMPILE+14, HDR+7
IBCHG PRINT+1~, PRINT+5*
IBCSITE COMPILE+1~, COMPILE+5*, COMPILE+14
IBCTX COMPILE+1~, COMPILE+15*, COMPILE+20, COMPILE+23, COMPILE+27
IBDATA COMPILE+1~, COMPILE+13*, COMPILE+14, COMPILE+15, PRDET+6*, PRDET+9, PRDET+13, PRDET+14, PRDET+15, PRDET+16
, PRDET+17
IBDFLT ASKDT~, ASKDT+3
IBDFN COMPILE+1~, COMPILE+15*, COMPILE+16, COMPILE+18, COMPILE+19, COMPILE+20, COMPILE+28, COMPILE+29, PRDET+2~, PRDET+4*
, PRDET+6, PRDET+9, PRDET+12
IBDT FIRST~*, FIRST+1, LAST~, LAST+1
IBDTH PRINT+2~, PRINT+4*, HDR+13
IBEDT EN+1~, COMPILE+10, PRINT+10, HDR+11, DATAGN+1*, DATAGN+6*, DATAGN+7, DATAGN+8
IBEND PAUSE~, PAUSE+8, PAUSE+10
IBEXCEL EN+1~, EN+11*, EN+12, EN+13, PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+15, PRINT+17
, PRINT+33, PRDET+5, PRDET+8, TOTALS+3, GETEXCEL+14
IBFAC COMPILE+1~, HDR+8
IBFACNM HDR+1~, HDR+8*, HDR+9
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+5*, HDR+1~, HDR+16*
IBIEN COMPILE+1~, COMPILE+11*, COMPILE+13
IBLINE PRINT+1~, PRINT+5*
IBLP COMPILE+1~, COMPILE+7*, COMPILE+8*, COMPILE+10*, COMPILE+11, COMPILE+13
IBM LAST~, LAST+1*, LAST+2*, LAST+3*, LAST+4
IBMN COMPILE+1~, COMPILE+13*, COMPILE+18, COMPILE+19, COMPILE+20, COMPILE+22, COMPILE+23, COMPILE+24
IBMON PRINT+1~, PRINT+10*, PRINT+12, PRINT+13, PRINT+15, PRINT+18, PRINT+27, PRDET~, PRDET+3, PRDET+4
, PRDET+6, MON~, MON+1
IBNEW COMPILE+1~, COMPILE+12*, COMPILE+18*, COMPILE+24
IBNM COMPILE+16*, COMPILE+18, COMPILE+19, COMPILE+20, PRDET+2~, PRDET+3*, PRDET+4, PRDET+6
IBNOW DATE~, DATE+1*, DATAGN+3, DATAGN+6
IBPAG PRINT+1~, PRINT+5*, HDR+2, HDR+5*, HDR+13
IBPRMPT GETPRMPT~, GETPRMPT+4, GETPRMPT+12
IBPRMT ASKDT~, ASKDT+2
IBQUIT PRINT+2~, PRINT+5*, PRINT+10, PRINT+11, PRINT+29, PRDET+5, CHKSTOP, PAUSE+9*
IBSD EN+1~, EN+8*, PRINT+27, HDR+3
IBSITE COMPILE+1~, COMPILE+5*, COMPILE+15*
IBSTAT COMPILE+1~, COMPILE+15*
IBTOT PRINT+1~, PRINT+2~, PRINT+5*, PRINT+26*, TOTALS+3, TOTALS+6
IBTOTC PRINT+2~, PRINT+5*, PRINT+26*, TOTALS+3, TOTALS+6
IBTOTF PRINT+2~, PRINT+5*, PRINT+26*, TOTALS+3, TOTALS+6
IBTOTN PRINT+2~, PRINT+5*, PRINT+26*, TOTALS+3, TOTALS+6
IBTOTV PRINT+2~, PRINT+5*, PRINT+26*, TOTALS+3, TOTALS+6
IBY PRINT+1~, PRINT+13*, PRINT+15, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+26
, LAST~, LAST+1*, LAST+2*, LAST+4
IBYR COMPILE+1~, COMPILE+13*, COMPILE+18, COMPILE+19, COMPILE+20, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+26, COMPILE+27
, PRINT+1~, PRINT+12*, PRINT+13, PRINT+27, PRDET~, PRDET+3, PRDET+4, PRDET+6
IO PRINT+3
IO("Q" EN+15!, EN+17
IOF HDR+2, PAUSE+9, PAUSE+10
IOM PRINT+5, HDR+13
IOP EN+15!
IOSL CHKSTOP
IOST HDR+2, PAUSE+4
POP EN+2~, EN+16*
U COMPILE+14, COMPILE+15, COMPILE+19, COMPILE+20, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+26, COMPILE+27, PRINT+15
, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+26, PRDET+9, PRDET+13, PRDET+14
, PRDET+15, PRDET+16, PRDET+17, TOTALS+3, EXHDR+1
X TOTALS+1~, ASKDT+1~, GETPRMPT+1~
Y ASKDT+1~, ASKDT+6, ASKDT+7, GETPRMPT+1~, GETPRMPT+20, GETPRMPT+21, GETEXCEL+11~, GETEXCEL+23, PAUSE+5~
ZTDESC EN+2~, EN+18*
>> ZTQUEUED PRINT+8, PRINT+11, PRINT+33, PRDET+5
ZTRTN EN+2~, EN+18*
ZTSAVE EN+2~
ZTSAVE("IBBDT" EN+19*
ZTSAVE("IBCA" EN+19*
ZTSAVE("IBEDT" EN+19*
ZTSAVE("IBEXCEL" EN+19*
ZTSAVE("IBSD" EN+19*
ZTSAVE("ZTREQ" EN+20*
ZTSK EN+2~, EN+22
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