Routine: APCLCPT1

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	4	^APCLCPTD XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL $$PRIMPROV^APCLV
VA Fileman	3	(C,COMMA)^%DTC ^DIC ^DIR
IHS Patient	2	$$CPT^AUPNCPT ($$TRIBE,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
DATES
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DEL	;create delimited output file
TSKMN	;EP ENTRY POINT FROM TASKMAN
PRINT	;
NODEV	;
PRINT1	;EP - called from xbdbque
PS	;
SET	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
INFORM	;
AMBHDR	;
CTR(X,Y)	;EP - Center X in a field Y wide.
V1	;
DONE	;
PRNO	;
SETP
PRNI	;
EOJ	;
FAC	;
A	;
ZIS	;
DRIVER	;
L	;one location
HEADER	;EP
S	;
XIT	;
T	;
PROC1	;
OUTP	;type of output, printed or excel delimited
PT	;EP
HEADER1	;
INPHDR	;
SC	;
NODEV1	;
PROC	;
C(X,X2,X3)	;

External References

Name	Field # of Occurrence
C^%DTC	PROC+5
COMMA^%DTC	C+1
^%ZIS	DEMO+4
^%ZISC	DRIVER+4, NODEV1+3, XIT+1, DEL+1
^%ZTLOAD	TSKMN+5
^APCLCPTD	DEL+3
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	PROC1+9
DEMOCHK^APCLUTL	DEMO+1
$$PRIMPROV^APCLV	PROC1+37, PROC1+41, PROC1+45
$$CPT^AUPNCPT	PROC1+21
$$TRIBE^AUPNPAT	PROC1+18
KILL^AUPNPAT	XIT+5
^DIC	L+2, S+2, T+2
^DIR	DATES+2, DATES+4, PS+3, SC+3, FAC+3, HEADER+2, EOP+7, PT+3, PT+10, PT+14
^XBDBQUE	NODEV+2
$$VAL^XBDIQ1	SETP+3
^XBFMK	XIT+10, EOJ+2
EN^XBVK	XIT+2, EOJ+1
$$FMTE^XLFDT	HEADER1+2, HEADER1+4
$$REPEAT^XLFSTR	PAD+3
$$STRIP^XLFSTR	C+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+1
Function Call: WRITE	Prompt: !,$$LOC() Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("TALLY OF CPT CODES BY PROVIDER",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally the all CPT codes entered by provider." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"You will be able to specify the date range; whether to include" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"outpatient (ambulatory, day surgery, observation), inpatient visits" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"or both; tally cpts codes by primary provider only or primary" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"and secondary provider; and whether to include only visits to" Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"one facility, a service unit or to patients who are members" Line Location: INFORM+9
Function Call: WRITE	Prompt: !,"of a particular tribe." Line Location: INFORM+10
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: If you choose both primary and secondary providers" Line Location: INFORM+11
Function Call: WRITE	Prompt: !," the following logic will be applied:" Line Location: INFORM+12
Function Call: WRITE	Prompt: !," If you use the CPE mnemonic or the CPT code is entered" Line Location: INFORM+13
Function Call: WRITE	Prompt: !," through EHR the CPT code will be linked to the encounter" Line Location: INFORM+14
Function Call: WRITE	Prompt: !," provider documented. If there is no encounter provider" Line Location: INFORM+15
Function Call: WRITE	Prompt: !," documented then the CPT code will be tallied under each" Line Location: INFORM+16
Function Call: WRITE	Prompt: !," provider on that visit thus the counts will include the" Line Location: INFORM+17
Function Call: WRITE	Prompt: !," same CPT code multiple times." Line Location: INFORM+18
Function Call: WRITE	Prompt: ! Line Location: INFORM+19
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,"none selected" Line Location: FAC+8
Function Call: WRITE	Prompt: !!,"no output type selected." Line Location: OUTP+3
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT1+2
Function Call: WRITE	Prompt: !,APCLY,?11,APCLN,?55,$$PAD($$C(APCLCNT,0,7),7) Line Location: PRNO+3
Function Call: WRITE	Prompt: !,APCLY,?11,APCLN,?55,$$PAD($$C(APCLCNT,0,7),7) Line Location: PRNI+3
Function Call: WRITE	Prompt: !!,"Ambulatory/Outpatient Services:" Line Location: AMBHDR+1
Function Call: WRITE	Prompt: !!,"CPT Code",?11,"CPT Narrative",?50,"# Subtotaled by CPT" Line Location: AMBHDR+2
Function Call: WRITE	Prompt: !!,"Inpatient Services:" Line Location: INPHDR+1
Function Call: WRITE	Prompt: !!,"CPT Code",?11,"CPT Narrative",?50,"# Subtotaled by CPT" Line Location: INPHDR+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* CPT Code by Provider Report *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Function Call: WRITE	Prompt: !!,"Please choose an output type. For an explanation of the delimited",!,"file please see the user manual.",! Line Location: PT+2
Function Call: WRITE	Prompt: !!,"You have selected to create a delimited output file. You can have this",!,"output file created as a text file in the pub directory, ",!,"OR you can have the delimited output display on your screen so that" Line Location: PT+8
Function Call: WRITE	Prompt: !,"you can do a file capture. Keep in mind that if you choose to",!,"do a screen capture you CANNOT Queue your report to run in the background!!",!! Line Location: PT+9
Function Call: WRITE	Prompt: !!,"When the report is finished your delimited output will be found in the",!,APCLHDIR," directory. The filename will be ",APCLDELF,".txt",! Line Location: PT+19
Routine Call	DIC Line Location: L+2 S+2 T+2
Routine Call	DIR Line Location: DATES+2 DATES+4 PS+3 SC+3 FAC+3 HEADER+2 EOP+7 PT+3 PT+10 PT+14
Routine Call	%ZIS Line Location: DEMO+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTTRI - [#9999999.03]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC1+8
^AUPNVCPT - [#9000010.18]	PROC1+28, PROC1+43, PROC1+45
^AUPNVPRC - [#9000010.08]	PROC1+33, PROC1+35, PROC1+37
^AUPNVPRV - [#9000010.06]	PROC1+49, PROC1+50, PROC1+51, PROC1+56, PROC1+57, PROC1+58
^AUPNVPRV("AD"	PROC1+48, PROC1+55
^AUPNVRAD - [#9000010.22]	PROC1+39, PROC1+41
^AUPNVSIT - [#9000010]	PROC1+1, PROC1+2, PROC1+15
^AUPNVSIT("B"	PROC+6, V1+1
^AUTTLOC - [#9999999.06]	PROC1+17
^AUTTSITE(1	PT+17
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC1+7
^TMP($J	DEL+2!, DEL+4!
^VA(200 - [#200]	SETP+2, HEADER1+2, USR+1
^XTMP("APCLCPT1"	PROC+2!, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+2, PRINT1+3 , PRINT1+4, PRINT1+7, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2, PRNI+2 , DONE+1!
^XTV(8989.3 - [#8989.3]	PT+17

Label References

Name	Line Occurrences
$$C	PRINT1+25, PRINT1+28, PRINT1+29, PRNO+3, PRNI+3
$$CTR	INFORM+1, INFORM+3, HEADER1+3, HEADER1+4
$$LOC	INFORM+2
$$PAD	PRINT1+25, PRINT1+28, PRINT1+29, PRNO+3, PRNI+3
$$USR	INFORM+1
@(	FAC+7
AMBHDR	PRINT1+10, PRINT1+12
DATES	DATES+6, PS+4
DEL	PRINT+1
DONE	PRINT+3, DEL+5, PRINT1+2
EOJ	INFORM+20
FAC	OUTP+3
HEADER	PRINT1+2, PRINT1+5, PRINT1+12, PRINT1+16, PRINT1+19, PRINT1+22, PRNO+1, PRNI+1
HEADER1	HEADER+1
INPHDR	PRINT1+17, PRINT1+19
NODEV	DEMO+3
OUTP	DEMO+2
PRINT	DRIVER+3, NODEV1+2
PRINT1	PRINT+2
PRNI	PRINT1+20
PRNO	PRINT1+13
PROC	DRIVER+1, NODEV1+1
PROC1	V1+1
PS	SC+4
PT	OUTP+2, PT+11, PT+15
SC	FAC+4, FAC+8
SET	SETP+4, SETP+5
SETP	PROC1+32, PROC1+38, PROC1+42
TSKMN	DEMO+5
V1	PROC+6
XIT	DEMO+3, DRIVER+5, NODEV1+4, TSKMN+5

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEMO+3!, DEMO+4*
A	XIT+7!
APCLBD	DATES!, DATES+2*, DATES+6, PROC+5, HEADER1+4
>> APCLC	PROC1+24*, SET+1, SET+2
>> APCLCNT	PRINT1+24, PRINT1+25, PRINT1+27, PRINT1+28, PRINT1+29, PRNO+2, PRNO+3, PRNI+2, PRNI+3
>> APCLDELF	PT+1, PT+7, PT+16*, PT+19
>> APCLDELT	DEMO+3, DEMO+4, PT+1, PT+7, PT+12*, PT+13
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+9
>> APCLDISC	SETP+3, SETP+5, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+7* , PRINT1+8, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2, PRNI+2
APCLED	DATES!, DATES+4*, DATES+6, PROC+6, HEADER1+4
>> APCLF	PROC1+26*, PROC1+32, PROC1+38, PROC1+42
>> APCLH	PROC+1*, PROC+2, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+2 , PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2 , PRNI+2, DONE+1
>> APCLHDIR	PT+17, PT+18, PT+19
>> APCLI	PROC1+27*, PROC1+33, PROC1+35, PROC1+37, PROC1+39, PROC1+41, PROC1+43, PROC1+45
>> APCLJ	PROC+1*, PROC+2, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+2 , PRINT1+3, PRINT1+4, PRINT1+7, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2 , PRNI+2, DONE+1
>> APCLLOC	PROC1+16, L+1, L+4
>> APCLLOCT	FAC+1, FAC+5, FAC+7, PROC1+16, PROC1+17, PROC1+18
>> APCLN	PROC1+25, SET+1, SET+2, PRINT1+13, PRINT1+20*, PRNO+2, PRNO+3, PRNI+2, PRNI+3
>> APCLODAT	PROC+6*, V1+1
>> APCLOI	SC+1, SC+5, PROC1+13, PROC1+14, PRINT1+9, PRINT1+15, PRINT1+23, PRINT1+26
>> APCLPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLPIEN	PRINT1+4*, PRINT1+7, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2, PRNI+2
>> APCLPN	SETP+2, SETP+5, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+3* , PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, PRINT1+24, PRINT1+27, PRNO+2 , PRNI+2
>> APCLPRIM	PS+1, PS+5, PROC1+37, PROC1+41, PROC1+45, PROC1+50, PROC1+57
APCLPROV	PROC1+30!, PROC1+52, SETP+5
APCLPROV(	PROC1+32, PROC1+38, PROC1+42, PROC1+51, PROC1+58*, SETP+1
APCLQ	FAC+6!, FAC+8, OUTP+1!, OUTP+3, PROC1+28, SET+1, SET+2, L+3, S+3, T+3 , PT+4*
APCLQUIT	PRINT1+1!, PRINT1+3, PRINT1+4, PRINT1+11, PRINT1+13, PRINT1+18, PRINT1+20, HEADER+2*
>> APCLROT	DEMO+3, PRINT+1, PRINT+3, PT+1, PT+5, PT+6
>> APCLSD	PROC+5*, PROC+6
>> APCLSU	PROC1+17, S+1, S+4
>> APCLTRIB	PROC1+18, T+1, T+4
>> APCLVIEN	V1+1*, PROC1+1, PROC1+2, PROC1+15, PROC1+21, PROC1+48
>> APCLVREC	PROC1+2*, PROC1+3, PROC1+4, PROC1+5, PROC1+10, PROC1+52, PROC1+53, SET+1, SET+2, SET+3 , SET+4
>> APCLX	PROC1+23*, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28
>> APCLY	PROC1+48, PROC1+49, PROC1+50, PROC1+51, PROC1+55, PROC1+56, PROC1+57, PROC1+58, SETP+1, SETP+2 , SETP+3, SETP+5, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, PRINT1+11* , PRINT1+13, PRINT1+18*, PRINT1+20, PRNO+2, PRNO+3, PRNI+2, PRNI+3
AUPNCPT	PROC1+20!, PROC1+22
AUPNCPT(	PROC1+23, PROC1+24, PROC1+25, PROC1+26, PROC1+27, PROC1+28
B	XIT+7!
BD	XIT+9!
C	XIT+7!
D	XIT+7!, PAD~, PAD+2, PAD+3
DA	FAC+3!, PT+3!, PT+10!, PT+14!
>> DFN	PROC1+5*, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+18, SET+5, SET+6
DFOUT	EOP+5!
DIADD	XIT+4!
DIC	L+2!, S+2!, T+2*!
DIC("A"	L+2, S+2, T+2*
DIC(0	L+2, S+2, T+2*
DIR	DATES+1!, DATES+3!, PS+3!, SC+3!, FAC+3!, XIT+3!, HEADER+2!, EOP+4~, PT+3!, PT+10! , PT+14!
DIR("?"	PS+3, SC+3
DIR("A"	DATES+1, DATES+3, PS+2, SC+2, FAC+2, FAC+3, EOP+7, PT+3, PT+10, PT+14
DIR("B"	SC+2, FAC+3, PT+3, PT+10
DIR(0	DATES+1, DATES+3, PS+2, SC+2, FAC+2, HEADER+2, EOP+7, PT+3, PT+10, PT+14
DIRUT	PS+4, SC+4, FAC+4, XIT+3!, EOP+5!, PT+4, PT+11, PT+15
DLAYGO	XIT+4!
DLOUT	EOP+5!
DOD	XIT+3!
DT	HEADER1+2
DTOUT	HEADER+2, EOP+5!
DUOUT	XIT+3!, EOP+5!
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1
E	XIT+7!
ED	XIT+9!
F	XIT+7!
G	XIT+7!
H	XIT+7!
I	XIT+7!, PROC1+28*
IO	DRIVER+2, TSKMN+1, HEADER+2, EOP+2
IO("DOC"	TSKMN+2
IO("Q"	DEMO+5
IO("S"	EOP+3
IO(0	HEADER+2, EOP+2
>> IOCPU	TSKMN+5
IOF	HEADER1+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	DEMO+3!
IOSL	TSKMN+3, PRINT1+12, PRINT1+16, PRINT1+19, PRINT1+22, PRNO+1, PRNI+1
IOST	TSKMN+1, HEADER+2, EOP+1
>> IOT	EOP+3
J	XIT+7!
K	XIT+7!
L	XIT+7!, PAD~, PAD+2*, PAD+3
M	XIT+7!
N	XIT+7!, XIT+8!
N1	XIT+8!
N2	XIT+8!
N3	XIT+8!
N4	XIT+8!
N5	XIT+8!
N6	XIT+8!
O	XIT+7!
P	XIT+7!, PROC1+31, PROC1+32, PROC1+33, PROC1+34, PROC1+35, PROC1+36, PROC1+37, PROC1+38, PROC1+39 , PROC1+40, PROC1+41, PROC1+42, PROC1+43*, PROC1+44, PROC1+45
Q	XIT+7!, PROC1+31, PROC1+32, PROC1+37, PROC1+38, PROC1+41, PROC1+42, PROC1+45
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	PROC1+3, PROC1+4, PROC1+5, PROC1+10, PROC1+15, PROC1+17, PROC1+24, PROC1+25, PROC1+26, PROC1+27 , PROC1+28, PROC1+33, PROC1+35, PROC1+37, PROC1+39, PROC1+41, PROC1+43, PROC1+45, PROC1+50, PROC1+51 , PROC1+52, PROC1+53, PROC1+57, PROC1+58, SETP+2, SET+1, SET+2, SET+3, SET+4, HEADER1+2 , USR+1, LOC+1, PT+17
V	XIT+7!, PROC1+53*, PROC1+54, PROC1+55
W	XIT+7!
X	XIT+6!, XIT+7!, PROC+5, PROC1+10, PROC1+11, PROC1+12, PROC1+13, PROC1+14, PROC1+15, PROC1+16 , PROC1+17, PROC1+21, HEADER1+4, CTR~, CTR+1, C~, C+2
X1	XIT+6!, PROC+5*
X2	XIT+6!, PROC+5*, C~
X3	XIT+6!, C~
X4	XIT+6!
X5	XIT+6!
X6	XIT+6!
>> XBNS	NODEV+1*
>> XBRC	NODEV+1*
>> XBRP	NODEV+1*
>> XBRX	NODEV+1*
Y	DATES+2, DATES+4, PS+5, SC+5, FAC+5, XIT+7!, HEADER+2, CTR~, CTR+1, L+3 , L+4, S+3, S+4, T+3, T+4, PT+5, PT+12, PT+16
Z	XIT+7!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	EOP+3
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("APCL*"	TSKMN+4*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCPT1

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: