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

Package: Patient Care Component Table Maintiance

Routine: APCM2AE


Information

APCM2AE ; IHS/CMI/LAB - IHS MU ; 07 Oct 2015 1:21 PM

Source Information

Source file <APCM2AE.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Patient Care Component Table Maintiance 4 PROC^APCM2AE1  (IMMREG,SPECREG,SS)^APCM2AEA  ^APCM2AEP  (PT,REPORT)^APCM2ASL  
VA Fileman 4 ^DIC  MIX^DIC1  ^DIK  ^DIR  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  
Patient Care Component Reports 1 DEMOCHK^APCLUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Table Maintiance 1 APCM2AET  
iCare 1 APCM 25 MOD S2 ALTER EP  

Entry Points

Name Comments DBIA/ICR reference
DEMO ;
SUM ;display summary
USR() ;EP - Return USER
EOP ;EP - End of page.
EIND ;ask individually
EPRES ;EP - ask additional exclusion questions for e-prescribing
TSKMN ;EP ENTRY POINT FROM TASKMAN
SEL1
NODEV ;
RT ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X
TP ;
PRV ;
5 ;EP - TEXT
6 ;EP
ASK ;
SPECREG ;
ASKADD ;
MUYEAR ;
ATTEST ;get answers to attestation
C ;EP
ATTESTQ ;EP
ZIS ;call to XBDBQUE
DRIVER ;
XIT ;
YEAR ;
ET ;
EP
T(APCMY,APCMQU) ;
ATTIND
SS
INTRO ;
CXIT ;
IMMREG ;EP - ask
NODEV1 ;

External References

Name Field # of Occurrence
^%ZIS ZIS+5
^%ZISC DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD TSKMN+5
DEMOCHK^APCLUTL DEMO+1
PROC^APCM2AE1 DRIVER+1, NODEV1+1
IMMREG^APCM2AEA IMMREG+1
SPECREG^APCM2AEA SPECREG+1
SS^APCM2AEA SS
^APCM2AEP DRIVER+3, NODEV1+2
PT^APCM2ASL SUM+7
REPORT^APCM2ASL ZIS+1
KILL^AUPNPAT XIT+6, XIT+11
^DIC SEL1+7
MIX^DIC1 PRV+9, SEL1
^DIK ZIS+6
^DIR INTRO+10, MUYEAR+5, YEAR+8, PRV+2, EOP+5, C+3, C+10, 5+5, EPRES+11, EPRES+15
, EIND+3, EIND+9, ASK+13, ASK+18, ASK+21, ATTIND+6, ATTIND+8
^XBDBQUE NODEV+2
^XBFMK XIT+12
EN^XBVK XIT+2
$$FMADD^XLFDT 5+8, 5+9
$$FMTE^XLFDT YEAR+12, SUM+4, 5+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: $$CTR("***IHS Modified Stage 2 MU Performance Reports for EPS***",80),!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: $$CTR("Alternate Stage 1 Exclusions",80),!
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"This report displays the performance measure results for Modified",!
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: "Stage 2 Meaningful Use with alternate Stage 1 exclusions/thresholds.",!
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !,"In order to achieve Meaningful Use, an EP must attest to meeting",!
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: "all 10 objectives and their associated performance measures.",!
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !,"The report can be run for 90 days, 1 year or a user defined time period.",!
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: !,"Enter the Calendar Year for which the EP is demonstrating Meaningful"
  • Line Location: MUYEAR+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: MUYEAR+9
Function Call: WRITE
  • Prompt: !!,"Calendar year must equal 2015 or 2016.",!
  • Line Location: MUYEAR+10
Function Call: WRITE
  • Prompt: !!,"Date range is: ",$$FMTE^XLFDT(APCMBD)," - ",$$FMTE^XLFDT(APCMED),"."
  • Line Location: YEAR+12
Function Call: WRITE
  • Prompt: !?5,"- ",$P(^VA(200,X,0),U,1)
  • Line Location: SEL1+11
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF MODIFIED STAGE 2 REPORT TO BE GENERATED")
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(APCMBD)," to ",?31,$$FMTE^XLFDT(APCMED)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!,"Providers: "
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !?5,$P(^VA(200,X,0),U,1)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !!,"The beginning date must be within calendar year entered."
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !!,"The beginning date must be within calendar year entered."
  • Line Location: C+7
Function Call: WRITE
  • Prompt: !!,"The ending date must be within calendar year entered."
  • Line Location: C+11
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: C+15
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+3
Function Call: WRITE
  • Prompt: !!,"The 90 day start and end dates must be within the calendar year entered."
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: !!,"The end date would be ",$$FMTE^XLFDT($$FMADD^XLFDT(Y,89)),".",!,"The 90 day start and end dates must be within the calendar year entered."
  • Line Location: 5+8
