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

Package: Patient Care Component Table Maintiance

Routine: APCM25H


Information

APCM25H ; IHS/CMI/LAB - IHS MU ;

Source Information

Source file <APCM25H.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Patient Care Component Table Maintiance 4 PROC^APCM25E1  IMMREGH^APCM25EA  ^APCM25EP  (PT,REPORT)^APCM25SL  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 3 ^DIC  ^DIK  ^DIR  
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 APCM25N  
iCare 1 APCM 25 M2IH  

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
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 - TEXT
6 ;EP
ASK ;
FAC ;
METHOD ;
MUYEAR ;
ATTEST ;get answers to attestation questions for each provider.
C ;EP
ATTESTQ ;EP
ZIS ;call to XBDBQUE
DRIVER ;
XIT ;
YEAR ;
EP
ATTIND
INTRO ;
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^APCM25E1 DRIVER+1, NODEV1+1
IMMREGH^APCM25EA IMMREG+1
^APCM25EP DRIVER+3, NODEV1+2
PT^APCM25SL SUM+8
REPORT^APCM25SL ZIS+1
KILL^AUPNPAT XIT+6, XIT+11
^DIC FAC+2
^DIK ZIS+6
^DIR INTRO+5, MUYEAR+6, YEAR+8, METHOD+2, EOP+5, 5+6, C+3, C+9, ATTIND+6, ATTIND+8
^XBDBQUE NODEV+2
^XBFMK XIT+12
EN^XBVK XIT+2
$$FMADD^XLFDT 5+9, 5+10
$$FMTE^XLFDT YEAR+12, SUM+4, SUM+6, 5+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,15,X,0),!
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,18,X,0),!
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for which the EH is demonstrating Meaningful"
  • Line Location: MUYEAR+3
Function Call: WRITE
  • Prompt: !!,"You can only enter 2015, 2016, 2017 or 2018"
  • Line Location: MUYEAR+10
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: MUYEAR+11
Function Call: WRITE
  • Prompt: !!,"Date range is: ",$$FMTE^XLFDT(APCMBD)," - ",$$FMTE^XLFDT(APCMED),"."
  • Line Location: YEAR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FAC+2
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF MODIFIED STAGE 2 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: !!,"Hospital: ",$P(^DIC(4,APCMFAC,0),U,1)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+6
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+8
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+9
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 the calendar year entered."
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !!,"The ending date must be within the calendar year entered."
  • Line Location: C+10
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: C+14
Function Call: WRITE
  • Prompt: !!,"Please answer the following attestation and exclusion questions.",!
  • Line Location: ATTESTQ+6
Function Call: WRITE
  • Prompt: !,^APCM25OB(APCMY,APCMQU,X,0)
  • Line Location: ASK+5
Routine Call
  • DIC
  • Line Location:
    • FAC+2
