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

Package: IHS GPRA Information System

Routine: BGP5CL


Information

BGP5CL ; IHS/CMI/LAB - IHS GPRA 05 CMS REPORT DRIVER ;

Source Information

Source file <BGP5CL.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS GPRA Information System 4 ^BGP5C1  ^BGP5CP  EP^BGP5CSI  TAXCHK^BGP5CTXC  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
ENDDATE ;
ZIS ;call to XBDBQUE
LOC() ;EP - Return location name from file 4 based on DUZ(2).
ZIS1 ;
GETLOC ;
CTR(X,Y) ;EP - Center X in a field Y wide.
F ;calendar year
DRIVER ;
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
XIT ;
TP1
SETIND ;
TSKMN ;EP ENTRY POINT FROM TASKMAN

External References

Name Field # of Occurrence
^%ZIS ZIS+2
^%ZISC DRIVER+4, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5, XIT+10
^BGP5C1 DRIVER+1
^BGP5CP DRIVER+3
EP^BGP5CSI SETIND+2
TAXCHK^BGP5CTXC SETIND+4
^DIC GETLOC+1
^DIR TP1+1, TP1+15, EOP+5, ENDDATE+8, F+6
^XBFMK XIT+11
EN^XBVK XIT+2
$$FMADD^XLFDT TP1+11
$$FMTE^XLFDT TP1+13, TP1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS 2005 CRS - RPMS PATIENT DATA FOR ANNUAL CMS HOSPITAL REPORTING",80)
  • Line Location: BGP5CL+5
Function Call: WRITE
  • Prompt: !,"This will produce an Indicator Report for one or more indicators for a year",!,"period you specify. You will be asked to provide: 1) the"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"reporting period and which CMS indicators to list.",!!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !!,"No indicators selected."
  • Line Location: SETIND+3
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: TP1+6
Function Call: WRITE
  • Prompt: !!,"The date range for this report is: ",$$FMTE^XLFDT(BGPBD)," to ",$$FMTE^XLFDT(BGPED),!!
  • Line Location: TP1+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: !!,"When entering dates, if you do not enter a full 4 digit year (e.g. 2005)"
  • Line Location: ENDDATE+1
Function Call: WRITE
  • Prompt: !,"will assume a year in the past, if you want to put in a future date,"
  • Line Location: ENDDATE+2
Function Call: WRITE
  • Prompt: !,"remember to enter the full 4 digit year. For example, if today is"
  • Line Location: ENDDATE+3
Function Call: WRITE
  • Prompt: !,"January 4, 2005 and you type in 6/30/05 the system will assume the year"
  • Line Location: ENDDATE+4
Function Call: WRITE
  • Prompt: !,"as 1905 since that is a date in the past. You must type 6/30/2005 if you"
  • Line Location: ENDDATE+5
Function Call: WRITE
  • Prompt: !,"want a date in the future."
  • Line Location: ENDDATE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDATE+8
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2004"
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+10
Routine Call
  • DIC
  • Line Location:
    • GETLOC+1
Routine Call
  • DIR
  • Line Location:
    • TP1+1
    • TP1+15
    • EOP+5
    • ENDDATE+8
    • F+6
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] GETLOC+1, LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP5CL+5
ENDDATE TP1+4
F TP1+5, F+10
TP1 TP1+6, TP1+12
TSKMN ZIS1+1
XIT INTRO+1, GETLOC+2, SETIND+3, TP1+2, ZIS+3, DRIVER+5, 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+1!, ZIS+2*
A XIT+7!
B XIT+7!
BD XIT+9!
>> BGPBD TP1*, TP1+7*, TP1+8*, TP1+9*, TP1+10*, TP1+11*, TP1+13, TP1+19
>> BGPDO TP1+12, TP1+15*, TP1+16*, TP1+17*
>> BGPED TP1*, TP1+7*, TP1+8*, TP1+9*, TP1+10*, TP1+11*, TP1+12, TP1+13, TP1+19
>> BGPHOSP GETLOC+3*
BGPIND SETIND+1!, SETIND+3
>> BGPPER TP1+6, TP1+7, TP1+8, TP1+9, TP1+10, TP1+11*, ENDDATE+7*, ENDDATE+10*, F+1*, F+11*
>> BGPQTR TP1+3*, TP1+4, TP1+5, TP1+7, TP1+8, TP1+9, TP1+10, TP1+11
>> BGPTP TP1*
>> BGPVDT ENDDATE+7*, ENDDATE+10*, F+1*, F+9*, F+11
C XIT+7!
D XIT+7!
DA TP1+1!, TP1+15!
DFOUT EOP+4!
DIADD XIT+4!
DIC GETLOC+1!*
DIC("A" GETLOC+1*
DIC("B" GETLOC+1*
DIC(0 GETLOC+1*
DIR TP1+1!, TP1+15!, XIT+3!, EOP+3~, EOP+4!, EOP+5!, ENDDATE+8!, F+6!
DIR("?" F+5*
DIR("A" TP1+1*, TP1+15*, ENDDATE+8*, F+4*
DIR("B" TP1+15*
DIR(0 TP1+1*, TP1+15*, EOP+5*, ENDDATE+8*, F+3*
DIRUT TP1+2, TP1+16, XIT+3!, ENDDATE+8*, ENDDATE+9, F+7, F+8*
DIRUTUT EOP+4!
DLAYGO XIT+4!
DLOUT EOP+4!
DOD XIT+3!
DT TP1+12
DTOUT EOP+4!
DUOUT XIT+3!, EOP+4!, ENDDATE+8, F+8
DUZ USR+1
DUZ(2 GETLOC+1, LOC+1
E XIT+7!
ED XIT+9!
F XIT+7!
G XIT+7!
H XIT+7!
I XIT+7!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+1
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP5CL+4
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+1!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT EOP+2
J XIT+7!
K XIT+7!
L XIT+7!
M XIT+7!
N XIT+7!, XIT+8!
N1 XIT+8!
N2 XIT+8!
N3 XIT+8!
N4 XIT+8!
N5 XIT+8!
N6 XIT+8!
O XIT+7!
P XIT+7!
>> POP ZIS+3
Q XIT+7!
R XIT+7!
S XIT+7!
T XIT+7!
U GETLOC+1, USR+1, LOC+1
V XIT+7!
W XIT+7!
X XIT+6!, XIT+7!, CTR~, CTR+1, ENDDATE+8!
X1 XIT+6!
X2 XIT+6!
X3 XIT+6!
X4 XIT+6!
X5 XIT+6!
X6 XIT+6!
Y GETLOC+2, GETLOC+3, TP1+3, TP1+17, XIT+7!, CTR~, CTR+1, ENDDATE+8!, ENDDATE+10, F+9
, F+10
Z XIT+7!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED EOP+2
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*
Info |  Source |  Call 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