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

Package: Patient Care Component Table Maintiance

Routine: APCM13E


Information

APCM13E ; IHS/CMI/LAB - IHS MU ;

Source Information

Source file <APCM13E.m>

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Patient Care Component Table Maintiance 3 APCM13ET  APCM13H  APCM13N  
iCare 1 APCM 13 M1IP  

Entry Points

Name Comments DBIA/ICR reference
DEMO ;
SUM ;display summary of this report
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
TSKMN ;EP ENTRY POINT FROM TASKMAN
SEL1
NODEV ;
RT ;
PP ;
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 ;
ASKADD ;
A ;fiscal year
ATTEST ;get answers to attestation questions for each provider.
C ;EP
B ;
ZIS ;call to XBDBQUE
DRIVER ;
XIT ;
LISTS ;any lists with measures?
INTRO ;
PL ;do you want any patient lists
CXIT ;
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^APCM13E1 DRIVER+1, NODEV1+1
^APCM13EP DRIVER+3, NODEV1+2
EN^APCM13SL LISTS+9
PT^APCM13SL SUM+8
REPORT^APCM13SL ZIS+1
RT^APCM13SL LISTS+11
KILL^AUPNPAT XIT+6, XIT+11
^DIC SEL1+7
MIX^DIC1 PRV+9, SEL1
^DIK ZIS+6, ZIS+7
^DIR INTRO+5, INTRO+9, RT+8, TP+3, TP+17, PP+5, PRV+2, ASKADD+11, ASKADD+16, ATTEST+5
, ATTEST+15, ATTEST+16, EOP+5, LISTS+4, LISTS+5, A+6, B+3, C+3, C+7
^XBDBQUE NODEV+2
^XBFMK XIT+12
EN^XBVK XIT+2
$$FMADD^XLFDT B+6, B+7, C+11
$$FMTE^XLFDT SUM+4, SUM+5

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: !!!
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,12,X,0),!
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !!,"A full report will include an itemized listing of all performance measures"
  • Line Location: RT+2
Function Call: WRITE
  • Prompt: !,"and will include a summary report. The summary report excludes itemized"
  • Line Location: RT+3
Function Call: WRITE
  • Prompt: !,"data. The full report will produce approximately 40 pages of data for"
  • Line Location: RT+4
Function Call: WRITE
  • Prompt: !,"each provider. Please take this into consideration when running print jobs,"
  • Line Location: RT+5
Function Call: WRITE
  • Prompt: !,"ensuring dedicated time on your printer and sufficient paper supplies"
  • Line Location: RT+6
Function Call: WRITE
  • Prompt: !,"to complete your job. "
  • Line Location: RT+7
Function Call: WRITE
  • Prompt: !!,"Historical data from the previous calendar year can be included in this report."
  • Line Location: PP+2
Function Call: WRITE
  • Prompt: !!,"Historical data from the 90-days immediately preceding the currently",!,"selected report period can be included."
  • Line Location: PP+3
Function Call: WRITE
  • Prompt: !,"IMPORTANT NOTICE: Including previous period data may significantly increase ",!,"run time.",!
  • Line Location: PP+4
Function Call: WRITE
  • Prompt: !?5,"- ",$P(^VA(200,X,0),U,1)
  • Line Location: SEL1+11
Function Call: WRITE
  • Prompt: !,^APCM13OB(APCMY,24,APCMZ,0)
  • Line Location: ASKADD+9
Function Call: WRITE
  • Prompt: !,^APCM13OB(APCMY,25,X,0)
  • Line Location: ASKADD+14
Function Call: WRITE
  • Prompt: !!,"Several Stage 1 Meaningful Use Performance Measures require an attestation of "
  • Line Location: ATTEST+3
Function Call: WRITE
  • Prompt: !,"Yes or No for each provider for which the report is being run.",!
  • Line Location: ATTEST+4
Function Call: WRITE
  • Prompt: !,^APCM13OB(APCMY,19,X,0)
  • Line Location: ATTEST+13
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF 2013 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: !?5,"Previous Period: ",?31,$$FMTE^XLFDT(APCMPBD)," to ",?31,$$FMTE^XLFDT(APCMPED)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!,"Providers: "
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !?5,$P(^VA(200,X,0),U,1)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+6
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+7
Function Call: WRITE
  • Prompt: !!,"PATIENT LISTS"
  • Line Location: LISTS+2
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the APCMZ PATIENT LISTS security key.",!
  • Line Location: LISTS+3
