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

Package: Patient Care Component Table Maintiance

Routine: APCM11N


Information

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

Source Information

Source file <APCM11N.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Patient Care Component Table Maintiance 5 C^APCM11E  PROC^APCM11E1  ^APCM11EP  EN^APCM11SI  (EN,PT,REPORT)^APCM11SL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
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  
Registration 1 TERM^VALM0  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
iCare 2 APCM 11 M1 2011 HOSP PAT LISTS  APCM MU HOSP PATIENT 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
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 ;
FAC ;
A ;fiscal year
ATTEST ;get answers to attestation questions for each provider.
C ;
B ;
ZIS ;call to XBDBQUE
DRIVER ;
XIT ;
SI1 ;NOW SELECT ONE OR MORE W/IN THE TOPIC
LISTS ;any lists with measures?
SI
INTRO ;
NODEV1 ;

External References

Name Field # of Occurrence
^%ZIS ZIS+5
^%ZISC DRIVER+4, NODEV1+3, XIT+3
^%ZTLOAD TSKMN+5
DEMOCHK^APCLUTL DEMO+1
C^APCM11E C+1
PROC^APCM11E1 DRIVER+1, NODEV1+1
^APCM11EP DRIVER+3, NODEV1+2
EN^APCM11SI INTRO+20
EN^APCM11SL LISTS+9
PT^APCM11SL SUM+7
REPORT^APCM11SL ZIS+1
KILL^AUPNPAT XIT+8, XIT+13
^DIC FAC+2
^DIK ZIS+6, ZIS+7
^DIR INTRO+9, INTRO+13, INTRO+17, SI1+18, RT+8, TP+8, TP+31, PP+5, ATTEST+10, ATTEST+20
, ATTEST+21, EOP+5, A+6, B+5, LISTS+4, LISTS+5
TERM^VALM0 SI1+2
^XBDBQUE NODEV+2
^XBFMK XIT+14
EN^XBVK XIT+4
$$FMADD^XLFDT B+8, B+9
$$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,15,X,0),!
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,$$CTR("IHS 2011 Stage 1 MU Patient List for Hospitals/CAHs")
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"This report will enable a provider to review his or her Meaningful Use "
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !,"performance by patient-specific data. You will be asked to select one or "
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !,"more Performance Measures on which to report.",!
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !!!
  • Line Location: INTRO+11
Function Call: WRITE
  • Prompt: ^APCMMUCN(APCMRPTC,12,X,0),!
  • Line Location: INTRO+12
Function Call: WRITE
  • Prompt: !!,"No measures selected"
  • Line Location: INTRO+20
Function Call: WRITE
  • Prompt: !?5,APCMC,")",?9,$P(^APCMMUPL(X,0),U,3)
  • Line Location: SI1+16
Function Call: WRITE
  • Prompt: !,"No REPORTS selected for this objective."
  • Line Location: SI1+19
Function Call: WRITE
  • Prompt: !,"No REPORTs selected for this objective."
  • Line Location: SI1+20
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 data."
  • Line Location: RT+3
Function Call: WRITE
  • Prompt: !,"The full report will produce approximately 40 pages of data for the facility."
  • Line Location: RT+4
Function Call: WRITE
  • Prompt: !,"Please take this into consideration when running print jobs, ensuring"
  • Line Location: RT+5
Function Call: WRITE
  • Prompt: !,"dedicated time on your printer and sufficient paper supplies to complete "
  • Line Location: RT+6
Function Call: WRITE
  • Prompt: !,"your job.",!
  • Line Location: RT+7
Function Call: WRITE
  • Prompt: !!,"Historical data from the previous federal fiscal 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: !!,"Several Stage 1 Meaningful Use Performance Measures require an attestation of "
  • Line Location: ATTEST+8
Function Call: WRITE
  • Prompt: !,"Yes or No for each provider for which the report is being run.",!
  • Line Location: ATTEST+9
