Routine: APCLPIF1

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

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
INTROT	;
ENDDATE	;
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
DEMO	;
CMMNTS	;
USR()	;EP - Return name of current user from ^VA(200.
COVER	;;
CTR(X,Y)	;EP - Center X in a field Y wide.
HEADER	;EP
PCV	;
HEADER1	;
DONE	;
C(X,X2,X3)	;
COVERT	;;
EOJ	;
PRINT	;EP - called from xbdbque
PROC	;
EP	;EP - called from option interactive

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
PEP^AMQQGTX0	CMMNTS+11
$$START1^APCLDF	PCV+4
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	PCV+12
^DIC	CMMNTS+7, CMMNTS+10
^DIR	EP+5, ENDDATE+3, CMMNTS+2, DONE+1, HEADER+2, EOP+1
^XBDBQUE	DEMO+9
$$VALI^XBDIQ1	PCV+17
^XBFMK	EOJ+1
EN^XBVK	EOJ+3
$$FMADD^XLFDT	ENDDATE+6, PROC+2, PROC+5, PROC+13, PROC+24, PROC+25
$$FMTE^XLFDT	DEMO+4, PCV+4, HEADER1+2, HEADER1+4, HEADER1+5, EOP+5, EOP+7, COVER+4, COVER+6, COVER+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ENDDATE+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CMMNTS+10
Function Call: WRITE	Prompt: !!,"Patients with the following birthdates with be reviewed in this" Line Location: DEMO+3
Function Call: WRITE	Prompt: !,"report: ",$$FMTE^XLFDT(APCLBDOB)," - ",$$FMTE^XLFDT(APCLEDOB),! Line Location: DEMO+4
Function Call: WRITE	Prompt: !,"Patients from the following communities will be included:" Line Location: DEMO+5
Function Call: WRITE	Prompt: !?5,"All communities" Line Location: DEMO+6
Function Call: WRITE	Prompt: !?3 Line Location: DEMO+7
Function Call: WRITE	Prompt: " ",X Line Location: DEMO+7
Function Call: WRITE	Prompt: !! Line Location: DEMO+8
Function Call: WRITE	Prompt: !,"BREASTFEEDING AT BIRTH",! Line Location: PRINT+5
Function Call: WRITE	Prompt: !?2,"w/visit",?30,$$C($P(APCLD0,U,1),0,6) Line Location: PRINT+6
Function Call: WRITE	Prompt: !?2,"w/data recorded",?30,$$C($P(APCLD0,U,2),0,6) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?39,$J(X,6,1) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?39,$J("0.0",6,1) Line Location: PRINT+9
Function Call: WRITE	Prompt: !?2,"Breastfeeding",?30,$$C($P(APCLD0,U,3),0,6) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?39,$J(X,6,1) Line Location: PRINT+11
Function Call: WRITE	Prompt: ?39,$J("0.0",6,1) Line Location: PRINT+12
Function Call: WRITE	Prompt: ?55,"75%",?65,"71%",?75,"69%" Line Location: PRINT+13
Function Call: WRITE	Prompt: !!,"BREASTFEEDING AT 6 MONTHS",! Line Location: PRINT+14
Function Call: WRITE	Prompt: !?2,"w/visit",?30,$$C($P(APCLD6,U,1),0,6) Line Location: PRINT+15
Function Call: WRITE	Prompt: !?2,"w/data recorded",?30,$$C($P(APCLD6,U,2),0,6) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?39,$J(X,6,1) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?39,$J("0.0",6,1) Line Location: PRINT+18
Function Call: WRITE	Prompt: !?2,"Breastfeeding",?30,$$C($P(APCLD6,U,3),0,6) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?39,$J(X,6,1) Line Location: PRINT+20
Function Call: WRITE	Prompt: ?39,$J("0.0",6,1) Line Location: PRINT+21
Function Call: WRITE	Prompt: ?55,"50%",?65,"36%",?75,"32%" Line Location: PRINT+22
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
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("INFANT BREASTFEEDING STATISTICS, as of "_$$FMTE^XLFDT(APCLEDOB),80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !?30,$E($P(^DIC(4,DUZ(2),0),U),1,15),?53,"HP 2010",?63,"NATIONAL",?73,"2003",!?63,"USA RATE",?73,"AI/AN",! Line Location: HEADER1+7
Function Call: WRITE	Prompt: ?32,"#",?42,"%",?55,"%",?65,"%",?75,"%",! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEADER1+9
Function Call: WRITE	Prompt: ! Line Location: EOP+1
Function Call: WRITE	Prompt: !,$$CTR("COVER PAGE",80) Line Location: EOP+3
Function Call: WRITE	Prompt: !!,$$CTR($P(^DIC(4,DUZ(2),0),U),80) Line Location: EOP+4
Function Call: WRITE	Prompt: !,$$CTR("INFANT BREASTFEEDING STATISTICS, as of "_$$FMTE^XLFDT(APCLEDOB),80),! Line Location: EOP+5
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: EOP+6
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: EOP+7
Function Call: WRITE	Prompt: !,$$CTR("COVER PAGE",80) Line Location: COVER+2
Function Call: WRITE	Prompt: !!,$$CTR($P(^DIC(4,DUZ(2),0),U),80) Line Location: COVER+3
Function Call: WRITE	Prompt: !,$$CTR("INFANT BREASTFEEDING STATISTICS, as of "_$$FMTE^XLFDT(APCLEDOB),80) Line Location: COVER+4
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: COVER+5
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: COVER+6
Function Call: WRITE	Prompt: !!,"Population Reviewed: All patients with birthdates ",$$FMTE^XLFDT(APCLBDOB)," to ",$$FMTE^XLFDT(APCLEDOB) Line Location: COVER+7
Function Call: WRITE	Prompt: !,"Community of Residence: " Line Location: COVER+8
Function Call: WRITE	Prompt: " ",$O(APCLCOMM("")) Line Location: COVER+9
Function Call: WRITE	Prompt: " ","All Communities" Line Location: COVER+10
Function Call: WRITE	Prompt: "; " Condition for execution: C Line Location: COVER+11
Function Call: WRITE	Prompt: X Line Location: COVER+11
Routine Call	DIC Line Location: CMMNTS+7 CMMNTS+10
Routine Call	DIR Line Location: EP+5 ENDDATE+3 CMMNTS+2 DONE+1 HEADER+2 EOP+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIF("AD"	PCV+16, PCV+17
^AUPNVPRV("AD"	PCV+9
^AUPNVSIT - [#9000010]	PCV+6, PCV+7, PCV+8, PCV+10, PCV+11, PCV+17
^AUTTCOM - [#9999999.05]	CMMNTS+9
^BGPCTRL(3	PCV+14
^DIC(4 - [#4]	HEADER1+3, HEADER1+7, EOP+4, LOC+1, COVER+3
^DPT("ADOB"	PROC+6, PROC+7
^TMP($J	PCV+3!, PCV+5
^VA(200 - [#200]	HEADER1+2, EOP+6, USR+1, COVER+5
^XTMP("APCLPIF1"	PROC+2*, DONE+4!

Label References

Name	Line Occurrences
$$C	PRINT+6, PRINT+7, PRINT+10, PRINT+15, PRINT+16, PRINT+19
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, COVER+2, COVER+3 , COVER+4, COVER+5, COVER+6
CMMNTS	CMMNTS+6, CMMNTS+12, CMMNTS+13, DEMO+2
COVER	PRINT+2
DONE	PRINT+24
ENDDATE	CMMNTS+3
EOJ	EP+1, ENDDATE+4
EOP	COVER+15
HEADER	PRINT+4
HEADER1	HEADER+1
PCV	PROC+15, PROC+27
ZIS	CMMNTS+5, CMMNTS+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	PCV+4*
>> APCL06	PROC+14, PROC+26, PCV+20, PCV+21
>> APCLBDOB	ENDDATE+6, ENDDATE+7, ENDDATE+8, DEMO+4, PROC+5, HEADER1+5, COVER+7
>> APCLBVD	PROC+11, PROC+24, PCV+4
APCLCOMM	CMMNTS+1!, CMMNTS+6, CMMNTS+12, CMMNTS+13!
APCLCOMM(	CMMNTS+9*, DEMO+7, COVER+11
APCLCOMM(""	COVER+9
APCLCOMM("*"	CMMNTS+13
>> APCLCOMT	CMMNTS+1, CMMNTS+4, CMMNTS+5, CMMNTS+6, DEMO+6, DEMO+7, COVER+9, COVER+10, COVER+11
>> APCLD0	PROC+3, PROC+16, PROC+18, PROC+21, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11 , PRINT+12
>> APCLD6	PROC+4, PROC+28, PROC+30, PROC+33, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20 , PRINT+21
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
>> APCLDOB	PROC+5, PROC+6, PROC+7, PROC+11, PROC+13, PROC+24, PROC+25
>> APCLED	ENDDATE+1, ENDDATE+5, ENDDATE+6, ENDDATE+8
>> APCLEDOB	ENDDATE+8*, DEMO+4, PROC+6, HEADER1+4, HEADER1+5, EOP+5, COVER+4, COVER+7
>> APCLERR	CMMNTS+10*
APCLET	DONE+3!
>> APCLEVD	PROC+13, PROC+25, PCV+4
APCLH	PROC+1*, DONE+4!
APCLINF	PROC+18, PROC+30, PCV+3!
APCLINF(	PROC+19, PROC+31, PCV+17*
APCLJ	EP+3, PROC+1, DONE+4!, COVER+13*
APCLM	DONE+3!
>> APCLPCV0	PROC+10, PROC+16, PCV+20
>> APCLPCV6	PROC+23, PROC+28, PCV+21
>> APCLPG	HEADER+1, HEADER1+1, HEADER1+2, COVER+1
>> APCLQ	PRINT+1, PRINT+3, HEADER+2, EOP+1*, COVER+13, COVER+15
APCLS	DONE+3!
>> APCLT	EP+4, EP+6, COVER+14, COVER+16
>> APCLTEXT	EP+3, COVER+13
APCLTS	DONE+3!
>> APCLX	EP+3, EP+4, COVER+13, COVER+14
>> B	PCV+4, PCV+12, PCV+13, PCV+14
>> C	COVER+11*
DA	ENDDATE+3!, CMMNTS+2!, CMMNTS+10!
>> DFN	PROC+5, PROC+7, PROC+9, PCV+4
DIC	CMMNTS+7!, CMMNTS+10!, EOJ+2!
DIC("A"	CMMNTS+7*
DIC("S"	CMMNTS+10*
DIC(0	CMMNTS+7, CMMNTS+10
DIR	EP+5!, ENDDATE+3!, CMMNTS+2!, EOJ+2!, DONE+1!, HEADER+2!, EOP+1!
DIR("A"	EP+5, ENDDATE+3, CMMNTS+2, DONE+1
DIR("B"	CMMNTS+2*
DIR(0	EP+5, ENDDATE+3, CMMNTS+2, DONE+1, HEADER+2, EOP+1
>> DIRUT	ENDDATE+4, CMMNTS+3, DONE+1*
DT	PROC+2, HEADER1+2, EOP+7, COVER+6
>> DTOUT	HEADER+2, EOP+1
>> DUOUT	DONE+1
DUZ	HEADER1+2, EOP+6, USR+1, COVER+5
DUZ(2	HEADER1+3, HEADER1+7, EOP+4, LOC+1, COVER+3
>> E	PCV+4*
>> F	PCV+5*
>> G	PROC+19, PROC+21, PROC+31, PROC+33, PCV+5, PCV+14, PCV+19
IO	DONE+1, HEADER+2, EOP+1
IO(0	DONE+1, HEADER+2, EOP+1
IOF	EP+2, EP+5, DONE+2, HEADER1+1, EOP+2
IOM	CTR+1
IOSL	EP+5, COVER+15
IOST	DONE+1, HEADER+2, EOP+1
>> S	PCV+5*
U	CMMNTS+9, PROC+16, PROC+18, PROC+21, PROC+28, PROC+30, PROC+33, PCV+5, PCV+7, PCV+8 , PCV+10, PCV+11, PCV+17, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12 , PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, HEADER1+2, HEADER1+3, HEADER1+7 , EOP+4, EOP+6, USR+1, LOC+1, COVER+3, COVER+5
>> V	PCV+5*, PCV+6, PCV+7, PCV+8, PCV+9, PCV+10, PCV+11, PCV+12, PCV+16, PCV+17
X	CMMNTS+10, DEMO+7, PCV+5, PRINT+8, PRINT+11, PRINT+17, PRINT+20, HEADER1+5, C~, C+2 , CTR~, CTR+1, EOP+6, EOP+7, COVER+5, COVER+6, COVER+11*
X2	C~
X3	C~
>> XBNS	DEMO+8*
>> XBRC	DEMO+8*
>> XBRP	DEMO+8*
>> XBRX	DEMO+8*
Y	ENDDATE+5, CMMNTS+4, CMMNTS+8, CMMNTS+9, CMMNTS+10, CMMNTS+11, PROC+19, PROC+31, PCV+17*, HEADER+2 , CTR~, CTR+1, EOP+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPIF1

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