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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGP0CP

Package: IHS GPRA Information System

Routine: BGP0CP


Information

BGP0CP ; IHS/CMI/LAB - IHS gpra print 02 Jul 2009 9:06 AM ;

Source Information

Source file <BGP0CP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS GPRA Information System 3 $$RPTVER^BGP0BAN  $$DSCH^BGP0CU  $$DATE^BGP0UTL  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
IHS GPRA Information System 12 BGP0CL  BGP0CP1  BGP0CP11  BGP0CP2  BGP0CP3  BGP0CP4  BGP0CP5  BGP0CP6  
BGP0CPU  BGP0CPU2  BGP0CPU3  BGP0CPU4  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP
END ;
HDR ;EP
HDR1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
EOP ;EP - End of page.
LIST1 ;DISPLAY LIST 1
HEADER ;
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
L1H ;EP - list one header
C(X,X2,X3) ;
PRINT ;
EXIT ;
ENDTIME ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
$$AGE^AUPNPAT LIST1+21
$$HRN^AUPNPAT LIST1+21
$$RPTVER^BGP0BAN HEADER1+5, HEADER+5
$$DSCH^BGP0CU LIST1+23, LIST1+27
$$DATE^BGP0UTL LIST1+23, LIST1+27
^DIR HDR+3, EXIT+1, EOP+5
$$VAL^XBDIQ1 LIST1+24, LIST1+26
$$FMTE^XLFDT HEADER1+3, HEADER1+7, HEADER+6, HEADER+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: LIST1+6
Function Call: WRITE
  • Prompt: !!,"No Visits to report"
  • Line Location: LIST1+11
Function Call: WRITE
  • Prompt: "*"
  • Line Location: LIST1+20
