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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLW21

Package: Patient Care Component Reports

Routine: APCLW21


Information

APCLW21 ; IHS/CMI/LAB - CALC WEIGHT REPORT ;

Source Information

Source file <APCLW21.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Care Component Reports 3 $$START1^APCLDF  XTMP^APCLOSUT  $$DEMO^APCLUTL  
IHS Patient 2 (,$$BEN)^AUPNPAT  $$ICD^AUPNVUTL  
VA Fileman 2 DD^%DT  (,C)^%DTC  
DRG Grouper 1 $$ICDDX^ICDEX  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
A ;
GETRECNT ;get most recent in 3 yrs
B ;
GETWTHT ;
P ;
PN ;kill off those that have prenatal code as dx
EOJ ;
GETWHSD ;check for height and weight on same date
1
START ;EP
SET ;set for each age
SRT ;
RO ;set up by date
PROC ;
CALCBMI ;calculate BMI value

External References

Name Field # of Occurrence
DD^%DT START+2, START+3, START+4
^%DTC PROC+26
C^%DTC START+2, START+3
$$START1^APCLDF GETWTHT+2, GETWTHT+4
XTMP^APCLOSUT START+6
$$DEMO^APCLUTL PROC+4
^AUPNPAT PROC+6
$$BEN^AUPNPAT PROC+13
$$ICD^AUPNVUTL PN+3, PN+7
$$ICDDX^ICDEX PN+2, PN+6
$$FMADD^XLFDT PROC+17
$$FMTE^XLFDT PROC+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLBMI - [#9001003.9] PROC+38, PROC+39, 1
^APCLBMI("H" PROC+35, PROC+36
^ATXAX("B" PN+3, PN+7
^AUPNPAT - [#9000001] PROC+1, SRT+2
^AUPNVPOV - [#9000010.07] PN+2, PN+6
^AUPNVPOV("AD" PN+2, PN+6
^DIBT( PROC+5, SET+1*
^DPT - [#2] PROC+2, PROC+3, PROC+17, SRT+1
^XTMP("APCLW2" SET+2*

Label References

Name Line Occurrences
1 PROC+38
@( SRT+4
CALCBMI PROC+29
GETRECNT PROC+22
GETWHSD PROC+23
GETWTHT PROC+18
SET 1, 1+6
SRT PROC+31

Naked Globals

Name Field # of Occurrence
^(0 SRT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EOJ+3!
APCL1YR START+2*, PROC+17, PROC+18, EOJ+1!
APCL3YR START+3*, PROC+18, EOJ+1!
APCLA EOJ+1!
>> APCLAGE PROC+11*, PROC+17, PROC+18, PROC+22, PROC+23, PROC+26*, PROC+27, PROC+28, PROC+35, PROC+36
, A+1, SET+2
>> APCLAGER PROC+27, PROC+28
APCLBD PROC+18*, EOJ+1!, GETWTHT+2
>> APCLBMI PROC+30, PROC+38, PROC+39, 1, B+1, SET+2, CALCBMI+2*
>> APCLBMIR PROC+30
>> APCLBTH START+5*, SET+2
APCLCHT PROC+21!, PROC+25, EOJ+1!, SET+2, CALCBMI+2, GETWHSD+2*, GETRECNT+2*
>> APCLCLAS PROC+13*, PROC+14, PROC+15
APCLCWT PROC+21!, PROC+24, PROC+26, EOJ+1!, SET+2, CALCBMI+2, GETWHSD+2*, GETRECNT+1*
>> APCLDEMO PROC+4
>> APCLDT START+4*, GETWTHT+2, GETWTHT+4
APCLER EOJ+1!, GETWTHT+2*, GETWTHT+4*
APCLGHT PROC+20, EOJ+1!, GETWTHT+1!
APCLGHT( GETWTHT+5!, PN+6, PN+7!, RO+3, GETWHSD+2, GETRECNT+2
>> APCLGRAN START+5*, SET+1*, SET+3*
APCLGWT PROC+19, EOJ+1!, GETWTHT+1!
APCLGWT( GETWTHT+3!, PN+2, PN+3!, RO+2, GETWHSD+2, GETRECNT+1
>> APCLHBD PROC+17*, GETWTHT+4
>> APCLHRN SRT+2*, SET+2
>> APCLIBEN PROC+15
>> APCLJOB START+5*, SET+2
APCLMGI EOJ+1!
APCLMHT EOJ+1!, CALCBMI+2*
APCLMWT EOJ+1!, CALCBMI+2*
>> APCLNAME SRT+1*, P+1, SET+2
APCLNN EOJ+1!
>> APCLOBE PROC+32*, PROC+38*, PROC+39*, 1+3, 1+4, 1+5, SRT+5*, SET+2
>> APCLOVR PROC+32*, PROC+38*, PROC+39*, 1+2, 1+5, SRT+5*, SET+2
APCLREF PROC+35*, PROC+36*, PROC+37, PROC+38, PROC+39, 1, EOJ+1!
APCLROHT EOJ+1!, RO+1!
APCLROHT( RO+3*, GETWHSD+2, GETRECNT+2
APCLROWT EOJ+1!, RO+1!
APCLROWT( RO+2*, GETWHSD+2, GETRECNT+1
>> APCLRPT 1, 1+1, 1+2, 1+3, 1+4, 1+5
>> APCLRTYP PROC+31, PROC+32, SET+1
>> APCLSEAT PROC+4, PROC+5
>> APCLSEX PROC+9
>> APCLSORT SRT+4
>> APCLSRT SRT+3*, B+1*, P+1*, A+1*, SET+2
>> APCLSTMP SET+1
APCLX EOJ+1!, GETWTHT+2*, GETWTHT+4*
APCLY EOJ+1!, GETWTHT+2*, GETWTHT+4*
AUPNDAYS PROC+11, EOJ+2!
AUPNDOB PROC+10, PROC+26, EOJ+2!
AUPNDOD EOJ+2!
AUPNPAT EOJ+2!
AUPNSEX PROC+7, PROC+8, PROC+9, PROC+35, PROC+36, EOJ+2!, SET+2
D EOJ+3!, PN+2*, PN+3, PN+6*, PN+7
DFN START+5*, PROC+1*, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+13, PROC+17, EOJ+3!
, SRT+1, SRT+2, SET+1, SET+2, GETWTHT+2, GETWTHT+4
DT START+2, START+3, START+4
DUZ(2 SRT+2
I EOJ+3!
J EOJ+3!
>> P PN+2*, PN+6*
U PROC+3, PROC+17, PROC+26, PROC+38, PROC+39, 1, SRT+1, SRT+2, SET+2, GETWTHT+3
, GETWTHT+5, PN+2, PN+6, RO+2, RO+3, GETWHSD+2, GETRECNT+1, GETRECNT+2
V EOJ+3!, PN+2*, PN+6*
X START+2, START+3, PROC+26, EOJ+3!, GETWTHT+3*, GETWTHT+5*, PN+2*, PN+3, PN+6*, PN+7
, RO+2*, RO+3*, GETWHSD+2*, GETRECNT+1*, GETRECNT+2*
>> X1 START+2*, START+3*, PROC+26*
>> X2 START+2*, START+3*, PROC+26*
Y START+2*, START+3*, START+4*, PROC+6*, EOJ+3!
Z EOJ+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All