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

Package: Integrated Billing

Routine: IBCNBOF


Information

IBCNBOF ;ALB/ARH - Ins Buffer: Employee Report (Entered) ; 1 Jun 97

Source Information

Source file <IBCNBOF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
10 ;ask if employee's
15 ; ask employee name
20 ; ask if for month
209 ; come here for dates if going back
30 ; ask report type
DEV ;get the device
22 ; starting month ; IB*702
23 ; ending month ; IB*702
25 ; starting date ; IB*702
26 ; ending date ; IB*702
RPT ; run report
EXIT
SEARCH(IBBEG,IBEND,IBMONTH,IBEMPL) ; search/sort statistics for employee report
SET(XREF,S1,S2,STAT,NC,NG,NP) ;
PRINT(IBBEG,IBEND,IBMONTH,IBEMPL,IBOUT) ;
EOR(IBLE) ; write end of report
EXN(IBBN) ; round number by .05 return with 1st decimal
PRTLN ; IB*702 Rewrote tag to print zeros for statuses with no counts
HDR ;print the report header
PHDL ; - Print the header line for the Excel spreadsheet
PAUSE() ;pause at end of screen if beeing displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
MTHBASE(IBMONTH) ; set base var's for month year prompts

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?25,IBHDR
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,?25,IBHDR
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"This report produces a count of the number of entries added to the Buffer",!,"file for a specified date range sorted by employee. Also included are",!,"sub-totals and percentages based on the current status of those entries."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: 10+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 15+1
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: IBEMPL
  • Line Location: 15+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 15+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: 15+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: 209+12
Function Call: WRITE
  • Prompt: !!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: 30+4
Function Call: WRITE
  • Prompt: !,"Report requires 132 columns."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 23+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?((IOM\2)-17)
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: "* * * N O D A T A F O U N D * * *",!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EOR+3
Function Call: WRITE
  • Prompt: ?((IBLE\2)-10)
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: EOR+3
Function Call: WRITE
  • Prompt: "*** END OF REPORT ***"
  • Line Location: EOR+3
Function Call: WRITE
  • Prompt: !,IBEMP_U_DATM_U_$FN(IBCNT,",")_U_$FN(IBEN,",")_U
  • Line Location: PRTLN+17
Function Call: WRITE
  • Prompt: IBBC_"%"_U
  • Line Location: PRTLN+18
Function Call: WRITE
  • Prompt: $FN(IBAC,",")_U
  • Line Location: PRTLN+19
Function Call: WRITE
  • Prompt: IBBC_"%"_U
  • Line Location: PRTLN+20
Function Call: WRITE
  • Prompt: U_$FN(IBRJ,",")_U
  • Line Location: PRTLN+21
Function Call: WRITE
  • Prompt: IBBC_"%"_U
  • Line Location: PRTLN+22
Function Call: WRITE
  • Prompt: $FN(IBNC,",")_U_$FN(IBNG,",")_U_$FN(IBNP,",")
  • Line Location: PRTLN+23
Function Call: WRITE
  • Prompt: !,$E(IBEMP,1,15),?17,DATM,?25,$J($FN(IBCNT,","),7)
  • Line Location: PRTLN+26
Function Call: WRITE
  • Prompt: ?35,$J($FN(IBEN,","),7)
  • Line Location: PRTLN+27
Function Call: WRITE
  • Prompt: ?43,$J("("_IBBC_"%)",8)
  • Line Location: PRTLN+28
Function Call: WRITE
  • Prompt: ?54,$J($FN(IBAC,","),7)
  • Line Location: PRTLN+29
Function Call: WRITE
  • Prompt: ?62,$J("("_IBBC_"%)",8)
  • Line Location: PRTLN+30
Function Call: WRITE
  • Prompt: ?73,$J($FN(IBRJ,","),7)
  • Line Location: PRTLN+31
Function Call: WRITE
  • Prompt: ?81,$J("("_IBBC_"%)",8)
  • Line Location: PRTLN+32
Function Call: WRITE
  • Prompt: ?92,$J($FN(IBNC,","),7),?102,$J($FN(IBNG,","),7),?112,$J($FN(IBNP,","),7)
  • Line Location: PRTLN+33
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"INS BUFFER (ENTERING) EMPLOYEE REPORT ",IBRANGE," "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(IOM-24),IBRDT,?(IOM-9)," PAGE ",IBPGN
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?39,"NOT YET",?93,"NEW",?104,"NEW",?113,"NEW"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"EMPLOYEE"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?17,"MONTH"
  • Condition for execution: $G(IBMONTH)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?27,"TOTAL",?39,"PROCESSED",?58,"ACCEPTED",?77,"REJECTED",?93,"INS CO"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?104,"GROUP",?113,"POLICY",!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: IBI
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"INS BUFFER (ENTERING) EMPLOYEE REPORT^"_IBRANGE_"^"_$$FMTE^XLFDT($$NOW^XLFDT,1),!
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: X
  • Line Location: PHDL+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Info |  Source |  Entry Points |  Interaction Calls