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

Package: Patient Care Component Reports

Routine: APCLPP2P


Information

APCLPP2P ; IHS/CMI/LAB - provider profile print ;

Source Information

Source file <APCLPP2P.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
Patient Care Component Reports 2 DONE^APCLOSUT  PROC^APCLPP2Q  
VA Fileman 2 COMMA^%DTC  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  

Entry Points

Name Comments DBIA/ICR reference
PER(N,D) ;return % of n/d
HEAD ;EP
AMB ;
PV ;
LOC() ;EP - Return location name from file 4 based on APCLPRV.
HEAD1 ;
PAD(D,L) ; -- SUBRTN to pad length of data
; -- D=data L=length
CTR(X,Y) ;EP - Center X in a field Y wide.
PRN ;
START ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
COMM ;communities
C(X,X2,X3) ;
LOCSC ;
SC ;
DONE ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
DONE^APCLOSUT DONE+1
PROC^APCLPP2Q PV+25
^DIR HEAD+2, EOP+5
$$ICDDX^ICDEX PV+12
$$FMTE^XLFDT HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR PAD+3
$$STRIP^XLFSTR PER+4, C+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1 - Designated Primary Care Provider Panel",!
  • Line Location: PRN+2
Function Call: WRITE
  • Prompt: !,"You are the Designated Primary Care Provider for ",$$C(APCLDPPT(APCLPRV),0)," patients. In this"
  • Line Location: PRN+3
Function Call: WRITE
  • Prompt: !,"time period you have provided services (any type) to ",$$C(APCLDPPS(APCLPRV),0)," (",$$PER(APCLDPPS(APCLPRV),APCLDPPT(APCLPRV)),") patients"
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: !,"from your Designated Primary Care Provider Panel."
  • Line Location: PRN+5
Function Call: WRITE
  • Prompt: !!,"In this time period, you provided ambulatory services at least twice to ",$$C(APCLDP2V(APCLPRV),0)
  • Line Location: PRN+6
Function Call: WRITE
  • Prompt: !,"patients who have no Designated Primary Care Provider identified."
  • Line Location: PRN+7
Function Call: WRITE
  • Prompt: !!,"2 - Demographics and Workload for All Patients Served (Any Type of Service)"
  • Line Location: PRN+8
Function Call: WRITE
  • Prompt: !!,"In this time period you have provided services (any type) to ",$$C(APCLDW1(APCLPRV),0)," patients. "
  • Line Location: PRN+10
Function Call: WRITE
  • Prompt: !,$$C(APCLDW2(APCLPRV),0)," (",$$PER(APCLDW2(APCLPRV),APCLDW1(APCLPRV)),") are from your Designated Primary Provider Panel. ",$$C(APCLDW3(APCLPRV),0)," (",$$PER(APCLDW3(APCLPRV),APCLDW1(APCLPRV)),") are"
  • Line Location: PRN+11
Function Call: WRITE
  • Prompt: !,"not from your Designated Primary Care Provider Panel."
  • Line Location: PRN+14
Function Call: WRITE
  • Prompt: !!,$$PER(APCLDW4(APCLPRV),APCLDW1(APCLPRV))," of your patients were Male, ",$$PER(APCLDW5(APCLPRV),APCLDW1(APCLPRV))," Female, and ",$$PER(APCLDW51(APCLPRV),APCLDW1(APCLPRV))," Unknown Gender."
  • Line Location: PRN+16
Function Call: WRITE
  • Prompt: !!,$$PER(APCLDW6(APCLPRV),APCLDW1(APCLPRV))," were 18 and under; ",$$PER(APCLDW7(APCLPRV),APCLDW1(APCLPRV))," were 19-49; "
  • Line Location: PRN+18
Function Call: WRITE
  • Prompt: $$PER(APCLDW8(APCLPRV),APCLDW1(APCLPRV))," were 50-64; and ",$$PER(APCLDW9(APCLPRV),APCLDW1(APCLPRV))," were 65 and over."
  • Line Location: PRN+19
