Routine: APCLPDEM

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Patient Care Component Reports	2	($$DEMO,DEMOCHK)^APCLUTL $$CLINIC^APCLV
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIR

IHS VA Utilities

^XBDBQUE EN^XBVK

Patient Care Component Reports

($$DEMO,DEMOCHK)^APCLUTL $$CLINIC^APCLV

IHS Patient

($$HRN,KILL)^AUPNPAT

Kernel

($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
ZIS	;
HEADER	;EP
BROWSE	;
DEMO	;
XTMP(N,D)	;EP - set xtmp 0 node
START	;EP - called from option
CTR(X,Y)	;EP - Center X in a field Y wide.
GETDATES	;
XIT	;
ED	;get ending date
PRINT	;EP - called from xbdbque
HEADER1	;
PROC	;EP - called from xbdbque
DATE(D)	;EP

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4, PROC+4
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	PRINT+7
$$HRN^AUPNPAT	PRINT+7
KILL^AUPNPAT	XIT+2
^DIR	BD+1, ED+1, DEMO+3, HEADER+2
^XBDBQUE	DEMO+7, BROWSE+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	PRINT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a list of all visits for your 'DEMO' patients." Line Location: START+3
Function Call: WRITE	Prompt: !,"The patient visits listed are those for patients whose name begins with" Line Location: START+4
Function Call: WRITE	Prompt: !,"DEMO,PATIENT or who reside in your site defined DEMO patient search template." Line Location: START+5
Function Call: WRITE	Prompt: !!,"You can use this list to delete the visits using the data entry delete" Line Location: START+6
Function Call: WRITE	Prompt: !,"visit option." Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !!,"Please enter the range of visit dates for the demo patients." Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: DEMO+6
Function Call: WRITE	Prompt: !!,"There are no Demo patient visits for that time period.",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Total # of Visits: ",APCLTOT,! Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",APCLPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(80-$L(APCLTEXT)/2),APCLTEXT,! Line Location: HEADER1+5
Function Call: WRITE	Prompt: ?(80-$L(APCLTEXT)/2),APCLTEXT,! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $TR($J(" ",80)," ","-") Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT",?32,"DATE/TIME (IEN)",?60,"TYPE",?65,"SC",?68,"CLINIC" Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+10
Routine Call	DIR Line Location: BD+1 ED+1 DEMO+3 HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PROC+7, PROC+8, PROC+9, PROC+10, PRINT+7
^AUPNVSIT("B"	PROC+5, PROC+6
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	PRINT+7
^XTMP(	XTMP+2*
^XTMP("APCLPDEM"	PROC+10*, PRINT+2, PRINT+4, PRINT+5, PRINT+9!

Name	Line Occurrences
BD	ED+2
BROWSE	DEMO+5
GETDATES	DEMO+2
HEADER	PRINT+2, PRINT+3, PRINT+6
HEADER1	HEADER+1
XIT	START+1, BD+2, DEMO+4, DEMO+5, DEMO+8
XTMP	PROC+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLBD	BD+3*, ED+1, ED+4, PROC+4
>> APCLBDD	ED+4*, HEADER1+6
>> APCLBT	PROC+2*, PROC+10, PRINT+2, PRINT+4, PRINT+5, PRINT+9
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
>> APCLED	ED+3*, ED+4, PROC+5
>> APCLEDD	ED+4*, HEADER1+6
>> APCLJOB	PROC+2*, PROC+10, PRINT+2, PRINT+4, PRINT+5, PRINT+9
>> APCLODAT	PROC+5*, PROC+6
>> APCLP	PRINT+4*, PRINT+5, PRINT+7
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+3
APCLQ	PRINT+1!, PRINT+4, PRINT+5, PRINT+6, HEADER+2*
>> APCLSD	ED+4, PROC+4, PROC+5
>> APCLTEXT	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
>> APCLTOT	PROC+2, PROC+10, PRINT+8
>> APCLV	PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PRINT+5, PRINT+7
D	DATE~, DATE+1, DATE+2, XTMP~, XTMP+2
DA	DEMO+3!
DIR	BD+1!, ED+1!, DEMO+3!, HEADER+2!
DIR("A"	BD+1, ED+1, DEMO+3*
DIR("B"	DEMO+3*
DIR(0	BD+1, ED+1, DEMO+3, HEADER+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, DEMO+4
DT	XTMP+2
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1
DUZ(2	PRINT+7, HEADER1+3
IO	HEADER+2
IO(0	HEADER+2
IOF	START+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+6
IOST	HEADER+2
N	XTMP~, XTMP+1, XTMP+2
U	PROC+7, PROC+8, PROC+9, PROC+10, PRINT+7, HEADER1+3
X	ED+4, PROC+4, CTR~, CTR+1
>> X1	ED+4, PROC+4
>> X2	ED+4, PROC+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	BD+3, ED+1, ED+3, ED+4, DEMO+5, CTR~, CTR+1, HEADER+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPDEM

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: