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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSACG

Package: Health Summary Components

Routine: BHSACG


Information

BHSACG ;IHS/CIA/MGH - Supplement for anti-coag ;14-Jan-2014 15:03;DU

Source Information

Source file <BHSACG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Care Component Reports 3 ($$LASTCPTT,$$LASTLAB,ALLLAB,ALLV)^APCLAPIU  $$START1^APCLDF  ($$CLINIC,$$PRIMPROV,$$VD)^APCLV  
Patient Care Component 2 $$D1^APCHSMU  GETMEDS^APCHSMU1  
IHS Patient 1 ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary Components 1 BHSASM  

Entry Points

Name Comments DBIA/ICR reference
MRSTART(P) ;PEP - most recent duration and date
EOJ ;
S1 ;
EP(DFN) ;PEP - ANTI-COAG supplement
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
INR ;get all INR lab tests
SETARRAY ;set up array
URIN ;last urinalysis on file and its children
CTR(X,Y) ;EP - Center
INDIC ;get all dxs
EDUC(P,BDATE,EDATE,DATA) ;EP pass back array of all asthma educ topics
LASTACUR(P,BD,ED) ;EP
CLN ;
COMBBYDT ;combine the inrs and meds inverse by date
EDPRV(I) ;
MRGOAL(P) ;PEP - most recent INR goal and date
MRCOM(P) ;PEP - most recent INR goal and date
S(Y,F,C,T) ;EP - set up array
INRGOAL ;most recent goal from V ANTICOAG
VITK ;
W ;write out array
LASTACCB(P,BD,ED) ;EP
LASTACFO(P,BD,ED) ;EP
CBC ;
LAB ;
FOBT ;
EP2(DFN) ;EP - PASS DFN get back array of patient care summary
MRDUR(P) ;PEP - most recent duration and date
PTED ;
MREND(P) ;PEP - most recent duration and date

External References

