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

Package: IHS GPRA Information System

Routine: BGP4DPAW


Information

BGP4DPAW ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT 01 Oct 2009 1:20 PM 13 Aug 2010 11:32 AM ; 14 Apr 2014 10:30 AM

Source Information

Source file <BGP4DPAW.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS GPRA Information System 2 $$RPTVER^BGP4BAN  $$DATE^BGP4UTL  
VA Fileman 2 ^DIR  ^DIWP  
IHS Patient 1 ($$COMMRES,$$DOB,$$HRN,$$SEX)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS GPRA Information System 2 BGP4DPA  BGP4DPA9  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
WRITE ;
SUB ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
CPRINT ;
PPRINT ;
DPRINT1 ;
APRINT ;
DPRINT ;
CNT(T) ;
HEADER ;EP
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
DONE ;
WP ;
PRINT ;EP - called from xbdbque
WPS ;

External References

Name Field # of Occurrence
$$COMMRES^AUPNPAT SUB+4
$$DOB^AUPNPAT SUB+4
$$HRN^AUPNPAT SUB+4
$$SEX^AUPNPAT SUB+4
$$RPTVER^BGP4BAN HEADER1+8
$$DATE^BGP4UTL SUB+4
^DIR DONE+2, HEADER+2, EOP+5
^DIWP WP+5
$$FMTE^XLFDT CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2, SUB+2, HEADER1+7, HEADER1+9, HEADER1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There were either no appointments found or there were no patients due for any",!,"GPRA measure for any clinic during the specified timeframe of ",!,$$FMTE^XLFDT(BGPABD)," to ",$$FMTE^XLFDT(BGPAED),".",!
  • Line Location: CPRINT+2
Function Call: WRITE
  • Prompt: !?10,$P(^SC(X,0),U)
  • Line Location: CPRINT+5
Function Call: WRITE
  • Prompt: !!,"NO GPRA MEASURES DUE",!
  • Line Location: CPRINT+6
Function Call: WRITE
  • Prompt: ?27,Y
  • Line Location: CPRINT+22
Function Call: WRITE
  • Prompt: !,"The following clinics were selected:"
  • Line Location: DPRINT+5
Function Call: WRITE
  • Prompt: !?10,$P(^SC(X,0),U)
  • Line Location: DPRINT+6
Function Call: WRITE
  • Prompt: ?27,Y
  • Line Location: DPRINT1+17
Function Call: WRITE
  • Prompt: $P(^DPT(X,0),U),!,"during the specified timeframe of ",$$FMTE^XLFDT(BGPABD)," to ",$$FMTE^XLFDT(BGPAED)," or",!,"this patient was not due for any GPRA measure."
  • Line Location: PPRINT+2
Function Call: WRITE
  • Prompt: ?27,Y
  • Line Location: PPRINT+18
Function Call: WRITE
  • Prompt: !,BGPT
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?27,$P(BGPX,"|",1)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,BGPT1
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: ?27,Y
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WPS+2
Function Call: WRITE
  • Prompt: ?27,Y
  • Line Location: APRINT+15
Function Call: WRITE
  • Prompt: !,$P($$FMTE^XLFDT(BGPADT,"P")," ",4,99)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: ?T,$E($P(^DPT(DFN,0),U),1,25),?38,$$HRN^AUPNPAT(DFN,DUZ(2)),?46,$$SEX^AUPNPAT(DFN),?50,$$DATE^BGP4UTL($$DOB^AUPNPAT(DFN)),?60,$E($$COMMRES^AUPNPAT(DFN,"E"),1,20),!
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?5,"***CONFIDENTIAL PATIENT INFORMATION-COVERED BY THE PRIVACY ACT***",?70,"Page ",BGPPG
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR("GPRA/GPRAMA Forecast Patient List",80)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$CTR("GPRA/GPRAMA Forecast Patient List, Run Using 2014 Logic")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,$$CTR("GPRA Measures Not Met or Due During "_$$FMTE^XLFDT(BGPBD)_"-"_$$FMTE^XLFDT(BGPED),80)
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$$CTR($$RPTVER^BGP4BAN,80)
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,$$CTR("Patients with an Appointment in "_BGPCLN_$S($G(BGPD):" on "_$$FMTE^XLFDT(BGPD),1:""),80)
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80)
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !,$$CTR("Report Generated by: "_$P(^VA(200,DUZ,0),U),80)
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: !!,"THIS REPORT SHOULD ONLY BE USED TO DETERMINE WHICH GPRA MEASURES HAVE NOT"
  • Line Location: HEADER1+13
