Routine: BGPMUHP1

Package	Total	Call Graph
IHS GPRA Information System	2	(SUM495,SUM497)^BGPMUHD8 (HDRBLK,HEADER,HEADERL)^BGPMUPH
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
P2	;Write individual measure
497(TF)	;Get the numbers for this measure
P1	;Write individual measure
P1D	;Do the Details
P2D	;Do the Details
DATA(NODE)	;GET DATA
ED2	;EH output routine for 0497 ED-2 (BGPMUH01)
495(TF)	;Get the numbers for this measure
ED1	;EH output routine for 0495 ED-1 (BGPMUH01)
XML495	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count
XML497	;Populate the BGPXML array with data for each population/numerator ; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	DATA+5
$$HRN^AUPNPAT	DATA+4
SUM495^BGPMUHD8	P1+36
SUM497^BGPMUHD8	P2+36
HDRBLK^BGPMUPH	P1+14, P2+14
HEADER^BGPMUPH	P1+13, P1+22, P1+29, P2+13, P2+22, P2+29
HEADERL^BGPMUPH	P1D+2, P1D+12, P1D+26, P1D+38, P2D+2, P2D+12, P2D+26, P2D+38, DATA+10
$$GET1^DIQ	DATA+3, DATA+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?56,PRP1,?65,$P(STRING3,U,1),?72,PRB1 Line Location: P1+15
Function Call: WRITE	Prompt: !,"BTW ED Arrival &" Line Location: P1+16
Function Call: WRITE	Prompt: !,"ED Departure -" Line Location: P1+17
Function Call: WRITE	Prompt: !,"All ED Pts Excl" Line Location: P1+18
Function Call: WRITE	Prompt: !,"Pts w/Mental Disorder" Line Location: P1+19
Function Call: WRITE	Prompt: !,"or Observation Status" Line Location: P1+20
Function Call: WRITE	Prompt: ! Line Location: P1+21
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,2),?44,$P(STRING2,U,2),?56,PRP2,?65,$P(STRING3,U,2),?72,PRB2 Line Location: P1+23
Function Call: WRITE	Prompt: !,"BTW ED Arrival &" Line Location: P1+24
Function Call: WRITE	Prompt: !,"ED Departure -" Line Location: P1+25
Function Call: WRITE	Prompt: !,"ED Observation Status" Line Location: P1+26
Function Call: WRITE	Prompt: !,"Pts only" Line Location: P1+27
Function Call: WRITE	Prompt: ! Line Location: P1+28
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,3),?44,$P(STRING2,U,3),?56,PRP3,?65,$P(STRING3,U,3),?72,PRB3 Line Location: P1+30
Function Call: WRITE	Prompt: !,"BTW ED Arrival &" Line Location: P1+31
Function Call: WRITE	Prompt: !,"ED Departure -" Line Location: P1+32
Function Call: WRITE	Prompt: !,"ED Mental Disorder" Line Location: P1+33
Function Call: WRITE	Prompt: !,"Pts only" Line Location: P1+34
Function Call: WRITE	Prompt: !!,"Elapsed times are stratified as follows: A) All ED patients excluding patients" Line Location: P1D+3
Function Call: WRITE	Prompt: !,"with mental disorders or placed into observation status, B) ED patients placed" Line Location: P1D+4
Function Call: WRITE	Prompt: !,"into observation status, and C) ED patients with a mental disorder." Line Location: P1D+5
Function Call: WRITE	Prompt: !!,"The following are the abbreviations used in the denominator and numerator" Line Location: P1D+6
Function Call: WRITE	Prompt: !,"columns:" Line Location: P1D+7
Function Call: WRITE	Prompt: !,"N/A=Not Applicable - No Denominators for this Measure" Line Location: P1D+8
Function Call: WRITE	Prompt: !,"ED=ED Patient, Excl Mental Disorder & Observation Status" Line Location: P1D+9
Function Call: WRITE	Prompt: !,"MD=ED Mental Disorder Patient" Line Location: P1D+10
Function Call: WRITE	Prompt: !,"OS=ED Observation Status Patient" Line Location: P1D+11
Function Call: WRITE	Prompt: !!,"A) All ED patients excluding patients with mental disorders or placed into" Line Location: P1D+13
Function Call: WRITE	Prompt: !,"observation status" Line Location: P1D+14
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P1D+16
Function Call: WRITE	Prompt: !,LINE Line Location: P1D+17
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P1D+23
Function Call: WRITE	Prompt: !!,"B) ED patients placed into observation status" Line Location: P1D+27
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P1D+28
Function Call: WRITE	Prompt: !,LINE Line Location: P1D+29
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P1D+35
Function Call: WRITE	Prompt: !!,"C) ED patients with a mental disorder" Line Location: P1D+39
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P1D+40
Function Call: WRITE	Prompt: !,LINE Line Location: P1D+41
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P1D+47
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?56,PRP1,?65,$P(STRING3,U,1),?72,PRB1 Line Location: P2+15
Function Call: WRITE	Prompt: !,"BTW ED Admit Decision" Line Location: P2+16
Function Call: WRITE	Prompt: !,"& ED Departure -" Line Location: P2+17
Function Call: WRITE	Prompt: !,"All ED Pts Excl Pts" Line Location: P2+18
Function Call: WRITE	Prompt: !,"w/Mental Disorder or" Line Location: P2+19
Function Call: WRITE	Prompt: !,"Observation Status" Line Location: P2+20
Function Call: WRITE	Prompt: ! Line Location: P2+21
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,2),?44,$P(STRING2,U,2),?56,PRP2,?65,$P(STRING3,U,2),?72,PRB2 Line Location: P2+23
Function Call: WRITE	Prompt: !,"BTW ED Admit Decision" Line Location: P2+24
Function Call: WRITE	Prompt: !,"& ED Departure -" Line Location: P2+25
Function Call: WRITE	Prompt: !,"ED Observation Status" Line Location: P2+26
Function Call: WRITE	Prompt: !,"Pts only" Line Location: P2+27
Function Call: WRITE	Prompt: ! Line Location: P2+28
Function Call: WRITE	Prompt: !,"Median Elpsd Time (min)",?33,$P(STRING1,U,3),?44,$P(STRING2,U,3),?56,PRP3,?65,$P(STRING3,U,3),?72,PRB3 Line Location: P2+30
Function Call: WRITE	Prompt: !,"BTW ED Admit Decision" Line Location: P2+31
Function Call: WRITE	Prompt: !,"& ED Departure -" Line Location: P2+32
Function Call: WRITE	Prompt: !,"ED Mental Disorder" Line Location: P2+33
Function Call: WRITE	Prompt: !,"Pts only" Line Location: P2+34
Function Call: WRITE	Prompt: !!,"Elapsed times are stratified as follows: A) All ED patients excluding patients" Line Location: P2D+3
Function Call: WRITE	Prompt: !,"with mental disorders or placed into observation status, B) ED patients placed" Line Location: P2D+4
Function Call: WRITE	Prompt: !,"into observation status, and C) ED patients with a mental disorder." Line Location: P2D+5
Function Call: WRITE	Prompt: !!,"The following are the abbreviations used in the denominator and numerator" Line Location: P2D+6
Function Call: WRITE	Prompt: !,"columns:" Line Location: P2D+7
Function Call: WRITE	Prompt: !,"N/A=Not Applicable - No Denominators for this Measure" Line Location: P2D+8
Function Call: WRITE	Prompt: !,"ED=ED Patient, Excl Mental Disorder & Observation Status" Line Location: P2D+9
Function Call: WRITE	Prompt: !,"MD=ED Mental Disorder Patient" Line Location: P2D+10
Function Call: WRITE	Prompt: !,"OS=ED Observation Status Patient" Line Location: P2D+11
Function Call: WRITE	Prompt: !!,"A) All ED patients excluding patients with mental disorders or placed into" Line Location: P2D+13
Function Call: WRITE	Prompt: !,"observation status" Line Location: P2D+14
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P2D+16
Function Call: WRITE	Prompt: !,LINE Line Location: P2D+17
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P2D+23
Function Call: WRITE	Prompt: !!,"B) ED patients placed into observation status" Line Location: P2D+27
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P2D+28
Function Call: WRITE	Prompt: !,LINE Line Location: P2D+29
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P2D+35
Function Call: WRITE	Prompt: !!,"C) ED patients with a mental disorder" Line Location: P2D+39
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?43,"SEX",?47,"AGE",?51,"DENOMINATOR",?64,"NUMERATOR" Line Location: P2D+40
Function Call: WRITE	Prompt: !,LINE Line Location: P2D+41
Function Call: WRITE	Prompt: !!,"Total # of ED visits on list: "_PTCT Line Location: P2D+47
Function Call: WRITE	Prompt: !,LINE Line Location: DATA+12
Function Call: WRITE	Prompt: !,NAME,?25,HRN,?33,COMM,?44,SEX,?47,AGE,?51,DEN,?64,NUM Line Location: DATA+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DATA+7
^TMP("BGPMU0495"	ED1+2!, 495+2, 495+3, 495+4, P1D+19, P1D+21, P1D+31, P1D+33, P1D+43, P1D+45 , XML495+2, XML495+3, XML495+4, XML495+5!
^TMP("BGPMU0497"	ED2+2!, 497+2, 497+3, 497+4, P2D+19, P2D+21, P2D+31, P2D+33, P2D+43, P2D+45 , XML497+2, XML497+3, XML497+4, XML497+5!

Label References

Name	Line Occurrences
$$495	P1+3, P1+4, P1+5
$$497	P2+3, P2+4, P2+5
DATA	P1D+22, P1D+34, P1D+46, P2D+22, P2D+34, P2D+46
P1	ED1+1
P1D	P1+35
P2	ED2+1
P2D	P2+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	DATA+1~, DATA+5*, DATA+13
ARRAY	495+1~, 495+5, 495+6, 497+1~, 497+5, 497+6
>> BGPED	DATA+5
>> BGPIC	P1+35, P2+35
>> BGPIOSL	P1+22, P1+29, P1D+12, P1D+26, P1D+38, P2+22, P2+29, P2D+12, P2D+26, P2D+38 , DATA+9
>> BGPLIST(	P1+35, P2+35
>> BGPMUTF	P1D+18, P2D+18
>> BGPQUIT	P1+13, P1+22, P1+29, P1D+12, P1D+26, P1D+38, P2+13, P2+22, P2+29, P2D+12 , P2D+26, P2D+38, DATA+10
>> BGPXML(1	XML495+2, XML497+2
>> BGPXML(2	XML495+3, XML497+3
>> BGPXML(3	XML495+4, XML497+4
COMM	DATA+1~, DATA+8*, DATA+13
DEN	DATA+1~, DATA+6*, DATA+13
DFN	DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+7, DATA+8
DUZ(2	DATA+4
HRN	DATA+1~, DATA+4*, DATA+13
>> LINE	P1D+17, P1D+29, P1D+41, P2D+17, P2D+29, P2D+41, DATA+12*
LIST1	P1+1~, P2+1~
LIST2	P1+1~, P2+1~
LIST3	P1+1~, P2+1~
NAME	DATA+1~, DATA+3*, DATA+13
NODE	P1D+21, P1D+22, P1D+33, P1D+34, P1D+45, P1D+46, P2D+21, P2D+22, P2D+33, P2D+34 , P2D+45, P2D+46, DATA~, DATA+2, DATA+3, DATA+6
NUM	DATA+1~, DATA+6*, DATA+13
POP	P1D+1~, P1D+18, P1D+19, P1D+21, P1D+30, P1D+31, P1D+33, P1D+42, P1D+43, P1D+45 , P2D+1~, P2D+18, P2D+19, P2D+21, P2D+30, P2D+31, P2D+33, P2D+42, P2D+43, P2D+45
POP1	P1+2~, 495+2, 495+5, P2+2~, 497+2, 497+5
POP2	P1+2~, 495+3, 495+5, P2+2~, 497+3, 497+5
POP3	P1+2~, 495+4, 495+5, P2+2~, 497+4, 497+5
PRB1	P1+2~, P1+9, P1+15, P2+2~, P2+9, P2+15
PRB2	P1+2~, P1+10, P1+23, P2+2~, P2+10, P2+23
PRB3	P1+2~, P1+11, P1+30, P2+2~, P2+11, P2+30
PRP1	P1+2~, P1+6, P1+15, P2+2~, P2+6, P2+15
PRP2	P1+2~, P1+7, P1+23, P2+2~, P2+7, P2+23
PRP3	P1+2~, P1+8, P1+30, P2+2~, P2+8, P2+30
PT	P1D+1~, P1D+19, P1D+21, P1D+31, P1D+33, P1D+43, P1D+45, P2D+1~, P2D+19, P2D+21 , P2D+31, P2D+33, P2D+43, P2D+45
PTCT	P1D+1~, P1D+18, P1D+20, P1D+23, P1D+24, P1D+32, P1D+35, P1D+36, P1D+44, P1D+47 , P2D+1~, P2D+18, P2D+20, P2D+23, P2D+24, P2D+32, P2D+35, P2D+36, P2D+44, P2D+47
SEX	DATA+1~, DATA+7*, DATA+13
STRING1	P1+2~, P1+3, P1+6, P1+7, P1+8, P1+9, P1+10, P1+11, P1+15, P1+23 , P1+30, P2+2~, P2+3, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11, P2+15 , P2+23, P2+30
STRING2	P1+2~, P1+4, P1+6, P1+7, P1+8, P1+15, P1+23, P1+30, P2+2~, P2+4 , P2+6, P2+7, P2+8, P2+15, P2+23, P2+30
STRING3	P1+2~, P1+5, P1+9, P1+10, P1+11, P1+15, P1+23, P1+30, P2+2~, P2+5 , P2+9, P2+10, P2+11, P2+15, P2+23, P2+30
TF	495~, 495+2, 495+3, 495+4, 497~, 497+2, 497+3, 497+4
U	P1+6, P1+7, P1+8, P1+9, P1+10, P1+11, P1+15, P1+23, P1+30, 495+5 , P2+6, P2+7, P2+8, P2+9, P2+10, P2+11, P2+15, P2+23, P2+30, 497+5 , DATA+2, DATA+3, DATA+6, DATA+7, XML495+2, XML495+3, XML495+4, XML497+2, XML497+3, XML497+4
X	P1+1~, P2+1~
Y	P1+1~, P2+1~
Z	P1+1~, P2+1~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUHP1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: