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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLDV1

Package: Patient Care Component Reports

Routine: APCLDV1


Information

APCLDV1 ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <APCLDV1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBVK  
Patient Care Component Reports 3 XTMP^APCLOSUT  ($$DEMO,DEMOCHK)^APCLUTL  ($$CLINIC,$$PRIMPROV)^APCLV  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 ($$AGE,$$COMMRES)^AUPNPAT  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Patient Care Component Reports 4 APCLDV2  APCLDV3  APCLDV4  APCLDV5  

Entry Points

Name Comments DBIA/ICR reference
DATES
LIST ;
LIST1 ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DP ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y) ;EP - Center X in a field Y wide.
TALLY ;which items to tally
INFORM ;
SPRV(E) ;
DEMO ;
FAC ;
ZIS ;
COMM ;
PPV(V) ;
O ;EP one location
S ;EP all LOCATIONS within APCLSU su
XIT ;
EXCL ;
OC ;EP one COMMUNITY
PRVREF(R) ;
SC ;EP all communities within TAXONOMY
BHPPNAME(R) ;EP primary provider internal # from 200
PROC ;

External References

Name Field # of Occurrence
XTMP^APCLOSUT PROC+4
$$DEMO^APCLUTL PROC+9, PROC+39, PROC+62
DEMOCHK^APCLUTL DEMO+1
$$CLINIC^APCLV PROC+20
$$PRIMPROV^APCLV PPV+2
$$AGE^AUPNPAT PROC+24, PROC+46, PROC+69
$$COMMRES^AUPNPAT PROC+10, PROC+11, PROC+40, PROC+41, PROC+63, PROC+64
^DIC O+1, S+1, OC+1, SC+4
^DIR DATES+3, DATES+5, TALLY+8, EXCL+5, FAC+4, COMM+5, LIST+3, LIST1+5, DP+3, EOP+7
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 S+1, PROC+23, PROC+24, PROC+25, PROC+28, PROC+45, PROC+46, PROC+48, PROC+68, PROC+69
, PROC+70, PROC+72, PROC+73, SPRV+2, SPRV+3, PRVREF+1
$$VALI^XBDIQ1 PROC+19, PROC+60
^XBFMK XIT+2, SC+1
EN^XBVK XIT+1
$$FMADD^XLFDT PROC+51

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,$$LOC()
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,$$CTR("TALLY AND LISTING OF PATIENT'S RECEIVING IPV SCREENING,INCLUDING REFUSALS",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will tally and optionally list all patients who have had "
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"IPV screening (Exam code 34) or a refusal documented in the time frame"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"specified by the user."
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"This report will tally the patients by age, gender, result, provider (either"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !,"exam provider, if available, or primary provider on the visit), and date of"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"screening/refusal."
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !," Notes: "
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient"
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !?10," was screened more than once in the time period, only the latest"
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !?10," is used in this report."
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !?10," Health databases for evidence of screening/refusal"
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+16
Function Call: WRITE
  • Prompt: !!,"Exam code 34 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+19
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the screening was done.",!,"To get all screenings ever put in a long date range like 01/01/1980 ",!,"to the present date.",!
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,"Please select which items you wish to tally on this report:",!
  • Line Location: TALLY+2
Function Call: WRITE
  • Prompt: !?3,"0) Do not include any Tallies",?40,"5) Primary Provider of Visit"
  • Line Location: TALLY+3
Function Call: WRITE
  • Prompt: !?3,"1) Result of Screening",?40,"6) Designated Primary Care Provider"
  • Line Location: TALLY+4
Function Call: WRITE
  • Prompt: !?3,"2) Gender",?40,"7) Clinic"
  • Line Location: TALLY+5
Function Call: WRITE
  • Prompt: !?3,"3) Age of Patient",?40,"8) Date of Screening"
  • Line Location: TALLY+6
Function Call: WRITE
  • Prompt: !?3,"4) Provider who Screened"
  • Line Location: TALLY+7
Function Call: WRITE
  • Prompt: !!,"Would you like to include screenings done in the behavioral health clinics: "
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !,"Mental Health (14); Alcohol and Substance Abuse (43); Medical"
  • Line Location: EXCL+3
Function Call: WRITE
  • Prompt: !,"Social Services (48); Behavioral Health (C4) "
  • Line Location: EXCL+4
Function Call: WRITE
  • Prompt: !!,"You can just include patients living in certain communities",!,"or include all patients regardless of where they live."
  • Line Location: COMM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DP+2
Function Call: WRITE
  • Prompt: !!,"There are no communities in that taxonomy."
  • Line Location: COM1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIC
  • Line Location:
    • O+1
    • S+1
    • OC+1
    • SC+4
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+5
    • TALLY+8
    • EXCL+5
    • FAC+4
    • COMM+5
    • LIST+3
    • LIST1+5
    • DP+3
    • EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTTSU - [#9999999.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROC+55, PROC+56, PROC+59, PROC+60, PROC+61, PROC+72
^AMHREC("B" PROC+52, PROC+53
^AMHRPROV - [#9002011.02] BHPPNAME+2
^AMHRPROV("AD" BHPPNAME+2
^ATXAX - [#9002226] COM1+1, COM1+2
^AUPNPREF - [#9000022] PROC+30, PROC+31, PROC+32, PROC+33, PROC+34, PROC+38, PRVREF+1
^AUPNVSIT - [#9000010] PROC+14, PROC+18, PROC+19
^AUPNVXAM - [#9000010.13] PROC+7, PROC+8, PROC+12, SPRV+2, SPRV+3
^AUPNVXAM("B" PROC+6
^AUTTEXAM("C" INFORM+18
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] BHPPNAME+2, USR+1
^XTMP("APCLDV1" PROC+3!, PROC+24*, PROC+25*, PROC+26*, PROC+27*, PROC+28*, PROC+42, PROC+46*, PROC+47*, PROC+48*
, PROC+65, PROC+69*, PROC+70*, PROC+71*, PROC+72*, PROC+73*

Label References

Name Line Occurrences
$$BHPPNAME PROC+69
$$CTR INFORM+1, INFORM+3
$$LOC INFORM+2
$$PPV PROC+24
$$PRVREF PROC+47
$$SPRV PROC+27
$$USR INFORM+1
@( FAC+8, COMM+9
COMM FAC+7, COMM+10
DATES DATES+7, TALLY+9, TALLY+10, EXCL+6, LIST+4
EXCL FAC+5
FAC FAC+9, COMM+6
LIST COMM+8, LIST1+6, DP+4, DEMO+2
XIT INFORM+17, INFORM+19, DEMO+5
ZIS LIST+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BHPPNAME+1~, BHPPNAME+2*, PPV+1~, PPV+2*, PPV+3
%1 BHPPNAME+1~, BHPPNAME+2*, BHPPNAME+3
>> A TALLY+12*
APCLBD DATES!, DATES+3*, DATES+7, PROC+17, PROC+37, PROC+51, PROC+58
>> APCLBIEN PROC+53*, PROC+55, PROC+56, PROC+59, PROC+60, PROC+61, PROC+68, PROC+69, PROC+70, PROC+71
, PROC+72
>> APCLCNT PROC+1*
>> APCLCOMT COMM+2*, COMM+7*, COMM+8, COMM+9, PROC+10, PROC+11, PROC+40, PROC+41, PROC+63, PROC+64
>> APCLCOMT("ONE" OC+3*, PROC+10, PROC+40, PROC+63
>> APCLCOMT("SU" SC+6*
>> APCLDATE PROC+14*, PROC+15, PROC+16, PROC+17, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+34*
, PROC+35, PROC+36, PROC+37, PROC+42, PROC+46, PROC+47, PROC+48, PROC+54*, PROC+57, PROC+58
, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLDEMO DEMO+1, DEMO+2, PROC+9, PROC+39, PROC+62
>> APCLDP DP+1*, DP+5*
APCLED DATES!, DATES+5*, DATES+7, PROC+16, PROC+36, PROC+52, PROC+57
>> APCLEIEN PROC+6*, PROC+7, PROC+8, PROC+12, PROC+23, PROC+24, PROC+27
>> APCLEXBH EXCL+1*, EXCL+7*, PROC+20, PROC+50
>> APCLEXC INFORM+18*, INFORM+19, PROC+6, PROC+33
>> APCLH PROC+2*, PROC+3, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+42, PROC+46, PROC+47
, PROC+48, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLJ PROC+2*, PROC+3, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+42, PROC+46, PROC+47
, PROC+48, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLLIST LIST+1*, LIST+5*, LIST+6
>> APCLLOCT FAC+2*, FAC+6*, FAC+7, FAC+8, PROC+18, PROC+19, PROC+59, PROC+60
>> APCLLOCT("ONE" O+3*, PROC+18, PROC+59
>> APCLLOCT("SU" S+3*, PROC+19, PROC+60
APCLQ FAC+1!, FAC+9, COMM+1!, COMM+10, O+2*, S+2*, OC+2*, SC+5*, COM1+4*
>> APCLRES PROC+23*, PROC+24, PROC+45*, PROC+46, PROC+68*, PROC+69
>> APCLRIEN PROC+30*, PROC+31, PROC+32, PROC+33, PROC+34, PROC+38, PROC+45, PROC+46, PROC+47
>> APCLSD PROC+51*, PROC+52*, PROC+53, PROC+54
>> APCLSORT LIST1+1*, LIST1+7*
APCLTALL TALLY+1!, TALLY+11*
APCLTALL( TALLY+12*
>> APCLTAX COM1+4
>> APCLTAX( COM1+2*, PROC+11, PROC+41, PROC+64
>> APCLVIEN PROC+12*, PROC+13, PROC+14, PROC+18, PROC+19, PROC+20, PROC+24, PROC+25, PROC+26
>> C TALLY+12*, PROC+20*
DA TALLY+8!, EXCL+5!, FAC+4!, COMM+5!, LIST+3!, LIST1+5!, DP+3!
>> DFN PROC+8*, PROC+9, PROC+10, PROC+11, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+38*
, PROC+39, PROC+40, PROC+41, PROC+42, PROC+46, PROC+47, PROC+48, PROC+61*, PROC+62, PROC+63
, PROC+64, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
DFOUT EOP+5!
DIC O+1*!, S+1*!, OC+1*!, SC+2*, SC+4!
DIC("A" O+1*, S+1*, OC+1*, SC+2*
DIC("B" S+1*
DIC("S" SC+2*
DIC(0 O+1*, S+1*, OC+1*, SC+2*
DIR DATES+2!, DATES+4!, TALLY+8!, EXCL+5!, FAC+4!, COMM+5!, LIST+3!, LIST1+5!, DP+3!, EOP+4~
DIR("A" DATES+2*, DATES+4*, TALLY+8*, EXCL+5*, FAC+3*, FAC+4*, COMM+4*, COMM+5*, LIST+3*, LIST1+4*
, DP+3*, EOP+7*
DIR("B" TALLY+8*, EXCL+5*, FAC+3*, FAC+4*, COMM+4*, COMM+5*, LIST+3*, LIST1+4*, DP+3*
DIR(0 DATES+2*, DATES+4*, TALLY+8*, EXCL+5*, FAC+3*, COMM+4*, LIST+3*, LIST1+3*, DP+3*, EOP+7*
DIRUT TALLY+9, EXCL+6, FAC+5, COMM+6, LIST+4, LIST1+6, DP+4, EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ USR+1
DUZ(2 S+1, LOC+1
E SPRV~, SPRV+2, SPRV+3
>> I TALLY+12*
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
R BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
U COM1+2, PROC+8, PROC+12, PROC+14, PROC+18, PROC+19, PROC+24, PROC+25, PROC+26, PROC+27
, PROC+28, PROC+32, PROC+33, PROC+34, PROC+38, PROC+46, PROC+47, PROC+48, PROC+56, PROC+59
, PROC+60, PROC+61, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73, BHPPNAME+2, SPRV+2, SPRV+3
, PRVREF+1, USR+1, LOC+1
V PPV~, PPV+2
X COM1*, COM1+1*, COM1+2, PROC+11*, PROC+41*, PROC+64*, CTR~, CTR+1
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y DATES+3, DATES+5, TALLY+10, TALLY+11, TALLY+12, EXCL+7, FAC+6, COMM+7, LIST+5, LIST1+7
, DP+5, O+2, O+3, S+2, S+3, OC+2, OC+3, SC+5, SC+6, COM1+1
, COM1+2, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All