Name Field # of Occurrence
$$D1^APCHSMU INDIC+12, INRGOAL+3, INRGOAL+4, CLN+6, CLN+21, COMBBYDT+30, URIN+5, URIN+9, URIN+13, CBC+6
, CBC+10, CBC+14, FOBT+6, FOBT+9, VITK+7, PTED+6
GETMEDS^APCHSMU1 INR+8, VITK+4
$$LASTCPTT^APCLAPIU LASTACUR+5, LASTACCB+5, LASTACFO+5
$$LASTLAB^APCLAPIU LASTACUR+4, LASTACCB+4, LASTACFO+4
ALLLAB^APCLAPIU INR+5
ALLV^APCLAPIU CLN+13
$$START1^APCLDF INDIC+3, EDUC+7
$$CLINIC^APCLV CLN+18
$$PRIMPROV^APCLV CLN+21, EDPRV+5
$$VD^APCLV CLN+21, MRGOAL+12, MRCOM+11, MRDUR+10
$$AGE^AUPNPAT SETARRAY+7
$$DOB^AUPNPAT SETARRAY+7, INDIC+3, URIN+2, CBC+3, FOBT+3, LASTACUR+1, LASTACCB+1, LASTACFO+1
$$HRN^AUPNPAT SETARRAY+6
$$SEX^AUPNPAT SETARRAY+7
^DIWP INDIC+11, CLN+7, COMBBYDT+36, VITK+10
$$VAL^XBDIQ1 SETARRAY+8, INDIC+10, CLN+5, COMBBYDT+9, COMBBYDT+18, URIN+9, URIN+12, URIN+13, CBC+10, CBC+13
, CBC+14, FOBT+9, VITK+7, PTED+6, EDPRV+2, EDPRV+3, MRGOAL+11, MRDUR+9, MRSTART+9, MREND+9
$$FMADD^XLFDT INDIC+3, CLN+13, INR+5, INR+8, VITK+4, PTED+4
$$FMTE^XLFDT SETARRAY+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^ATXLAB("B" INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^AUPNVACG - [#9000010.51] MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10
, MRSTART+8, MRSTART+10, MREND+10
^AUPNVACG("AA" MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR+2, MRDUR+5
, MRDUR+6, MRDUR+7, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND+2, MREND+5, MREND+6, MREND+7
^AUPNVLAB - [#9000010.09] URIN+7, URIN+11, CBC+8, CBC+12
^AUPNVLAB("ALR0" URIN+10, CBC+11
^AUPNVMED - [#9000010.14] COMBBYDT+16, VITK+8
^AUPNVPED - [#9000010.16] EDPRV+4, EDUC+12
^AUTTEDT - [#9999999.09] EDUC+14
^DPT - [#2] SETARRAY+6
^PS(51 - [#51] SIG+2
^TMP("BHSACG" S1+1*, S1+2*, W+4, W+5, W+7!, EP2+2!, EP2+3*
^UTILITY($J INDIC+11!, INDIC+12, INDIC+13, CLN+7!, CLN+8, CLN+9, CLN+10!, COMBBYDT+36!, COMBBYDT+37, COMBBYDT+38
, VITK+10!, VITK+11, VITK+12

Label References

Name Line Occurrences
$$CTR SETARRAY+4
$$EDPRV PTED+6
$$LASTACCB CBC+3
$$LASTACFO FOBT+3
$$LASTACUR URIN+2
$$MRCOM CLN+2
$$MRDUR INRGOAL+2
$$MREND INRGOAL+4
$$MRGOAL INRGOAL+1
$$MRSTART INRGOAL+3
CBC URIN+3, URIN+4
EDUC PTED+4
EOJ W+9
EP2 EP+3
FOBT CBC+4, CBC+5
INR CLN+15
PTED VITK+5
S SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+2, INDIC+12, INDIC+13, INRGOAL+1, INRGOAL+2
, INRGOAL+3, INRGOAL+4, CLN+4, CLN+8, CLN+9, CLN+14, CLN+15, CLN+21, CLN+22, INR+1
, INR+2, COMBBYDT+37, COMBBYDT+38, COMBBYDT+39, LAB+1, LAB+2, URIN+3, URIN+5, URIN+9, URIN+12
, URIN+13, CBC+1, CBC+4, CBC+6, CBC+10, CBC+13, CBC+14, FOBT+1, FOBT+4, FOBT+6
, FOBT+9, VITK+1, VITK+2, VITK+5, VITK+7, VITK+11, VITK+12, PTED+1, PTED+2, PTED+6
, PTED+7
S1 S+5, S+7, S+10
SETARRAY EP2+4
SIG VITK+8
VITK FOBT+4, FOBT+5

Naked Globals

Name Field # of Occurrence
^(9 SIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% S+3~, S+8*, S+9*, S1+1*, S1+2, EOJ+1!, EDUC+4~, EDUC+9*, EDUC+10, EDUC+11
, EDUC+16
A EP+2~, SETARRAY+1~, URIN+7*, URIN+8, URIN+10, CBC+8*, CBC+9, CBC+11, EDUC+4~, EDUC+6*
, EDUC+7
APCHCOMB COMBBYDT+1!
APCHCOMB( COMBBYDT+21
B EP+2~, EOJ+1!, SETARRAY+1~
BD LASTACUR~, LASTACUR+1*, LASTACUR+4, LASTACCB~, LASTACCB+1*, LASTACCB+4, LASTACFO~, LASTACFO+1*, LASTACFO+4
BDATE EDUC~, EDUC+7
BHCOMB SETARRAY+2~
BHCOMB( COMBBYDT+10*, COMBBYDT+19, COMBBYDT+22*, COMBBYDT+23*, COMBBYDT+26, COMBBYDT+27, COMBBYDT+28
BHD SETARRAY+2~, COMBBYDT+26*, COMBBYDT+27, COMBBYDT+28
BHE EDUC+4~, EDUC+5!, EDUC+8, EDUC+19!
BHE( EDUC+9, EDUC+10, EDUC+11, EDUC+16
BHEDS SETARRAY+2~
BHEDUC EP+1~, PTED+3!, PTED+4
BHEDUC( PTED+5, PTED+6
BHMEDS SETARRAY+2~, INR+7!, INR+8, COMBBYDT+25!, URIN+1!, VITK+3!, VITK+4
BHMEDS( COMBBYDT+12, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, VITK+6, VITK+7
BHMEDS(0 VITK+5
BHPG EP+1~, W+3*
BHQUIT EP+1~, W+2!
BHSDX SETARRAY+2~, INDIC+1!
BHSDX( INDIC+4
BHSDX("D" INDIC+8, INDIC+9*
BHSDX("I" INDIC+4*, INDIC+5, INDIC+6, INDIC+7
BHSIG EP+1~, VITK+8*, SIG+1, SIG+2
BHSP EP+1~, SIG+1*, SIG+2
>> BHSPAT URIN+2, CBC+3, FOBT+3, LASTACUR+4, LASTACCB+4, LASTACFO+4
BHSQUIT EP+1~, W+4, W+8
BHSS EP+1~, SETARRAY+2~, COMBBYDT+29*, COMBBYDT+30*, COMBBYDT+31*, COMBBYDT+37*, COMBBYDT+39*
BHSSGY SETARRAY+2~, VITK+9, SIG+1*, SIG+3*
BHSX EP+1~, CLN+1~, CLN+2*, CLN+3, CLN+5, CLN+6
BHV EP+1~, SETARRAY+2~, CLN+11!, CLN+12*, CLN+13, INR+3!, INR+4*, INR+5, COMBBYDT+25!, URIN+1!
, URIN+2*, URIN+3, URIN+4, URIN+5, URIN+7, URIN+9, URIN+13, CBC+2!, CBC+3*, CBC+4
, CBC+5, CBC+6, CBC+8, CBC+10, CBC+14, FOBT+2!, FOBT+3*, FOBT+4, FOBT+5, FOBT+6
, FOBT+8, FOBT+9
BHV( CLN+16, CLN+17, COMBBYDT+3, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7
BHV(0 CLN+15
BHVV COMBBYDT+2~, COMBBYDT+28*, COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39
BHX EP+1~, W+4*, W+5, EDUC+4~
BHX( EDUC+17, EDUC+18
BHX(9999999 EDUC+16*
BHY SETARRAY+2~, COMBBYDT+27*, COMBBYDT+28, VITK+6*, VITK+7
C S~, S+7, EOJ+1!, SETARRAY+1~, INDIC+7*, INDIC+8, INDIC+9, INDIC+12, CLN+16*, CLN+17
, COMBBYDT+2~, COMBBYDT+3*, COMBBYDT+5*, COMBBYDT+10, COMBBYDT+12*, COMBBYDT+14*, COMBBYDT+23, EDUC+17*, EDUC+18*, LASTACUR+3~
, LASTACUR+5*, LASTACUR+6, LASTACCB+3~, LASTACCB+5*, LASTACCB+6, LASTACFO+3~, LASTACFO+5*, LASTACFO+6
D SETARRAY+1~, INDIC+4*, INDIC+5*, INDIC+6, INDIC+7, INDIC+12, COMBBYDT+2~, COMBBYDT+4*, COMBBYDT+10, COMBBYDT+13*
, COMBBYDT+19, COMBBYDT+21, COMBBYDT+22, COMBBYDT+23, MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, MRCOM+3~, MRCOM+5*
, MRCOM+6, MRCOM+7, MRDUR+3~, MRDUR+5*, MRDUR+6, MRDUR+7, MRSTART+3~, MRSTART+5*, MRSTART+6, MRSTART+7
, MREND+3~, MREND+5*, MREND+6, MREND+7, EDUC+4~, EDUC+10*, EDUC+16
DATA EDUC~, EDUC+2!
DATA( EDUC+18*
DFN EP~, EP+3, EP2~, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+3, INRGOAL+1, INRGOAL+2, INRGOAL+3
, INRGOAL+4, CLN+2, CLN+13, INR+5, INR+8, VITK+4, PTED+4, LASTACUR+5, LASTACCB+5, LASTACFO+5
DIWL INDIC+1!, INDIC+11*, CLN+7*, COMBBYDT+36*, VITK+10*
DIWR INDIC+1!, INDIC+11*, CLN+7*, COMBBYDT+36*, VITK+10*
DT SETARRAY+5, INDIC+3, CLN+13, INR+5, INR+8, URIN+2, CBC+3, FOBT+3, VITK+4, PTED+4
, LASTACUR+2, LASTACUR+5, LASTACCB+2, LASTACCB+5, LASTACFO+2, LASTACFO+5
DUZ(2 SETARRAY+6
E EP+2~, EOJ+1!, SETARRAY+1~, INDIC+3*, EDUC+4~, EDUC+7*
ED LASTACUR~, LASTACUR+2*, LASTACUR+4, LASTACCB~, LASTACCB+2*, LASTACCB+4, LASTACFO~, LASTACFO+2*, LASTACFO+4
EDATE EDUC~, EDUC+7
F S~, S+1*, S+5*, EOJ+1!, SETARRAY+1~, INDIC+13*, CLN+9*, COMBBYDT+38*, VITK+12*
G SETARRAY+1~, CLN+16*, CLN+20*, CLN+22, COMBBYDT+21*, EDUC+4~
>> GMTSQIT W+8*
H EOJ+1!
I EP+2~, SETARRAY+1~, INDIC+6*, INDIC+7, INDIC+10, COMBBYDT+2~, COMBBYDT+7*, COMBBYDT+9, EDPRV~, EDPRV+2
, EDPRV+3, EDPRV+4, MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRCOM+3~
, MRCOM+7*, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+3~, MRDUR+7*, MRDUR+8, MRDUR+9, MRDUR+10
, MRSTART+3~, MRSTART+7*, MRSTART+8, MRSTART+9, MRSTART+10, MREND+3~, MREND+7*, MREND+9, MREND+10, EDUC+4~
, EDUC+11*, EDUC+12
IOF W+1
IOM CTR+1
L S+7*, EOJ+1!, URIN+7*, URIN+9, URIN+11, URIN+13, CBC+8*, CBC+10, CBC+12, CBC+14
, FOBT+8*, FOBT+9
M EOJ+1!, COMBBYDT+2~, COMBBYDT+15*, COMBBYDT+16, COMBBYDT+18, VITK+6*, VITK+7, VITK+8
N EOJ+1!, SETARRAY+1~, INDIC+10*, INDIC+11, EDUC+4~, EDUC+12*, EDUC+13, EDUC+14*, EDUC+15, EDUC+17*
, EDUC+18
O COMBBYDT+2~, COMBBYDT+8*, COMBBYDT+9*, COMBBYDT+10, COMBBYDT+17*, COMBBYDT+18*, COMBBYDT+22, COMBBYDT+23
P EOJ+1!, CLN+5~*, CLN+6, CLN+8*, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7
, MRCOM~, MRCOM+1, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR~, MRDUR+1, MRDUR+2, MRDUR+5
, MRDUR+6, MRDUR+7, MRSTART~, MRSTART+1, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND~, MREND+1
, MREND+2, MREND+5, MREND+6, MREND+7, EDUC~, EDUC+3, EDUC+7, LASTACUR~, LASTACUR+1, LASTACCB~
, LASTACCB+1, LASTACFO~, LASTACFO+1
R MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+12*, MRGOAL+13, MRCOM+3~, MRCOM+4*, MRCOM+5, MRCOM+6
, MRCOM+11*, MRCOM+12, MRDUR+3~, MRDUR+4*, MRDUR+5, MRDUR+6, MRDUR+10*, MRDUR+11, MRSTART+3~, MRSTART+4*
, MRSTART+5, MRSTART+6, MRSTART+10*, MRSTART+11, MREND+3~, MREND+4*, MREND+5, MREND+6, MREND+10*, MREND+11
, LASTACUR+3~, LASTACUR+4*, LASTACUR+6, LASTACUR+7, LASTACCB+3~, LASTACCB+4*, LASTACCB+6, LASTACCB+7, LASTACFO+3~, LASTACFO+4*
, LASTACFO+6, LASTACFO+7
S SETARRAY+1~, CLN+18*, CLN+19, MRGOAL+3~, MRGOAL+10*, MRGOAL+11*, MRGOAL+12, MRCOM+3~
T S~, S+2*, S+7*, S+8, S+9, EP+2~, EOJ+1!, SETARRAY+1~
T1 EOJ+1!
T2 EOJ+1!
T3 EOJ+1!
U S1+1, SETARRAY+6, INDIC+4, INDIC+7, INRGOAL+1, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+5, CLN+6
, CLN+17, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+10, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+22, COMBBYDT+23
, COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39, URIN+4, URIN+5, URIN+7, URIN+9, URIN+11
, URIN+13, CBC+5, CBC+6, CBC+8, CBC+10, CBC+12, CBC+14, FOBT+5, FOBT+6, FOBT+8
, FOBT+9, VITK+6, VITK+7, VITK+8, PTED+6, EDPRV+4, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12
, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10, MRSTART+8, MRSTART+10, MREND+10, EDUC+10
, EDUC+11, EDUC+12, EDUC+14, EDUC+16, EDUC+18, LASTACUR+6, LASTACCB+6, LASTACFO+6
V SETARRAY+1~, CLN+17*, CLN+18, CLN+21, COMBBYDT+2~, COMBBYDT+6*, COMBBYDT+10, COMBBYDT+16*, COMBBYDT+22, COMBBYDT+23
, EDPRV+1~, EDPRV+4*, EDPRV+5
W EOJ+1!
X S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, CTR~, CTR+1, EP+2~, EOJ+1!
, SETARRAY+1~, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, INDIC+2*, INDIC+3*, INDIC+4*, INDIC+11*
, INDIC+12*, INDIC+13*, INRGOAL+1*, INRGOAL+2*, INRGOAL+3*, INRGOAL+4*, CLN+6*, CLN+9*, CLN+14*, CLN+15*
, CLN+21*, CLN+22*, INR+1*, INR+2*, COMBBYDT+2~, COMBBYDT+3*, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+12*
, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+34*, COMBBYDT+35, COMBBYDT+37*, COMBBYDT+38*, LAB+1*, LAB+2*, URIN+3*
, URIN+5*, URIN+9*, URIN+12*, URIN+13*, CBC+4*, CBC+6*, CBC+10*, CBC+13*, CBC+14*, FOBT+4*
, FOBT+6*, FOBT+9*, VITK+1*, VITK+2*, VITK+5*, VITK+7*, VITK+9*, VITK+11*, VITK+12*, PTED+1*
, PTED+2*, PTED+6*, SIG+1*, SIG+2*, SIG+3, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, MRCOM+3~, MRCOM+6*
, MRCOM+7, MRDUR+3~, MRDUR+6*, MRDUR+7, MRSTART+3~, MRSTART+6*, MRSTART+7, MREND+3~, MREND+6*, MREND+7
, EDUC+4~, EDUC+7*, EDUC+18*
Y S~, S+6, S+7, S+9, CTR~, CTR+1, EP+2~, EOJ+1!, SETARRAY+1~, COMBBYDT+21*
, COMBBYDT+22, URIN+10*, URIN+11, URIN+12, CBC+11*, CBC+12, CBC+13, PTED+5*, PTED+6, SIG+2*
, MRGOAL+3~, MRCOM+3~, MRDUR+3~, MRSTART+3~, MREND+3~
Z EP+2~, SETARRAY+1~, EDPRV+1~, EDPRV+2*, EDPRV+3*, MRGOAL+3~, MRGOAL+9*, MRGOAL+10, MRGOAL+11, MRCOM+3~
, MRCOM+10*, MRCOM+11, MRDUR+3~, MRDUR+9*, MRDUR+10, MRSTART+3~, MRSTART+9*, MRSTART+10, MREND+3~, MREND+9*
, MREND+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All