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

Package: IHS GPRA Information System

Routine: BGP3CL


Information

BGP3CL ; IHS/CMI/LAB - IHS GPRA 10 CMS REPORT DRIVER 01 Jul 2010 8:19 PM 30 Mar 2013 6:08 PM ;

Source Information

Source file <BGP3CL.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS GPRA Information System 5 ^BGP3C1  ^BGP3CP  EP^BGP3CSI  EN^BGP3CSII  TAXCHK^BGP3CTXC  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$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.
DATES ;
PAUSE ;EP - pause
BEN ;
ZIS ;call to XBDBQUE
LOC() ;EP - Return location name from file 4 based on DUZ(2).
ZIS1 ;
GETLOC ;
TEXT ;
F ;calendar year
DRIVER ;
SETLIST ;
WARN ;
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
XIT ;
TP1
CTR(X,Y) ;EP - Center X in a field Y wide.
ENDDATE ;
SETIND ;
TSKMN ;EP ENTRY POINT FROM TASKMAN

External References

Name Field # of Occurrence
^%ZIS ZIS+2
^%ZISC DRIVER+5, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5, XIT+10
^BGP3C1 DRIVER+2
^BGP3CP DRIVER+4
EP^BGP3CSI SETIND+2
EN^BGP3CSII SETLIST+6
TAXCHK^BGP3CTXC SETLIST+9
^DIC GETLOC+1
^DIR WARN+18, TP1+4, TP1+18, BEN+3, TEXT+3, PAUSE+2, EOP+5, DATES+3, DATES+5, F+6
^XBFMK XIT+11
EN^XBVK XIT+2
$$FMTE^XLFDT TP1+16, TP1+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS 2013 CRS - RPMS PATIENT DATA FOR ANNUAL CMS HOSPITAL REPORTING",80)
  • Line Location: BGP3CL+5
Function Call: WRITE
  • Prompt: !," ***************************"
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !," ****** W A R N I N G ******"
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !," ***************************"
  • Line Location: WARN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+4
Function Call: WRITE
  • Prompt: !,"This report was last updated in April 2009 through the CMS Specifications "
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !,"Manual for discharges effective 4/1/2009, and the CRS CMS Report was included"
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !,"in CRS Version 8.0."
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+8
Function Call: WRITE
  • Prompt: !,"It is recommended this report NOT be used until it is updated. OIT "
  • Line Location: WARN+9
Function Call: WRITE
  • Prompt: !,"anticipates this report will be updated with CRS Version 11.0."
  • Line Location: WARN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+11
Function Call: WRITE
  • Prompt: !,"If you decide to use the information included in this report, because the"
  • Line Location: WARN+12
Function Call: WRITE
  • Prompt: !,"information may be inaccurate you will need to validate the information "
  • Line Location: WARN+13
Function Call: WRITE
  • Prompt: !,"reported against the current CMS Specifications Manual. The URL for the "
  • Line Location: WARN+14
Function Call: WRITE
  • Prompt: !,"current manual is listed below."
  • Line Location: WARN+15
Function Call: WRITE
  • Prompt: !!,"http://www.qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier2&cid=1141662756099"
  • Line Location: WARN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+17
Function Call: WRITE
  • Prompt: !,^BGPCTRL(BGPRPTYR,42,X,0)
  • Line Location: WARN+22
Function Call: WRITE
  • Prompt: !!,"No measures selected."
  • Line Location: SETIND+3
Function Call: WRITE
  • Prompt: !!,"No lists selected for topic ",$P(^BGPCMSIB(BGPXX,0),U,3),"."
  • Line Location: SETLIST+7
Function Call: WRITE
  • Prompt: !!,"No patient lists selected."
  • Line Location: SETLIST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: TP1+1
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: TP1+9
Function Call: WRITE
  • Prompt: !!,"The date range for this report is: ",$$FMTE^XLFDT(BGPBD)," to ",$$FMTE^XLFDT(BGPED),!!
  • Line Location: TP1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+2
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. 2013)"
  • 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, 2013 and you type in 6/30/08 the system will assume the year"
  • Line Location: ENDDATE+4
Function Call: WRITE
  • Prompt: !,"as 1908 since that is a date in the past. You must type 6/30/2013 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: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2013"
  • 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:
    • WARN+18
    • TP1+4
    • TP1+18
    • BEN+3
    • TEXT+3
    • PAUSE+2
    • EOP+5
    • DATES+3
    • DATES+5
    • 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)