Function Call: WRITE
  • Prompt: !!,"No lists selected.",!
  • Line Location: LISTS+10
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for which report is to be run. Use a 4 digit",!,"year, e.g. 2013."
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !!,"Enter the start date of the 90-day report period.",!
  • 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
Routine Call
  • DIC
  • Line Location:
    • SEL1+7
Routine Call
  • DIR
  • Line Location:
    • INTRO+5
    • INTRO+9
    • RT+8
    • TP+3
    • TP+17
    • PP+5
    • PRV+2
    • ASKADD+11
    • ASKADD+16
    • ATTEST+5
    • ATTEST+15
    • ATTEST+16
    • EOP+5
    • LISTS+4
    • LISTS+5
    • A+6
    • B+3
    • C+3
    • C+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^APCMM13C - [#9001301.03] Classic Fileman Calls
^APCMM13P - [#9001301.04] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] TP+11
^APCM13OB - [#9001301.02] INTRO+13, ASKADD+3, ASKADD+9, ASKADD+14, ATTEST+13, ATTEST+15, ATTEST+16
^APCM13OB("B" TP+9, ATTEST+12
^APCMMUCN - [#9001300.01] INTRO+4, INTRO+8
^APCMMUCN("B" INTRO+2
^ATXAX - [#9002226] SEL1+11
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] SEL1+11, ASKADD+11, ASKADD+16, ATTEST+15, ATTEST+16, SUM+7, USR+1
^XUSEC("APCMZ PATIENT LISTS" LISTS+3

Label References

Name Line Occurrences
$$CTR SUM+2
@( TP+6
A A+10
C C+4, C+7, C+9
CXIT C+3
DEMO ATTEST+19, SUM+9
LISTS PL+1, LISTS+11
NODEV ZIS+4
PRV PRV+6, PRV+12, SEL1+5, DEMO+2, ASKADD+19, ATTEST+6, ATTEST+7
RT TP+4
SEL1 SEL1+4
TP TP+7, TP+8, PP+6, PRV+3
TSKMN ZIS+8
XIT APCM13E+6, INTRO+10, INTRO+11, RT+9, TP+11, ZIS+2, ZIS+3, ZIS+4, ZIS+6, ZIS+7
, 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
%ZIS ZIS+4!, ZIS+5!*
A XIT+8!
APCMADDQ ASKADD+2!
APCMADDQ( ASKADD+3*, ASKADD+5
APCMADDQ("ANS" ASKADD+13*, ASKADD+18*
APCMATTE ATTEST+1!
APCMATTE( ATTEST+2*, ATTEST+9, ATTEST+18*
>> APCMBD TP+7, TP+11, SUM+4, A+1*, A+12*, B+2*, B+6*, B+7, C+1*, C+5*
, C+9, C+11, C+12
>> APCMDELT ZIS+4, ZIS+5
>> APCMDEMO DEMO+1, DEMO+2
>> APCMED TP+8, SUM+4, A+1*, A+12*, B+2*, B+6*, C+1*, C+7*, C+9, C+12
>> APCMIND( INTRO+13*, TP+11
>> APCMIWPL PL+1
APCMLIST LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
>> APCMP ASKADD+10*, ASKADD+11, ASKADD+13, ASKADD+15*, ASKADD+16, ASKADD+18, ATTEST+14*, ATTEST+15, ATTEST+16, ATTEST+18
>> APCMPBD SUM+5, A+13*, B+7*, C+12*
>> APCMPED SUM+5, A+13*, B+7*, C+12*
>> APCMPER A+1*, A+11*, A+12, A+13, B+2*, B+5*, C+1*
>> APCMPLTY PRV+1*, PRV+4*, PRV+6, PRV+12, SEL1+5
>> APCMPRTX SEL1+9*
APCMPRV PRV+7!, PRV+13!, SEL1+1
APCMPRV( PRV+11*, SEL1+3*, SEL1+11*, ASKADD+3, ASKADD+10, ASKADD+15, ATTEST+2, ATTEST+14, SUM+7
>> APCMQ TP+10*, TP+11, TP+12*, TP+18*, TP+19*, ASKADD+4*, ASKADD+5, ASKADD+10, ASKADD+12*, ASKADD+15
, ASKADD+17*, ASKADD+19, ATTEST+8*, ATTEST+9, ATTEST+14, ATTEST+17*, ATTEST+19
APCMQUIT PRV+5*, PRV+6, PRV+10*, PRV+12, SEL1+1*, SEL1+5, SEL1+8*, ZIS+2, LISTS+1!, LISTS+11
>> APCMROT SUM+9, ZIS+4
>> APCMRPT ZIS+3, ZIS+6, ZIS+7
>> APCMRPTC INTRO+2*, INTRO+4, INTRO+8
>> APCMRPTP TP+1*, TP+5*, TP+6, PP+2, PP+3
>> APCMRPTT INTRO+1*
>> APCMSD C+11*
>> APCMSUM RT+1*, RT+10*
>> APCMVDT A+1*, A+9*, A+11, B+2*, B+5*, C+1*
>> APCMWPP PP+1*, PP+7*, SUM+5
>> APCMX ASKADD+5*, ASKADD+8, ASKADD+13, ASKADD+18, ATTEST+9*, ATTEST+12, ATTEST+18
>> APCMY ASKADD+8*, ASKADD+9, ASKADD+14, ATTEST+12*, ATTEST+13, ATTEST+15, ATTEST+16
>> APCMZ ASKADD+9*
B XIT+8!
BD XIT+10!
C XIT+8!
D PRV+9*!, SEL1*!, XIT+8!
DA INTRO+9!, RT+8!, TP+3!, TP+17!, PP+5!, PRV+2!, ASKADD+11!, ASKADD+16!, ATTEST+5!, ATTEST+15!
, ATTEST+16!, ZIS+6*, ZIS+7*, LISTS+5!
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*!, ZIS+7*!
DIR INTRO+5!, INTRO+9!, RT+8!, TP+3!, TP+17!, PP+5!, PRV+2!, ASKADD+11!, ASKADD+16!, ATTEST+5!
, ATTEST+15!, ATTEST+16!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, LISTS+4!, LISTS+5!, A+6!, B+3!
, C+2!, C+6!, CXIT+1!
DIR("?" A+5*
DIR("A" INTRO+5*, INTRO+9*, RT+8*, TP+3*, TP+17*, PP+5*, PRV+2*, ASKADD+11*, ASKADD+16*, ATTEST+5*
, ATTEST+15*, ATTEST+16*, LISTS+4*, LISTS+5*, A+4*, B+3*, C+2*, C+6*
DIR("B" INTRO+9*, RT+8*, TP+17*, PP+5*, ASKADD+11*, ASKADD+16*, ATTEST+5*, ATTEST+15*, ATTEST+16*, LISTS+5*
DIR(0 INTRO+5*, INTRO+9*, RT+8*, TP+3*, TP+17*, PP+5*, PRV+2*, ASKADD+11*, ASKADD+16*, ATTEST+5*
, ATTEST+15*, ATTEST+16*, EOP+5*, LISTS+4*, LISTS+5*, A+3*, B+3*, C+2*, C+6*
DIRUT INTRO+5!, INTRO+10, RT+9, TP+4, TP+18, PP+6, PRV+3, ASKADD+12, ASKADD+17, ATTEST+6
, ATTEST+17, XIT+4!, EOP+4!, LISTS+6, A+7, A+8*, B+3*, B+4
DLAYGO XIT+5!
DLOUT EOP+4!
DOD XIT+4!
DT C+4
DTOUT EOP+4!
DUOUT INTRO+5!, XIT+4!, EOP+4!, A+8, B+3
DUZ USR+1, LISTS+3
DUZ(2 TP+11, 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+8
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF APCM13E+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, ZIS+7
Q XIT+8!
R XIT+8!
S XIT+8!
T XIT+8!
U INTRO+13, TP+11, SEL1+11, ASKADD+11, ASKADD+16, ATTEST+15, ATTEST+16, SUM+7, USR+1, LOC+1
V XIT+8!
W XIT+8!
X INTRO+4*, INTRO+8*, INTRO+13*, TP+9*, TP+11, SEL1+11*, ASKADD+3*, ASKADD+14*, ATTEST+2*, ATTEST+13*
, SUM+7*, XIT+7!, XIT+8!, CTR~, CTR+1, B+3!
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+11, RT+10, TP+5, TP+19, PP+7, PRV+4, PRV+10, PRV+11, SEL1+1, SEL1+2
, SEL1+3, SEL1+8, SEL1+9, SEL1+11, ASKADD+3*, ASKADD+13, ASKADD+18, ATTEST+2*, ATTEST+7, ATTEST+18
, XIT+8!, CTR~, CTR+1, LISTS+6, LISTS+7, A+9, A+10, B+3!, B+5, B+6
, C+3, C+4, C+5, C+7
Z XIT+8!
>> 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