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: APCLHH1

Package: Patient Care Component Reports

Routine: APCLHH1


Information

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

Source Information

Source file <APCLHH1.m>

Call Graph

Call Graph Total: 11

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

Entry Points

Name Comments DBIA/ICR reference
BEN ;
RSORT ;
DEMO ;
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).
PSORT ;
CTR(X,Y) ;EP - Center X in a field Y wide.
TSORT ;
INTROT ;
EOJ ;
ZIS ;
HEADER ;EP
C(X,X2,X3) ;
HSORT ;
EP ;EP - called from option interactive
TRIBE ;
CSORT ;
NSORT ;
SORT(P,S) ;
HEADER1 ;
ISORT ;
PROC ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
PEP^AMQQGTX0 TRIBE+11, CMMNTS+11
$$DEMO^APCLUTL PROC+7
DEMOCHK^APCLUTL DEMO+1
^AUPNPAT PRINT+5
$$BEN^AUPNPAT PROC+10, PROC+11, PRINT+7
$$HRN^AUPNPAT PRINT+7, HSORT+1, RSORT+1
^DIC TRIBE+7, TRIBE+10, CMMNTS+7, CMMNTS+10
^DIR TRIBE+2, CMMNTS+2, BEN+3, SORTR+2, DONE+1, HEADER+2
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 PRINT+7, PRINT+8, ISORT+1, NSORT+1, CSORT+1, TSORT+1, PSORT+1
^XBFMK EOJ+1
EN^XBVK EOJ+3
$$FMADD^XLFDT PROC+2
$$FMTE^XLFDT HEADER1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,APCLT
  • Line Location: EP+3
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("HOUSEHOLD INCOME/NUMBER IN HOUSEHOLD TALLY",80)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !!,"Patient Name",?22,"HRN",?29,"BENI",?34,"COMMUNITY",?44,"ZIP",?50,"TRIBE",?61,"# IN",?69,"TOTAL"
  • Line Location: HEADER1+14
Function Call: WRITE
  • Prompt: !?29,"FICI",?61,"HOUSE",?69,"HOUSEHOLD",!?29,"ARY",?61,"HOLD",?69,"INCOME"
  • Line Location: HEADER1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+16
Routine Call
  • DIC
  • Line Location:
    • TRIBE+7
    • TRIBE+10
    • CMMNTS+7
    • CMMNTS+10
Routine Call
  • DIR
  • Line Location:
    • TRIBE+2
    • CMMNTS+2
    • BEN+3
    • SORTR+2
    • DONE+1
    • HEADER+2

