Routine: APCLOP1

Information

APCLOP1 ; IHS/CMI/LAB - list procedures and tally operation provider ;

Source Information

Source file <APCLOP1.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	(C,COMMA)^%DTC ^DIC ^DIR
Kernel	2	$$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Patient Care Component Reports	2	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
DRG Grouper	1	$$ICDOP^ICDEX
IHS Patient	1	($$DOB,$$HRN)^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
DATES
SC1	;enter sc
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.
DONE	;
PRINT	;EP - called from xbdbque
LOC()	;EP - Return location name from file 4 based on DUZ(2).
INFORM	;
CTR(X,Y)	;EP - Center X in a field Y wide.
V1	;
OPCODE	;
EOJ	;
FAC	;
P1	;
ZIS	;
O	;one location
HEADER	;EP
C(X,X2,X3)	;
PROC1	;
H1
LIST	;
HEADER1	;
SC	;type of refusal all or one?
PROC	;

External References

Name	Field # of Occurrence
C^%DTC	PROC+3
COMMA^%DTC	C+1
PEP^AMQQGTX0	SC1+2, OPCODE+11
XTMP^APCLOSUT	INFORM+11
$$DEMO^APCLUTL	PROC1+6
DEMOCHK^APCLUTL	DEMO+1
$$DOB^AUPNPAT	P1+4
$$HRN^AUPNPAT	P1+4
^DIC	SC1+1, OPCODE+10, O+2
^DIR	DATES+2, DATES+4, SC+3, FAC+3, OPCODE+4, LIST+2, HEADER+2, EOP+7
$$ICDOP^ICDEX	PROC1+17, PRINT+16, PRINT+27, HEADER1+11
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	P1+7
^XBFMK	OPCODE+8, EOJ+2
EN^XBVK	EOJ+1
$$FMTE^XLFDT	P1+4, 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("LISTING/TALLY OF OF VISITS WITH SELECTED PROCEDURE CODES",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally the operating provider for selected procedures" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"done. You can optionally get a list of all the visits with these" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"procedures." Line Location: INFORM+6
Function Call: WRITE	Prompt: ! Line Location: INFORM+7
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: ! Line Location: SC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SC1+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: OPCODE+10
Function Call: WRITE	Prompt: ! Line Location: LIST+1
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"Total # of Procedures: ",?50,$$PAD($$C(APCLCNTP,0,7),7) Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Tally BY Operating Providers:" Line Location: PRINT+6
Function Call: WRITE	Prompt: !?3,"Operating Provider",?50,"# of Procedures" Line Location: PRINT+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: PRINT+20
Function Call: WRITE	Prompt: !!,"Tally BY ICD Procedure Code:" Line Location: PRINT+21
Function Call: WRITE	Prompt: !?3,"Procedure",?50,"# of Procedures" Line Location: PRINT+22
Function Call: WRITE	Prompt: ! Condition for execution: C>1 Line Location: P1+7
Function Call: WRITE	Prompt: ?58,$$VAL^XBDIQ1(9000010.08,APCLPIEN,.01),?68,$E($$VAL^XBDIQ1(9000010.08,APCLPIEN,.11),1,11) Line Location: P1+7
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("* PROCEDURE TALLY/LISTING *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: "Service Categories: " Line Location: HEADER1+5
Function Call: WRITE	Prompt: "ALL" Line Location: HEADER1+6
Function Call: WRITE	Prompt: X," ;" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,"Procedures included in this report:" Line Location: HEADER1+8
Function Call: WRITE	Prompt: " ALL ICD PROCEDURES" Line Location: HEADER1+9
Function Call: WRITE	Prompt: " ",$P(^ICD0(X,0),U) Line Location: HEADER1+10
Function Call: WRITE	Prompt: " ",$P($$ICDOP^ICDEX(X,,,"I"),U,2) Line Location: HEADER1+11
Function Call: WRITE	Prompt: " ....ETC" Line Location: HEADER1+12
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?40,"VST DATE",?51,"SC",?54,"LOC",?58,"ICD",?68,"Operating Prov" Line Location: H1+0
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: H1+1
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIC Line Location: SC1+1 OPCODE+10 O+2
Routine Call	DIR Line Location: DATES+2 DATES+4 SC+3 FAC+3 OPCODE+4 LIST+2 HEADER+2 EOP+7

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRC - [#9000010.08]	PROC1+10, PROC1+13
^AUPNVPRC("AD"	PROC1+1, PROC1+9
^AUPNVSIT - [#9000010]	V1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+12, P1+2, P1+4, P1+5
^AUPNVSIT("B"	PROC+4, V1+1
^AUTTLOC - [#9999999.06]	P1+5
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	P1+4
^ICD0 - [#80.1]	PROC1+10
^VA(200 - [#200]	PROC1+15, HEADER1+2, USR+1
^XTMP("APCLOP1"	INFORM+10!, OPCODE+2!, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12*, PRINT+2, PRINT+36, P1+1, P1+6 , HEADER1+11, DONE+1!

Label References

Name	Line Occurrences
$$C	PRINT+5, PRINT+16, PRINT+17, PRINT+27, PRINT+31
$$CTR	INFORM+1, INFORM+3, HEADER1+3, HEADER1+4
$$LOC	INFORM+2
$$PAD	PRINT+5, PRINT+16, PRINT+17, PRINT+27, PRINT+31
$$USR	INFORM+1
DATES	DATES+6, SC+4, SC1+1, FAC+4
DONE	PRINT+2, PRINT+34, PRINT+37
EOJ	INFORM+8, OPCODE+10, DEMO+5
EOP	DONE+2
FAC	SC+5, FAC+8, OPCODE+5, OPCODE+12
H1	PRINT+35, P1+3
HEADER	PRINT+2, PRINT+3, PRINT+9, PRINT+19, PRINT+24, PRINT+35, P1+3
HEADER1	HEADER+1
LIST	OPCODE+7, DEMO+2
O	FAC+7
OPCODE	FAC+6, LIST+3
P1	PRINT+36
PROC1	V1+1
SC	SC1+3
V1	PROC+4

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	DATES!, DATES+2*, DATES+6, PROC+3, HEADER1+4
>> APCLCNTD	PROC+1*
>> APCLCNTP	PROC+1, PROC1+19, PRINT+5
>> APCLCNTV	PROC+1*
>> APCLDATE	PRINT+36*, P1+1, P1+6
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+6
APCLED	DATES!, DATES+4*, DATES+6, PROC+4, HEADER1+4
>> APCLH	INFORM+9*, INFORM+10, OPCODE+2, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12, PRINT+2, PRINT+36, P1+1 , P1+6, HEADER1+11, DONE+1
>> APCLI	PRINT+14, PRINT+16, PRINT+25, PRINT+27, PRINT+28, PRINT+30, PRINT+31
>> APCLICD	OPCODE+1, OPCODE+6, OPCODE+7, OPCODE+13*, PROC1+11, HEADER1+9
>> APCLIPTR	PROC1+10*, PROC1+11, PROC1+17, PROC1+18, PROC1+20
>> APCLJ	INFORM+9*, INFORM+10, OPCODE+2, OPCODE+12, OPCODE+13, PROC1+11, PROC1+12, PRINT+2, PRINT+36, P1+1 , P1+6, HEADER1+11, DONE+1
>> APCLLIST	LIST+1, LIST+4, PRINT+34
>> APCLLOC	FAC+8, PROC1+7, O+1, O+4
>> APCLLOCT	FAC+1, FAC+5, FAC+6, PROC1+7
>> APCLODAT	PROC+4*, V1+1
APCLOPRC	PROC+1!
APCLOPRC(	PROC1+20*, PRINT+23, PRINT+25, PRINT+27, PRINT+28, PRINT+30, PRINT+31
APCLOPRV	PROC+1!
APCLOPRV(	PROC1+18*, PRINT+8, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+17
>> APCLP	PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+23, PRINT+25, PRINT+27 , PRINT+28, PRINT+30, PRINT+31
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLPIEN	PROC1+9, PROC1+10, PROC1+12, PROC1+13, P1+6, P1+7
>> APCLQ	O+3*
APCLQUIT	PRINT+1!, PRINT+8, PRINT+11, PRINT+12, PRINT+23, PRINT+28, PRINT+30, PRINT+36, P1+1, P1+6 , HEADER+2*
APCLSC	SC+2!
APCLSCT	SC+1!, SC+2!, SC1+3, SC1+4!, PROC1+4, HEADER1+6, HEADER1+7
APCLSCT(	PROC1+4, HEADER1+7
APCLSCT("*"	SC1+4
>> APCLSD	PROC+3*, PROC+4
>> APCLV	P1+1*, P1+2, P1+4, P1+5, P1+6
>> APCLVIEN	V1+1*, PROC1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+9, PROC1+12
>> APCLX	PRINT+12, PRINT+13, PRINT+14, PRINT+16, PRINT+30, PRINT+31
>> APCLY	PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+17, PRINT+28, PRINT+29, PRINT+30, PRINT+31
>> C	P1+6, P1+7, HEADER1+11*, HEADER1+12
D	PAD~, PAD+2, PAD+3
DA	SC1+1!, FAC+3!, OPCODE+4!, OPCODE+10!
>> DFN	P1+2*, P1+4
DFOUT	EOP+5!
DIC	SC1+1!, OPCODE+9, OPCODE+10!, O+2*!
DIC("A"	O+2*
DIC("S"	SC1+1, OPCODE+9
DIC(0	SC1+1, OPCODE+9, O+2*
DIR	DATES+1!, DATES+3!, SC+3!, FAC+3!, OPCODE+4!, LIST+2!, HEADER+2!, EOP+4~
DIR("?"	SC+3, LIST+2
DIR("A"	DATES+1, DATES+3, SC+2, FAC+2, FAC+3, OPCODE+3, OPCODE+4, LIST+1, EOP+7*
DIR("B"	SC+2, FAC+2, FAC+3, OPCODE+4, LIST+1*
DIR(0	DATES+1, DATES+3, SC+2, FAC+2, OPCODE+3, LIST+1, HEADER+2, EOP+7
DIRUT	SC+4, FAC+4, OPCODE+5, LIST+3, EOP+5!
DLOUT	EOP+5!
DT	HEADER1+2
DTOUT	HEADER+2, EOP+5!
DUOUT	EOP+5!
DUZ	HEADER1+2, USR+1
DUZ(2	P1+4, LOC+1
IO	HEADER+2, EOP+2
IO("S"	EOP+3
IO(0	HEADER+2, EOP+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT+9, PRINT+24, P1+3
IOST	HEADER+2, EOP+1
>> IOT	EOP+3
L	PAD~, PAD+2*, PAD+3
>> P	PROC1+17*, PROC1+18, PROC1+20
U	V1+1, PROC1+2, PROC1+5, PROC1+6, PROC1+10, PROC1+12, PROC1+13, PROC1+15, PROC1+17, PRINT+16 , PRINT+27, P1+2, P1+4, P1+5, HEADER1+2, HEADER1+11, USR+1, LOC+1
X	SC1+1, OPCODE+9, PROC+3, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+13 , PROC1+14, PROC1+15, PROC1+18, PROC1+20, HEADER1+4, HEADER1+7, HEADER1+11*, CTR~, CTR+1, C~ , C+2
>> X1	PROC+3*
X2	PROC+3*, C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATES+2, DATES+4, SC+5, SC1+1, SC1+2, FAC+5, OPCODE+6, OPCODE+10, OPCODE+11, LIST+4 , PROC1+14, PROC1+15, PROC1+18, PROC1+20, HEADER+2, CTR~, CTR+1, O+3, O+4
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLOP1

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: