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

Package: IHS GPRA Information System

Routine: BGP7CP


Information

BGP7CP ; IHS/CMI/LAB - IHS gpra print ;

Source Information

Source file <BGP7CP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 $$DOD^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP7CL  

Entry Points

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

External References

Name Field # of Occurrence
COMMA^%DTC C+1
$$DOD^AUPNPAT LIST12+7
^DIR HDR+2, EXIT+1, EOP+5
$$FMTE^XLFDT HEADER1+3, HEADER1+6, HEADER+5, HEADER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!,"TOTAL VISITS: ",$G(BGPCOUNT("L1",BGPIND))
  • Line Location: LIST1+7
Function Call: WRITE
  • Prompt: !!,"TOTAL VISITS THAT WILL BE EXCLUDED: ",($G(BGPCOUNT("L1",BGPIND))-$G(BGPCOUNT("L2",BGPIND)))
  • Line Location: LIST1+8
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST2+2
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST2+4
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST2+7
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST2+11
Function Call: WRITE
  • Prompt: !!,"TOTAL VISITS: ",$G(BGPCOUNT("L2",BGPIND))
  • Line Location: LIST2+12
Function Call: WRITE
  • Prompt: !!?2,"Date of Death: ",$$DOD^AUPNPAT(DFN,"E")
  • Line Location: LIST11+7
Function Call: WRITE
  • Prompt: !?2,$P(BGPVAL,U,12)
  • Line Location: LIST11+10
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST12+5
Function Call: WRITE
  • Prompt: !?2,"Date of Death: ",$$DOD^AUPNPAT(DFN,"E")
  • Line Location: LIST12+7
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST13+2
Function Call: WRITE
  • Prompt: !?1,BGPT," ",^XTMP("BGP7C1",BGPJ,BGPH,BGPORDER,BGPIND,"LIST 2",BGPNAME,DFN,BGPVSIT,BGPY,BGPT)
  • Line Location: LIST13+3
Function Call: WRITE
  • Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",!
  • Line Location: LIST13+5
Function Call: WRITE
  • Prompt: !?3,$P(X,"qty: ",1),!?3,"qty: ",$P(X,"qty: ",2)
  • Line Location: LIST13+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: L1H+9
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?25,"HRN",?32,"SEX",?36,"AGE",?40,"HOSP DATES",?60,"ADMISSION TYPE"
  • Line Location: L1H+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: L1H+11
Function Call: WRITE
  • Prompt: !,"* Visits will be excluded from Visit List that has RPMS exclusion",!,"logic applied."
  • Line Location: L1H+12
Function Call: WRITE
  • Prompt: !,$$CTR("PATIENT LIST",80)
  • Line Location: L2H+1
Function Call: WRITE
  • Prompt: !,$$CTR("PLEASE NOTE: The patient's chart should be reviewed",80)
  • Line Location: L2H+11
