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

Package: Patient Care Component Table Maintiance

Routine: APCM14ET


Information

APCM14ET ;IHS/CMI/LAB - IHS MU PATIENT LIST;

Source Information

Source file <APCM14ET.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Patient Care Component Table Maintiance 5 (ATTESTQ,EPRES,VITALS)^APCM14E  (PROC,VDT)^APCM14E1  ^APCM14EP  EN^APCM14SI  (EN,PT,REPORT)^APCM14SL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
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  
Registration 1 TERM^VALM0  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
iCare 1 APCM 14 M1 2014 PAT LISTS  

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 ;
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 ;
6 ;
ASKADD ;
ATTEST ;get answers to attestation questions for each provider.
C ;EP
B ;
ZIS ;call to XBDBQUE
DRIVER ;
XIT ;
YEAR ;
SI1 ;NOW SELECT ONE OR MORE W/IN THE TOPIC
LISTS ;any lists with measures?
SI
INTRO ;
CXIT ;
NODEV1 ;

External References

Name Field # of Occurrence
^%ZIS ZIS+5
^%ZISC DRIVER+4, NODEV1+3, XIT+2
^%ZTLOAD TSKMN+5
DEMOCHK^APCLUTL DEMO+1
ATTESTQ^APCM14E ATTEST+1
EPRES^APCM14E ASKADD+7
VITALS^APCM14E ASKADD+9
PROC^APCM14E1 DRIVER+1, NODEV1+1
VDT^APCM14E1 ASKADD+11
^APCM14EP DRIVER+3, NODEV1+2
EN^APCM14SI INTRO+18
EN^APCM14SL LISTS+10
PT^APCM14SL SUM+7
REPORT^APCM14SL ZIS+1
KILL^AUPNPAT XIT+7, XIT+12
^DIC SEL1+7
MIX^DIC1 PRV+9, SEL1
^DIK ZIS+6, ZIS+7
^DIR INTRO+8, INTRO+11, INTRO+15, SI1+16, YEAR+6, YEAR+21, YEAR+35, PRV+2, EOP+5, LISTS+5
, LISTS+6, B+3, C+3, C+7
TERM^VALM0 SI1+2
^XBDBQUE NODEV+2
^XBFMK XIT+13
EN^XBVK XIT+3
$$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: !!,"This options produces Patient Lists which will display patient-specific "
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"data used to calculate the results documented in the Meaningful Use "
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !,"Performance Report. One or more lists may be selected.",!
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: INTRO+10
Function Call: WRITE
  • Prompt: !!,"No measures selected"
  • Line Location: INTRO+19
Function Call: WRITE
  • Prompt: !?5,APCMC,")",?9,$P(^APCMM14L(X,0),U,3)
  • Line Location: SI1+14
Function Call: WRITE
  • Prompt: !,"No REPORTS selected for this objective."
  • Line Location: SI1+17
Function Call: WRITE
  • Prompt: !,"No REPORTs selected for this objective."
  • Line Location: SI1+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: TP+4
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,17,X,0),!
  • Line Location: TP+5
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+6
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF STAGE 1 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: !,"Report Aborted"
  • Line Location: ZIS+7
Function Call: WRITE
  • Prompt: !!,"PATIENT LISTS"
  • Line Location: LISTS+3
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+4
Function Call: WRITE
  • Prompt: !!,"No lists selected.",!
  • Line Location: LISTS+11
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
Routine Call
  • DIC
  • Line Location:
    • SEL1+7
