Routine: APCLDOD1

Information

APCLDOD1 ; IHS/CMI/LAB - INFANT FEEDING REPORT #1 ;

Source Information

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	(C,COMMA)^%DTC ^DIC ^DIR
Patient Care Component Reports	2	$$START1^APCLDF ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	(,$$AGE,$$HRN)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
RSORT	;
EOJ	;
CMMNTS	;
USR()	;EP - Return name of current user from ^VA(200.
DONE	;
D(D)	;
PRINT	;EP - called from xbdbque
SORTR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
TSORT	;
INTROT	;
LASTVD(P,BDATE,EDATE,H)	;
HEADER1	;
DEMO	;
DSORT	;
ZIS	;
ED	;get ending date
HEADER	;EP
C(X,X2,X3)	;
HSORT	;
EP	;EP - called from option interactive
TRIBE	;
CSORT	;
NSORT	;
SORT(P,S)	;
GETDATES	;
PROC	;

External References

Name	Field # of Occurrence
C^%DTC	ED+4
COMMA^%DTC	C+1
PEP^AMQQGTX0	TRIBE+11, CMMNTS+11
$$START1^APCLDF	LASTVD+3
$$DEMO^APCLUTL	PROC+7
DEMOCHK^APCLUTL	DEMO+1
^AUPNPAT	PRINT+5
$$AGE^AUPNPAT	PRINT+7
$$HRN^AUPNPAT	PRINT+7, HSORT+1, RSORT+1
^DIC	TRIBE+7, TRIBE+10, CMMNTS+7, CMMNTS+10
^DIR	BD+1, ED+1, TRIBE+2, CMMNTS+2, SORTR+2, DONE+1, HEADER+2
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PRINT+8, PRINT+9, PRINT+12, LASTVD+15, CSORT+1, TSORT+1, NSORT+1
$$VALI^XBDIQ1	DSORT+1
^XBFMK	EOJ+1
EN^XBVK	EOJ+3
$$FMADD^XLFDT	PROC+2
$$FMTE^XLFDT	LASTVD+3, HEADER1+2, HEADER1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,APCLT Line Location: EP+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"Patients from all tribes will be included in the report.",! Line Location: TRIBE+5
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: TRIBE+10
Function Call: WRITE	Prompt: !!,"Patients from all communities will be included in the report.",! Line Location: CMMNTS+5
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CMMNTS+10
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($P(^DIC(4,DUZ(2),0),U),80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("DECEASED PATIENTS REPORT",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,"Patient Name",?25,"HRN",?32,"DOB",?43,"Age at",?50,"DOD",?61,"Tribe" Line Location: HEADER1+6
Function Call: WRITE	Prompt: !?43,"Death" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Routine Call	DIC Line Location: TRIBE+7 TRIBE+10 CMMNTS+7 CMMNTS+10
Routine Call	DIR Line Location: BD+1 ED+1 TRIBE+2 CMMNTS+2 SORTR+2 DONE+1 HEADER+2

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTTRI - [#9999999.03]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+6, PROC+9, PROC+10
^AUPNVPRV("AD"	LASTVD+9
^AUPNVSIT - [#9000010]	LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11, LASTVD+15
^AUTTCOM - [#9999999.05]	CMMNTS+9
^DIC(4 - [#4]	HEADER1+3, LOC+1
^DPT - [#2]	PROC+5, PRINT+7
^DPT("AEXP1"	PROC+3, PROC+4
^TMP($J	LASTVD+1!, LASTVD+4, LASTVD+5
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLDOD1"	PROC+2, PROC+13, DONE+4!, PRINT+3, PRINT+4

Label References

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5
$$D	PRINT+7, PRINT+8, LASTVD+15
$$LASTVD	PRINT+10, PRINT+11
$$SORT	PROC+11
@(	SORT+3
BD	ED+2
CMMNTS	TRIBE+5, TRIBE+6, CMMNTS+6, CMMNTS+12, CMMNTS+13, SORTR+3
EOJ	EP+1, BD+2
GETDATES	TRIBE+3
HEADER	PRINT+2, PRINT+6
HEADER1	HEADER+1
SORTR	CMMNTS+5, CMMNTS+6, DEMO+2
TRIBE	TRIBE+6, TRIBE+12, TRIBE+13, CMMNTS+3

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LASTVD+3*
>> APCLBD	BD+3*, ED+1, ED+4, HEADER1+5
APCLCOMM	CMMNTS+1!, CMMNTS+6, CMMNTS+12, CMMNTS+13!, PROC+10
APCLCOMM(	CMMNTS+9*, PROC+10
APCLCOMM("*"	CMMNTS+13
>> APCLCOMT	CMMNTS+1, CMMNTS+4, CMMNTS+5, CMMNTS+6
>> APCLDEMO	DEMO+1, DEMO+2, PROC+7
>> APCLED	ED+3*, PROC+3, HEADER1+5
>> APCLERR	TRIBE+10, CMMNTS+10
APCLET	DONE+3!
APCLH	PROC+1*, PROC+13, DONE+4!, PRINT+3, PRINT+4
APCLJ	EP+3, PROC+1, PROC+13, DONE+4!, PRINT+3, PRINT+4
APCLM	DONE+3!
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLQ	PRINT+1, PRINT+3, PRINT+4, PRINT+6, HEADER+2
APCLS	DONE+3!
>> APCLSD	ED+4, PROC+1, PROC+3*, PROC+4
>> APCLSORT	SORTR+1, SORTR+4, PROC+11
>> APCLSV	PRINT+3*, PRINT+4
>> APCLT	EP+3*
>> APCLTEXT	EP+3*
APCLTRIM	TRIBE+1!, TRIBE+6, TRIBE+12, TRIBE+13!, PROC+9
APCLTRIM(	TRIBE+9*, PROC+9
APCLTRIM("*"	TRIBE+13
>> APCLTRIT	TRIBE+1, TRIBE+4, TRIBE+5, TRIBE+6
APCLTS	DONE+3!
>> APCLX	EP+3*
>> AUPNDOB	PRINT+10, PRINT+11
>> AUPNDOD	PRINT+7, PRINT+8, PRINT+10, PRINT+11
>> B	LASTVD+3*
BDATE	LASTVD~, LASTVD+3
D	D~, D+1
DA	TRIBE+2!, TRIBE+10!, CMMNTS+2!, CMMNTS+10!, SORTR+2!
>> DFN	PROC+3, PROC+4, PROC+5, PROC+6, PROC+7, PROC+9, PROC+10, PROC+11, PROC+13, PRINT+4* , PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
DIC	TRIBE+7!, TRIBE+10!, CMMNTS+7!, CMMNTS+10!, EOJ+2!
DIC("A"	TRIBE+7, CMMNTS+7
DIC("S"	TRIBE+10, CMMNTS+10
DIC(0	TRIBE+7, TRIBE+10, CMMNTS+7, CMMNTS+10
DIR	BD+1!, ED+1!, TRIBE+2!, CMMNTS+2!, SORTR+2!, EOJ+2!, DONE+1!, HEADER+2!
DIR("A"	BD+1, ED+1, TRIBE+2, CMMNTS+2, SORTR+2, DONE+1
DIR("B"	TRIBE+2, CMMNTS+2, SORTR+2*
DIR(0	BD+1, ED+1, TRIBE+2, CMMNTS+2, SORTR+2, DONE+1, HEADER+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, TRIBE+3, CMMNTS+3, SORTR+3, DONE+1*
DT	PROC+2, HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1, DONE+1
DUZ	HEADER1+2, USR+1
DUZ(2	PRINT+7, HEADER1+3, LOC+1, HSORT+1, RSORT+1
>> E	LASTVD+3*
EDATE	LASTVD~, LASTVD+3
>> G	LASTVD+5, LASTVD+12, LASTVD+14, LASTVD+15
H	LASTVD~, LASTVD+2*, LASTVD+11
IO	DONE+1, HEADER+2
IO(0	DONE+1, HEADER+2
IOF	EP+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+6
IOST	DONE+1, HEADER+2
P	LASTVD~, LASTVD+3, SORT~, DSORT+1, CSORT+1, TSORT+1, NSORT+1, HSORT+1, RSORT+1
R	SORT+1~, SORT+2, SORT+4, SORT+5, DSORT+1, TSORT+1, NSORT+1, HSORT+1, RSORT+1, RSORT+2
S	SORT~, SORT+3
U	CMMNTS+9, PROC+9, PROC+10, PRINT+7, LASTVD+5, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11, LASTVD+15 , HEADER1+2, HEADER1+3, USR+1, LOC+1
>> V	LASTVD+5*, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, LASTVD+10, LASTVD+11, LASTVD+12, LASTVD+15
X	ED+4, TRIBE+10, CMMNTS+10, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13, LASTVD+5, HEADER1+5 , C~, C+2, CTR~, CTR+1, CSORT+1*
>> X1	ED+4*
X2	ED+4*, C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+3, TRIBE+4, TRIBE+8, TRIBE+9, TRIBE+10, TRIBE+11, CMMNTS+4, CMMNTS+8, CMMNTS+9 , CMMNTS+10, CMMNTS+11, SORTR+4, PRINT+5*, HEADER+2, CTR~, CTR+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDOD1

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items