Function Call: WRITE
  • Prompt: !,"BEEN MET FOR PATIENTS. IT SHOULD NOT BE USED TO DETERMINE APPROPRIATE"
  • Line Location: HEADER1+14
Function Call: WRITE
  • Prompt: !,"PATIENT CARE FOR INDIVIDUALS, AS THIS MAY VARY FROM PATIENT TO PATIENT."
  • Line Location: HEADER1+15
Function Call: WRITE
  • Prompt: !!,$TR($J("",80)," ","-")
  • Line Location: HEADER1+16
Function Call: WRITE
  • Prompt: !,"Appt Time",?11,"Patient Name"
  • Line Location: HEADER1+17
Function Call: WRITE
  • Prompt: !,"Patient Name"
  • Line Location: HEADER1+18
Function Call: WRITE
  • Prompt: ?38,"HRN",?46,"Sex",?50,"DOB",?60,"Community"
  • Line Location: HEADER1+19
Function Call: WRITE
  • Prompt: !,"GPRA Measure Not Met",?27,"Date of Last Screening and Next Due Date"
  • Line Location: HEADER1+20
Function Call: WRITE
  • Prompt: !?27,"Tests Counted for GPRA Measure"
  • Line Location: HEADER1+21
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+22
Routine Call
  • DIR
  • Line Location:
    • DONE+2
    • HEADER+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPINDJC - [#90552.02] WP+4, WP+5
^DIBT( CNT+3, PRINT+6
^DIC(4 - [#4] HEADER1+11, LOC+1
^DPT - [#2] PPRINT+2, SUB+4
^SC - [#44] CPRINT+5, DPRINT+6
^UTILITY($J WP+1!, WPS+1, WPS+3, WPS+5!
^VA(200 - [#200] HEADER1+4, HEADER1+12, USR+1
^XTMP("BGP4DPA" DONE+5!, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17
, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11
, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13, APRINT+1
, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+10

Label References

Name Line Occurrences
$$CNT PRINT+6
$$CTR HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+11, HEADER1+12
APRINT PRINT+10
CPRINT PRINT+9
DONE PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
DPRINT PRINT+11
DPRINT1 DPRINT+7
HEADER PRINT+5, CPRINT+1, CPRINT+12, CPRINT+16, DPRINT+1, DPRINT1+6, DPRINT1+10, PPRINT+1, PPRINT+8, PPRINT+12
, WRITE+9, APRINT+1, APRINT+5, APRINT+9
HEADER1 HEADER+1
PPRINT PRINT+8
SUB CPRINT+13, CPRINT+16, DPRINT1+7, DPRINT1+10, PPRINT+9, PPRINT+12, WRITE+9, APRINT+6, APRINT+9
WP WRITE+10
WRITE CPRINT+18, DPRINT1+12, PPRINT+14, APRINT+11

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPABD CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2
>> BGPADT CPRINT+9*, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17, DPRINT1+3*, DPRINT1+4, DPRINT1+5, DPRINT1+8
, DPRINT1+9, DPRINT1+11, PPRINT+7*, PPRINT+10, PPRINT+11, PPRINT+13, SUB+2
>> BGPAED CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2
>> BGPBD HEADER1+7
>> BGPCLN CPRINT+7*, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17, DPRINT1+1*, DPRINT1+2
, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11, PPRINT+6*, PPRINT+7, PPRINT+10, PPRINT+11
, PPRINT+13, HEADER1+9
>> BGPCLN( CPRINT+5, DPRINT+6
>> BGPCLN(0 CPRINT+2, DPRINT+5
>> BGPD CPRINT+8*, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17, DPRINT1+2*, DPRINT1+3, DPRINT1+4
, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11, PPRINT+5*, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13
, HEADER1+9
>> BGPDIVI DPRINT+7*, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11
>> BGPED HEADER1+7
BGPET DONE+4!
>> BGPGPRAH DONE+5, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17
, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11
, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13, APRINT+1
, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+10
>> BGPGPRAJ DONE+5, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17
, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11
, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13, APRINT+1
, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+10
BGPGPYR DONE+4!
>> BGPGUI PRINT+1, PRINT+2, HEADER1+3
>> BGPI CPRINT+15*, CPRINT+17, DPRINT1+9*, DPRINT1+11, PPRINT+11*, PPRINT+13, WP+4, WP+5, APRINT+8*, APRINT+10
>> BGPIC CPRINT+14*, CPRINT+15, CPRINT+17, DPRINT1+8*, DPRINT1+9, DPRINT1+11, PPRINT+10*, PPRINT+11, PPRINT+13, APRINT+7*
, APRINT+8, APRINT+10
>> BGPIOSL PRINT+1*
BGPM DONE+4!
>> BGPNAME CPRINT+10*, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+17, DPRINT1+4*, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+11
, PPRINT+3*, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13, APRINT+3*, APRINT+4
, APRINT+7, APRINT+8, APRINT+10
>> BGPNGR09 WP+4, WP+5, HEADER1+5, HEADER1+6
>> BGPNOBAN WRITE+1*, WRITE+7*, WPS+2
>> BGPNOD PRINT+3*, CPRINT+1*, DPRINT+1*, PPRINT+1*, APRINT+1*
>> BGPPATS(0 PPRINT+2
>> BGPPG PRINT+3*, HEADER+1, HEADER1+1, HEADER1+2*, HEADER1+3, HEADER1+4
BGPQ PRINT+3!, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+12, CPRINT+14, CPRINT+15, CPRINT+16
, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+6, DPRINT1+8, DPRINT1+9, DPRINT1+10
, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+8, PPRINT+10, PPRINT+11, PPRINT+12, WRITE+9
, APRINT+3, APRINT+4, APRINT+5, APRINT+7, APRINT+8, APRINT+9, HEADER+2*
>> BGPRT1 PRINT+8, PRINT+9, PRINT+10, PRINT+11, SUB+1, SUB+2, SUB+3, HEADER1+9, HEADER1+17, HEADER1+18
BGPS DONE+4!
>> BGPSTMP PRINT+4, PRINT+6
>> BGPT WRITE+3*, WRITE+4
>> BGPT1 WRITE+3*, WRITE+6
BGPTS DONE+4!
BGPX DONE+4!, WRITE+2*, WRITE+5, WRITE+7, WRITE+8
>> BGPZ WP+2*, WP+4*, WP+5
C CNT+1~, CNT+2*, CNT+3*, CNT+4
>> DFN CPRINT+11*, CPRINT+14, CPRINT+15, CPRINT+17, DPRINT1+5*, DPRINT1+8, DPRINT1+9, DPRINT1+11, PPRINT+4*, PPRINT+5
, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+13, APRINT+4*, APRINT+7, APRINT+8, APRINT+10, SUB+4
DFOUT EOP+4!
DIR DONE+1!, DONE+2!, HEADER+2!, EOP+3!
DIR("A" DONE+2*, EOP+5*
DIR(0 DONE+2*, HEADER+2*, EOP+5*
DIRUT DONE+2*, EOP+4!
DIWF WP+4*, WPS+4!
DIWL WP+4*, WPS+1, WPS+3, WPS+4!
DIWR WP+4*, WPS+4!
DLOUT EOP+4!
DT HEADER1+10
DTOUT HEADER+2, EOP+4!
DUOUT DONE+2, EOP+4!
DUZ HEADER1+4, HEADER1+12, USR+1
DUZ(2 SUB+4, HEADER1+11, LOC+1
IO DONE+2, HEADER+2
IO("S" EOP+2
IO(0 DONE+2, HEADER+2
IOF HEADER1+1
IOM CTR+1
IOSL PRINT+1, PRINT+2*, CPRINT+16, DPRINT1+10, PPRINT+12, WRITE+9, APRINT+9
IOST DONE+2, HEADER+2, EOP+1
>> IOT EOP+2
T CNT~, CNT+3, SUB+1*, SUB+4
U PRINT+6, CPRINT+5, DPRINT+6, PPRINT+2, WRITE+2, WRITE+3, SUB+4, HEADER1+4, HEADER1+11, HEADER1+12
, USR+1, LOC+1
X CNT+1~, CNT+2*, CNT+3*, CPRINT+5*, DPRINT+6*, PPRINT+2*, WRITE+8*, WP+5*, WPS+5!, CTR~
, CTR+1
Y CPRINT+17*, DPRINT1+11*, PPRINT+13*, WRITE+2, WRITE+3, WRITE+8*, APRINT+10*, HEADER+2, CTR~, CTR+1
Z WPS+1*, WPS+2, WPS+3, WPS+4!
>> ZTQUEUED 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