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

Package: IHS GPRA Information System

Routine: BGP8DPEL


Information

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

Source Information

Source file <BGP8DPEL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS GPRA Information System 2 HEADER^BGP8DPH  $$DATE^BGP8UTL  
VA Fileman 2 ^DIR  ^DIWP  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP8DPEP  

Entry Points

Name Comments DBIA/ICR reference
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
H1 ;
WPS ;
START ;
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
WP ;
GO
CALC
PRINTL ;print one line

External References

Name Field # of Occurrence
$$DOB^AUPNPAT PRINTL+6
$$HRN^AUPNPAT PRINTL+6
HEADER^BGP8DPH WPS+2
$$DATE^BGP8UTL PRINTL+6
^DIR HEADER+2
^DIWP WP+5
$$FMTE^XLFDT HEADER1+4, HEADER1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^BGPPEIR(BGPL,72,X,0)
  • Line Location: PRINTL+3
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,22),?24,$$HRN^AUPNPAT(DFN,DUZ(2)),?31,$E(BGPCOM,1,14),?46,BGPSEX,?49,BGPAGE,?53,$$DATE^BGP8UTL($$DOB^AUPNPAT(DFN))
  • Line Location: PRINTL+6
Function Call: WRITE
  • Prompt: !,"UP",$S($P(^XTMP("BGP8PE",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),U,2)=1:", UP PED",1:"")
  • Line Location: PRINTL+7
Function Call: WRITE
  • Prompt: ?30,$P(^XTMP("BGP8PE",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),U,1)
  • Line Location: PRINTL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "ZZZZZZZ",!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR("*** IHS 2018 Patient Education Clinical Performance Report Patient List ***",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $$CTR($S(BGPLIST="A":"Entire Patient List",BGPLIST="R":"Random Patient List",BGPLIST="O":"Patient List by Education provider: "_BGPEPROV,BGPLIST="E":"Patient List by Education Provider",1:"Patient List by Provider: "_BGPLPROV),80),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,"UP=User Pop",!
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?31,"COMMUNITY",?45,"SEX",?49,"AGE",?53,"DOB",!,"DENOMINATOR",?30,"NUMERATOR"
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: H1+3
Routine Call
  • DIR
  • Line Location:
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPPEIR - [#90560.15] GO+1, GO+5, GO+6, GO+11, GO+12, GO+15, GO+17, CALC, CALC+2, WP+3
, WP+5, PRINTL+3
^DIC(4 - [#4] HEADER1+6, LOC+1
^DPT - [#2] PRINTL+6
^UTILITY($J WP+1!, WPS+1, WPS+3, WPS+5!
^VA(200 - [#200] HEADER1+4, USR+1
^XTMP("BGP8PE" CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8

Label References

Name Line Occurrences
$$CTR HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
CALC GO+2
GO START+8, START+9, START+10
H1 CALC+3, PRINTL+4
HEADER START+6, GO+8, GO+16, CALC+1, CALC+11, PRINTL+2
HEADER1 HEADER+1
PRINTL CALC+7
WP GO+7, GO+13

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPAGE CALC+6*, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPAREAA START+1
>> BGPBD HEADER1+7
>> BGPCNT START+7*, START+8*, START+9*, START+10*, START+11*, PRINTL+1
>> BGPCOM CALC+4*, CALC+5, CALC+6, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPCOUNT START+5*, CALC+7*, PRINTL+1
>> BGPDNT GO+2
>> BGPED HEADER1+7
>> BGPEPROV HEADER1+8
>> BGPGPG START+3*, HEADER+1, HEADER1+1*, HEADER1+4
>> BGPGUI HEADER1+2
>> BGPH CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8
>> BGPIOSL GO+8, GO+16, CALC+1, CALC+11, WPS+2, PRINTL+2
>> BGPJ CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8
>> BGPL START+4*, START+7, GO+1, GO+5, GO+6, GO+11, GO+12, GO+15, GO+17, CALC
, CALC+2, CALC+4, CALC+5, CALC+6, CALC+7, WP+3, WP+5, PRINTL+3, PRINTL+7, PRINTL+8
>> BGPLCNT WP+2*, WP+4*, WP+5
>> BGPLIST START+2, START+10, HEADER1+8
>> BGPLIST( START+4, START+7
>> BGPLPROV HEADER1+8
>> BGPNODE GO+4*, GO+10*, GO+14*, GO+15, GO+17, WP+3, WP+5
>> BGPPCNT START+5*, CALC+12, PRINTL+5*
>> BGPQUIT START+3*, START+4, START+6, GO+5, GO+6, GO+8, GO+11, GO+12, GO+16, CALC+1
, CALC+4, CALC+5, CALC+6, CALC+7, CALC+11, WPS+2, PRINTL+2, HEADER+2*
>> BGPSEX CALC+5*, CALC+6, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPX GO+5*, GO+6, GO+11*, GO+12, GO+15*, GO+17, CALC*, CALC+2
>> BGPY GO+6*, GO+12*, WP+3, WP+5
>> BGPZ WP+2*, WP+3*, WP+5
>> DFN CALC+7*, PRINTL+6, PRINTL+7, PRINTL+8
DIR HEADER+2!
DIR(0 HEADER+2*
DIWF WP+3*, WPS+4!
DIWL WP+3*, WPS+1, WPS+3, WPS+4!
DIWR WP+3*, WPS+4!
DT HEADER1+4
>> DTOUT HEADER+2
DUZ HEADER1+4, USR+1
DUZ(2 PRINTL+6, HEADER1+6, LOC+1
IO HEADER+2
IO(0 HEADER+2
IOF HEADER1+1
IOM CTR+1
IOST HEADER+2
U GO+1, PRINTL+6, PRINTL+7, PRINTL+8, HEADER1+4, HEADER1+6, USR+1, LOC+1
X WP+5*, WPS+5!, PRINTL+3*, HEADER1+7*, CTR~, CTR+1
Y HEADER+2, CTR~, CTR+1
Z WPS+1*, WPS+3, WPS+4!
>> ZTQUEUED HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All