Function Call: WRITE
  • Prompt: !!,"The leading residences for your ",?40,"The leading tribes represented",!,"patients are:",?40,"among your patients are:"
  • Line Location: COMM+3
Function Call: WRITE
  • Prompt: ?22,$$PAD($P(APCLDISP(APCLX),U,2),6),?29,$J($P(APCLDISP(APCLX),U,3),4,0),"%"
  • Line Location: COMM+21
Function Call: WRITE
  • Prompt: ?66,$$PAD($P(APCLDISP(APCLX),U,5),6),?73,$J($P(APCLDISP(APCLX),U,6),4,0),"%"
  • Line Location: COMM+22
Function Call: WRITE
  • Prompt: !!,"Of these services, ",$$C(APCLTCR(APCLPRV),0)," (",$$PER(APCLTCR(APCLPRV),APCLDW1(APCLPRV))
  • Line Location: COMM+24
Function Call: WRITE
  • Prompt: ") were chart reviews and ",$$C(APCLTTEL(APCLPRV),0)," (",$$PER(APCLTTEL(APCLPRV),APCLDW1(APCLPRV)),") were",!,"telecommunications services."
  • Line Location: COMM+25
Function Call: WRITE
  • Prompt: !!,"3 - Ambulatory Workload: You had a total of ",$$C(APCLDW10(APCLPRV),0)," ambulatory visits during",!
  • Line Location: AMB+1
Function Call: WRITE
  • Prompt: "this time period. You were the Primary Provider for ",$$C(APCLDW11(APCLPRV),0)," visits (",$$PER(APCLDW11(APCLPRV),APCLDW10(APCLPRV)),") and"
  • Line Location: AMB+2
Function Call: WRITE
  • Prompt: !,"Secondary Provider for ",$$C(APCLDW12(APCLPRV),0)," visits (",$$PER(APCLDW12(APCLPRV),APCLDW10(APCLPRV)),")."
  • Line Location: AMB+3
Function Call: WRITE
  • Prompt: !!,"Your services were provided at the",?40,"Your services included the following",!,"following locations:",?40,"Service Categories:"
  • Line Location: LOCSC+2
Function Call: WRITE
  • Prompt: ?22,$$PAD($P(APCLDISP(APCLX),U,2),6),?29,$J($P(APCLDISP(APCLX),U,3),4,0),"%"
  • Line Location: SC+11
Function Call: WRITE
  • Prompt: ?66,$$PAD($P(APCLDISP(APCLX),U,5),6),?73,$J($P(APCLDISP(APCLX),U,6),4,0),"%"
  • Line Location: SC+12
Function Call: WRITE
  • Prompt: !!,"The ",APCLNITM," leading Purposes of Visit",?40,"The ",APCLNITM," leading Medications you"
  • Line Location: PV+3
Function Call: WRITE
  • Prompt: !,"(including Primary and Secondary POV's)",?40,"prescribed or refilled as Primary"
  • Line Location: PV+4
Function Call: WRITE
  • Prompt: !,"that you identified were:",?40,"Provider for the Visit were:"
  • Line Location: PV+5
Function Call: WRITE
  • Prompt: ?28,$$PAD($P(APCLDISP(APCLX),U,2),6)
  • Line Location: PV+22
