Routine: BARDMAN

Package	Total	Call Graph
IHS Accounts Receivable	7	^BARBAN (FINDSTOP,FINDSTRT,SEND)^BARDMAN2 ($$DATE,$$SDT)^BARDUTL PAZ^BARRUTL INIT^BARUTL $$EN^BARVDF ^BARVKL0
Kernel	2	$$VERSION^%ZOSV $$CJ^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR DCM MANUAL PROCESS BARDAUTO

Entry Points

Name	Comments	DBIA/ICR reference
VARS	; EP ; Debt Collection Parameter Values
INUSE	; ; Process can only be run by one person at a time.
PROCESS	; ; Find bills to send.
DISPDT	; ; Display last date range used
SITE	; ; No debt collection parameters defined
ASKDT	; ; Ask for date range
CHECK	;
NOTE	;
ASKPARAM	; ; Ask other parameteres
CLEAN	;
ERROR	; ; Paramaters not complete. If not auto, msg. Always quit
MSG	;
EP	; EP
DISPARAM	; ; Display chosen parameters

External References

Name	Field # of Occurrence
$$VERSION^%ZOSV	VARS+21
^BARBAN	EP+11, EP+17
FINDSTOP^BARDMAN2	PROCESS+3
FINDSTRT^BARDMAN2	PROCESS+15
SEND^BARDMAN2	EP+23
$$DATE^BARDUTL	ASKDT+3, ASKDT+5
$$SDT^BARDUTL	DISPARAM+2, DISPARAM+3
PAZ^BARRUTL	INUSE+6, SITE+6, ERROR+4, PROCESS+8, PROCESS+12
INIT^BARUTL	EP+1
$$EN^BARVDF	NOTE+1
^BARVKL0	CLEAN+2
$$GET1^DIQ	NOTE+3, VARS+13, VARS+14
^DIR	NOTE+9, CHECK+11, CHECK+20, ASKPARAM+7, DISPARAM+9, PROCESS+26
$$CJ^XLFSTR	MSG+1, MSG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Creating and sending Files..." Line Location: EP+22
Function Call: WRITE	Prompt: !!!,"This menu option is currently in use by ",$P($G(^VA(200,^BARTMP("DEBT COLLECTION"),0)),U) Line Location: INUSE+3
Function Call: WRITE	Prompt: !,"Please try again later. " Line Location: INUSE+4
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("HIN"),"NOTE:",$$EN^BARVDF("HIF") Line Location: NOTE+1
Function Call: WRITE	Prompt: ?8,"You must be logged into the facility for which you wish to process" Line Location: NOTE+2
Function Call: WRITE	Prompt: !?8,"Debt Collection. You are logged into ",$$GET1^DIQ(90052.06,DUZ(2),.01) Line Location: NOTE+3
Function Call: WRITE	Prompt: !! Line Location: NOTE+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Debt Collection parameters have not been defined for this facility,",IOM) Line Location: MSG+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please enter the missing data via the Debt Collection Site Parameters Option.",IOM) Line Location: MSG+2
Function Call: WRITE	Prompt: !!,"The last chosen 3P Approval date range was..." Line Location: DISPDT+2
Function Call: WRITE	Prompt: !!,"Starting Date: ",$S(BARLSTRO="":"None",1:BARLSTRO) Line Location: DISPDT+3
Function Call: WRITE	Prompt: !," Ending Date: ",$S(BARLENDO="":"None",1:BARLENDO) Line Location: DISPDT+4
Function Call: WRITE	Prompt: !!!!,"Select 3P Approval date range for this Debt Collection process...",! Line Location: ASKDT+2
Function Call: WRITE	Prompt: ! Line Location: ASKDT+6
Function Call: WRITE	Prompt: ! Line Location: ASKPARAM+2
Function Call: WRITE	Prompt: !!,"Start Date: ",$$SDT^BARDUTL(BARSTART) Line Location: DISPARAM+2
Function Call: WRITE	Prompt: !," End Date: ",$$SDT^BARDUTL(BAREND) Line Location: DISPARAM+3
Function Call: WRITE	Prompt: !!," $$ Limit: ",$J($FN(BARAMT,",",2),5),!! Line Location: DISPARAM+4
Function Call: WRITE	Prompt: !!,"...Pass 1 - Finding bills on which to STOP collections... " Line Location: PROCESS+2
Function Call: WRITE	Prompt: !!,$G(^TMP($J,"BAR-STOPS-CNT"))_" bills FOUND on which to STOP collections!" Line Location: PROCESS+4
Function Call: WRITE	Prompt: !!,"Maximum number of STARTS have been reached. Start Files will not be created." Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"Maximum number of STARTS have been reached. Start Files will not be created." Line Location: PROCESS+11
Function Call: WRITE	Prompt: !!!,"...Pass 2 - Finding bills on which to START collections... " Line Location: PROCESS+14
Function Call: WRITE	Prompt: !!,$G(^TMP($J,"BAR-STARTS-CNT"))," bills FOUND on which to START collections!" Line Location: PROCESS+16
Function Call: WRITE	Prompt: !!,"Maximum number of transactions for Self Pay Starts has been reached." Line Location: PROCESS+17
Function Call: WRITE	Prompt: !!,"Maximum number of transactions for Insurer Starts has been reached." Line Location: PROCESS+18
Function Call: WRITE	Prompt: !!,"Sorry no bills found meeting the selection criteria.",! Line Location: PROCESS+21
Routine Call	DIR Line Location: NOTE+9 CHECK+11 CHECK+20 ASKPARAM+7 DISPARAM+9 PROCESS+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BAR(90052.06,7819,0) - [#90052.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	SITE+3, VARS+2
^BARTMP("DEBT COLLECTION"	INUSE+2, INUSE+3, INUSE+7*
^TMP($J	VARS+24!, VARS+25!, VARS+26!, PROCESS+4, PROCESS+16, PROCESS+20
^VA(200 - [#200]	INUSE+3

Label References

Name	Line Occurrences
ASKDT	EP+13, ASKDT+6, ASKDT+7
ASKPARAM	EP+15
CHECK	EP+9
CLEAN	EP+3, EP+5, EP+7, EP+10, EP+16, EP+19, EP+21
DISPARAM	EP+18
DISPDT	EP+12
ERROR	CHECK+1, CHECK+2, CHECK+3, CHECK+4
MSG	SITE+5, ERROR+3
NOTE	EP+4
PROCESS	EP+20
SITE	EP+6
VARS	EP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARAMT	ASKPARAM+10*, DISPARAM+4
>> BARASDT	VARS+22*
>> BAREDOS	VARS+10*
>> BAREND	ASKDT+5*, ASKDT+6, ASKDT+7, DISPARAM+3
>> BARICUR	VARS+8*, CHECK+5, PROCESS+6, PROCESS+10
>> BARIMAX	VARS+6*, CHECK+3, CHECK+5, PROCESS+6, PROCESS+10
>> BARINUM	VARS+3*, CHECK+1, CHECK+5
>> BARIRCHD	PROCESS+18
>> BARLEND	VARS+11*
>> BARLENDO	VARS+13*, DISPDT+4
>> BARLSTRO	VARS+14*, DISPDT+3
>> BARLSTRT	VARS+12*
>> BARMAGE	VARS+15, VARS+16, VARS+17*
>> BARMAMT	VARS+19, VARS+20, ASKPARAM+4
>> BAROS	VARS+21*
>> BARP(	VARS+2*
>> BARP(10	VARS+3, VARS+4, VARS+5, VARS+6, VARS+7, VARS+8, VARS+9
>> BARP(11	VARS+10, VARS+11, VARS+12, VARS+15, VARS+18, VARS+19, VARS+22
>> BARPATH	VARS+5*, CHECK+2
>> BARQUIT	EP+3, EP+5, EP+7, EP+10, EP+16, EP+19, EP+21, INUSE+5, NOTE+10, SITE+4* , CHECK+5, CHECK+12, CHECK+14, CHECK+21, ERROR+2, ASKPARAM+9, DISPARAM+10, PROCESS+22
>> BARSCUR	VARS+9*, CHECK+14, PROCESS+6
>> BARSMAX	VARS+7*, CHECK+4, CHECK+14, PROCESS+6, PROCESS+10
>> BARSNUM	VARS+4*, CHECK+1, CHECK+4, CHECK+14
>> BARSRCHD	VARS+18*, PROCESS+17
>> BARSTART	EP+14, ASKDT+3*, ASKDT+4, ASKDT+7, DISPARAM+2
>> BARUSR	EP+1
DA	NOTE+5!, SITE+2!, CHECK+6!, CHECK+15!, ASKPARAM+3!, DISPARAM+5!
DIC	NOTE+5!, SITE+2!, CHECK+6!, CHECK+15!, ASKPARAM+3!, DISPARAM+5!
DIR	NOTE+5!, SITE+2!, CHECK+6!, CHECK+15!, ASKPARAM+3!, ASKPARAM+8!, DISPARAM+5!, PROCESS+23!, PROCESS+27!
DIR("A"	NOTE+7, CHECK+7, CHECK+8, CHECK+16, CHECK+17, ASKPARAM+6, DISPARAM+7, PROCESS+25
DIR("B"	NOTE+8, CHECK+10, CHECK+19, ASKPARAM+4, DISPARAM+8*
DIR(0	NOTE+6, CHECK+9, CHECK+18, ASKPARAM+5, DISPARAM+6, PROCESS+24
DR	NOTE+5!, SITE+2!, CHECK+6!, CHECK+15!, ASKPARAM+3!, DISPARAM+5!
DUZ	INUSE+7
DUZ(2	NOTE+3, SITE+3, VARS+2, VARS+13, VARS+14
>> I	VARS+2, VARS+27, VARS+29, VARS+30
IOM	MSG+1, MSG+2
>> K	VARS+28, VARS+29, VARS+30
U	INUSE+3, VARS+3, VARS+4, VARS+5, VARS+6, VARS+7, VARS+8, VARS+9, VARS+10, VARS+11 , VARS+12, VARS+15, VARS+18, VARS+19, VARS+22
>> Y	NOTE+10, CHECK+12, CHECK+21, ASKPARAM+9, ASKPARAM+10, DISPARAM+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDMAN

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: