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

Package: Patient Care Component Table Maintiance

Routine: APCM24E


Information

APCM24E ; IHS/CMI/LAB - IHS MU ;

Source Information

Source file <APCM24E.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^APCM24E1  (IMMREG,SPECREG,SS)^APCM24EA  ^APCM24EP  (PT,REPORT)^APCM24SL  
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: 3

Package Total Caller Graph
Patient Care Component Table Maintiance 2 APCM24ET  APCM24H  
iCare 1 APCM 24 M2IP  

Entry Points

Name Comments DBIA/ICR reference
DEMO ;
SUM ;display summary of this report
VITALS ;EP -VITALS QUESTIONS
USR() ;EP - Return name of current user from ^VA(200.
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 in a field Y wide.
TP ;
PRV ;
5 ;EP - CALLED FROM LIST ROUTINE
6 ;EP
ASK ;
SPECREG ;
ASKADD ;
ATTEST ;get answers to attestation questions for each provider.
C ;EP
B ;
ZIS ;call to XBDBQUE
DRIVER ;
VIND ;ask individually
XIT ;
YEAR ;
ET ;
ATTESTQ ;EP
ATTIND
SS
INTRO ;
CXIT ;
IMMREG ;EP - ask additional exclusion questions for IMM REG
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^APCM24E1 DRIVER+1, NODEV1+1
IMMREG^APCM24EA IMMREG+1
SPECREG^APCM24EA SPECREG+1
SS^APCM24EA SS
^APCM24EP DRIVER+3, NODEV1+2
PT^APCM24SL SUM+7
REPORT^APCM24SL ZIS+1
KILL^AUPNPAT XIT+6, XIT+11
^DIC SEL1+7
MIX^DIC1 PRV+9, SEL1
^DIK ZIS+6
^DIR INTRO+6, YEAR+6, YEAR+21, YEAR+35, PRV+2, EOP+5, B+3, C+3, C+7, EPRES+11
, EPRES+15, EIND+3, EIND+9, VIND+3, VIND+8, VIND+13, VIND+18, ATTESTQ+8, ASK+16, ASK+21
, ASK+24, ATTIND+5, ATTIND+7
^XBDBQUE NODEV+2
^XBFMK XIT+12
EN^XBVK XIT+2
$$FMADD^XLFDT B+6
$$FMTE^XLFDT SUM+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,11,X,0),!
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"Report may be run for a quarter, 90-days, a one year or a user defined period.",!!
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TP+3
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,17,X,0),!
  • Line Location: TP+4
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for which report is to be run. Use a 4 digit",!,"year, e.g. 2014."
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: !?5,"- ",$P(^VA(200,X,0),U,1)
  • Line Location: SEL1+11
Function Call: WRITE
  • Prompt: !!,"Please answer the following exclusion questions for each provider."
  • Line Location: ASKADD+5
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF STAGE 2 2014/2015 MEANINGFUL USE 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: B+1
Function Call: WRITE
  • Prompt: !
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: C+10
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,24,APCMZ,0)
  • Line Location: EIND+2
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,25,X,0)
  • Line Location: EIND+7
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,26,APCMZ,0)
  • Line Location: ET+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ET+2
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,24,APCMZ,0)
  • Line Location: VIND+2
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,25,X,0)
  • Line Location: VIND+7
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,27,X,0)
  • Line Location: VIND+12
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,28,X,0)
  • Line Location: VIND+17
Function Call: WRITE
  • Prompt: !!,"Several Stage 2 Meaningful Use Performance Measures require an attestation of "
  • Line Location: ATTESTQ+6
Function Call: WRITE
  • Prompt: !,"Yes or No for each provider for which the report is being run.",!
  • Line Location: ATTESTQ+7
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,26,APCMZ,0)
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,^APCM24OB(APCMY,APCMQU,X,0)
  • Line Location: ASK+10
Routine Call
  • DIC
  • Line Location:
    • SEL1+7
Routine Call
  • DIR
  • Line Location:
    • INTRO+6
    • YEAR+6
    • YEAR+21
    • YEAR+35
    • PRV+2
    • EOP+5
    • B+3
    • C+3
    • C+7
    • EPRES+11
    • EPRES+15
    • EIND+3
    • EIND+9
    • VIND+3
    • VIND+8
    • VIND+13
    • VIND+18
    • ATTESTQ+8
    • ASK+16
    • ASK+21
    • ASK+24
    • ATTIND+5
    • ATTIND+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCM24OB - [#9001303.02] INTRO+10, EPRES+6, EIND+2, EIND+7, ET+1, VITALS+6, VIND+2, VIND+7, VIND+12, VIND+17
, ATTESTQ+3, ASK+4, ASK+8, ASK+10, ASK+13, ASK+14, ASK+15, ASK+20, ATTIND+3, ATTIND+4
, ATTIND+6, ATTIND+7
^APCM24OB("ATT" ATTESTQ+3
^APCM24OB("B" ASKADD+2, ASKADD+3, EPRES+2, VITALS+2, ASK+3, ASK+6
^APCMMUCN - [#9001300.01] INTRO+4, TP+4
^APCMMUCN("B" INTRO+2
^ATXAX - [#9002226] SEL1+11
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] SEL1+11, SUM+6, USR+1, EIND+3, EIND+9, VIND+3, VIND+8, VIND+13, VIND+18, ATTIND+3
, ATTIND+7

Label References

Name Line Occurrences
$$CTR SUM+2
5 YEAR+28, YEAR+39
6 YEAR+29, YEAR+40
ASK ATTESTQ+19
ASKADD ASKADD+9, ATTEST+2
ATTEST ASKADD+4
ATTESTQ ATTEST+1
ATTIND ASK+11
C C+4, C+7, C+9
CXIT C+3
DEMO ASKADD+7, SUM+8
EIND EPRES+7
EPRES ASKADD+6
ET EPRES+6, VITALS+6
IMMREG ATTESTQ+16, ATTESTQ+17, ATTESTQ+18
INTRO YEAR+7, YEAR+8
NODEV ZIS+4
PRV PRV+6, PRV+12, SEL1+5, DEMO+2
SEL1 SEL1+4
TP YEAR+41, YEAR+42, PRV+3
TSKMN ZIS+7
VITALS ASKADD+8
XIT APCM24E+5, INTRO+7, INTRO+8, ZIS+2, ZIS+3, ZIS+4, ZIS+6, DRIVER+5, NODEV1+4, TSKMN+5
YEAR YEAR+10, YEAR+13, YEAR+30

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS+4!, ZIS+5!*
A ASKADD+2*, ASKADD+4, XIT+8!, ATTESTQ+3*
APCMADDQ ASKADD+1!
APCMADDQ("ANS" EPRES+4!, EPRES+18*, EIND+5*, EIND+11*, VITALS+4!, VIND+5*, VIND+10*, VIND+15*, VIND+20*
>> APCMAP ATTESTQ+19*, ASK+19, ASK+26, ATTIND+9
APCMATTE ATTESTQ+1!, ATTESTQ+5
APCMATTE( ATTESTQ+4*, ASK+19*, ASK+26*, ATTIND+9*
>> APCMBD YEAR+1*, YEAR+24*, YEAR+25*, YEAR+26*, YEAR+27*, YEAR+38*, YEAR+41, SUM+4, B+2*, B+6*
, C+1*, C+5*, C+9
>> APCMDELT ZIS+4, ZIS+5
>> APCMDEMO DEMO+1, DEMO+2
>> APCMED YEAR+1*, YEAR+24*, YEAR+25*, YEAR+26*, YEAR+27*, YEAR+38*, YEAR+42, SUM+4, B+2*, B+6*
, C+1*, C+7*, C+9
>> APCMIND EPRES+7, EPRES+8*, EPRES+13*, EPRES+17*, ASK+11, ASK+12*, ASK+18*, ASK+23*
>> APCMIND( INTRO+10*, ASKADD+4, EPRES+3, VITALS+3, ATTESTQ+3, ASK+7
>> APCMO ATTESTQ+14*
>> APCMORA( ATTESTQ+4*, ATTESTQ+14
>> APCMP EPRES+18*, EIND+1*, EIND+3, EIND+5, EIND+9, EIND+11, VIND+1*, VIND+3, VIND+5, VIND+8
, VIND+10, VIND+13, VIND+15, VIND+18, VIND+20, ASK+19*, ASK+26*, ATTIND+1*, ATTIND+3, ATTIND+7
, ATTIND+9
>> APCMPER YEAR+1*, YEAR+11*, YEAR+13, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+30, YEAR+38, B+2*
, B+5*, C+1*
>> APCMPLTY PRV+1*, PRV+4*, PRV+6, PRV+12, SEL1+5, EPRES+7, ATTESTQ+12, ASK+11
>> APCMPRTX SEL1+9*
APCMPRV PRV+7!, PRV+13!, SEL1+1
APCMPRV( PRV+11*, SEL1+3*, SEL1+11*, SUM+6, EPRES+18, EIND+1, VIND+1, ATTESTQ+4, ASK+19, ASK+26
, ATTIND+1
>> APCMQ YEAR+12*, YEAR+13, YEAR+22*, YEAR+30, YEAR+36*, ASKADD+7, ASKADD+9, ATTEST+2, EPRES+1*, EPRES+8*
, EPRES+12*, EPRES+16*, EIND+1, EIND+4*, EIND+10*, VITALS+1*, VIND+1, VIND+4*, VIND+9*, VIND+14*
, VIND+19*, ATTESTQ+2*, ATTESTQ+9*, ATTESTQ+10*, ATTESTQ+11*, ATTESTQ+14, ASK+17*, ASK+22*, ASK+25*, ATTIND+1
, ATTIND+8*
>> APCMQU ATTESTQ+19*, ASK+4, ASK+10
>> 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
>> APCMRPTC INTRO+2*, INTRO+4, TP+4
>> APCMRPTP TP+1*, YEAR+23*, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+28, YEAR+29, YEAR+37*, YEAR+38
, YEAR+39, YEAR+40
>> APCMRPTT INTRO+1*
>> APCMSUM RT+1*
>> APCMVDT YEAR+1*, YEAR+9*, YEAR+11, B+2*, B+5*, C+1*
>> APCMX ATTESTQ+14*, ATTESTQ+16, ATTESTQ+17, ATTESTQ+18, ASK+3, ASK+5, ASK+19, ASK+26, ATTIND+9
>> APCMY EPRES+2*, EPRES+3, EPRES+4, EPRES+6, EPRES+18, EIND+2, EIND+5, EIND+7, EIND+11, ET+1
, VITALS+2*, VITALS+3, VITALS+4, VITALS+6, VIND+2, VIND+5, VIND+7, VIND+10, VIND+12, VIND+15
, VIND+17, VIND+20, ASK+3*, ASK+4, ASK+8, ASK+10, ASK+13, ASK+14, ASK+15, ASK+20
, ATTIND+3, ATTIND+4, ATTIND+6, ATTIND+7
>> APCMZ EIND+2*, ET+1*, VIND+2*, ASK+8*
B ASKADD+3*, ASKADD+4, XIT+8!
BD XIT+10!
C XIT+8!
D PRV+9*!, SEL1*!, XIT+8!
DA INTRO+6!, YEAR+21!, YEAR+35!, PRV+2!, ZIS+6*, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, VIND+3!
, VIND+8!, VIND+13!, VIND+18!, ATTESTQ+8!, ASK+16!, ASK+21!, ASK+24!, ATTIND+5!, ATTIND+7!
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+6!, YEAR+6!, YEAR+21!, YEAR+35!, PRV+2!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, B+3!
, C+2!, C+6!, CXIT+1!, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, VIND+3!, VIND+8!, VIND+13!
, VIND+18!, ATTESTQ+8!, ASK+16!, ASK+21!, ASK+24!, ATTIND+5!, ATTIND+7!
DIR("?" YEAR+5*
DIR("A" INTRO+6*, YEAR+4*, YEAR+21*, YEAR+35*, PRV+2*, B+3*, C+2*, C+6*, EPRES+11*, EPRES+15*
, EIND+3*, EIND+9*, VIND+3*, VIND+8*, VIND+13*, VIND+18*, ATTESTQ+8*, ASK+14*, ASK+21*, ASK+24*
, ATTIND+3*, ATTIND+7*
DIR("B" INTRO+6*, EPRES+11*, EPRES+15*, EIND+3*, EIND+9*, VIND+3*, VIND+8*, VIND+13*, VIND+18*, ATTESTQ+8*
, ASK+15*, ASK+21*, ASK+24*, ATTIND+4*, ATTIND+7*
DIR(0 INTRO+6*, YEAR+3*, YEAR+21*, YEAR+35*, PRV+2*, EOP+5*, B+3*, C+2*, C+6*, EPRES+11*
, EPRES+15*, EIND+3*, EIND+9*, VIND+3*, VIND+8*, VIND+13*, VIND+18*, ATTESTQ+8*, ASK+14*, ASK+21*
, ASK+24*, ATTIND+3*, ATTIND+6*
DIRUT INTRO+7, YEAR+7, YEAR+8*, YEAR+22, YEAR+36, PRV+3, XIT+4!, EOP+4!, B+3*, B+4
, EPRES+12, EPRES+16, EIND+4, EIND+10, VIND+4, VIND+9, VIND+14, VIND+19, ATTESTQ+9, ASK+17
, ASK+22, ASK+25, ATTIND+8
DLAYGO XIT+5!
DLOUT EOP+4!
DOD XIT+4!
DT C+4
DTOUT EOP+4!
DUOUT YEAR+8, XIT+4!, EOP+4!, B+3
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 APCM24E+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!, ASK+8*
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+10, SEL1+11, SUM+6, USR+1, LOC+1, EIND+3, EIND+9, VIND+3, VIND+8, VIND+13
, VIND+18, ATTESTQ+3, ASK+13, ASK+14, ASK+15, ASK+19, ASK+20, ASK+26, ATTIND+3, ATTIND+4
, ATTIND+6, ATTIND+7, ATTIND+9
V XIT+8!
W XIT+8!
X INTRO+4*, INTRO+10*, TP+4*, SEL1+11*, SUM+6*, XIT+7!, XIT+8!, CTR~, CTR+1, B+3!
, EIND+7*, VIND+7*, VIND+12*, VIND+17*, ATTESTQ+3*, ATTESTQ+4, ASK+10*
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+8, YEAR+9, YEAR+10, YEAR+23, YEAR+37, PRV+4, PRV+10, PRV+11, SEL1+1, SEL1+2
, SEL1+3, SEL1+8, SEL1+9, SEL1+11, XIT+8!, CTR~, CTR+1, B+3!, B+5, B+6
, C+3, C+4, C+5, C+7, EPRES+13, EPRES+17, EIND+5, EIND+6, EIND+11, VIND+5
, VIND+6, VIND+10, VIND+11, VIND+15, VIND+16, VIND+20, ATTESTQ+4*, ATTESTQ+10, ASK+6*, ASK+7
, ASK+18, ASK+23, ASK+26, ATTIND+9
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