Routine Call
  • DIR
  • Line Location:
    • INTRO+8
    • INTRO+11
    • INTRO+15
    • SI1+16
    • YEAR+6
    • YEAR+21
    • YEAR+35
    • PRV+2
    • EOP+5
    • LISTS+5
    • LISTS+6
    • B+3
    • C+3
    • C+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCMM14C - [#9001302.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCM14OB - [#9001302.02] INTRO+22, INTRO+23, SI1+5, SI1+13
^APCM14OB("B" INTRO+22, ASKADD+2, ASKADD+3, ASKADD+4
^APCMM14C - [#9001302.03] XIT+1
^APCMM14L - [#9001302.06] SI1+9, SI1+10, SI1+14
^APCMMUCN - [#9001300.01] INTRO+4, TP+5
^APCMMUCN("B" INTRO+2
^ATXAX - [#9002226] SEL1+11
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] SEL1+11, SUM+6, USR+1
^XUSEC("APCMZ PATIENT LISTS" LISTS+4

Label References

Name Line Occurrences
$$CTR SUM+2
5 YEAR+28, YEAR+39
6 YEAR+29, YEAR+40
ASKADD ASKADD+10, ASKADD+12
ATTEST ASKADD+5
C C+4, C+7, C+9
CXIT C+3
DEMO ASKADD+8, ATTEST+2, SUM+8
INTRO INTRO+18, SI+1, YEAR+7, YEAR+8
LISTS SI
NODEV ZIS+4
PRV PRV+6, PRV+12, SEL1+5, DEMO+2
SEL1 SEL1+4
SI SI1+21
TP YEAR+41, YEAR+42, PRV+3
TSKMN ZIS+8
XIT APCM14ET+6, INTRO+12, INTRO+13, INTRO+16, ZIS+2, ZIS+3, ZIS+4, ZIS+6, ZIS+7, 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+5, XIT+9!
APCMADDQ ASKADD+1!
>> APCMANS SI1+19*
APCMATTE ASKADD+1!
>> 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
>> APCMC SI1+9*, SI1+11*, SI1+14*, SI1+15, SI1+19*
>> APCMCR SI1+8*, SI1+9, SI1+10
>> 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
>> APCMI SI1+19*
>> APCMIND INTRO+19, SI1+5*, SI1+7*, SI1+9, SI1+10, SI1+13, SI1+19
>> APCMIND( INTRO+20, INTRO+22*, INTRO+23*, ASKADD+5
APCMINDL SI1+1!
APCMINDL( SI1+19*
APCMINDO SI1+4!
APCMINDO( SI1+5*, SI1+6, SI1+7
>> APCMINDZ INTRO+17*, INTRO+18, INTRO+23
APCMLIST LISTS+1!, LISTS+9!, LISTS+11, LISTS+12*
APCMLIST( SI1+5
>> APCMO SI1+9*, SI1+10, SI1+11, SI1+14*
>> APCMORD SI1+6*, SI1+7
>> 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
>> APCMPRTX SEL1+9*
APCMPRV PRV+7!, PRV+13!, SEL1+1
APCMPRV( PRV+11*, SEL1+3*, SEL1+11*, SUM+6
>> APCMQ SI+1, SI1+1*, SI1+6, YEAR+12*, YEAR+13, YEAR+22*, YEAR+30, YEAR+36*, ASKADD+8, ASKADD+10
, ASKADD+12, ATTEST+2, LISTS+2*, LISTS+7*
APCMQUIT SI1+22!, PRV+5*, PRV+6, PRV+10*, PRV+12, SEL1+1*, SEL1+5, SEL1+8*, ZIS+2, LISTS+1!
>> APCMROT SUM+8, ZIS+4
>> APCMRPT ZIS+3, ZIS+6, ZIS+7
>> APCMRPTC INTRO+2*, INTRO+4, TP+5
>> 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 SI1+1!, SI1+9!
APCMX( SI1+11*, SI1+14
APCMY SI1+1!, SI1+14!
APCMY( SI1+14*, SI1+19
B ASKADD+3*, ASKADD+5, XIT+9!
BD XIT+11!
C ASKADD+4*, ASKADD+5, XIT+9!
D PRV+9*!, SEL1*!, XIT+9!
DA INTRO+11!, INTRO+15!, YEAR+21!, YEAR+35!, PRV+2!, ZIS+6*, ZIS+7*, LISTS+6!
DFOUT EOP+4!
DIADD XIT+6!
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+8!, INTRO+11!, INTRO+15!, SI1+16!, YEAR+6!, YEAR+21!, YEAR+35!, PRV+2!, XIT+5!, EOP+3~
, EOP+4!, EOP+5!, LISTS+5!, LISTS+6!, B+3!, C+2!, C+6!, CXIT+1!
DIR("?" YEAR+5*
DIR("A" INTRO+8*, INTRO+11*, INTRO+15*, SI1+15*, YEAR+4*, YEAR+21*, YEAR+35*, PRV+2*, LISTS+5*, LISTS+6*
, B+3*, C+2*, C+6*
DIR("B" INTRO+11*, INTRO+15*, LISTS+6*
DIR(0 INTRO+8*, INTRO+11*, INTRO+15*, SI1+15*, YEAR+3*, YEAR+21*, YEAR+35*, PRV+2*, EOP+5*, LISTS+5*
, LISTS+6*, B+3*, C+2*, C+6*
DIRUT INTRO+8!, INTRO+12, INTRO+16, SI1+6, SI1+9, SI1+14, SI1+16*, SI1+18, SI1+21, YEAR+7
, YEAR+8*, YEAR+22, YEAR+36, PRV+3, XIT+5!, EOP+4!, LISTS+7, B+3*, B+4
DLAYGO XIT+6!
DLOUT EOP+4!
DOD XIT+5!
DT C+4
DTOUT EOP+4!
DUOUT INTRO+8!, SI1+16, YEAR+8, XIT+5!, EOP+4!, B+3
DUZ USR+1, LISTS+4
DUZ(2 LOC+1
E XIT+9!
ED XIT+11!
F XIT+9!
G XIT+9!
H XIT+9!
I XIT+9!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+8
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF APCM14ET+5, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!, ZIS+5!
>> IORVOFF SI1+13
>> IORVON SI1+13
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
J XIT+9!
K XIT+9!
L XIT+9!
M XIT+9!
N XIT+9!, XIT+10!
N1 XIT+10!
N2 XIT+10!
N3 XIT+10!
N4 XIT+10!
N5 XIT+10!
N6 XIT+10!
O INTRO+22*, XIT+9!
P XIT+9!
>> POP ZIS+6, ZIS+7
Q INTRO+18*, INTRO+19*, XIT+9!
R XIT+9!
S XIT+9!
T XIT+9!
U INTRO+22, INTRO+23, SI1+5, SI1+13, SI1+14, SEL1+11, SUM+6, USR+1, LOC+1
V XIT+9!
W XIT+9!
X INTRO+4*, INTRO+20*, INTRO+22, INTRO+23*, SI1+9*, SI1+10*, SI1+11, SI1+14*, TP+5*, SEL1+11*
, SUM+6*, XIT+8!, XIT+9!, CTR~, CTR+1, B+3!
X1 XIT+8!
X2 XIT+8!
X3 XIT+8!
X4 XIT+8!
X5 XIT+8!
X6 XIT+8!
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y INTRO+13, INTRO+17, INTRO+22*, SI1+17, SI1+19, 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+9!, CTR~
, CTR+1, LISTS+7, LISTS+8, B+3!, B+5, B+6, C+3, C+4, C+5, C+7
Z XIT+9!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED XIT+4, EOP+2
>> ZTREQ XIT+4*
>> 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