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

Package: IHS GPRA Information System

Routine: BGP1CL


Information

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

Source Information

Source file <BGP1CL.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS GPRA Information System 5 ^BGP1C1  ^BGP1CP  EP^BGP1CSI  EN^BGP1CSII  TAXCHK^BGP1CTXC  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
IHS GPRA Information System 20 BGP1DAP  BGP1DCL  BGP1DEL  BGP1DGPU  BGP1DHE  BGP1DHW  BGP1DL  BGP1DNDB  
BGP1DNE  BGP1DNG  BGP1DNGP  BGP1DNGS  BGP1DON  BGP1DPA  BGP1DPA9  BGP1DPE  
BGP1DPP  BGP1DSTM  BGP1EOD  BGP1NPL  

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
^BGP1C1 DRIVER+2
^BGP1CP DRIVER+4
EP^BGP1CSI SETIND+2
EN^BGP1CSII SETLIST+6
TAXCHK^BGP1CTXC 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 2011 CRS - RPMS PATIENT DATA FOR ANNUAL CMS HOSPITAL REPORTING",80)
  • Line Location: BGP1CL+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. 2011)"
  • 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, 2011 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/2011 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. 2011"
  • 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 BGP1CL+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 BGP1CL+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 |  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