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 |  Local Variables |  All
Print Page as PDF
Routine: BGP8DP13

Package: IHS GPRA Information System

Routine: BGP8DP13


Information

BGP8DP13 ; IHS/CMI/LAB - print ind 19 AGE DIST 02 Feb 2018 1:14 PM ;

Source Information

Source file <BGP8DP13.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS GPRA Information System 2 $$V^BGP8DP1C  (H4,HEADER)^BGP8DPH  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP8DP1  

Entry Points

Name Comments DBIA/ICR reference
PR ;
BL ;
FEM ;
I1AGE ;EP special age tallies
I1AGE5 ;
I1AGE4 ;
I1AGE3 ;
I1AGE2 ;
I1AGE1 ;
I1AGEP ;
C(X,X2,X3) ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
$$V^BGP8DP1C I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+7
, I1AGE3+8, I1AGE3+9, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+6, I1AGE5+7, I1AGE5+8
H4^BGP8DPH I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
HEADER^BGP8DPH I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,1,0)
  • Line Location: I1AGE+4
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,2,0)
  • Condition for execution: $D(^BGPINDR(BGPIC,53,2,0))
  • Line Location: I1AGE+4
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,1,0)
  • Line Location: I1AGE+9
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,2,0)
  • Condition for execution: $D(^BGPINDR(BGPIC,53,2,0))
  • Line Location: I1AGE+9
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,1,0)
  • Line Location: FEM+2
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,2,0)
  • Condition for execution: $D(^BGPINDR(BGPIC,53,2,0))
  • Line Location: FEM+2
Function Call: WRITE
  • Prompt: !,"CURRENT REPORT PERIOD"
  • Line Location: I1AGEP+1
Function Call: WRITE
  • Prompt: !,BGPHD2
  • Line Location: I1AGEP+2
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: I1AGEP+3
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: I1AGEP+4
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: I1AGEP+5
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: I1AGEP+6
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: I1AGEP+7
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: I1AGEP+8
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: I1AGEP+9
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: I1AGEP+10
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: I1AGEP+11
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: I1AGEP+13
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: I1AGEP+15
Function Call: WRITE
  • Prompt: !!,"# Quit"
  • Line Location: I1AGEP+16
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: I1AGEP+17
Function Call: WRITE
  • Prompt: !,"% Quit"
  • Line Location: I1AGEP+18
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: I1AGEP+19
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,1,0)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,2,0)
  • Condition for execution: $D(^BGPINDR(BGPIC,53,2,0))
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,"PREVIOUS YEAR PERIOD"
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,BGPHD2
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: PR+8
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: PR+9
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: PR+10
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: PR+16
Function Call: WRITE
  • Prompt: !!,"# Quit"
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: PR+18
Function Call: WRITE
  • Prompt: !,"% Quit"
  • Line Location: PR+19
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: PR+20
Function Call: WRITE
  • Prompt: !!,"CHANGE FROM PREV YR %"
  • Line Location: PR+22
Function Call: WRITE
  • Prompt: !,"w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid or Quit-No Refusals"
  • Line Location: PR+23
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: PR+24
Function Call: WRITE
  • Prompt: !,"# w/ Tobacco Cessation",!?2,"Counseling, Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: PR+25
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: PR+26
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: PR+28
Function Call: WRITE
  • Prompt: !,"# Quit"
  • Line Location: PR+29
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: PR+30
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,1,0)
  • Line Location: BL+1
Function Call: WRITE
  • Prompt: !,^BGPINDR(BGPIC,53,2,0)
  • Condition for execution: $D(^BGPINDR(BGPIC,53,2,0))
  • Line Location: BL+1
Function Call: WRITE
  • Prompt: !,"BASELINE REPORT PERIOD"
  • Line Location: BL+2
Function Call: WRITE
  • Prompt: !,BGPHD2
  • Line Location: BL+3
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: BL+4
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: BL+5
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: BL+6
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid or Quit-",!?2,"No Refusals"
  • Line Location: BL+7
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: BL+8
Function Call: WRITE
  • Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: BL+9
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: BL+10
Function Call: WRITE
  • Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: BL+11
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: BL+12
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: BL+14
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: BL+16
Function Call: WRITE
  • Prompt: !!,"# Quit"
  • Line Location: BL+17
