Routine: APCLGCDC

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC ^DIR
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Patient Care Component Reports	2	($$CHKLOC,$$GETLOC)^APCLOCCK ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;-- get loop through the visit file
HDR	;-- report header
DEMO	;
DT14()	;-- return 14 days in the future
PRT	;-- print out the routine
XIT	;-- kill variables and quit
EOJ	;
DTR	;-- get the date range
XHDR
MAIN	;-- this is the main routine driver

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report will produce a list of patients who have had a dental clinic",!,"visit and a general clinic visit on the same day.",!! Line Location: MAIN+2
Function Call: WRITE	Prompt: !!,"No visits to report." Line Location: PRT+2
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(APCLXV),?20,$$VAL^XBDIQ1(2,APCLXP,.01) Line Location: PRT+6
Function Call: WRITE	Prompt: ?55,$$HRN^AUPNPAT(APCLXP,DUZ(2)) Line Location: PRT+7
Function Call: WRITE	Prompt: @IOF Line Location: XHDR+0
Function Call: WRITE	Prompt: !,?16,"General Clinic and Dental Clinic Visits (Same Day)" Line Location: XHDR+1
Function Call: WRITE	Prompt: !,?((80-APCLLENG)/2),"Location of Visits: ",APCLLOCT Line Location: XHDR+4
Function Call: WRITE	Prompt: !!,"Date Range: "_$$FMTE^XLFDT(APCLBDT)_" to "_$$FMTE^XLFDT(APCLEDT) Line Location: XHDR+5
Function Call: WRITE	Prompt: ! Line Location: XHDR+6
Function Call: WRITE	Prompt: !,"Visit Date",?20,"Patient Name",?55,"Chart #",! Line Location: XHDR+7
Function Call: WRITE	Prompt: "-" Line Location: XHDR+8
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	SORT+8, SORT+9, SORT+10, SORT+11, SORT+12
^AUPNVSIT("B"	SORT+6, SORT+7
^DIC(40.7 - [#40.7]	SORT+4, SORT+5
^TMP("APCLGCDC"	SORT+16, SORT+17, SORT+18, SORT+19, SORT+20, XIT+4!
^XTMP("APCLGCDC"	SORT+3, SORT+20, PRT+2, PRT+3, PRT+4, EOJ+1!

Name	Field # of Occurrence
^(0	SORT+14, SORT+15

Name	Field # of Occurrence
%DT	DTR+1, DTR+6!, DTR+7, DTR+12!
%DT("A"	DTR+1, DTR+7
APCDTP	XIT+2!
APCLBDT	DTR+4*, DTR+5, XHDR+5, XIT+1!
APCLCLN	SORT+15*, SORT+16, SORT+17, XIT+1!
APCLDA	SORT+6*, SORT+7, SORT+13, XIT+1!
>> APCLDEMO	DEMO+1, DEMO+2, SORT+10
APCLDEN	SORT+5*, SORT+17, XIT+1!
APCLDESC	SORT+2*, SORT+3, XIT+1!
APCLDFN	SORT+7*, SORT+8, SORT+9, SORT+10, SORT+11, SORT+12, XIT+1!
APCLEDT	DTR+10*, DTR+11, XHDR+5, XIT+1!
APCLGEN	SORT+4*, SORT+16, XIT+1!
APCLH	SORT+1*, SORT+3, SORT+20, PRT+2, PRT+3, PRT+4, EOJ+1, EOJ+2!
APCLJ	SORT+1*, SORT+3, SORT+20, PRT+2, PRT+3, PRT+4, EOJ+1, EOJ+2!
>> APCLLENG	XHDR+3*, XHDR+4
>> APCLLOC	DTR+15*, DTR+16, SORT+12, XHDR+2
>> APCLLOCT	XHDR+2*, XHDR+3, XHDR+4
APCLPAT	SORT+14*, SORT+16, SORT+17, XIT+2!
APCLSBDT	DTR+5*, SORT+6, XIT+2!
APCLSEDT	DTR+11*, SORT+6, XIT+2!
APCLTP	SORT+18*, SORT+19, SORT+20, XIT+3!
APCLTV	SORT+19*, SORT+20, XIT+2!
APCLVDT	SORT+13*, SORT+16, SORT+17, XIT+2!
APCLXP	PRT+4*, PRT+6, PRT+7, XIT+2!
APCLXV	PRT+3*, PRT+4, PRT+6, XIT+2!
DIR	DTR+13!
DIR(0	HDR+1*
>> DIRUT	PRT+3, PRT+4, PRT+5, HDR+1*
DT	SORT+3, DT14+1
DUZ(2	PRT+7
IOF	MAIN+1, XHDR
IOSL	PRT+5
IOST	HDR+1
U	SORT+3, SORT+9, SORT+10, SORT+11, SORT+12, SORT+14, SORT+15, SORT+16, SORT+17, SORT+20
X	XIT+3!, DT14+2
X1	XIT+3!, DT14+1*
X2	XIT+3!, DT14+1*
XBNS	MAIN+5*, XIT+3!
XBRC	MAIN+4*, XIT+3!
XBRP	MAIN+4*, XIT+3!
XBRX	MAIN+5*, XIT+3!
XI	XHDR+8*, XIT+3!
Y	MAIN+3, DTR+3, DTR+4, DTR+9, DTR+10, DTR+16*, HDR+1, XIT+3!