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

Package: Integrated Billing

Routine: IBJDF8R


Information

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

Source Information

Source file <IBJDF8R.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Integrated Billing 2 HELP^IBJDF8H  ($$DAT2,$$STOP)^IBOUTL  

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 IBJD FOLLOW-UP ASSIGN PRINT  

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

External References

Name Field # of Occurrence
NOW^%DTC PRINT+2
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC ENQ
^%ZTLOAD DEV+5
^DIC CLK1+2
^DIR PAUSE+5
HELP^IBJDF8H CLK+3
$$DAT2^IBOUTL PRINT+2
$$STOP^IBOUTL HDR+6

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: !,"First Social Security Number",?38,":",?40,$P(IBFPDAT,"^",4)
  • Line Location: FIRST+8
Function Call: WRITE
  • Prompt: !,"Last Social Security Number",?38,":",?40,$P(IBFPDAT,"^",5)
  • Line Location: FIRST+9
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: !,"First Social Security Number",?38,":",?40,$P(IBTPDAT,"^",6)
  • Line Location: THIRD+10
Function Call: WRITE
  • Prompt: !,"Last Social Security Number",?38,":",?40,$P(IBTPDAT,"^",7)
  • Line Location: THIRD+11
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
Routine Call
  • DIC
  • Line Location:
    • CLK1+2
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351.73 - [#351.73] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(351.73 - [#351.73] PRINT+5, PRINT+17, PRINT+18, PRINT+24, PRINT+25, PRINT+36, PRINT+38, PRINT1+5, PRINT1+11, PRINT1+12
, PRINT1+23, PRINT1+25, FIRST+3, THIRD+3
^PRCA(430.2 - [#430.2] PRINT+29, PRINT1+16
^VA(200 - [#200] PRINT+19, PRINT+31, PRINT1+6, PRINT1+18

Label References

Name Line Occurrences
$$DASH HDR+6
@( PRINT+6
CLK CLK+3
CLK1 CLK1+3, CLK1+5
DEV CLK+4, CLK1+2
ENQ CLK+2, CLK1+2, DEV+2, DEV+3, PRINT+5, PRINT+9, PRINT+44, PRINT+45
FIRST PRINT+36, PRINT1+23
HDR PRINT+9, PRINT+34, PRINT+41, PRINT1+21, PRINT1+27
PAUSE PRINT+34, PRINT+41, PRINT+44, PRINT1+21, PRINT1+27, PRINT1+29
PRINT1 PRINT+11
THIRD PRINT+38, PRINT1+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+2, ENQ+1!
>> %ZIS DEV+2*
DIC CLK1*, CLK1+2!
DIC("A" CLK1+1*
DIC(0 CLK1*
DIR ENQ+1!, PAUSE+3~
DIR(0 PAUSE+5*
DIROUT ENQ+1!, PAUSE+3~
DIRUT ENQ+1!, PAUSE+3~, PAUSE+5
DTIME CLK+2
DTOUT ENQ+1!, PAUSE+3~
DUOUT ENQ+1!, PAUSE+3~, PAUSE+5
IBASNDAT PRINT+15*, PRINT+25*, PRINT+26, PRINT+27, PRINT1+2*, PRINT1+12*, PRINT1+13, PRINT1+14, ENQ+2!
IBASNUM PRINT+15*, PRINT+24*, PRINT+25, PRINT+28, PRINT+36, PRINT+38, PRINT1+2*, PRINT1+11*, PRINT1+12, PRINT1+15
, PRINT1+23, PRINT1+25, ENQ+2!, FIRST+3, THIRD+3
IBBCAT PRINT+15*, PRINT+26*, PRINT+29, PRINT1+2*, PRINT1+13*, PRINT1+16, ENQ+2!
IBCLDAT PRINT+18*, PRINT+19, PRINT1+5*, PRINT1+6, ENQ+3!
IBCLNAM PRINT+15*, PRINT+19*, PRINT+20, PRINT1+2*, PRINT1+6*, PRINT1+7, ENQ+2!
IBCLNUM PRINT+15*, PRINT+17*, PRINT+18, PRINT+19, PRINT+24, PRINT+25, PRINT+36, PRINT+38, PRINT1+2*, PRINT1+4*
, PRINT1+5, PRINT1+6, PRINT1+11, PRINT1+12, PRINT1+23, PRINT1+25, ENQ+2!, FIRST+3, THIRD+3
IBEXCRC PRINT+15*, PRINT+27*, PRINT+32, PRINT1+2*, PRINT1+14*, PRINT1+19, ENQ+3!
IBFPDAT ENQ+3!, FIRST+2*, FIRST+3*, FIRST+5, FIRST+6, FIRST+7, FIRST+8, FIRST+9
IBMIN PRINT+15*, PRINT+26*, PRINT+30, PRINT1+2*, PRINT1+13*, PRINT1+17, ENQ+2!
IBOFF CLK+3*, ENQ+3!
IBPAG PRINT+3*, PRINT+9*, ENQ+1!, HDR+2, HDR+3*, HDR+5
IBPRO PRINT+15*, PRINT+19*, PRINT+21, PRINT+22, PRINT1+2*, PRINT1+6*, PRINT1+8, PRINT1+9, ENQ+2!
IBQ PRINT+2*, PRINT+9, PRINT+17, PRINT+24, PRINT+34, PRINT+41, PRINT+44, PRINT1+4, PRINT1+21, PRINT1+27
, ENQ+1!, HDR+6*, PAUSE+5*
IBRUN PRINT+2*, ENQ+3!, HDR+4
IBSI CLK+4!, CLK1+1, CLK1+2, CLK1+5*, PRINT+11, ENQ+3!
IBSI( CLK1+3, CLK1+5*, PRINT1+4
IBSUPER PRINT+15*, PRINT+27*, PRINT+31, PRINT1+2*, PRINT1+14*, PRINT1+18, ENQ+2!
IBTOR ENQ+3!, THIRD+2*, THIRD+3*, THIRD+13
IBTPDAT ENQ+3!, THIRD+2*, THIRD+3*, THIRD+5, THIRD+6, THIRD+7, THIRD+8, THIRD+9, THIRD+10, THIRD+11
IBX ENQ+1!, PAUSE+3~, PAUSE+4*
IO DEV+10
IO("Q" DEV+3, DEV+8!
IOF HDR+2
IOM HDR+6
IOSL PRINT+34, PRINT+41, PRINT1+21, PRINT1+27, PAUSE+4
IOST PAUSE+2
>> POP DEV+2
X CLK+2*, CLK+3, CLK+4, ENQ+1!, DASH~, DASH+3, PAUSE+3~, DT~, DT+4
Y CLK1+2, CLK1+3, CLK1+5, ENQ+1!, DASH~, DASH+3, PAUSE+3~
>> ZTDESC DEV+4*
>> ZTRTN DEV+4*
>> ZTSAVE("IB*" DEV+5*
ZTSK DEV+6, DEV+8!
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