Function Call: WRITE
  • Prompt: ?T,$$C(V,0,6)
  • Line Location: BL+18
Function Call: WRITE
  • Prompt: !,"% Quit"
  • Line Location: BL+19
Function Call: WRITE
  • Prompt: ?T,$J(V,6,1)
  • Line Location: BL+20
Function Call: WRITE
  • Prompt: !!,"CHANGE FROM PREV YR %"
  • Line Location: BL+22
Function Call: WRITE
  • Prompt: !,"w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid or Quit-No Refusals"
  • Line Location: BL+23
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: BL+24
Function Call: WRITE
  • Prompt: !,"# w/ Tobacco Cessation",!?2,"Counseling, Rx for Cessation Aid-",!?2,"No Refusals"
  • Line Location: BL+25
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: BL+26
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: BL+28
Function Call: WRITE
  • Prompt: !,"# Quit"
  • Line Location: BL+29
Function Call: WRITE
  • Prompt: ?T,$J($FN((N-O),"+,",1),6)
  • Line Location: BL+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPINDR - [#90560.01] I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
^BGPINDRC - [#90560.02] I1AGE1+4, I1AGE1+10, I1AGE2+4, I1AGE3+5, I1AGE4+4, I1AGE5+4
^BGPINDRC("OR" I1AGE1+3, I1AGE2+2, I1AGE3+3, I1AGE4+2, I1AGE5+2
^DD(90560.03 I1AGE1+5, I1AGE1+11, I1AGE2+5, I1AGE3+6, I1AGE4+5, I1AGE5+5

Label References

Name Line Occurrences
$$C I1AGEP+3, I1AGEP+5, I1AGEP+9, I1AGEP+17, PR+4, PR+6, PR+10, PR+18, BL+4, BL+6
, BL+10, BL+18
I1AGE1 I1AGE+5, I1AGE+10, FEM+3
I1AGE2 I1AGE+5, I1AGE+10, FEM+3
I1AGE4 I1AGE+5, I1AGE+10, FEM+3
I1AGEP I1AGE+6, I1AGE+11, FEM+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BGPDAB I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAB( I1AGE1+8*, I1AGE1+14*, I1AGE2+8*, I1AGE3+9*, I1AGE4+8*, I1AGE5+8*, BL+4, BL+6, BL+8, BL+10
, BL+12, BL+18, BL+20, BL+24, BL+26, BL+30
BGPDAC I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAC( I1AGE1+6*, I1AGE1+12*, I1AGE2+6*, I1AGE3+7*, I1AGE4+6*, I1AGE5+6*, I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9
, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+24, PR+26, PR+30, BL+24, BL+26, BL+30
BGPDAP I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAP( I1AGE1+7*, I1AGE1+13*, I1AGE2+7*, I1AGE3+8*, I1AGE4+7*, I1AGE5+7*, PR+4, PR+6, PR+8, PR+10
, PR+12, PR+18, PR+20, PR+24, PR+26, PR+30
>> BGPDF I1AGE1+4*, I1AGE1+5
>> BGPF I1AGE1+3*, I1AGE2+2*, I1AGE3+3*, I1AGE4+2*, I1AGE5+2*
>> BGPHD1 I1AGE+3*, I1AGE+8*, FEM+1*
>> BGPHD2 I1AGE+3*, I1AGE+8*, FEM+1*, I1AGEP+2, PR+3, BL+3
>> BGPIC I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
>> BGPINDG I1AGE+2
>> BGPNF I1AGE1+10*, I1AGE1+11, I1AGE2+4*, I1AGE2+5, I1AGE3+5*, I1AGE3+6, I1AGE4+4*, I1AGE4+5, I1AGE5+4*, I1AGE5+5
>> BGPNP I1AGE1+5*, I1AGE1+11*, I1AGE2+5*, I1AGE3+6*, I1AGE4+5*, I1AGE5+5*
>> BGPPC I1AGE1+3*, I1AGE1+4, I1AGE1+10, I1AGE2+2*, I1AGE2+4, I1AGE3+3*, I1AGE3+5, I1AGE4+2*, I1AGE4+4, I1AGE5+2*
, I1AGE5+4
>> BGPQUIT I1AGE+4, I1AGE+7, I1AGE+9, I1AGE+12, FEM+2, PR+1, BL+1
>> BGPRPT I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+7
, I1AGE3+8, I1AGE3+9, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> BGPSUMON I1AGE+1, I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
>> BGPX I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE1+3, I1AGE2+2, I1AGE3+3, I1AGE4+2, I1AGE5+2
>> C I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE1+2*, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14
>> D I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE2+1*, I1AGE2+6, I1AGE2+7, I1AGE2+8
>> E I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE3+2*, I1AGE3+7, I1AGE3+8, I1AGE3+9
>> F I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE4+1*, I1AGE4+6, I1AGE4+7, I1AGE4+8
>> G I1AGE+5*, I1AGE+10*, FEM+3*, I1AGE5+1*, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> N I1AGE1+5*, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+11*, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+5*, I1AGE2+6
, I1AGE2+7, I1AGE2+8, I1AGE3+6*, I1AGE3+7, I1AGE3+8, I1AGE3+9, I1AGE4+5*, I1AGE4+6, I1AGE4+7, I1AGE4+8
, I1AGE5+5*, I1AGE5+6, I1AGE5+7, I1AGE5+8, PR+24*, PR+26*, PR+30*, BL+24*, BL+26*, BL+30*
>> O PR+24*, PR+26*, PR+30*, BL+24*, BL+26*, BL+30*
>> P I1AGE1+5*, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+11*, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+5*, I1AGE2+6
, I1AGE2+7, I1AGE2+8, I1AGE3+6*, I1AGE3+7, I1AGE3+8, I1AGE3+9, I1AGE4+5*, I1AGE4+6, I1AGE4+7, I1AGE4+8
, I1AGE5+5*, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> T I1AGEP+3*, I1AGEP+5*, I1AGEP+7*, I1AGEP+9*, I1AGEP+11*, I1AGEP+17*, I1AGEP+19*, PR+4*, PR+6*, PR+8*
, PR+10*, PR+12*, PR+18*, PR+20*, PR+24*, PR+26*, PR+30*, BL+4*, BL+6*, BL+8*
, BL+10*, BL+12*, BL+18*, BL+20*, BL+24*, BL+26*, BL+30*
U I1AGE1+4, I1AGE1+5, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+10, I1AGE1+11, I1AGE1+12, I1AGE1+13, I1AGE1+14
, I1AGE2+4, I1AGE2+5, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+5, I1AGE3+6, I1AGE3+7, I1AGE3+8, I1AGE3+9
, I1AGE4+4, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+4, I1AGE5+5, I1AGE5+6, I1AGE5+7, I1AGE5+8
, I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+4, PR+6, PR+8
, PR+10, PR+12, PR+18, PR+20, PR+24, PR+26, PR+30, BL+4, BL+6, BL+8
, BL+10, BL+12, BL+18, BL+20, BL+24, BL+26, BL+30
>> V I1AGEP+3*, I1AGEP+5*, I1AGEP+7*, I1AGEP+9*, I1AGEP+11*, I1AGEP+17*, I1AGEP+19*, PR+4*, PR+6*, PR+8*
, PR+10*, PR+12*, PR+18*, PR+20*, BL+4*, BL+6*, BL+8*, BL+10*, BL+12*, BL+18*
, BL+20*
X I1AGEP+3*, I1AGEP+5*, I1AGEP+7*, I1AGEP+9*, I1AGEP+11*, I1AGEP+17*, I1AGEP+19*, PR+4*, PR+6*, PR+8*
, PR+10*, PR+12*, PR+18*, PR+20*, PR+24*, PR+26*, PR+30*, BL+4*, BL+6*, BL+8*
, BL+10*, BL+12*, BL+18*, BL+20*, BL+24*, BL+26*, BL+30*, C~, C+2
X2 C~
X3 C~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All