Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCLPIF1

Package: Patient Care Component Reports

Routine: APCLPIF1


Information

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

Source Information

Source file <APCLPIF1.m>

Call Graph

Call Graph Total: 12

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

Marked Items

Name Field # of Occurrence
$T(@APCLTEXT+APCLJ EP+3, COVER+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All