Function Call: WRITE
  • Prompt: $S(BGPPEX[2!(BGPPEX[1):"*",1:"")
  • Line Location: LIST1+23
Function Call: WRITE
  • Prompt: !!,"TOTAL VISITS: ",+$G(BGPCOUNT(BGPIND,BGPPLSTL))
  • Line Location: LIST1+32
Function Call: WRITE
  • Prompt: !!,"TOTAL VISITS THAT WOULD BE EXCLUDED: ",+$G(BGPEXCP(BGPIND,BGPPLSTL))
  • Line Location: LIST1+34
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?27,"HRN",?34,"SEX",?38,"AGE",?42,"HOSP DATES",?62,"ADMISSION TYPE"
  • Line Location: L1H+3
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?27,"HRN",?34,"SEX",?38,"AGE",?42,"CLASS/BENEFICIARY",?64,"HOSP DATES"
  • Line Location: L1H+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: L1H+5
Function Call: WRITE
  • Prompt: !,"*Indicates CRS would have excluded this patient based on this data if RPMS"
  • Line Location: L1H+8
Function Call: WRITE
  • Prompt: !,"exclusion logic had been applied.",!
  • Line Location: L1H+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "ZZZZZZZ",!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR("*** IHS 2010 CMS Hospital Quality Reporting Initiative ***",80)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR($$RPTVER^BGP0BAN,80)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80)
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !,$P($G(^BGPCMSMT(BGPPLSTL,71)),U)
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: !,$P($G(^BGPCMSMT(BGPPLSTL,71)),U,3)
  • Line Location: HEADER1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: $$CTR("Cover Page",80)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** IHS 2010 CMS Hospital Quality Reporting Initiative ***",80)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$$CTR($$RPTVER^BGP0BAN,80)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,$$CTR("Report Generated by: "_$$USR,80)
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: ENDTIME+2
Routine Call
  • DIR
  • Line Location:
    • HDR+3
    • EXIT+1
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP("AD" LIST1+16
^AUPNVSIT - [#9000010] LIST1+15
^BGPCMSIT - [#90379.01] HEADER1+8
^BGPCMSMT - [#90379.07] HDR1+2, HDR1+4, LIST1+2, LIST1+3, LIST1+5, LIST1+6, LIST1+22, LIST1+25, LIST1+29, LIST1+33
, L1H+3, L1H+4, L1H+7, HEADER1+9, HEADER1+10
^BGPCTRL - [#90241.01] HEADER+13, HEADER+15
^BGPCTRL("B" HEADER+12
^DIC(4 - [#4] HEADER1+6, HEADER+7
^DPT - [#2] LIST1+21
^TMP($J PRINT+1!, END+2!
^VA(200 - [#200] HEADER1+3, USR+1
^XTMP("BGP0C1" END+1!, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19

Label References

Name Line Occurrences
$$CTR HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER+3, HEADER+4, HEADER+5
, HEADER+6, HEADER+7, HEADER+8, HEADER+9, ENDTIME+2
$$USR HEADER+8
END PRINT+6
ENDTIME HEADER+10
EXIT END+3
HDR PRINT1+4, HDR1+3, LIST1+2, LIST1+4, LIST1+17, LIST1+31, L1H+1, HEADER+14
HDR1 PRINT1+6
HEADER PRINT+5
HEADER1 HDR+2
L1H LIST1+8, LIST1+17, LIST1+31
LIST1 PRINT1+9
PRINT1 PRINT+7

Naked Globals

Name Field # of Occurrence
^(0 USR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPAST LIST1+10*
>> BGPBD HEADER1+7, HEADER+9
>> BGPBT ENDTIME+1
>> BGPCOUNT( LIST1+28*, LIST1+32
>> BGPED HEADER1+7, HEADER+9
>> BGPET ENDTIME+1
>> BGPEXCP( LIST1+20*, LIST1+34
>> BGPGPG PRINT+3*, HDR+2, HEADER1+1*, HEADER1+3
>> BGPGUI PRINT+2, HEADER1+2
>> BGPH END+1, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19
>> BGPHOSP HEADER1+6, HEADER+7
>> BGPHR ENDTIME+1*, ENDTIME+2
>> BGPIND PRINT1+1*, PRINT1+2, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19, LIST1+20, LIST1+23, LIST1+28
, LIST1+32, LIST1+34, HEADER1+8
>> BGPIOSL PRINT+2*, HDR1+3, LIST1+4, LIST1+17, LIST1+31, L1H+1, HEADER+14
>> BGPJ END+1, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19
>> BGPL1P1 PRINT1+3*, PRINT1+8*, HEADER1+15*
BGPL2 LIST1+1!
>> BGPM ENDTIME+2*
>> BGPNAME LIST1+12*, LIST1+13, LIST1+14, LIST1+19, LIST1+21
>> BGPPEX LIST1+19*, LIST1+20, LIST1+23
>> BGPPLSTL PRINT1+2*, HDR1+2, HDR1+4, LIST1+2, LIST1+3, LIST1+5, LIST1+6, LIST1+11, LIST1+12, LIST1+13
, LIST1+14, LIST1+19, LIST1+20, LIST1+22, LIST1+25, LIST1+28, LIST1+29, LIST1+32, LIST1+33, LIST1+34
, L1H+3, L1H+4, L1H+7, HEADER1+9, HEADER1+10
>> BGPPLSTL( PRINT1+1, PRINT1+2
>> BGPQUIT PRINT+4*, PRINT+6, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+7, HDR1+2, HDR1+3, LIST1+3, LIST1+4
, LIST1+7, LIST1+9, LIST1+12, LIST1+13, LIST1+14, LIST1+17, LIST1+30, LIST1+31, L1H+1, HDR+3*
, HEADER+13, HEADER+14
>> BGPS ENDTIME+2*
>> BGPTEXD HDR1+1, LIST1+2, HEADER+1
>> BGPTS ENDTIME+1*, ENDTIME+2*
>> BGPVINP LIST1+16*, LIST1+23, LIST1+24, LIST1+27
>> BGPVSIT LIST1+14*, LIST1+15, LIST1+16, LIST1+19
>> BGPVSIT0 LIST1+15*, LIST1+21, LIST1+23, LIST1+27
BGPX HDR1+2*, HDR1+4, LIST1+3*, LIST1+5, HEADER+12*, HEADER+13, HEADER+15, HEADER+17!
>> BGPY HEADER+13*, HEADER+15
>> DFN LIST1+13*, LIST1+14, LIST1+19, LIST1+21, LIST1+26
DFOUT EOP+4!
DIR HDR+3!, EXIT+1!, EOP+3~
DIR("A" EXIT+1*
DIR(0 HDR+3*, EXIT+1*, EOP+5*
DIRUT EXIT+1*, EOP+4!
DLOUT EOP+4!
DT HEADER1+3, HEADER+6
DTOUT HDR+3, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+3, USR+1
DUZ(2 LIST1+21
IO HDR+3, EXIT+1
IO("S" EOP+2
IO(0 HDR+3, EXIT+1
IOF HEADER1+1
IOSL PRINT+2
IOST HDR+3, EXIT+1, EOP+1
>> IOT EOP+2
U LIST1+21, LIST1+22, LIST1+23, LIST1+25, LIST1+27, LIST1+33, L1H+3, L1H+4, L1H+7, HEADER1+3
, HEADER1+6, HEADER1+8, HEADER1+9, HEADER1+10, HEADER+7, USR+1
X HDR+1~, HEADER1+7*, HEADER1+8*, HEADER1+9*, HEADER1+10*, C~, C+2, HEADER+9*, ENDTIME+2*, CTR~
, CTR+1
X2 C~
X3 C~
Y HDR+1~, HDR+3, CTR~, CTR+1
Z HDR+1~
>> ZTQUEUED HDR+3, EXIT+1, EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All