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

Package: Integrated Billing

Routine: IBCNBOE


Information

IBCNBOE ;ALB/ARH - Ins Buffer: Employee Report ; 1 Jun 97

Source Information

Source file <IBCNBOE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
; IB*702/DTG start newed following variables
ENA ; allow for up-caret responses
; N IBX S IBX=$$WR Q:'IBX I IBX=1 G ^IBCNBOF ; WHICH REPORT? entered or processed
10 ; ask if all employees
15 ; ask employee name
20 ; ask if for month
209 ; come here for dates if going back
30 ; ask type of report
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 activity report
SET(STAT,IBEMP,IBDATE,S3,TIME,IBB0,IBMONTH) ;
SET1(STAT,S1,S2,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 (emp) and S2 (date), S3 1, 2, 4, 9
TMP1(XREF,S1,S2,IC,GC,PC) ;
PRINT(IBBEG,IBEND,IBEMPL,IBOUT) ;
GETLABL ; pick up common values for Excel and Report
GETOAC ; pick up items for IBCNBOEC
EOR(IBLE) ; write end of report
PRTLN ; IB*702 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 beeing displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
WR() ; which report
; IB*702/DTG start remove verified from report
EMPL() ; print a single or all employees?
SELEMPL(TYPE) ; get the name of an employee
DATES(LABLE,IBBEG) ;
DATES1 ;Repeat for ending date outside of range
DATESX ;Exit Dates setup
MONTH() ;
OUT() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?25,IBHDR
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: @IOF,!!,?17,IBHDR
  • Line Location: ENA+8
Function Call: WRITE
  • Prompt: !!,?17,IBHDR
  • Line Location: ENA+10
Function Call: WRITE
  • Prompt: !!,"This report produces counts and time statistics for Insurance Employees that"
  • Line Location: ENA+15
Function Call: WRITE
  • Prompt: !,"have Processed (Accept/Reject) an Insurance Buffer entry.",!!
  • Line Location: ENA+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: 10+3
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+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 23+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?((IOM\2)-17)
  • Condition for execution: $G(IBOUT)="R"
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "* * * N O D A T A F O U N D * * *",!
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: U_IBINS_U_IBIP_"%"_U_IBGRP_U_IBGP_"%"_U_IBPOL_U_IBPP_"%"
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,?(40-($L(IBLABLE)/2)),IBLABLE,!
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !,?43,"AVERAGE",?56,"LONGEST",?68,"SHORTEST"
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,"STATUS",?22,"COUNT",?30,"PERCENT",?43,"# DAYS",?56,"# DAYS",?68,"# DAYS"
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------"
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !!,?2,IBINS," New Compan",$S(IBINS=1:"y",1:"ies")," (",IBIP,"%), "
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: IBGRP," New Group/Plan",$S(IBGRP=1:"",1:"s")," (",IBGP,"%), "
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: IBPOL," New Patient Polic",$S(IBPOL=1:"y",1:"ies")," (",IBPP,"%)",!
  • Line Location: PRINT+50
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: !,IBEMPN_U_IBLABLE_U_IBSTX_U_$FN(IBCNT,",")_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_U
  • Line Location: PRTLN+19
Function Call: WRITE
  • Prompt: IBBC
  • Line Location: PRTLN+20
Function Call: WRITE
  • Prompt: !,IBSTX,?20,$J($FN(IBCNT,","),7)
  • Line Location: PRTLN+23
Function Call: WRITE
  • Prompt: ?30,$J(IBBA,6,1),"%"
  • Line Location: PRTLN+24
Function Call: WRITE
  • Prompt: ?43,$J(IBBA,6,1)
  • Line Location: PRTLN+25
Function Call: WRITE
  • Prompt: ?56,$J($$STD(IBHG),6,1),?68,$J($$STD(IBLS),6,1)
  • Line Location: PRTLN+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"INS BUFFER EMPLOYEE REPORT ",IBRANGE," "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(IOM-23),IBRDT,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"EMPLOYEE: ",$P($G(^VA(200,+IBEMPL,0)),U,1),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: IBI,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"INS BUFFER EMPLOYEE REPORT^"_IBRANGE_"^"_$$FMTE^XLFDT($$NOW^XLFDT,1),!
  • Line Location: PHDL+4
Function Call: WRITE
  • Prompt: "EMPLOYEE: ",$P($G(^VA(200,+IBEMPL,0)),U,1),!
  • Line Location: PHDL+5
Function Call: WRITE
  • Prompt: X
  • Line Location: PHDL+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: *7,!,"Enter the "_LABLE_" Date or '^' to Quit.",!
  • Line Location: DATES1+6
Function Call: WRITE
  • Prompt: *7,!,"Date cannot be less than the "_IBE_".",!
  • Line Location: DATES1+9
Function Call: WRITE
  • Prompt: *7,!,"Date cannot be greater than Today.",!
  • Line Location: DATES1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call