Function Call: WRITE
  • Prompt: !,^APCMMUM(APCMY,19,X,0)
  • Line Location: ATTEST+18
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF 2011 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: !!,"Hospital: ",$P(^DIC(4,APCMFAC,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: !!,"Enter the Federal Fiscal Year for which report is to be run. Use a 4 digit",!,"year, e.g. 2011."
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !!,"IMPORTANT NOTE: This report may be run for any 90-day period. For submission"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !,"to CMS, the report should not span Federal Fiscal Years."
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !!,"Enter the start date of the 90-day report period.",!
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !
  • Line Location: B+5
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
Routine Call
  • DIC
  • Line Location:
    • FAC+2
Routine Call
  • DIR
  • Line Location:
    • INTRO+9
    • INTRO+13
    • INTRO+17
    • SI1+18
    • RT+8
    • TP+8
    • TP+31
    • PP+5
    • ATTEST+10
    • ATTEST+20
    • ATTEST+21
    • EOP+5
    • A+6
    • B+5
    • LISTS+4
    • LISTS+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCMMUDC - [#9001300.03] Classic Fileman Calls
^APCMMUDP - [#9001300.04] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] TP+25
^APCMMUCN - [#9001300.01] INTRO+12
^APCMMUCN("B" INTRO+2
^APCMMUDC - [#9001300.03] XIT+1
^APCMMUDP - [#9001300.04] XIT+2
^APCMMUM - [#9001300.02] INTRO+21, SI1+5, SI1+15, ATTEST+18, ATTEST+20, ATTEST+21
^APCMMUM("B" TP+23, ATTEST+3, ATTEST+17
^APCMMUPL - [#9001300.06] SI1+9, SI1+10, SI1+16
^DIC(4 - [#4] FAC+2, ATTEST+20, ATTEST+21, SUM+6, LOC+1
^VA(200 - [#200] USR+1
^XUSEC("APCMZ PATIENT LISTS" LISTS+3

Label References

Name Line Occurrences
$$CTR INTRO+5, SUM+2
@( TP+11
A A+10
DEMO ATTEST+24, SUM+8
FAC DEMO+2, ATTEST+11, ATTEST+12
INTRO INTRO+20
LISTS SI
NODEV ZIS+4
RT TP+9
SI SI1+23
SUM ATTEST+7
TP TP+12, TP+13, PP+6, FAC+3
TSKMN ZIS+8
XIT APCM11N+6, INTRO+14, INTRO+15, INTRO+18, RT+9, TP+25, 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+10!
>> APCMANS SI1+21*
APCMATTE ATTEST+1!, ATTEST+7
APCMATTE( ATTEST+6*, ATTEST+14, ATTEST+23*
>> APCMBD TP+12, TP+25, SUM+4, A+1*, A+12*, B+4*, B+8*, B+9
>> APCMC SI1+9*, SI1+13*, SI1+16*, SI1+17, SI1+21*
>> APCMCR SI1+8*, SI1+9, SI1+10
>> APCMDELT ZIS+4, ZIS+5
>> APCMDEMO DEMO+1, DEMO+2
>> APCMED TP+13, SUM+4, A+1*, A+12*, B+4*, B+8*
>> APCMFAC FAC+1*, FAC+4*, ATTEST+6, ATTEST+20, ATTEST+21, ATTEST+23, SUM+6
>> APCMI SI1+21*
>> APCMIND INTRO+20, SI1+5*, SI1+7*, SI1+9, SI1+10, SI1+15, SI1+21
>> APCMIND( INTRO+21*, TP+25, ATTEST+5
APCMINDL SI1+1!
APCMINDL( SI1+21*
APCMINDO SI1+4!
APCMINDO( SI1+5*, SI1+6, SI1+7
>> APCMINDZ INTRO+19*, INTRO+20, INTRO+21
APCMLIST LISTS+1!, LISTS+8!, LISTS+10, LISTS+11*
APCMLIST( SI1+5
>> APCMO SI1+9*, SI1+10, SI1+13, SI1+16*
>> APCMORD SI1+6*, SI1+7
>> APCMPBD SUM+5, A+13*, B+9*
>> APCMPED SUM+5, A+13*, B+9*
>> APCMPER A+1*, A+11*, A+12, A+13, B+4*, B+7*
>> APCMQ SI1+1*, SI1+6, TP+24*, TP+25, TP+26*, TP+32*, TP+33*, ATTEST+13*, ATTEST+14, ATTEST+22*
, ATTEST+24
APCMQUIT SI1+24!, PRV+6*, ZIS+2, LISTS+1!
>> APCMROT SUM+8, ZIS+4
>> APCMRPT ZIS+3, ZIS+6, ZIS+7
>> APCMRPTC INTRO+2*, INTRO+12
>> APCMRPTP TP+1*, TP+10*, TP+11, PP+2, PP+3
>> APCMRPTT INTRO+1*
>> APCMSUM RT+1*, RT+10*
>> APCMVDT A+1*, A+9*, A+11, B+4*, B+7*
>> APCMWPP PP+1*, PP+7*, SUM+5
APCMX SI1+1!, SI1+9!, ATTEST+14*, ATTEST+17, ATTEST+23
APCMX( SI1+13*, SI1+16
APCMY SI1+1!, SI1+16!, ATTEST+17*, ATTEST+18, ATTEST+20, ATTEST+21
APCMY( SI1+16*, SI1+21
B XIT+10!
BD XIT+12!
C XIT+10!
D XIT+10!
DA INTRO+13!, INTRO+17!, RT+8!, TP+8!, TP+31!, PP+5!, FAC+2!, ATTEST+10!, ATTEST+20!, ATTEST+21!
, ZIS+6*, ZIS+7*, LISTS+5!
DFOUT EOP+4!
DIADD XIT+7!
DIC FAC+2*!
DIC("A" FAC+2*
DIC("B" FAC+2*
DIC(0 FAC+2*
DIK ZIS+6*!, ZIS+7*!
DIR INTRO+9!, INTRO+13!, INTRO+17!, SI1+18!, RT+8!, TP+8!, TP+31!, PP+5!, ATTEST+10!, ATTEST+20!
, ATTEST+21!, XIT+6!, EOP+3~, EOP+4!, EOP+5!, A+6!, B+5!, LISTS+4!, LISTS+5!
DIR("?" A+5*
DIR("A" INTRO+9*, INTRO+13*, INTRO+17*, SI1+17*, RT+8*, TP+8*, TP+31*, PP+5*, ATTEST+10*, ATTEST+20*
, ATTEST+21*, A+4*, B+5*, LISTS+4*, LISTS+5*
DIR("B" INTRO+13*, INTRO+17*, RT+8*, TP+31*, PP+5*, ATTEST+10*, ATTEST+20*, ATTEST+21*, LISTS+5*
DIR(0 INTRO+9*, INTRO+13*, INTRO+17*, SI1+17*, RT+8*, TP+8*, TP+31*, PP+5*, ATTEST+10*, ATTEST+20*
, ATTEST+21*, EOP+5*, A+3*, B+5*, LISTS+4*, LISTS+5*
DIRUT INTRO+9!, INTRO+14, INTRO+18, SI1+6, SI1+9, SI1+16, SI1+18*, SI1+20, SI1+23, RT+9
, TP+9, TP+32, PP+6, ATTEST+11, ATTEST+22, XIT+6!, EOP+4!, A+7, A+8*, B+5*
, B+6, LISTS+6
DLAYGO XIT+7!
DLOUT EOP+4!
DOD XIT+6!
DTOUT EOP+4!
DUOUT INTRO+9!, SI1+18, XIT+6!, EOP+4!, A+8, B+5
DUZ USR+1, LISTS+3
DUZ(2 TP+25, FAC+2, LOC+1
E XIT+10!
ED XIT+12!
F XIT+10!
G XIT+10!
H XIT+10!
I XIT+10!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+8
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF APCM11N+5, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!, ZIS+5!
>> IORVOFF SI1+15
>> IORVON SI1+15
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
J XIT+10!
K XIT+10!
L XIT+10!
M XIT+10!
N XIT+10!, XIT+11!
N1 XIT+11!
N2 XIT+11!
N3 XIT+11!
N4 XIT+11!
N5 XIT+11!
N6 XIT+11!
O XIT+10!
P XIT+10!
>> POP ZIS+6, ZIS+7
Q XIT+10!
R XIT+10!
S XIT+10!
T XIT+10!
U INTRO+21, SI1+5, SI1+15, SI1+16, TP+25, FAC+2, ATTEST+20, ATTEST+21, SUM+6, USR+1
, LOC+1
V XIT+10!
W XIT+10!
X INTRO+12*, INTRO+21*, SI1+9*, SI1+10*, SI1+13, SI1+16*, TP+23*, TP+25, ATTEST+2*, ATTEST+3
, ATTEST+6, ATTEST+18*, XIT+9!, XIT+10!, CTR~, CTR+1, B+5!
X1 XIT+9!
X2 XIT+9!
X3 XIT+9!
X4 XIT+9!
X5 XIT+9!
X6 XIT+9!
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y INTRO+15, INTRO+19, SI1+19, SI1+21, RT+10, TP+10, TP+33, PP+7, FAC+3, FAC+4
, ATTEST+6*, ATTEST+12, ATTEST+23, XIT+10!, CTR~, CTR+1, A+9, A+10, B+5!, B+7
, B+8, LISTS+6, LISTS+7
Z ATTEST+3*, ATTEST+4, ATTEST+5, XIT+10!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED XIT+5, EOP+2
>> ZTREQ XIT+5*
>> 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