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

Package: Patient Care Component Reports

Routine: APCLPP2Q


Information

APCLPP2Q ; IHS/CMI/LAB - provider profile print ; 14 Apr 2014 12:33 PM

Source Information

Source file <APCLPP2Q.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDEX  $$CPT^ICPTCOD  
Kernel 2 $$FMTE^XLFDT  ($$REPEAT,$$STRIP)^XLFSTR  
VA Fileman 2 COMMA^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLPP2P  

Entry Points

Name Comments DBIA/ICR reference
EM ;
PER(N,D) ;return % of n/d
HEAD ;EP
PV ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
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.
INHOSP ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
C(X,X2,X3) ;
PROC ;EP

External References

Name Field # of Occurrence
COMMA^%DTC C+1
^DIR HEAD+2, EOP+5
$$ICDDX^ICDEX PV+14
$$ICDOP^ICDEX PROC+12, PV+21
$$CPT^ICPTCOD EM+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: !!,"The ",APCLNITM," leading Procedures that you",?40,"The ",APCLNITM," leading Education Topics that"
  • Line Location: PROC+3
Function Call: WRITE
  • Prompt: !,"performed as Primary Provider ",?40,"you taught were:"
  • Line Location: PROC+4
Function Call: WRITE
  • Prompt: !,"for the Visit were:"
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: ?28,$$PAD($P(APCLDISP(APCLX),U,2),6)
  • Line Location: PROC+22
Function Call: WRITE
  • Prompt: ?72,$$PAD($P(APCLDISP(APCLX),U,5),6)
  • Line Location: PROC+23
Function Call: WRITE
  • Prompt: !!,"The ",APCLNITM," Top Evaluation and Management CPT codes that you used as"
  • Line Location: EM+4
Function Call: WRITE
  • Prompt: !,"Primary Provider were:"
  • Line Location: EM+5
Function Call: WRITE
  • Prompt: ?50,$$PAD($P(APCLDISP(APCLX),U,2),6)
  • Line Location: EM+16
Function Call: WRITE
  • Prompt: !!,"4 - Inpatient Workload: You were the Primary Provider for a total of ",$$C(APCLDW13(APCLPRV),0),!,"Hospitalizations during this time period."
  • Line Location: PV+3
Function Call: WRITE
  • Prompt: !!,"The ",APCLNITM," leading Diagnoses (including",?40,"The ",APCLNITM," leading Procedures performed"
  • Line Location: PV+5
Function Call: WRITE
  • Prompt: !,"Primary and Secondary DX's) that",?40,"for visits on which you were"
  • Line Location: PV+6
Function Call: WRITE
  • Prompt: !,"that you identified were:",?40,"Provider for the Visit were:"
  • Line Location: PV+7
Function Call: WRITE
  • Prompt: ?28,$$PAD($P(APCLDISP(APCLX),U,2),6)
  • Line Location: PV+24
Function Call: WRITE
  • Prompt: ?72,$$PAD($P(APCLDISP(APCLX),U,5),6)
  • Line Location: PV+25
Function Call: WRITE
  • Prompt: !!,"You made ",$$C(APCLDW14(APCLPRV),0)," In-Hospital Visits to patients hospitalized at your",!,"Service Unit's Hospital and ",$$C(APCLDW15(APCLPRV),0)," In-Hospital Visits to other sites."
  • Line Location: INHOSP+1
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
Routine Call
  • DIR
  • Line Location:
    • HEAD+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1