Function Call: WRITE
  • Prompt: ?72,$$PAD($P(APCLDISP(APCLX),U,5),6)
  • Line Location: PV+23
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CTR("Provider Practice Description For "_APCLPRVN(APCLPRV)_", "_APCLPRVD(APCLPRV),80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?12,"For the Time Period: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR("Search Template of Patients Used: "_$P(^DIBT(APCLSEAT,0),U)),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"** Please Note that certain diagnoses codes have been excluded",!,"from the list of purpose of visits.",!
  • Line Location: HEAD1+7
Routine Call
  • DIR
  • Line Location:
    • HEAD+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT( HEAD1+6
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1
^XTMP("APCLPP2" DONE+2!, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7
, LOCSC+8!, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13
, PV+14, PV+15

Label References

Name Line Occurrences
$$C PRN+3, PRN+4, PRN+6, PRN+10, PRN+11, COMM+7, COMM+14, COMM+24, COMM+25, AMB+1
, AMB+2, AMB+3, LOCSC+9, LOCSC+15, SC+4, PV+9, PV+16
$$CTR HEAD1+4, HEAD1+6
$$PAD COMM+21, COMM+22, SC+11, SC+12, PV+22, PV+23
$$PER PRN+4, PRN+11, PRN+16, PRN+18, PRN+19, COMM+8, COMM+15, COMM+24, COMM+25, AMB+2
, AMB+3, LOCSC+10, LOCSC+15, SC+5
HEAD PRN+1, PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20, COMM+1, COMM+18, COMM+20
, COMM+26, LOCSC+1, SC+8, SC+10, PV+1, PV+19, PV+21
HEAD1 HEAD+1
PRN START+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
>> APCLA COMM+6*, COMM+7, COMM+8, COMM+13*, COMM+14, COMM+15, LOCSC+7*, LOCSC+9, LOCSC+10, SC+3*
, SC+4, SC+5, PV+8*, PV+9, PV+15*, PV+16
>> APCLB COMM+7*, COMM+10, COMM+14*, COMM+17, LOCSC+9*, LOCSC+12, SC+4*, SC+7, PV+9*, PV+12
, PV+16*, PV+18
>> APCLBD HEAD1+5
>> APCLBTH DONE+2, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7
, LOCSC+8, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13
, PV+14, PV+15
>> APCLC COMM+4*, COMM+6*, COMM+9, COMM+10, COMM+11*, COMM+13*, COMM+16, COMM+17, LOCSC+5*, LOCSC+6
, LOCSC+7*, LOCSC+11, LOCSC+12, SC+1*, SC+3*, SC+6, SC+7, PV+6*, PV+8*, PV+10
, PV+12, PV+13*, PV+15*, PV+17, PV+18
APCLDISP COMM+2!, LOCSC+3!, PV+2!
APCLDISP( COMM+2*, COMM+9*, COMM+10*, COMM+16*, COMM+17*, COMM+19, COMM+21, COMM+22, LOCSC+3*, LOCSC+11*
, LOCSC+12*, SC+6*, SC+7*, SC+9, SC+11, SC+12, PV+2*, PV+10*, PV+12*, PV+17*
, PV+18*, PV+20, PV+22, PV+23
APCLDISP(5 LOCSC+15*
>> APCLDP2V( PRN+6
>> APCLDPPS( PRN+4
>> APCLDPPT( PRN+3, PRN+4
>> APCLDW1( PRN+10, PRN+11, PRN+16, PRN+18, PRN+19, COMM+8, COMM+15, COMM+24, COMM+25
>> APCLDW10( AMB+1, AMB+2, AMB+3, LOCSC+10, LOCSC+15, SC+5
>> APCLDW11( AMB+2
>> APCLDW12( AMB+3
>> APCLDW2( PRN+11
>> APCLDW3( PRN+11
>> APCLDW4( PRN+16
>> APCLDW5( PRN+16
>> APCLDW51( PRN+16
>> APCLDW6( PRN+18
>> APCLDW7( PRN+18
>> APCLDW8( PRN+19
>> APCLDW9( PRN+19
>> APCLED HEAD1+5
>> APCLEXCL HEAD1+7
>> APCLJOB DONE+2, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7
, LOCSC+8, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13
, PV+14, PV+15
>> APCLLSV START+2
>> APCLNITM START+2*, COMM+1, COMM+2, COMM+19, LOCSC+3, SC+1, SC+8, SC+9, PV+1, PV+2
, PV+3, PV+6, PV+13, PV+19, PV+20, PV+21
>> APCLPG START+1*, HEAD+1, HEAD1+2*, HEAD1+3
>> APCLPROV( START+3
>> APCLPRV START+3*, PRN+3, PRN+4, PRN+6, PRN+10, PRN+11, PRN+16, PRN+18, PRN+19, COMM+4
, COMM+5, COMM+6, COMM+8, COMM+11, COMM+12, COMM+13, COMM+15, COMM+24, COMM+25, AMB+1
, AMB+2, AMB+3, LOCSC+5, LOCSC+6, LOCSC+7, LOCSC+8, LOCSC+10, LOCSC+13, LOCSC+14, LOCSC+15
, SC+1, SC+2, SC+3, SC+5, PV+6, PV+7, PV+8, PV+13, PV+14, PV+15
, HEAD1+4
>> APCLPRVD( HEAD1+4
>> APCLPRVN( HEAD1+4
APCLQUIT START+1*, START+3, DONE+3!, PRN+1, PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20
, COMM+1, COMM+4, COMM+5, COMM+11, COMM+12, COMM+18, COMM+19, COMM+20, COMM+23, COMM+26
, LOCSC+1, LOCSC+5, LOCSC+6, SC+1, SC+2, SC+8, SC+9, SC+10, SC+13, PV+1
, PV+6, PV+7, PV+13, PV+14, PV+19, PV+20, PV+21, PV+24, HEAD+2*
>> APCLSEAT HEAD1+6
>> APCLTCR( COMM+24
>> APCLTOTH LOCSC+13*
>> APCLTOTH( LOCSC+14*, LOCSC+15
>> APCLTTEL( COMM+25
>> APCLX COMM+4*, COMM+5, COMM+6, COMM+11*, COMM+12, COMM+13, COMM+19*, COMM+21, COMM+22, LOCSC+5*
, LOCSC+6, LOCSC+7, LOCSC+8, LOCSC+13*, LOCSC+14, SC+1*, SC+2, SC+3, SC+9*, SC+11
, SC+12, PV+6*, PV+7, PV+8, PV+13*, PV+14, PV+15, PV+20*, PV+22, PV+23
>> APCLY COMM+5*, COMM+6, COMM+10, COMM+12*, COMM+13, COMM+17, LOCSC+6*, LOCSC+7, LOCSC+8, LOCSC+12
, LOCSC+14*, SC+2*, SC+3, SC+7, PV+7*, PV+8, PV+12, PV+14*, PV+15, PV+18
D PER~, PER+1, PER+3, PAD~, PAD+2, PAD+3
DFOUT EOP+4!
DIR HEAD+2!, EOP+3~
DIR("A" EOP+5*
DIR(0 HEAD+2*, EOP+5*
DIRUT EOP+4!
DLOUT EOP+4!
DT HEAD1+3
DTOUT HEAD+2, EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 LOC+1
IO HEAD+2
IO("S" EOP+2
IO(0 HEAD+2
IOF HEAD1+1
IOM CTR+1
IOSL PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20, COMM+1, COMM+18, COMM+20, COMM+26
, LOCSC+1, SC+8, SC+10, PV+1, PV+19, PV+21
IOST HEAD+2, EOP+1
>> IOT EOP+2
L PAD~, PAD+2*, PAD+3
N PER~, PER+3
U COMM+10, COMM+17, COMM+21, COMM+22, LOCSC+12, LOCSC+15, SC+7, SC+11, SC+12, PV+12
, PV+18, PV+22, PV+23, HEAD1+6, USR+1, LOC+1
X COMM+2*, LOCSC+3*, PV+2*, C~, C+2, CTR~, CTR+1
X2 C~
X3 C~
Y HEAD+2, CTR~, CTR+1
Z COMM+8*, COMM+10, COMM+15*, COMM+17, LOCSC+10*, LOCSC+12, SC+5*, SC+7, PV+12*, PER+2~
, PER+3*, PER+4
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All