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

Package: Integrated Billing

Routine: IBJDF8R


Information

IBJDF8R ;ALB/RRG - AR WORKLOAD ASSIGNMENTS (PRINT) ;05-FEB-01

Source Information

Source file <IBJDF8R.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point
CLK ; - Select one, more, or all clerks to print
CLK1
DEV ; - Select a device
PRINT ; - Print the AR Workload Assignments Report
;
PRINT1 ; - print selected clerks only
ENQ
HDR ; - Prints the Report Header
;
FIRST ; - Prints First Party Parameters
THIRD ; - Prints Third Party Parameters
DASH(X,Y) ; - Return a dashed line.
; Input: X=Number of Columns (80 or 132), Y=Char to be printed
;
PAUSE ; - Page break.
;
DT(X) ; - Return date.
; Input: X=Date in Fileman format
; Output: Z=Date in MMDDYY format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Run list for (S)pecific clerks or (A)ll clerks: ALL// "
  • Line Location: CLK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CLK+2
Function Call: WRITE
  • Prompt: " ",$S("Ss"[X:"SPECIFIC",1:"ALL")
  • Line Location: CLK+4
Function Call: WRITE
  • Prompt: !!?3,"Already selected. Choose another clerk.",!,*7
  • Line Location: CLK1+4
Function Call: WRITE
  • Prompt: !!,"This report requires an 80 column printer."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"This job has been queued. The task no. is ",ZTSK,"."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,"There is no AR Workload Assignment information for the parameters selected."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!!,IBCLNAM,?40,"Productivity report only? "
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?67,$S(IBPRO=0:"NO",1:"YES")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"Assignment #: ",?15,IBASNUM,?20,"Bill Category: "
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?35,$E($P(^PRCA(430.2,IBBCAT,0),"^",1),1,18)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?55,"Min Acct Bal: ",?69,$J($FN(IBMIN,",",2),10)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,?20,"Supervisor: ",?35,$E($P($G(^VA(200,+IBSUPER,0)),"^",1),1,18)
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?55,"Exclude Reg Counsel: ",?75,$S(IBEXCRC=1:"YES",1:"NO")
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !!,"------ End of Assignment List ------"
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !!!,IBCLNAM,?40,"Productivity report only? "
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?67,$S(IBPRO=0:"NO",1:"YES")
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !,"Assignment #: ",?15,IBASNUM,?20,"Bill Category: "
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: ?35,$E($P(^PRCA(430.2,IBBCAT,0),"^",1),1,18)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: ?55,"Min Acct Bal: ",?69,$J($FN(IBMIN,",",2),10)
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: !?20,"Supervisor: ",?35,$E($P($G(^VA(200,+IBSUPER,0)),"^",1),1,18)
  • Line Location: PRINT1+18
Function Call: WRITE
  • Prompt: ?55,"Exclude Reg Counsel: ",?75,$S(IBEXCRC=1:"YES",1:"NO")
  • Line Location: PRINT1+19
Function Call: WRITE
  • Prompt: !!,"------ End of Assignment List ------"
  • Line Location: PRINT1+29
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"AR Workload Assignments List",?35,"Run Date: ",IBRUN
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?70,"Page: ",$J(IBPAG,3)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$DASH(IOM,0)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"FIRST PARTY PARAMETERS:"
  • Line Location: FIRST+4
Function Call: WRITE
  • Prompt: !,"Days Since Last Payment",?38,":",?40,$P(IBFPDAT,"^",1)
  • Line Location: FIRST+5
Function Call: WRITE
  • Prompt: !,"First Patient Name",?38,":",?40,$P(IBFPDAT,"^",2)
  • Line Location: FIRST+6
Function Call: WRITE
  • Prompt: !,"Last Patient Name",?38,":",?40,$P(IBFPDAT,"^",3)
  • Line Location: FIRST+7
Function Call: WRITE
  • Prompt: !,"THIRD PARTY PARAMETERS:"
  • Line Location: THIRD+4
Function Call: WRITE
  • Prompt: !,"Days Since Last Transaction",?38,":",?40,$P(IBTPDAT,"^",1)
  • Line Location: THIRD+5
Function Call: WRITE
  • Prompt: !,"First Insurance Carrier",?38,":",?40,$P(IBTPDAT,"^",2)
  • Line Location: THIRD+6
Function Call: WRITE
  • Prompt: !,"Last Insurance Carrier",?38,":",?40,$P(IBTPDAT,"^",3)
  • Line Location: THIRD+7
Function Call: WRITE
  • Prompt: !,"First Patient Name",?38,":",?40,$P(IBTPDAT,"^",4)
  • Line Location: THIRD+8
Function Call: WRITE
  • Prompt: !,"Last Patient Name",?38,":",?40,$P(IBTPDAT,"^",5)
  • Line Location: THIRD+9
Function Call: WRITE
  • Prompt: !,"Type of Receivable",?38,":"
  • Line Location: THIRD+12
Function Call: WRITE
  • Prompt: ?40,$S(IBTOR=1:"Inpatient",IBTOR=2:"Outpatient",IBTOR=3:"Pharmacy Refill",IBTOR=4:"All Receivables",1:"")
  • Line Location: THIRD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4

FileMan Files Accessed Via FileMan Db Call

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