Routine: IBJDF8R

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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: !,"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
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

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
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
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!

Customize PDF page

Package: Integrated Billing

Routine: IBJDF8R

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: