Routine: BARRPVC

Information

BARRPVC ; IHS/SD/SDR - Provider Visit Count Report ;08/20/2008

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Accounts Receivable	6	$$DATE^BARDUTL WHD^BARRHD PRV^BARRSL1 PAZ^BARRUTL INIT^BARUTL $$VALI^BARVPM
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	$$GET1^DIQ ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR RPT PRV VISIT COUNT

Entry Points

Name	Comments	DBIA/ICR reference
WHD	; ; Set header Array
DATES	;EP ; Ask beginning and ending Transaction Dates
EN	;
PRVS	;EP ; Select Provider Inclusion Parameter
TRANS	;EP
NODATA	;
DTYP	;EP
CLNUP
INOUTPT	;EP
QUE	;EP
HD	;
BILL	;EP ; for checking Bill File data parameters
PRINT	;EP
SEL	;Select device
LOOP	;EP

External References

Name	Field # of Occurrence
^%ZIS	SEL+3, SEL+5
HOME^%ZIS	SEL+4
^%ZISC	QUE+5, NODATA+12
^%ZTLOAD	QUE+4
$$DATE^BARDUTL	DATES+4, DATES+7
WHD^BARRHD	WHD+10
PRV^BARRSL1	PRVS+6
PAZ^BARRUTL	HD+1
INIT^BARUTL	EN+8
$$VALI^BARVPM	LOOP+7
$$GET1^DIQ	PRINT+24, NODATA+3, NODATA+9, LOOP+17, BILL+7, TRANS+5
^DIR	SEL+4, DTYP+4, INOUTPT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NOTE: This report will contain data for all Visit Locations where a provider" Line Location: EN+1
Function Call: WRITE	Prompt: !?7,"saw Medicare patients. There will be a summary line for each provider" Line Location: EN+2
Function Call: WRITE	Prompt: !?7,"under each Visit Location, with detail lines underneath that breaks down" Line Location: EN+3
Function Call: WRITE	Prompt: !?7,"the data further by bill type and visit type." Line Location: EN+4
Function Call: WRITE	Prompt: !!," ============ Entry of "_$S(BARY("DT")="A":"APPROVAL",1:"VISIT")_" DATE Range =============",! Line Location: DATES+2
Function Call: WRITE	Prompt: ! Line Location: DATES+9
Function Call: WRITE	Prompt: ! Line Location: PRVS+3
Function Call: WRITE	Prompt: !!?5,"REPORT CANCELLED!" Line Location: QUE+6
Function Call: WRITE	Prompt: !!?5,"REQUEST QUEUED AS TASK # "_ZTSK_" !",! Line Location: QUE+7
Function Call: WRITE	Prompt: !! Line Location: PRINT+30
Function Call: WRITE	Prompt: !!,"No data for Provider "_$$GET1^DIQ(200,I,".01","E"),! Line Location: NODATA+3
Function Call: WRITE	Prompt: !!,"REPORT COMPLETE" Line Location: NODATA+11
Function Call: WRITE	Prompt: !,"Provider",?40,"Bill Count",?54,"Amount Billed",?69,"Amount Paid",! Line Location: WHD+11
Function Call: WRITE	Prompt: "=" Line Location: WHD+12
Routine Call	%ZIS Line Location: SEL+4
Routine Call	DIR Line Location: SEL+4 DTYP+4 INOUTPT+4
Routine Call	%ZIS Line Location: SEL+3 SEL+5

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^ABMDVTYP - [#9002274.8]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BAR(90052.05,6613,0) - [#90052.05]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	WHD+5
^BARAC(	LOOP+4, LOOP+5
^BARBL(	LOOP+14, BILL+4, BILL+5
^BARTR(	TRANS+3, TRANS+4
^TMP($J	EN+6!, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT+17, PRINT+22, PRINT+25, PRINT+26, PRINT+27 , NODATA+7, NODATA+9, NODATA+13!, LOOP+2!, LOOP+20, LOOP+21, LOOP+22, LOOP+23, LOOP+24, LOOP+25 , LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+30, BILL+19, BILL+24, BILL+29
^VA(200 - [#200]	PRVS+20, PRVS+22, PRVS+23

Label References

Name	Line Occurrences
BILL	LOOP+15
CLNUP	NODATA+14
DATES	EN+11, DATES+9, DATES+10
DTYP	EN+9
HD	PRINT+7, PRINT+28, NODATA+4, NODATA+8
INOUTPT	EN+13
LOOP	PRINT+1
PRINT	SEL+6
PRVS	EN+15
QUE	SEL+4
TRANS	LOOP+19
WHD	PRINT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%D	DATES+3!
%DT	DATES+5!, DATES+8!
>> %ZIS	SEL+1*
>> %ZIS("A"	SEL+2*
BAR	LOOP+13, LOOP+14, LOOP+30, BILL+4, BILL+5, BILL+7, BILL+19, BILL+24, BILL+29, TRANS+3 , CLNUP+1!
BAR("ACC"	BILL+10*
BAR("ADT"	BILL+12*, BILL+27, BILL+28
BAR("AMT"	LOOP+21, LOOP+24, LOOP+28, LOOP+30, BILL+14*
BAR("BTYP"	PRINT+15, PRINT+17, PRINT+19, PRINT+22, PRINT+25, PRINT+26, PRINT+27, LOOP+23, LOOP+24, LOOP+25 , LOOP+30, BILL+7, BILL+8, BILL+31, BILL+32
BAR("BTYPTEST"	PRINT+16, PRINT+18
BAR("CONJ"	WHD+9*
BAR("DOS"	LOOP+30, BILL+11*, BILL+22, BILL+23
BAR("HD"	WHD+3, WHD+4, WHD+5, WHD+6, WHD+7*
BAR("LVL"	WHD+8*
BAR("PG"	PRINT+3, WHD+13
BAR("PRV"	LOOP+17, LOOP+18, BILL+13*, BILL+17, BILL+18
BAR("PRVN"	PRINT+8, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT+17, PRINT+22, PRINT+25, PRINT+26, PRINT+27 , LOOP+17, LOOP+20, LOOP+21, LOOP+22, LOOP+23, LOOP+24, LOOP+25, LOOP+30, BILL+17
BAR("QUIT"	BILL+3, BILL+21, BILL+22, BILL+23, BILL+24, BILL+26, BILL+27, BILL+28*, BILL+29
BAR("VLOC"	LOOP+26, LOOP+27, LOOP+28, LOOP+29, BILL+9*
BAR("VTYP"	PRINT+20, PRINT+22, PRINT+24, PRINT+25, PRINT+26, PRINT+27, LOOP+23, LOOP+24, LOOP+25, LOOP+30 , BILL+6*
BAR("VTYPTEST"	PRINT+21, PRINT+23
BAR(0	BILL+4*, BILL+10, BILL+12, BILL+14
BAR(1	BILL+5*, BILL+6, BILL+9, BILL+11, BILL+13
BAR3PLOC	CLNUP+1!
BARACCT	LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+9, LOOP+11, LOOP+12, LOOP+14, CLNUP+1!
>> BARDEBUG	LOOP+30, BILL+19, BILL+24, BILL+29
BARDONE	EN+7, EN+10, EN+14, EN+16, DTYP+6, INOUTPT+6, PRVS+4, PRVS+13, PRINT+7, PRINT+9* , PRINT+17, PRINT+22, PRINT+29, NODATA+2, NODATA+5, NODATA+7, NODATA+10, HD+1, CLNUP+1!
BAREND	DTYP+1!, DATES+7*, DATES+9, DATES+10, DATES+14, CLNUP+1!
BARHOLD	CLNUP+1!
BARIOPT	INOUTPT+1!
BARITYP	LOOP+7*, LOOP+8, CLNUP+1!
BARP	CLNUP+1!
BARP("HIT"	LOOP+16, BILL+2, BILL+34
BARSTART	DTYP+1!, DATES+4*, DATES+6, DATES+10, DATES+13, CLNUP+1!
BARTRAMT	LOOP+22, LOOP+25, LOOP+29, LOOP+30, TRANS+2, TRANS+5, CLNUP+1!
BARTRIEN	TRANS+1, TRANS+3, TRANS+4, TRANS+5, CLNUP+2!
>> BARUSR	EN+8
BARVLTOT	CLNUP+2!
BARVLTOT("AMT"	PRINT+6, PRINT+14
BARVLTOT("BILLS"	PRINT+5, PRINT+13
BARY	CLNUP+2!
BARY("ACCT"	LOOP+9*, LOOP+12
BARY("DT"	EN+12, DTYP+1!, DTYP+7, DATES+2, DATES+13, DATES+14*, BILL+21, BILL+22, BILL+23, BILL+26 , BILL+27, BILL+28, WHD+6
BARY("INOUTPT"	INOUTPT+7*, BILL+31, BILL+32, WHD+7
BARZ	CLNUP+2!
BARZ("PRV"	PRVS+2!, PRVS+15, PRVS+16, PRVS+17, PRVS+23, NODATA+2, NODATA+3, LOOP+18*, BILL+18
D0	LOOP+6*, CLNUP+2!
DIC	PRVS+14!, CLNUP+2!
DIC("A"	PRVS+5*
DIQ	CLNUP+2!
DIR	SEL+4!, DTYP+5!, INOUTPT+5!
DIR("A"	DTYP+3, INOUTPT+3
DIR(0	SEL+4, DTYP+2, INOUTPT+2*
>> DIROUT	EN+10, EN+14, EN+16, DTYP+6, INOUTPT+6, PRVS+13, PRINT+7, PRINT+9, PRINT+17, PRINT+22 , PRINT+29, NODATA+5, NODATA+10, HD+1
>> DIRUT	EN+10, EN+14, EN+16, DTYP+6, INOUTPT+6, PRVS+13, PRINT+7, PRINT+9, PRINT+17, PRINT+22 , PRINT+29, NODATA+5, NODATA+10, HD+1
DR	CLNUP+2!
>> DTOUT	EN+10, EN+14, EN+16, DTYP+6, INOUTPT+6, PRVS+13, PRINT+7, PRINT+9, PRINT+17, PRINT+22 , PRINT+29, NODATA+5, NODATA+10, HD+1
>> DUOUT	EN+10, EN+14, EN+16, DTYP+6, INOUTPT+6, PRVS+13, PRINT+7, PRINT+9, PRINT+17, PRINT+22 , PRINT+29, NODATA+5, NODATA+10, HD+1
DUZ(2	LOOP+4, LOOP+5, LOOP+14, BILL+4, BILL+5, TRANS+3, TRANS+4, WHD+5
I	PRVS+19, PRVS+20, PRVS+22, NODATA+1, NODATA+2, NODATA+3, NODATA+6, NODATA+7, NODATA+9, WHD+2~ , WHD+12*, CLNUP+2!
IO	SEL+4
IO("Q"	QUE+1!
IO(0	SEL+4
ION	SEL+5
>> IOP	SEL+5*
IOSL	PRINT+7, PRINT+28, NODATA+4, NODATA+8
J	PRVS+21, PRVS+22, PRVS+23, CLNUP+2!
L	CLNUP+2!
>> POP	SEL+3
U	PRINT+12, PRINT+13, PRINT+14, PRINT+25, PRINT+26, PRINT+27, NODATA+9, LOOP+5, LOOP+20, LOOP+21 , LOOP+22, LOOP+23, LOOP+24, LOOP+25, LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+30, BILL+6 , BILL+9, BILL+10, BILL+11, BILL+12, BILL+13, BILL+14, TRANS+4, WHD+5
X	CLNUP+2!
Y	DTYP+7, INOUTPT+7, PRVS+4, PRVS+15, PRVS+16, PRVS+17, CLNUP+2!
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("BAR*"	QUE+3*
>> ZTSK	QUE+6, QUE+7

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRPVC

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

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: