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
Print Page as PDF
Routine: IBCNBOA

Package: Integrated Billing

Routine: IBCNBOA


Information

IBCNBOA ;ALB/ARH - Ins Buffer: Activity Report ; 1 Jun 97

Source Information

Source file <IBCNBOA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
10 ; ask Previous Completed month
109 ; come here for dates if going back
30 ; report or excel
DEV ;get the device
11 ; starting month ; IB*702
12 ; ending month ; IB*702
21 ; starting date ; IB*702
22 ; ending date ; IB*702
IBSM(IBLABEL,IBSTDT) ; START/END MONTH ; IB*702
; IBLABEL - starting or ending month
; IBSTDT - starting month year in FM form
IBSMA ; skip back tag
IBSMX ; Exit subroutine
EXMON(IBCHGDT) ; change FM year month to external 'month year'
RPT ; run report
EXIT ; exit report
SEARCH(IBBEG,IBEND,IBMONTH) ; search/sort statistics for activity report
SET(STAT,S1,S3,TIME,IBB0) ;
TMP(XREF,S1,S2,S3,TIME,NAME) ;
TMPCHK(XREF,S1,S2,S3,TIME,NAME) ; check if not there set stub for all if one is set
; use S1 (date), and S2 1 or 2
TMP1(XREF,S1,IC,GC,PC) ;
PRINT(IBBEG,IBEND,IBOUT) ;
GETLABL ; pick up common values for Excel and Report
GETOAC ; pick up items for IBCNBOAC
EOR(IBLE) ; write end of report
EXN(IBBN) ; round number by .05 return with 1st decimal
PRTLN ; IB*702/DTG Rewrote tag to print zeros for statuses with no counts
STD(SEC) ; convert seconds to days
STDQ
HDR ;print the report header
PHDL ; - Print the header line for the Excel spreadsheet
PAUSE() ;pause at end of screen if being displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
IBAR(IBBEG,IBEND) ;Entry point for Vista IB AR data to ARC
IBARQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?25,IBHDR
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"This report contains the counts and time statistics for all activity in the"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Insurance Buffer.",!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"May Not run Month option since there is not a complete 'Month Year'"
  • Line Location: 10+11
Function Call: WRITE
  • Prompt: "May Not run Month option since the buffer start is the current 'Month Year' "_IBCUR
  • Line Location: 10+22
Function Call: WRITE
  • Prompt: "Incomplete ending buffer entries"
  • Line Location: 10+25
Function Call: WRITE
  • Prompt: !!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: 30+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 12+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 22+2
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed and the month selected cannot be later than"
  • Line Location: IBSM+8
Function Call: WRITE
  • Prompt: !,"the previous month."
  • Line Location: IBSM+9
Function Call: WRITE
  • Prompt: !,"The month selected must be a complete/full month. The current 'Month Year'"
  • Line Location: IBSM+10
Function Call: WRITE
  • Prompt: !,"of ("_IBCUR_") is not allowed.",!
  • Line Location: IBSM+11
Function Call: WRITE
  • Prompt: *7,!,"Please enter the "_IBLABEL_" Month Year or '^' to Quit.",!
  • Line Location: IBSMA+9
Function Call: WRITE
  • Prompt: !,*7,"May Not Select current 'Month Year' "_IBCUR_".",!
  • Line Location: IBSMA+14
Function Call: WRITE
  • Prompt: !,*7,"Future Dates are not allowed.",!
  • Line Location: IBSMA+15
Function Call: WRITE
  • Prompt: *7,!,"Month Year entered ("_IBL_") is less than minimum entry of ("_IBB_").",!
  • Line Location: IBSMA+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?23
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: "* * * N O D A T A F O U N D * * *",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: U_IBINS_U_IBIP_"%"_U_IBGRP_U_IBGP_"%"_U_IBPOL_U_IBPP_"%"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,?(40-($L(IBLABLE)/2)),IBLABLE,!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,?43,"AVERAGE",?56,"LONGEST",?68,"SHORTEST"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,"STATUS",?22,"COUNT",?30,"PERCENT",?43,"# DAYS",?56,"# DAYS",?68,"# DAYS"
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !!,?2,IBINS," New Compan",$S(IBINS=1:"y",1:"ies")," (",IBIP,"%), "
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: IBGRP," New Group/Plan",$S(IBGRP=1:"",1:"s")," (",IBGP,"%), "
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: IBPOL," New Patient Polic",$S(IBPOL=1:"y",1:"ies")," (",IBPP,"%)",!
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: ?((IBLE\2)-10)
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: "*** END OF REPORT ***",!
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: !,IBLABLE_U_IBSTX_U_$FN(IBCNT,",")_U
  • Line Location: PRTLN+15
Function Call: WRITE
  • Prompt: IBBC_"%"_U
  • Line Location: PRTLN+16
Function Call: WRITE
  • Prompt: IBBC_U
  • Line Location: PRTLN+17
Function Call: WRITE
  • Prompt: IBBC_U
  • Line Location: PRTLN+18
Function Call: WRITE
  • Prompt: IBBC
  • Line Location: PRTLN+19
Function Call: WRITE
  • Prompt: !,IBSTX,?20,$J($FN(IBCNT,","),7)
  • Line Location: PRTLN+22
Function Call: WRITE
  • Prompt: ?30,$J(IBBA,6,1),"%"
  • Line Location: PRTLN+23
Function Call: WRITE
  • Prompt: ?43,$J(IBBA,6,1)
  • Line Location: PRTLN+24
Function Call: WRITE
  • Prompt: ?56,$J($$STD(IBHG),6,1),?68,$J($$STD(IBLS),6,1)
  • Line Location: PRTLN+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"INS BUFFER ACTIVITY REPORT ",IBRANGE," "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(RM-22),IBRDT,?(RM-(6+$L(IBPGN)))," PAGE ",IBPGN,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: IBI,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"INS BUFFER ACTIVITY REPORT^",IBRANGE_"^"_$$FMTE^XLFDT($$NOW^XLFDT,1),!
  • Line Location: PHDL+3
Function Call: WRITE
  • Prompt: "MONTH^STATUS^COUNT^PERCENT^AVERAGE # DAYS^LONGEST # DAYS^SHORTEST # DAYS^New Companies^% New Companies^New Group/Plans^% New Group/Plans^New Patient Policies^% New Patient Policies"
  • Line Location: PHDL+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Info |  Source |  Entry Points |  Interaction Calls