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

Package: Patient Care Component Reports

Routine: APCLDOD1


Information

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

Source Information

Source file <APCLDOD1.m>

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

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+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

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

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