Routine: APCLOR1

Information

APCLOR1 ; IHS/CMI/LAB - ;

Source Information

Source file <APCLOR1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Kernel	2	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	^DIC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
D(D)	;
PRINT	;EP - called from xbdbque
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;inform user what this report is all about
FAC	;
ZIS	;
O	;one location
START	;
S	;all communities within APCLSU su
XIT	;
NRAD(V)	;
NLAB(V)	;
PROC1	;
HEADER	;EP
TYPE	;type of report
HEADER1	;
PROC	;EP - called from xbdbque
NRX(V)	;

External References

Name	Field # of Occurrence
HOME^%ZIS	START+2
$$DEMO^APCLUTL	PROC1+3
DEMOCHK^APCLUTL	DEMO+1
$$HRN^AUPNPAT	PRINT+7
^DIC	O+1, S+1
^DIR	TYPE+2, DATES+2, DATES+4, FAC+3, DEMO+3, EOP+5, DONE+1, HEADER+2
^XBDBQUE	DEMO+7, BROWSE+2
$$VAL^XBDIQ1	S+1
$$VALI^XBDIQ1	PROC1+11
^XBFMK	XIT+1
EN^XBVK	XIT+1
$$FMADD^XLFDT	DATES+8, PROC+1
$$FMTE^XLFDT	PRINT+7, PRINT+8, HEADER1+2, HEADER1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+3
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: !,$$CTR($$LOC) Line Location: INFORM+1
Function Call: WRITE	Prompt: !!,"This report will list all visits that are 'orphan visits'. You will be asked",!,"to select whether you want orpaned lab, pharmacy or radiology visits." Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"If you select lab, you will get all visits with no primary provider or",!,"pov entered that have a lab entry attached to them. The same is true for",!,"pharmacy or radiology.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"If a visit has both a V LAB and a V RADIOLOGY the visit would be included",!,"in each report.",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF VISITS FOUND: ",APCLCNT,!! Line Location: PRINT+3
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("INCOMPLETE "_APCLRTYE_" VISITS",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !?68,"#",?72,"#",?76,"#" Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,"HRN",?12,"PATIENT NAME",?37,"DATE",?48,"TIME",?54,"SC",?57,"TYPE",?62,"LOC",?67,"LAB",?71,"RX",?75,"RAD" Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+7
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: O+1 S+1
Routine Call	DIR Line Location: TYPE+2 DATES+2 DATES+4 FAC+3 DEMO+3 EOP+5 DONE+1 HEADER+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB("AD"	PROC1+7, NLAB+2
^AUPNVMED("AD"	PROC1+9, NRX+2
^AUPNVPOV("AD"	PROC1+5
^AUPNVPRV("AD"	PROC1+5
^AUPNVRAD("AD"	PROC1+8, NRAD+2
^AUPNVSIT - [#9000010]	PROC+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+10, PROC1+11, PRINT+6
^AUPNVSIT("B"	PROC+5, PROC+6
^AUTTLOC - [#9999999.06]	PRINT+8
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PRINT+7
^VA(200 - [#200]	USR+1, HEADER1+2
^XTMP("APCLOR1"	PROC+1, PROC+3!, PROC1+12, PRINT+2, PRINT+4, DONE+4!

Label References

Name	Line Occurrences
$$CTR	INFORM+1, HEADER1+3, HEADER1+4
$$LOC	INFORM+1
$$NLAB	PRINT+8
$$NRAD	PRINT+8
$$NRX	PRINT+8
@(	FAC+7
BROWSE	DEMO+5
DATES	DATES+6, FAC+4
DONE	PRINT+2
FAC	FAC+8, DEMO+2
HEADER	PRINT+1, PRINT+2, PRINT+5
HEADER1	HEADER+1
INFORM	START+4
PROC1	PROC+6
TYPE	DATES+2, DATES+4
XIT	START+1, TYPE+3, DEMO+4, DEMO+5
ZIS	FAC+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	DATES!, DATES+2*, DATES+6, DATES+8, HEADER1+4
>> APCLCNT	PROC+2, PROC1+12, PRINT+3
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+3
APCLED	DATES!, DATES+4*, DATES+6, PROC+5, HEADER1+4
APCLET	DONE+3!
APCLH	PROC+2*, PROC+3, PROC1+12, PRINT+2, PRINT+4, DONE+4!
APCLJ	PROC+2*, PROC+3, PROC1+12, PRINT+2, PRINT+4, DONE+4!
>> APCLLOCT	FAC+1, FAC+5, FAC+6, FAC+7, PROC1+10, PROC1+11
>> APCLLOCT("ONE"	PROC1+10, O+3*
>> APCLLOCT("SU"	PROC1+11, S+3*
APCLM	DONE+3!
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
APCLQ	FAC+8, O+2, S+2, PRINT+1!, PRINT+4, PRINT+5, HEADER+2*
>> APCLRTYE	TYPE+4*, HEADER1+3
>> APCLRTYP	TYPE+1, TYPE+4, PROC1+7, PROC1+8, PROC1+9
APCLS	DONE+3!
>> APCLSD	DATES+8, PROC+5, PROC+6
APCLTS	DONE+3!
>> APCLV	PROC+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+9 , PROC1+10, PROC1+11, PROC1+12, PRINT+4, PRINT+6, PRINT+8
>> APCLVREC	PRINT+6*, PRINT+7, PRINT+8
C	NLAB+1~, NLAB+2, NLAB+3, NRX+1~, NRX+2, NRX+3, NRAD+1~, NRAD+2*, NRAD+3
D	D~, D+1, D+2
DA	TYPE+2!, FAC+3!, DEMO+3!
DFOUT	EOP+4!
DIC	O+1!, S+1!
DIC("A"	O+1, S+1
DIC("B"	S+1*
DIC(0	O+1, S+1
DIR	TYPE+2!, DATES+1!, DATES+3!, FAC+3!, DEMO+3!, EOP+3~, DONE+1!, HEADER+2!
DIR("A"	TYPE+2, DATES+1, DATES+3, FAC+2, FAC+3, DEMO+3, EOP+5, DONE+1
DIR("B"	FAC+2, FAC+3, DEMO+3*
DIR(0	TYPE+2, DATES+1, DATES+3, FAC+2, DEMO+3, EOP+5, DONE+1, HEADER+2
DIRUT	TYPE+3, FAC+4, DEMO+4, EOP+4!, DONE+1*
DLOUT	EOP+4!
DT	PROC+1, HEADER1+2
DTOUT	EOP+4!, HEADER+2
DUOUT	EOP+4!, DONE+1
DUZ	USR+1, HEADER1+2
DUZ(2	LOC+1, S+1, PRINT+7
IO	DONE+1, HEADER+2
IO("S"	EOP+2
IO(0	DONE+1, HEADER+2
IOF	START+2, START+3, DONE+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+5
IOST	EOP+1, DONE+1, HEADER+2
>> IOT	EOP+2
U	PROC+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+10, PROC1+11, USR+1, LOC+1 , PRINT+7, PRINT+8, HEADER1+2
V	NLAB~, NLAB+2, NRX~, NRX+2, NRAD~, NRAD+2
X	CTR~, CTR+1, NLAB+1~, NLAB+2, NRX+1~, NRX+2, NRAD+1~, NRAD+2, HEADER1+4
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
Y	TYPE+4, DATES+2, DATES+4, FAC+5, DEMO+5, CTR~, CTR+1, O+2, O+3, S+2 , S+3, HEADER+2
Y(0	TYPE+4
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLOR1

Call Graph Total: 10