Function Call: WRITE
  • Prompt: !,^APCM25OB(APCMY,24,APCMZ,0)
  • Line Location: EIND+2
Function Call: WRITE
  • Prompt: !,^APCM25OB(APCMY,25,X,0)
  • Line Location: EIND+7
Function Call: WRITE
  • Prompt: !,^APCM25OB(APCMY,26,APCMZ,0)
  • Line Location: ET+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ET+2
Function Call: WRITE
  • Prompt: !,^APCM25OB(APCMY,APCMQU,X,0)
  • Line Location: ASK+6
Routine Call
  • DIC
  • Line Location:
    • SEL1+7
Routine Call
  • DIR
  • Line Location:
    • INTRO+10
    • MUYEAR+5
    • YEAR+8
    • PRV+2
    • EOP+5
    • C+3
    • C+10
    • 5+5
    • EPRES+11
    • EPRES+15
    • EIND+3
    • EIND+9
    • ASK+13
    • ASK+18
    • ASK+21
    • ATTIND+6
    • ATTIND+8
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^APCMM25C - [#9001304.03] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCM25OB - [#9001304.02] INTRO+14, EPRES+6, EIND+2, EIND+7, ET+1, ATTESTQ+3, ASK+3, ASK+6, ASK+9, ASK+11
, ASK+12, ASK+17, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+7, T+1, T+2, T+5
^APCM25OB("ALTA" ATTESTQ+3
^APCM25OB("B" EPRES+2, ASK+2, ASK+5
^ATXAX - [#9002226] SEL1+11
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] SEL1+11, SUM+6, USR+1, EIND+3, EIND+9, ATTIND+3, ATTIND+8

Label References

Name Line Occurrences
$$CTR INTRO+3, INTRO+4, SUM+2
$$T ASK+10, ATTIND+3, ATTIND+8
5 YEAR+11, 5+7, 5+8
6 YEAR+13
ASK ATTESTQ+11, ATTESTQ+14, ATTESTQ+17, ATTESTQ+24, ATTESTQ+32, ATTESTQ+42, ATTESTQ+50, ATTESTQ+57, ATTESTQ+65, ATTESTQ+74
, ATTESTQ+78, ATTESTQ+79
ATTESTQ ATTEST+1
ATTIND ASK+7
C C+5, C+6, C+7, C+10, C+11, C+14
DEMO SUM+8
EIND EPRES+7
EP MUYEAR+6, MUYEAR+7
EPRES ATTESTQ+35
ET EPRES+6
IMMREG ATTESTQ+81, ATTESTQ+84, ATTESTQ+87
INTRO YEAR+3
MUYEAR MUYEAR+9, MUYEAR+10
NODEV ZIS+4
PRV PRV+6, PRV+12, SEL1+5, DEMO+2, ATTEST+2
SEL1 SEL1+4
TP YEAR+14, YEAR+15, PRV+3
TSKMN ZIS+7
XIT EP, INTRO+11, INTRO+12, ZIS+2, ZIS+3, ZIS+4, ZIS+6, DRIVER+5, NODEV1+4, TSKMN+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% T+4~, T+5*, T+6
%ZIS ZIS+4!, ZIS+5!*
A XIT+8!, ATTESTQ+3*
APCMADDQ ASKADD+1!
APCMADDQ("ANS" EPRES+4!, EPRES+18*, EIND+5*, EIND+11*
>> APCMAP ATTESTQ+11*, ATTESTQ+14*, ATTESTQ+17*, ATTESTQ+24*, ATTESTQ+32*, ATTESTQ+35*, ATTESTQ+42*, ATTESTQ+50*, ATTESTQ+57*, ATTESTQ+65*
, ATTESTQ+74*, ATTESTQ+78*, ATTESTQ+79*, ASK+5, ASK+16, ASK+23, ATTIND+10
APCMATTE ATTESTQ+1!, ATTESTQ+5
APCMATTE( ATTESTQ+4*, ASK+16*, ASK+23*, ATTIND+10*
APCMATTE("S2.001.1EP" ATTESTQ+19, ATTESTQ+27
APCMATTE("S2.001.2EP" ATTESTQ+26
APCMATTE("S2.003.EP" ATTESTQ+34
APCMATTE("S2.010.EP.1" ATTESTQ+13
APCMATTE("S2.010.EP.2" ATTESTQ+16
APCMATTE("S2.014.EP" ATTESTQ+10
APCMATTE("S2.020.EP" ATTESTQ+59, ATTESTQ+70
APCMATTE("S2.020.EP.1" ATTESTQ+77
APCMATTE("S2.021.EP" ATTESTQ+45, ATTESTQ+53
APCMATTE("S2.022.EP" ATTESTQ+52, ATTESTQ+61
APCMATTE("S2.023.EP" ATTESTQ+37, ATTESTQ+46
APCMATTE("S2.024.EP" ATTESTQ+81
APCMATTE("S2.025.EP" ATTESTQ+84
APCMATTE("S2.026.EP" ATTESTQ+69, ATTESTQ+77
APCMATTE("S2.030.EP" ATTESTQ+87
>> APCMBD YEAR+1*, YEAR+12*, YEAR+14, SUM+4, C+1*, C+8*, C+14, 5+2*, 5+9*
>> APCMDELT ZIS+4, ZIS+5
>> APCMDEMO DEMO+1, DEMO+2
>> APCMED YEAR+1*, YEAR+12*, YEAR+15, SUM+4, C+1*, C+12*, C+14, 5+2*, 5+9*
>> APCMHD MUYEAR+12*, YEAR+12, C+7, C+11, 5+8
>> APCMIND EPRES+7, EPRES+8*, EPRES+13*, EPRES+17*, ASK+7, ASK+8*, ASK+15*, ASK+20*
>> APCMIND( INTRO+14*, ATTESTQ+3, ASK+5
>> APCMLD MUYEAR+12*, YEAR+12, C+6, 5+7
>> APCMORA( ATTESTQ+4*
>> APCMP EPRES+18*, EIND+1*, EIND+3, EIND+5, EIND+9, EIND+11, ASK+16*, ASK+23*, ATTIND+1*, ATTIND+3
, ATTIND+8, ATTIND+10
>> APCMPER MUYEAR+11*, MUYEAR+12, ATTESTQ+14, ATTESTQ+38, ATTESTQ+45, ATTESTQ+52, ATTESTQ+60, ATTESTQ+69, ATTESTQ+79
>> APCMPLTY PRV+1*, PRV+4*, PRV+6, PRV+12, SEL1+5, EPRES+7, ATTESTQ+7, ASK+7
>> APCMPRTX SEL1+9*
APCMPRV PRV+7!, PRV+13!, SEL1+1
APCMPRV( PRV+11*, SEL1+3*, SEL1+11*, SUM+6, EPRES+18, EIND+1, ATTESTQ+4, ASK+16, ASK+23, ATTIND+1
>> APCMQ YEAR+2*, YEAR+3, YEAR+9*, ATTEST+2, C+3*, C+4*, 5+6*, EPRES+1*, EPRES+8*, EPRES+12*
, EPRES+16*, EIND+1, EIND+4*, EIND+10*, ATTESTQ+2*, ATTESTQ+6*, ATTESTQ+12, ATTESTQ+15, ATTESTQ+18, ATTESTQ+25
, ATTESTQ+33, ATTESTQ+36, ATTESTQ+44, ATTESTQ+51, ATTESTQ+58, ATTESTQ+66, ATTESTQ+68, ATTESTQ+76, ATTESTQ+82, ATTESTQ+85
, ASK+14*, ASK+19*, ASK+22*, ATTIND+1, ATTIND+9*
APCMQU ATTESTQ+11*, ATTESTQ+14*, ATTESTQ+17*, ATTESTQ+24*, ATTESTQ+32*, ATTESTQ+35*, ATTESTQ+42*, ATTESTQ+50*, ATTESTQ+57*, ATTESTQ+65*
, ATTESTQ+74*, ATTESTQ+78*, ATTESTQ+79*, ATTESTQ+80*, ATTESTQ+81*, ATTESTQ+83*, ATTESTQ+86*, ASK+3, ASK+6, ASK+10
, ASK+11, ASK+12, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+8, T~, T+1, T+2, T+3
>> APCMQUIT PRV+5*, PRV+6, PRV+10*, PRV+12, SEL1+1*, SEL1+5, SEL1+8*, ZIS+2
>> APCMROT SUM+8, ZIS+4
>> APCMRPT ZIS+3, ZIS+6
>> APCMRPTP TP+1*, YEAR+10*, YEAR+11, YEAR+12, YEAR+13
>> APCMRPTT INTRO+1*
>> APCMSUM RT+1*
>> APCMVDT MUYEAR+8*, MUYEAR+11, YEAR+1*, C+1*, 5+2*
>> APCMX ATTESTQ+11*, ATTESTQ+14*, ATTESTQ+17*, ATTESTQ+24*, ATTESTQ+32*, ATTESTQ+35*, ATTESTQ+42*, ATTESTQ+50*, ATTESTQ+57*, ATTESTQ+65*
, ATTESTQ+74*, ATTESTQ+78*, ATTESTQ+79*, ATTESTQ+81*, ATTESTQ+84*, ATTESTQ+87*, ASK+2, ASK+5, ASK+16, ASK+23
, ATTIND+10
APCMY EPRES+2*, EPRES+4, EPRES+6, EPRES+18, EIND+2, EIND+5, EIND+7, EIND+11, ET+1, ASK+2*
, ASK+3, ASK+6, ASK+9, ASK+10, ASK+11, ASK+12, ASK+17, ATTIND+3, ATTIND+4, ATTIND+5
, ATTIND+7, ATTIND+8, T~, T+1, T+2, T+5
>> APCMZ EIND+2*, ET+1*
B XIT+8!
BD XIT+10!
C XIT+8!
D PRV+9*!, SEL1*!, XIT+8!
DA INTRO+10!, YEAR+8!, PRV+2!, ZIS+6*, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, ASK+13!, ASK+18!
, ASK+21!, ATTIND+6!, ATTIND+8!
DFOUT EOP+4!
DIADD XIT+5!
DIC PRV+9*!, SEL1*!, SEL1+7*!
DIC("A" PRV+9*, SEL1*, SEL1+7*
DIC("S" SEL1+7*
DIC(0 PRV+9*, SEL1*, SEL1+7*
DIK ZIS+6*!
DIR INTRO+10!, MUYEAR+1!, MUYEAR+5!, YEAR+8!, PRV+2!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, C+2!
, C+9!, 5+3!, 5+5!, CXIT+1!, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, ASK+13!, ASK+18!
, ASK+21!, ATTIND+6!, ATTIND+8!
DIR("?" MUYEAR+4*
DIR("A" INTRO+10*, MUYEAR+3*, YEAR+8*, PRV+2*, C+2*, C+9*, 5+5*, EPRES+11*, EPRES+15*, EIND+3*
, EIND+9*, ASK+10*, ASK+18*, ASK+21*, ATTIND+3*, ATTIND+8*
DIR("B" INTRO+10*, EPRES+11*, EPRES+15*, EIND+3*, EIND+9*, ASK+11*, ASK+12*, ASK+18*, ASK+21*, ATTIND+4*
, ATTIND+5*, ATTIND+8*
DIR(0 INTRO+10*, MUYEAR+1*, YEAR+8*, PRV+2*, EOP+5*, C+2*, C+9*, 5+4*, EPRES+11*, EPRES+15*
, EIND+3*, EIND+9*, ASK+10*, ASK+18*, ASK+21*, ATTIND+3*, ATTIND+7*
DIRUT INTRO+11, MUYEAR+6, YEAR+9, PRV+3, XIT+4!, EOP+4!, C+3, 5+5*, 5+6, EPRES+12
, EPRES+16, EIND+4, EIND+10, ASK+14, ASK+19, ASK+22, ATTIND+9
DLAYGO XIT+5!
DLOUT EOP+4!
DOD XIT+4!
DT C+5
DTOUT EOP+4!
DUOUT MUYEAR+7, XIT+4!, EOP+4!, 5+5
DUZ USR+1
DUZ(2 LOC+1
E XIT+8!
ED XIT+10!
F XIT+8!
G XIT+8!
H XIT+8!
I XIT+8!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+7
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF APCM2AE+4, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!, ZIS+5!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
J XIT+8!
K XIT+8!
L XIT+8!
M XIT+8!
N XIT+8!, XIT+9!
N1 XIT+9!
N2 XIT+9!
N3 XIT+9!
N4 XIT+9!
N5 XIT+9!
N6 XIT+9!
O XIT+8!
P XIT+8!
>> POP ZIS+6
Q XIT+8!
R XIT+8!
S XIT+8!
T XIT+8!
U INTRO+14, SEL1+11, SUM+6, USR+1, LOC+1, EIND+3, EIND+9, ATTESTQ+3, ASK+9, ASK+11
, ASK+12, ASK+16, ASK+17, ASK+23, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+7, ATTIND+8, ATTIND+10
, T+1, T+2, T+5
V XIT+8!
W XIT+8!
X INTRO+14*, SEL1+11*, SUM+6*, XIT+7!, XIT+8!, CTR~, CTR+1, 5+3!, EIND+7*, ATTESTQ+3*
, ATTESTQ+4, ASK+6*
X1 XIT+7!
X2 XIT+7!
X3 XIT+7!
X4 XIT+7!
X5 XIT+7!
X6 XIT+7!
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y INTRO+12, MUYEAR+8, MUYEAR+9, MUYEAR+10, YEAR+10, PRV+4, PRV+10, PRV+11, SEL1+1, SEL1+2
, SEL1+3, SEL1+8, SEL1+9, SEL1+11, XIT+8!, CTR~, CTR+1, C+4, C+5, C+6
, C+7, C+8, C+10, C+11, C+12, 5+3!, 5+7, 5+8, 5+9, EPRES+13
, EPRES+17, EIND+5, EIND+6, EIND+11, ATTESTQ+4*, ASK+5*, ASK+15, ASK+20, ASK+23, ATTIND+10
Z XIT+8!, ATTESTQ+3*, ATTESTQ+4
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED XIT+3, EOP+2
>> ZTREQ XIT+3*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("APCM*" TSKMN+4*
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