FileMan Files Accessed Via FileMan Db Call

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+3, PROC+5, PROC+6, PROC+8, PROC+9, PROC+13, PROC+14
^AUTTCOM - [#9999999.05] CMMNTS+9
^AUTTTRI - [#9999999.03] HEADER1+13
^DIC(4 - [#4] HEADER1+3, LOC+1
^DPT - [#2] PROC+4, PRINT+7
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("APCLHH1" PROC+2*, PROC+21*, DONE+4!, PRINT+3, PRINT+4, PRINT+9

Label References

Name Line Occurrences
$$C PRINT+13, PRINT+24
$$CTR HEADER1+3, HEADER1+4
$$SORT PROC+19
@( SORT+3
BEN CMMNTS+5, CMMNTS+6
CMMNTS TRIBE+5, TRIBE+6, CMMNTS+6, CMMNTS+12, CMMNTS+13, BEN+4, SORTR+3
DONE PRINT+25
EOJ EP+1, TRIBE+3
HEADER PRINT+2, PRINT+6, PRINT+18, PRINT+22
HEADER1 HEADER+1
SORTR DEMO+2
TRIBE TRIBE+6, TRIBE+12, TRIBE+13, CMMNTS+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBEN BEN+1*, BEN+5*, PROC+10, PROC+11
APCLCOMM CMMNTS+1!, CMMNTS+6, CMMNTS+12, CMMNTS+13!, PROC+14
APCLCOMM( CMMNTS+9*, PROC+14, HEADER1+9
APCLCOMM("" HEADER1+6
APCLCOMM("*" CMMNTS+13
>> APCLCOMT CMMNTS+1*, CMMNTS+4*, CMMNTS+5, CMMNTS+6, HEADER1+6, HEADER1+7, HEADER1+8
>> APCLDEMO DEMO+1, DEMO+2, PROC+7
>> APCLERR TRIBE+10*, CMMNTS+10*
APCLET DONE+3!
APCLH PROC+1*, PROC+21, DONE+4!, PRINT+3, PRINT+4, PRINT+9
>> APCLHI PROC+8*, PROC+16, PROC+18, PROC+21, PROC+22, PRINT+10*, PRINT+13
APCLJ EP+3*, PROC+1*, PROC+21, DONE+4!, PRINT+3, PRINT+4, PRINT+9
APCLM DONE+3!
>> APCLNHH PROC+9*, PROC+16, PROC+17, PROC+21, PROC+23, PRINT+11*, PRINT+12
>> APCLPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> APCLQ PRINT+1*, PRINT+3, PRINT+6, PRINT+18, PRINT+22, HEADER+2*
APCLS DONE+3!
>> APCLSORT SORTR+1*, SORTR+4*, PROC+19
>> APCLSV PRINT+3*, PRINT+4, PRINT+9
>> APCLT EP+3*
>> APCLTEXT EP+3*
>> APCLTHI PROC+1*, PROC+22*, PRINT+21
>> APCLTNHH PROC+1*, PROC+23*, PRINT+17
>> APCLTOTP PROC+1*, PROC+15*
APCLTRIM TRIBE+1!, TRIBE+6, TRIBE+12, TRIBE+13!, PROC+13
APCLTRIM( TRIBE+9*, PROC+13, HEADER1+13
APCLTRIM("" HEADER1+10
APCLTRIM("*" TRIBE+13
>> APCLTRIT TRIBE+1*, TRIBE+4*, TRIBE+5, TRIBE+6, HEADER1+10, HEADER1+11, HEADER1+12
APCLTS DONE+3!
>> APCLTWD("NHH" PROC+1*, PROC+17*, PRINT+17, PRINT+19
>> APCLTWD("THI" PROC+1*, PROC+18*, PRINT+21, PRINT+23
>> APCLX EP+3*, PRINT+9*, PRINT+10, PRINT+11
D D~, D+1
DA TRIBE+2!, TRIBE+10!, CMMNTS+2!, CMMNTS+10!, BEN+3!, SORTR+2!
>> DFN PROC+3*, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+13
, PROC+14, PROC+19, PROC+21, PRINT+4*, PRINT+5, PRINT+7, PRINT+8, PRINT+9
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 TRIBE+2!, CMMNTS+2!, BEN+3!, SORTR+2!, EOJ+2!, DONE+1!, HEADER+2!
DIR("A" TRIBE+2*, CMMNTS+2*, BEN+2*, SORTR+2*, DONE+1*
DIR("B" TRIBE+2*, CMMNTS+2*, BEN+3*, SORTR+2*
DIR(0 TRIBE+2*, CMMNTS+2*, BEN+2*, SORTR+2*, DONE+1*, HEADER+2*
>> DIRUT TRIBE+3, CMMNTS+3, BEN+4, SORTR+3, DONE+1*
DT PROC+2, HEADER1+2
>> DTOUT HEADER+2
>> DUOUT DONE+1
DUZ HEADER1+2, USR+1
DUZ(2 PRINT+7, HEADER1+3, LOC+1, HSORT+1, RSORT+1
IO DONE+1, HEADER+2
IO(0 DONE+1, HEADER+2
IOF EP+2, HEADER1+1
IOM CTR+1
IOSL PRINT+6, PRINT+18, PRINT+22
IOST DONE+1, HEADER+2
P SORT~, ISORT+1, NSORT+1, CSORT+1, TSORT+1, PSORT+1, HSORT+1, RSORT+1
R SORT+1~, SORT+2*, SORT+4*, SORT+5, TSORT+1*, PSORT+1*, HSORT+1*, RSORT+1*, RSORT+2*
S SORT~, SORT+3
U CMMNTS+9, PROC+8, PROC+9, PROC+13, PROC+14, PROC+21, PRINT+7, PRINT+10, PRINT+11, HEADER1+2
, HEADER1+3, HEADER1+13, USR+1, LOC+1
X TRIBE+10*, CMMNTS+10*, PROC+13*, PROC+14*, PROC+19*, PROC+20*, PROC+21, PRINT+17*, PRINT+20, PRINT+21*
, PRINT+24, HEADER1+5*, HEADER1+6*, HEADER1+7*, HEADER1+9*, HEADER1+10*, HEADER1+11*, HEADER1+13*, C~, C+2
, CTR~, CTR+1, ISORT+1*, NSORT+1*, CSORT+1*
X2 C~
X3 C~
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y TRIBE+4, TRIBE+8, TRIBE+9, TRIBE+10, TRIBE+11, CMMNTS+4, CMMNTS+8, CMMNTS+9, CMMNTS+10, CMMNTS+11
, BEN+5, SORTR+4, PRINT+5*, HEADER+2, HEADER1+9*, HEADER1+13*, CTR~, CTR+1

Marked Items

Name Field # of Occurrence
$T(@APCLTEXT+APCLJ EP+3
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