Routine Call
  • DIR
  • Line Location:
    • INTRO+5
    • MUYEAR+6
    • YEAR+8
    • METHOD+2
    • EOP+5
    • 5+6
    • C+3
    • C+9
    • ATTIND+6
    • ATTIND+8
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCM25OB - [#9001304.02] INTRO+9, ATTESTQ+3, ASK+4, ASK+5, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8
^APCM25OB("ATT" ATTESTQ+3
^APCM25OB("B" ASK+3
^APCMMUCN - [#9001300.01] INTRO+4
^APCMMUCN("B" INTRO+2
^DIC(4 - [#4] FAC+2, SUM+7, LOC+1, ATTIND+3, ATTIND+8
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR SUM+2
5 YEAR+11, 5+8, 5+9
6 YEAR+13
ASK ATTESTQ+12
ATTESTQ ATTEST+2
C C+5, C+6, C+9, C+10, C+13
DEMO ATTEST+3, SUM+9
EP MUYEAR+7, MUYEAR+8
FAC DEMO+2
IMMREG ATTESTQ+9, ATTESTQ+10, ATTESTQ+11
INTRO YEAR+3
METHOD FAC+3
MUYEAR MUYEAR+11
NODEV ZIS+4
TP YEAR+14, YEAR+15, METHOD+3
TSKMN ZIS+7
XIT EP, INTRO+6, INTRO+7, 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
%ZIS ZIS+4!, ZIS+5!*
A XIT+8!, ATTESTQ+3*
>> APCMAP ATTESTQ+12*, ATTIND+10
APCMATTE ATTEST+1!, ATTESTQ+1!, ATTESTQ+5
APCMATTE( ATTESTQ+4*, ATTIND+10*
>> APCMBD YEAR+1*, YEAR+12*, YEAR+14, SUM+4, SUM+6, 5+2*, 5+10*, C+1*, C+7*, C+13
>> APCMDELT ZIS+4, ZIS+5
>> APCMDEMO DEMO+1, DEMO+2
>> APCMED YEAR+1*, YEAR+12*, YEAR+15, SUM+4, 5+2*, 5+10*, C+1*, C+11*, C+13
APCMEDUD MUYEAR+1!, MUYEAR+13*, SUM+6
>> APCMFAC FAC+1*, FAC+4*, SUM+7, ATTESTQ+4, ATTIND+3, ATTIND+8, ATTIND+10
>> APCMHD MUYEAR+14*, 5+9, C+10
>> APCMIND( INTRO+9*, ATTESTQ+3
>> APCMLD MUYEAR+14*, 5+8, C+6
>> APCMMETH METHOD+1*, METHOD+4*
>> APCMO ATTESTQ+7*
>> APCMORA( ATTESTQ+4*, ATTESTQ+7
APCMPER MUYEAR+1!, MUYEAR+12*, MUYEAR+13, MUYEAR+14, YEAR+12, SUM+5
>> APCMQ YEAR+2*, YEAR+3, YEAR+9*, ATTEST+3, 5+7*, C+3*, C+4*, ATTESTQ+2*, ATTESTQ+7, ATTIND+9*
>> APCMQU ATTESTQ+12*, ASK+4, ASK+5
>> APCMQUIT PRV+1*, ZIS+2
>> APCMROT SUM+9, ZIS+4
>> APCMRPT ZIS+3, ZIS+6
>> APCMRPTC INTRO+2*, INTRO+4
>> APCMRPTP TP+1*, YEAR+10*, YEAR+11, YEAR+12, YEAR+13
>> APCMRPTT INTRO+1*
>> APCMSUM RT+1*
APCMVDT MUYEAR+1!, MUYEAR+9*, MUYEAR+12, YEAR+1*, 5+2*, C+1*
>> APCMX ATTESTQ+7*, ATTESTQ+9, ATTESTQ+10, ATTESTQ+11, ASK+3, ATTIND+10
>> APCMY ASK+3*, ASK+4, ASK+5, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8
B XIT+8!
BD XIT+10!
C XIT+8!
D XIT+8!
DA INTRO+5!, YEAR+8!, METHOD+2!, FAC+2!, ZIS+6*, ATTIND+6!, ATTIND+8!
DFOUT EOP+4!
DIADD XIT+5!
DIC FAC+2*!
DIC("A" FAC+2*
DIC("B" FAC+2*
DIC(0 FAC+2*
DIK ZIS+6*!
DIR INTRO+5!, MUYEAR+2!, MUYEAR+6!, YEAR+8!, METHOD+2!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, 5+3!
, 5+6!, C+2!, C+8!, ATTIND+6!, ATTIND+8!
DIR("?" MUYEAR+5*
DIR("A" INTRO+5*, MUYEAR+4*, YEAR+8*, METHOD+2*, 5+6*, C+2*, C+8*, ATTIND+3*, ATTIND+8*
DIR("B" INTRO+5*, METHOD+2*, ATTIND+4*, ATTIND+5*, ATTIND+8*
DIR(0 INTRO+5*, MUYEAR+2*, YEAR+8*, METHOD+2*, EOP+5*, 5+5*, C+2*, C+8*, ATTIND+3*, ATTIND+7*
DIRUT INTRO+6, MUYEAR+7, YEAR+9, METHOD+3, XIT+4!, EOP+4!, 5+6*, 5+7, C+3, ATTIND+9
DLAYGO XIT+5!
DLOUT EOP+4!
DOD XIT+4!
DT C+5
DTOUT EOP+4!
DUOUT MUYEAR+8, XIT+4!, EOP+4!, 5+6
DUZ USR+1
DUZ(2 FAC+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 APCM25H+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+9, FAC+2, SUM+7, USR+1, LOC+1, ATTESTQ+3, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8
, ATTIND+10
V XIT+8!
W XIT+8!
X INTRO+4*, INTRO+9*, XIT+7!, XIT+8!, CTR~, CTR+1, 5+3!, ATTESTQ+3*, ATTESTQ+4, ASK+5*
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+7, MUYEAR+9, MUYEAR+11, YEAR+10, METHOD+4, FAC+3, FAC+4, XIT+8!, CTR~, CTR+1
, 5+3!, 5+8, 5+9, 5+10, C+4, C+5, C+6, C+7, C+9, C+10
, C+11, ATTESTQ+4*, 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