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

Package: Patient Care Component Reports

Routine: APCLAL31


Information

APCLAL31 ; IHS/CMI/LAB - list ALCOHOL screenings ;

Source Information

Source file <APCLAL31.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Care Component Reports 2 $$PCCV^APCLAL1  ($$CLINIC,$$PRIMPROV)^APCLV  
VA Fileman 2 ^%DT  ^DIR  
IHS Patient 1 ($$AGE,$$SEX)^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMADD^XLFDT  
Mental Health Social Services 1 XTMP^AMHUTIL  
Taxonomy 1 $$ICD^ATXAPI  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
PPV(V) ;
BHHF
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
PRVREF(R) ;
USR() ;EP - Return name of current user from ^VA(200.
BHRT(V,TYPE,RES,PAT,PROVSCRN,COMMENT) ;
PCCSCR(V) ;is there a screening? return in R
PCCV(S,PAT) ;
PCCALCS(P,BDATE,EDATE) ;EP - get alcohol screening from pcc
REFUSAL(PAT,F,I,B,E) ;EP
SPRV(E) ;
BHPPNAME(R) ;EP primary provider internal # from 200
BHALCS(P,BDATE,EDATE) ;
SCRNPCC(T) ;get screening provider based on v file
PROC ;
BHPPIN(R) ;

External References

Name Field # of Occurrence
^%DT REFUSAL+6, REFUSAL+7
XTMP^AMHUTIL PROC+4
$$PCCV^APCLAL1 PCCSCR+28, PCCSCR+44, PCCSCR+58, PCCSCR+65, PCCSCR+72, PCCSCR+79
$$CLINIC^APCLV PCCALCS+13
$$PRIMPROV^APCLV PCCALCS+26, PCCV+9, PPV+2
$$ICD^ATXAPI BHHF+24, PCCSCR+77
$$AGE^AUPNPAT BHALCS+13, BHRT+7, PCCALCS+20, REFUSAL+12, PCCV+6
$$SEX^AUPNPAT BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+26
^DIR EOP+7
$$VAL^XBDIQ1 BHALCS+25, BHALCS+49, BHALCS+59, BHHF+10, BHHF+11, BHHF+12, BHHF+15, BHHF+19, BHHF+25, BHRT+9
, BHRT+11, BHRT+12, BHRT+13, BHRT+14, PCCSCR+8, PCCSCR+27, PCCSCR+32, PCCSCR+43, PCCSCR+55, PCCSCR+56
, PCCSCR+57, PCCSCR+62, PCCSCR+69, REFUSAL+10, REFUSAL+13, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV+8
, PCCV+10, PCCV+11, PCCV+12, PCCV+13, SCRNPCC+4, SPRV+1, PRVREF+1
$$VALI^XBDIQ1 BHALCS+44, BHHF+2, BHHF+12, BHHF+16, BHHF+20, BHHF+23, PCCSCR+48, PCCSCR+76
$$FMADD^XLFDT BHALCS+7, PCCALCS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIR
  • Line Location:
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AHHREC("AVISIT" PCCALCS+14
^AMHPATR - [#9002011.55] PROC+11, PROC+12, PROC+13
^AMHREC - [#9002011] BHALCS+10, BHALCS+12, BHALCS+17, BHALCS+47, BHALCS+55, BHALCS+59, BHRT+4
^AMHREC("AE" BHALCS+8, BHALCS+9
^AMHREDU - [#9002011.05] BHHF+20
^AMHREDU("AD" BHHF+18
^AMHRHF - [#9002011.08] BHHF+5, BHHF+12
^AMHRHF("AD" BHHF+1
^AMHRMSR - [#9002011.12] BHALCS+27, BHALCS+32, BHALCS+44
^AMHRMSR("AD" BHALCS+24
^AMHRPRO("AD" BHHF+14
^AMHRPROC("AD" BHHF+22
^AMHRPROV - [#9002011.02] BHPPIN+2, BHPPNAME+2
^AMHRPROV("AD" BHPPIN+2, BHPPNAME+2
^ATXAX("B" BHHF+24, PCCSCR+77
^AUPNPAT - [#9000001] PROC+6
^AUPNPREF - [#9000022] REFUSAL+8, PRVREF+1
^AUPNPREF("AA" REFUSAL+8
^AUPNVCPT("AD" PCCSCR+75
^AUPNVHF - [#9000010.23] PCCSCR+50
^AUPNVHF("AD" PCCSCR+47
^AUPNVMSR - [#9000010.01] PCCSCR+7, PCCSCR+10, PCCSCR+15
^AUPNVMSR("AD" PCCSCR+6
^AUPNVPED("AD" PCCSCR+68
^AUPNVPOV("AD" PCCSCR+61
^AUPNVSIT - [#9000010] PCCALCS+11, PCCALCS+16, PCCALCS+17, PCCALCS+24, PCCSCR+4, PCCSCR+5
^AUPNVSIT("AA" PCCALCS+9, PCCALCS+10
^AUPNVXAM - [#9000010.13] PCCSCR+34, PCCSCR+39, SPRV+1
^AUPNVXAM("AD" PCCSCR+31
^AUTTEXAM("C" PROC+17
^AUTTHF - [#9999999.64] BHHF+3, PCCSCR+49
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+7, PROC+8, PROC+10, BHRT+6, REFUSAL+11, PCCV+5
^VA(200 - [#200] BHRT+8, BHPPNAME+2, USR+1
^XTMP("APCLAL3" PROC+3!, PROC+20*

Label References

Name Line Occurrences
$$BHALCS PROC+14
$$BHPPIN BHALCS+19
$$BHPPNAME BHRT+10
$$BHRT BHALCS+44, BHALCS+59, BHHF+12, BHHF+16, BHHF+20, BHHF+25
$$PCCALCS PROC+15
$$PCCSCR PCCALCS+30
$$REFUSAL PROC+17
$$SCRNPCC PCCV+7
BHHF BHALCS+48, BHALCS+50, BHALCS+51, BHALCS+52, BHALCS+53, BHALCS+54, BHALCS+56, BHALCS+57, BHALCS+58

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BHPPIN+1~, BHPPIN+2*, BHPPNAME+1~, BHPPNAME+2*, PPV+1~, PPV+2*, PPV+3
%1 BHPPIN+1~, BHPPIN+2*, BHPPIN+3, BHPPNAME+1~, BHPPNAME+2*, BHPPNAME+3
%DT REFUSAL+6~*, REFUSAL+7*
>> APCALSC PROC+14*, PROC+16*, PROC+18*, PROC+19, PROC+20
>> APCLEXBH PROC+14, PCCALCS+13, PCCALCS+14
>> APCPCALS PROC+15*, PROC+16
>> APCPFI PROC+14*, PROC+16*, PROC+18*, PROC+20
>> APCRAGET BHALCS+14, BHALCS+15, PCCALCS+21, PCCALCS+22
>> APCRBD PROC+14, PROC+15, PROC+17
>> APCRCDP PROC+13
>> APCRCLNT BHALCS+17, PCCALCS+24
>> APCRCLNT( BHALCS+17, PCCALCS+24
>> APCRCNT PROC+1*
APCRDATE BHALCS+12*, BHALCS+13, PCCALCS+6~, PCCALCS+16*, PCCALCS+20
>> APCRDESP PROC+11
>> APCRED PROC+14, PROC+15, PROC+17
>> APCREFS PROC+17*, PROC+18
>> APCREXPC PROC+15, PROC+17
>> APCRH PROC+2*, PROC+3, PROC+20
>> APCRJ PROC+2*, PROC+3, PROC+20
>> APCRPPUN BHALCS+22, PCCALCS+29
>> APCRPROV BHALCS+20, BHALCS+21, PCCALCS+27, PCCALCS+28
>> APCRRES BHALCS+49*, BHALCS+50, BHALCS+51, BHALCS+52, BHALCS+53, BHALCS+54
>> APCRREST(1 BHALCS+34, BHALCS+37, BHALCS+40, BHALCS+41, BHALCS+50, BHHF+10, PCCSCR+17, PCCSCR+20, PCCSCR+23, PCCSCR+24
, PCCSCR+41, PCCSCR+55
>> APCRREST(2 BHALCS+35, BHALCS+38, BHALCS+42, BHALCS+43, BHALCS+51, BHHF+11, PCCSCR+18, PCCSCR+21, PCCSCR+25, PCCSCR+26
, PCCSCR+42, PCCSCR+56
>> APCRREST(3 BHALCS+52
>> APCRREST(4 BHALCS+53
>> APCRREST(5 BHALCS+33, BHALCS+36, BHALCS+39, BHALCS+54, BHHF+14, BHHF+18, BHHF+22, PCCSCR+16, PCCSCR+19, PCCSCR+22
, PCCSCR+40, PCCSCR+61, PCCSCR+68, PCCSCR+75
>> APCRSEX PROC+10
>> APCRSPRV BHALCS+28, BHALCS+29, BHALCS+56, BHALCS+57, BHHF+6, BHHF+7, PCCSCR+11, PCCSCR+12, PCCSCR+35, PCCSCR+36
, PCCSCR+51, PCCSCR+52
>> APCRSPRV( BHALCS+29, BHALCS+57, BHHF+7
>> APCRSPUN BHALCS+30, BHALCS+58, BHHF+8, PCCSCR+13, PCCSCR+37, PCCSCR+53
>> APCRSSP PROC+12
B REFUSAL~, REFUSAL+4, REFUSAL+6*, REFUSAL+8
BDATE BHALCS~, BHALCS+2, BHALCS+8, PCCALCS~, PCCALCS+2, PCCALCS+9
>> C PCCALCS+13*
COMMENT BHRT~, BHRT+2*, BHRT+16
D BHALCS+5~, BHRT+3~, BHRT+4*, BHRT+7, PCCSCR+5*, PCCSCR+27, PCCSCR+43, PCCSCR+57, PCCSCR+64, PCCSCR+71
, PCCSCR+78, REFUSAL+8*, REFUSAL+9, REFUSAL+12
>> DFN PROC+6*, PROC+7, PROC+8, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+17
, PROC+20, BHALCS+13, PCCALCS+17*, PCCALCS+18, PCCALCS+20
DFOUT EOP+5!
DIR EOP+4~
DIR("A" EOP+7*
DIR(0 EOP+7*
DIRUT EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ USR+1
DUZ(2 LOC+1
E BHALCS+5~, BHALCS+27*, BHALCS+28, BHALCS+29, BHALCS+30, BHALCS+32*, BHALCS+33, BHALCS+34, BHALCS+35, BHALCS+36
, BHALCS+37, BHALCS+38, BHALCS+39, BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+47*, BHALCS+48, BHALCS+55*
, BHALCS+56, BHALCS+57, BHALCS+58, BHHF+5*, BHHF+6, BHHF+7, BHHF+8, PCCSCR+2~, PCCSCR+10*, PCCSCR+11
, PCCSCR+12, PCCSCR+13, PCCSCR+15*, PCCSCR+16, PCCSCR+17, PCCSCR+18, PCCSCR+19, PCCSCR+20, PCCSCR+21, PCCSCR+22
, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+26, PCCSCR+34*, PCCSCR+35, PCCSCR+36, PCCSCR+37, PCCSCR+39*, PCCSCR+40
, PCCSCR+41, PCCSCR+42, PCCSCR+50*, PCCSCR+51, PCCSCR+52, PCCSCR+53, REFUSAL~, REFUSAL+5, REFUSAL+7*, REFUSAL+8
, SPRV~, SPRV+1
EDATE BHALCS~, BHALCS+3, BHALCS+7, PCCALCS~, PCCALCS+3, PCCALCS+8
F REFUSAL~, REFUSAL+2, REFUSAL+8, SCRNPCC+1~, SCRNPCC+2*, SCRNPCC+3*, SCRNPCC+4
I REFUSAL~, REFUSAL+3, REFUSAL+8
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
M BHALCS+5~, BHALCS+25*, BHALCS+26, BHALCS+33, BHALCS+34, BHALCS+35, BHALCS+36, BHALCS+37, BHALCS+38, BHALCS+39
, BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+44, BHHF+2*, BHHF+3, BHHF+15*, BHHF+16, BHHF+19*
, BHHF+20, BHHF+23*, BHHF+24, PCCSCR+2~, PCCSCR+8*, PCCSCR+9, PCCSCR+16, PCCSCR+17, PCCSCR+18, PCCSCR+19
, PCCSCR+20, PCCSCR+21, PCCSCR+22, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+26, PCCSCR+27, PCCSCR+32*, PCCSCR+33
, PCCSCR+43, PCCSCR+48*, PCCSCR+49, PCCSCR+62*, PCCSCR+63, PCCSCR+64, PCCSCR+69*, PCCSCR+70, PCCSCR+71, PCCSCR+76*
, PCCSCR+77, PCCSCR+78
P BHALCS~, BHALCS+1, BHALCS+8, BHALCS+9, BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+44, BHALCS+59
, BHHF+12, BHHF+16, BHHF+20, BHHF+25, PCCALCS~, PCCALCS+1, PCCALCS+9, PCCALCS+10, PCCSCR+2~, PCCSCR+4*
, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+26, PCCSCR+28, PCCSCR+44, PCCSCR+58, PCCSCR+65, PCCSCR+72, PCCSCR+79
PAT BHRT~, BHRT+6, BHRT+7, BHRT+11, BHRT+12, BHRT+13, BHRT+14, BHRT+17, REFUSAL~, REFUSAL+1
, REFUSAL+8, REFUSAL+11, REFUSAL+12, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV~, PCCV+5, PCCV+6
, PCCV+10, PCCV+11, PCCV+12, PCCV+13, PCCV+15
PROVSCRN BHRT~, BHRT+1*, BHRT+8
R BHALCS+5~, BHALCS+6*, BHALCS+8, BHALCS+9, BHALCS+24, BHALCS+44*, BHALCS+45, BHALCS+59*, BHALCS+60, BHHF+1
, BHHF+12*, BHHF+13, BHHF+14, BHHF+16*, BHHF+17, BHHF+18, BHHF+20*, BHHF+21, BHHF+22, BHHF+25*
, BHHF+26, BHHF+27, PCCALCS+6~, PCCALCS+7*, PCCALCS+9, PCCALCS+10, PCCALCS+30*, PCCALCS+31, PCCSCR+2~, PCCSCR+3*
, PCCSCR+28*, PCCSCR+29, PCCSCR+44*, PCCSCR+45, PCCSCR+58*, PCCSCR+59, PCCSCR+65*, PCCSCR+66, PCCSCR+72*, PCCSCR+73
, PCCSCR+79*, PCCSCR+80, PCCSCR+81, BHPPIN~, BHPPIN+2, BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
RES BHRT~, BHRT+5
S PCCV~, PCCV+3, PCCV+4, PCCV+6, PCCV+7, PCCV+8, PCCV+9, PCCV+14, SCRNPCC+1~, SCRNPCC+4*
, SCRNPCC+5
SDATE BHALCS+5~, BHALCS+7*, BHALCS+8*, BHALCS+9, PCCALCS+6~, PCCALCS+8*, PCCALCS+9*, PCCALCS+10
T BHRT+3~, BHRT+4*, BHRT+5*, BHRT+6*, BHRT+7*, BHRT+8*, BHRT+9*, BHRT+10*, BHRT+11*, BHRT+12*
, BHRT+13*, BHRT+14*, BHRT+15*, BHRT+16*, BHRT+17*, BHRT+18*, BHRT+19, PCCALCS+4~, PCCSCR+27*, PCCSCR+28
, PCCSCR+43*, PCCSCR+44, PCCSCR+57*, PCCSCR+58, PCCSCR+64*, PCCSCR+65, PCCSCR+71*, PCCSCR+72, PCCSCR+78*, PCCSCR+79
, REFUSAL+6~, REFUSAL+8*, REFUSAL+9*, REFUSAL+10*, REFUSAL+11*, REFUSAL+12*, REFUSAL+13*, REFUSAL+14*, REFUSAL+15*, REFUSAL+16*
, REFUSAL+17*, REFUSAL+18*, REFUSAL+19*, REFUSAL+20, PCCV+1~, PCCV+2*, PCCV+3*, PCCV+4*, PCCV+5*, PCCV+6*
, PCCV+7*, PCCV+8*, PCCV+9*, PCCV+10*, PCCV+11*, PCCV+12*, PCCV+13*, PCCV+14*, PCCV+15*, PCCV+16*
, PCCV+17, SCRNPCC~, SCRNPCC+3, SCRNPCC+4
TYPE BHRT~, BHRT+5
U PROC+8, PROC+10, PROC+11, PROC+12, PROC+13, PROC+16, PROC+18, PROC+20, BHALCS+12, BHALCS+17
, BHALCS+27, BHALCS+32, BHALCS+44, BHALCS+47, BHALCS+55, BHALCS+59, BHHF+3, BHHF+5, BHHF+12, BHHF+20
, BHRT+4, BHRT+5, BHRT+6, BHRT+7, BHRT+8, BHRT+9, BHRT+10, BHRT+11, BHRT+12, BHRT+13
, BHRT+14, BHRT+15, BHRT+16, BHRT+17, BHRT+18, PCCALCS+16, PCCALCS+17, PCCALCS+24, PCCSCR+4, PCCSCR+5
, PCCSCR+7, PCCSCR+10, PCCSCR+15, PCCSCR+27, PCCSCR+34, PCCSCR+39, PCCSCR+43, PCCSCR+49, PCCSCR+50, PCCSCR+57
, PCCSCR+64, PCCSCR+71, PCCSCR+78, REFUSAL+8, REFUSAL+10, REFUSAL+11, REFUSAL+12, REFUSAL+13, REFUSAL+14, REFUSAL+15
, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV+3, PCCV+4, PCCV+5, PCCV+6, PCCV+7, PCCV+8
, PCCV+9, PCCV+10, PCCV+11, PCCV+12, PCCV+13, PCCV+14, PCCV+15, PCCV+16, SCRNPCC+3, SCRNPCC+4
, BHPPIN+2, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V BHALCS+5~, BHALCS+9*, BHALCS+10, BHALCS+12, BHALCS+17, BHALCS+19, BHALCS+24, BHALCS+44, BHALCS+47, BHALCS+49
, BHALCS+55, BHALCS+59, BHHF+1, BHHF+5, BHHF+12, BHHF+14, BHHF+16, BHHF+18, BHHF+20, BHHF+22
, BHHF+25, BHRT~, BHRT+4, BHRT+9, BHRT+10, BHRT+15, PCCALCS+6~, PCCALCS+10*, PCCALCS+11, PCCALCS+13
, PCCALCS+14, PCCALCS+16, PCCALCS+17, PCCALCS+24, PCCALCS+26, PCCALCS+30, PCCSCR~, PCCSCR+4, PCCSCR+5, PCCSCR+6
, PCCSCR+27, PCCSCR+31, PCCSCR+43, PCCSCR+47, PCCSCR+57, PCCSCR+61, PCCSCR+64, PCCSCR+68, PCCSCR+71, PCCSCR+75
, PCCSCR+78, PPV~, PPV+2
X BHALCS+5~, BHALCS+13*, BHALCS+14, BHALCS+15, BHALCS+17*, BHALCS+19*, BHALCS+20, BHALCS+21, BHALCS+22, BHALCS+24*
, BHALCS+25, BHALCS+27, BHALCS+32, BHALCS+44, BHHF+1*, BHHF+2, BHHF+10, BHHF+11, BHHF+12, BHHF+14*
, BHHF+15, BHHF+16, BHHF+18*, BHHF+19, BHHF+20, BHHF+22*, BHHF+23, BHHF+25, PCCALCS+20*, PCCALCS+21
, PCCALCS+22, PCCALCS+24*, PCCALCS+26*, PCCALCS+27, PCCALCS+28, PCCALCS+29, PCCSCR+2~, PCCSCR+6*, PCCSCR+7, PCCSCR+8
, PCCSCR+10, PCCSCR+15, PCCSCR+27, PCCSCR+31*, PCCSCR+32, PCCSCR+34, PCCSCR+39, PCCSCR+43, PCCSCR+47*, PCCSCR+48
, PCCSCR+50, PCCSCR+55, PCCSCR+56, PCCSCR+57, PCCSCR+61*, PCCSCR+62, PCCSCR+64, PCCSCR+68*, PCCSCR+69, PCCSCR+71
, PCCSCR+75*, PCCSCR+76, PCCSCR+78, REFUSAL+6~*, REFUSAL+7*, REFUSAL+8*, CTR~, CTR+1
Y REFUSAL+6~, REFUSAL+7, REFUSAL+8*, REFUSAL+10, REFUSAL+13, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All