^XTMP("APCLPP2" PROC+6, PROC+7, PROC+8, PROC+13, PROC+14, PROC+15, EM+1, EM+6, EM+7, EM+8
, PV+8, PV+9, PV+10, PV+15, PV+16, PV+17

Label References

Name Line Occurrences
$$C PROC+9, PROC+16, EM+9, PV+3, PV+11, PV+18, INHOSP+1
$$CTR HEAD1+4
$$PAD PROC+22, PROC+23, EM+16, PV+24, PV+25
HEAD PROC+1, PROC+19, PROC+21, EM+2, EM+13, EM+15, PV+2, PV+23
HEAD1 HEAD+1
INHOSP PV+1
PV EM+1

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 PROC+8*, PROC+9, PROC+15*, PROC+16, EM+8*, EM+9, PV+10*, PV+11, PV+17*, PV+18
>> APCLB PROC+9*, PROC+12, PROC+16*, PROC+18, EM+9*, EM+12, PV+11*, PV+14, PV+18*, PV+21
>> APCLBD HEAD1+5
>> APCLBTH PROC+6, PROC+7, PROC+8, PROC+13, PROC+14, PROC+15, EM+1, EM+6, EM+7, EM+8
, PV+8, PV+9, PV+10, PV+15, PV+16, PV+17
>> APCLC PROC+6*, PROC+8*, PROC+10, PROC+12, PROC+13*, PROC+15*, PROC+17, PROC+18, EM+6*, EM+8*
, EM+10, EM+12, PV+8*, PV+10*, PV+12, PV+14, PV+15*, PV+17*, PV+19, PV+21
APCLDISP PROC+2!, EM+3!, PV+4!
APCLDISP( PROC+2*, PROC+10*, PROC+12*, PROC+17*, PROC+18*, PROC+20, PROC+22, PROC+23, EM+3*, EM+10*
, EM+12*, EM+14, EM+16, PV+4*, PV+12*, PV+14*, PV+19*, PV+21*, PV+22, PV+24
, PV+25
>> APCLDW13( PV+1, PV+3
>> APCLDW14( INHOSP+1
>> APCLDW15( INHOSP+1
>> APCLED HEAD1+5
>> APCLJOB PROC+6, PROC+7, PROC+8, PROC+13, PROC+14, PROC+15, EM+1, EM+6, EM+7, EM+8
, PV+8, PV+9, PV+10, PV+15, PV+16, PV+17
>> APCLNITM PROC+1, PROC+2, PROC+3, PROC+6, PROC+13, PROC+19, PROC+20, EM+2, EM+3, EM+4
, EM+6, EM+14, PV+5, PV+8, PV+15, PV+22
>> APCLPG HEAD+1, HEAD1+2*, HEAD1+3
>> APCLPRV PROC+6, PROC+7, PROC+8, PROC+13, PROC+14, PROC+15, EM+1, EM+6, EM+7, EM+8
, PV+1, PV+3, PV+8, PV+9, PV+10, PV+15, PV+16, PV+17, INHOSP+1, HEAD1+4
>> APCLPRVD( HEAD1+4
>> APCLPRVN( HEAD1+4
>> APCLQUIT PROC+1, PROC+6, PROC+7, PROC+13, PROC+14, PROC+19, PROC+20, PROC+21, PROC+24, EM+2
, EM+6, EM+7, EM+13, EM+14, EM+15, EM+17, PV+2, PV+8, PV+9, PV+15
, PV+16, PV+22, PV+23, HEAD+2*
>> APCLX PROC+6*, PROC+7, PROC+8, PROC+13*, PROC+14, PROC+15, PROC+20*, PROC+22, PROC+23, EM+6*
, EM+7, EM+8, EM+14*, EM+16, PV+8*, PV+9, PV+10, PV+15*, PV+16, PV+17
, PV+22*, PV+24, PV+25
>> APCLY PROC+7*, PROC+8, PROC+12, PROC+14*, PROC+15, PROC+18, EM+7*, EM+8, EM+12, PV+9*
, PV+10, PV+14, PV+16*, PV+17, PV+21
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 PROC+1, PROC+19, PROC+21, EM+2, EM+13, EM+15, PV+2, PV+23
IOST HEAD+2, EOP+1
>> IOT EOP+2
L PAD~, PAD+2*, PAD+3
N PER~, PER+3
U PROC+12, PROC+18, PROC+22, PROC+23, EM+12, EM+16, PV+14, PV+21, PV+24, PV+25
, USR+1, LOC+1
X PROC+2*, EM+3*, PV+4*, C~, C+2, CTR~, CTR+1
X2 C~
X3 C~
Y HEAD+2, CTR~, CTR+1
Z PROC+12*, EM+12*, PV+14*, PV+21*, PER+2~, PER+3*, PER+4
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All