Function Call: WRITE
  • Prompt: !,$$CTR("to identify other data not listed here.",80)
  • Line Location: L2H+12
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: L2H+13
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?25,"HRN",?32,"SEX",?36,"AGE",?40,"HOSP DATES",?60,"ADMISSION TYPE"
  • Line Location: L2H+14
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: L2H+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
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 2007 CMS Hospital Quality Reporting Initiative ***",80)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: $$CTR("Cover Page",80)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** IHS 2007 CMS Hospital Quality Reporting Initiative ***",80)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$$CTR("CRS 2007, Version 7.0",80)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$$CTR("Report Generated by: "_$$USR,80)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: ENDTIME+2
Routine Call
  • DIR
  • Line Location:
    • HDR+2
    • EXIT+1
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPCMSIA - [#90532.01] PRINT1+4, HDR1+1, HDR1+2, HDR1+3, LIST2+2, LIST2+3, LIST2+4, LIST2+5, LIST2+7, LIST2+11
, LIST12+5, LIST13+2, LIST13+5, L1H+1, L1H+3, L1H+5, L1H+7
^BGPCTRL - [#90241.01] HEADER+12, HEADER+14
^BGPCTRL("B" HEADER+11
^DIC(4 - [#4] HEADER1+5, HEADER+6
^TMP($J PRINT+1!, END+2!
^VA(200 - [#200] HEADER1+3, USR+1
^XTMP("BGP7C1" END+1!, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3
, LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8

Label References

Name Line Occurrences
$$CTR L2H+1, L2H+3, L2H+4, L2H+6, L2H+7, L2H+9, L2H+10, L2H+11, L2H+12, HEADER1+4
, HEADER1+5, HEADER1+6, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7, HEADER+8, ENDTIME+2
$$USR HEADER+7
END PRINT+6
ENDTIME HEADER+9
EXIT END+3
HDR PRINT1+3, PRINT1+5, HDR1+2, LIST1+2, LIST1+6, LIST2+2, LIST2+4, LIST2+7, LIST2+11, LIST11+5
, LIST12+5, LIST13+2, LIST13+5, L1H+2, L1H+6, HEADER+13
HDR1 PRINT1+6
HEADER PRINT+5
HEADER1 HDR+1
L1H LIST1+3, LIST1+6, LIST11+5
L2H LIST2+8, LIST2+11, LIST12+5, LIST13+2, LIST13+5
LIST1 PRINT1+8
LIST11 LIST1+5
LIST12 LIST2+10
LIST13 LIST12+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
>> BGPBD HEADER1+6, HEADER+8
>> BGPBT ENDTIME+1
>> BGPC LIST13+4*, LIST13+6, LIST13+8
>> BGPCOUNT("L1" LIST1+7, LIST1+8
>> BGPCOUNT("L2" LIST1+8, LIST2+12
>> BGPED HEADER1+6, HEADER+8
>> BGPET ENDTIME+1
>> BGPGPG PRINT+3*, HDR+1, HEADER1+1*, HEADER1+3
>> BGPGUI PRINT+2, HEADER1+2
>> BGPH END+1, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3
, LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPHOSP HEADER1+5, HEADER+6
>> BGPHR ENDTIME+1*, ENDTIME+2
>> BGPIND PRINT1+2*, PRINT1+4, HDR1+1, HDR1+2, HDR1+3, LIST1+7, LIST1+8, LIST2+2, LIST2+3, LIST2+4
, LIST2+5, LIST2+7, LIST2+11, LIST2+12, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2
, LIST12+3, LIST12+4, LIST12+5, LIST12+9, LIST13+1, LIST13+2, LIST13+3, LIST13+4, LIST13+5, LIST13+6
, LIST13+8, L1H+1, L1H+3, L1H+5, L1H+7, L2H+2, L2H+5, L2H+8
>> BGPIOSL PRINT+2*, PRINT1+5, HDR1+2, LIST1+6, LIST2+4, LIST2+11, LIST11+5, LIST12+5, LIST13+2, LIST13+5
, L1H+2, L1H+6, HEADER+13
>> BGPJ END+1, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3
, LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPL1P1 LIST1+3*, LIST11+5*, L1H+5
BGPL2 LIST1+1!, LIST2+1*
BGPL2P1 LIST2+2!, LIST2+7*!
>> BGPM ENDTIME+2*
>> BGPNAME LIST11+1*, LIST11+2, LIST11+3, LIST11+4, LIST12+1*, LIST12+2, LIST12+3, LIST12+4, LIST12+9, LIST13+1
, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPORDER PRINT1+1*, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3, LIST12+4
, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPQUIT PRINT+4*, PRINT+6, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, HDR1+1, HDR1+2, LIST1+2, LIST1+4
, LIST1+6, LIST1+9, LIST2+2, LIST2+3, LIST2+4, LIST2+7, LIST2+9, LIST2+11, LIST11+1, LIST11+3
, LIST11+5, LIST12+1, LIST12+3, LIST12+5, LIST12+9, LIST13+2, LIST13+4, LIST13+5, L1H+1, L1H+2
, L1H+5, L1H+6, HDR+2*, HEADER+12, HEADER+13
>> BGPS ENDTIME+2*
>> BGPT LIST13+1*, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPTS ENDTIME+1*, ENDTIME+2*
>> BGPVAL LIST11+4*, LIST11+6, LIST11+8, LIST11+9, LIST11+10, LIST12+4*, LIST12+6, LIST12+8
>> BGPVSIT LIST11+3*, LIST11+4, LIST12+3*, LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
BGPX HDR1+1*, HDR1+3, LIST2+3*, LIST2+5, L1H+1*, L1H+3, L1H+5*, L1H+7, HEADER+11*, HEADER+12
, HEADER+14, HEADER+16!
>> BGPY LIST12+9*, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8, HEADER+12*, HEADER+14
>> DFN LIST11+2*, LIST11+3, LIST11+4, LIST12+2*, LIST12+3, LIST12+4, LIST12+7, LIST12+9, LIST13+1, LIST13+3
, LIST13+4, LIST13+6, LIST13+8
DFOUT EOP+4!
DIR HDR+2!, EXIT+1!, EOP+3~
DIR("A" EXIT+1*
DIR(0 HDR+2*, EXIT+1*, EOP+5*
DIRUT EXIT+1*, EOP+4!
DLOUT EOP+4!
DT HEADER1+3, HEADER+5
DTOUT HDR+2, EOP+4!
DUOUT EXIT+1, EOP+4!
DUZ HEADER1+3, USR+1
IO HDR+2, EXIT+1
IO("S" EOP+2
IO(0 HDR+2, EXIT+1
IOF HEADER1+1, HEADER+1
IOSL PRINT+2
IOST HDR+2, EXIT+1, EOP+1
>> IOT EOP+2
U PRINT1+4, HDR1+2, LIST2+2, LIST2+4, LIST2+7, LIST2+11, LIST11+6, LIST11+8, LIST11+9, LIST11+10
, LIST12+5, LIST12+6, LIST12+8, LIST13+2, LIST13+5, HEADER1+3, HEADER1+5, HEADER+6, USR+1
X LIST13+6*, LIST13+7, HEADER1+6*, C~, C+2, HEADER+8*, ENDTIME+2*, CTR~, CTR+1
X2 C~
X3 C~
Y HDR+2, CTR~, CTR+1
>> ZTQUEUED HDR+2, 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