^BGPCMSIB( SETLIST+4, SETLIST+7
^BGPCTRL - [#90241.01] WARN+22
^BGPCTRL("B" WARN+21
^DIC(4 - [#4] GETLOC+1, LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP3CL+5
BEN TEXT+4
DATES DATES+7
ENDDATE TP1+7
F TP1+8, F+10
PAUSE WARN+23, SETIND+3, SETLIST+5, SETLIST+7, SETLIST+8
TP1 TP1+9, TP1+15, BEN+4
TSKMN ZIS1+1
XIT INTRO+1, WARN+19, WARN+20, GETLOC+2, SETIND+3, SETLIST+8, TP1+5, ZIS+3, DRIVER+6, 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+10*, TP1+11*, TP1+12*, TP1+13*, TP1+14*, TP1+16, TP1+22
>> BGPBEN BEN+1*, BEN+5*
>> BGPDO TP1+15, TP1+18*, TP1+19*, TP1+20*
>> BGPED TP1*, TP1+10*, TP1+11*, TP1+12*, TP1+13*, TP1+14*, TP1+15, TP1+16, TP1+22
>> BGPHOSP GETLOC+3*
BGPIND SETIND+1!, SETIND+3
BGPIND( SETLIST+2
>> BGPPER TP1+9, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14*, ENDDATE+7*, DATES+5*, F+1*, F+11*
BGPPLST SETLIST+1!
BGPPLSTL SETLIST+1!, SETLIST+8
BGPPLSTL( SETLIST+7
>> BGPQTR TP1+6*, TP1+7, TP1+8, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14
>> BGPRPTYR WARN+21*, WARN+22
>> BGPTEXD TEXT+1*, TEXT+5*
>> BGPTP TP1*
>> BGPUDBD TP1+14, DATES+1*, DATES+3*, DATES+7
>> BGPUDED DATES+1*
>> BGPVDT ENDDATE+7*, DATES+5*, DATES+7, F+1*, F+9*, F+11
>> BGPXX SETLIST+2*, SETLIST+4, SETLIST+7
C XIT+7!
D XIT+7!
DA WARN+18!, TP1+4!, TP1+18!, BEN+3!, TEXT+3!
DFOUT PAUSE+1!, EOP+4!
DIADD XIT+4!
DIC GETLOC+1!*
DIC("A" GETLOC+1*
DIC("B" GETLOC+1*
DIC(0 GETLOC+1*
DIR WARN+18!, TP1+4!, TP1+18!, BEN+3!, TEXT+3!, XIT+3!, PAUSE+1!, PAUSE+2!, EOP+3~, EOP+4!
, EOP+5!, DATES+2!, DATES+4!, F+6!
DIR("?" F+5*
DIR("A" WARN+18*, TP1+3*, TP1+18*, BEN+2*, TEXT+3*, PAUSE+2*, DATES+2*, DATES+4*, F+4*
DIR("B" WARN+18*, TP1+18*, BEN+3*, TEXT+3*
DIR(0 WARN+18*, TP1+2*, TP1+18*, BEN+2*, TEXT+3*, PAUSE+2*, EOP+5*, DATES+2*, DATES+4*, F+3*
DIRUT WARN+19, TP1+5, TP1+19, BEN+4, TEXT+4, XIT+3!, PAUSE+1!, EOP+4!, F+7, F+8*
DLAYGO XIT+4!
DLOUT PAUSE+1!, EOP+4!
DOD XIT+3!
DT TP1+15
DTOUT PAUSE+1!, EOP+4!
DUOUT XIT+3!, PAUSE+1!, EOP+4!, 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+3, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+1
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP3CL+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, SETLIST+4, SETLIST+7, USR+1, LOC+1
V XIT+7!
W XIT+7!
X WARN+22*, XIT+6!, XIT+7!, CTR~, CTR+1
X1 XIT+6!
X2 XIT+6!
X3 XIT+6!
X4 XIT+6!
X5 XIT+6!
X6 XIT+6!
Y WARN+20, GETLOC+2, GETLOC+3, TP1+6, TP1+20, BEN+5, TEXT+5, XIT+7!, CTR~, CTR+1
, DATES+3, DATES+5, F+9, F+10
Z XIT+7!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED DRIVER+1, XIT+2, EOP+2
>> ZTREQ DRIVER+1*, XIT+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