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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGPMUDP1

Package: IHS GPRA Information System

Routine: BGPMUDP1


Information

BGPMUDP1 ; IHS/MSC/SAT - Print MU EP measure NQF0028b ;02-Mar-2011 10:55;DU

Source Information

Source file <BGPMUDP1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS GPRA Information System 4 $$ROUND^BGPMUA01  (HDRBLK,HEADER,HEADERL)^BGPMUPH  W^BGPMUPP  PTLSORT^BGPMUUTL  
IHS Patient 1 ($$AGE,$$HRN,$$SEX)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGPMUDD1  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Do the Details
P1A ;Write individual measure
P1 ;Write individual measure
P2A ;Do the Details
TOB2 ;Tobacco print
G28A(BGPMUTF) ;Get the numbers for this measure
SUM28B ;Populate "BGPMU SUMMARY" for Tobacco Cessation
SUM28A ;Populate "BGPMU SUMMARY" for Tobacco Assessment
DATA(NODE) ;GET DATA
LARGE(N1,N2) ;large function returns the largest of the 2 values
G28B(BGPMUTF) ;Get the numbers for this measure
TESTB ; debug target
TOB ;EP
DATA3(NODE) ;GET DATA
XML28A ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
XML28B ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count

External References

Name Field # of Occurrence
$$AGE^AUPNPAT DATA+5, DATA3+5
$$HRN^AUPNPAT DATA+4, DATA3+4
$$SEX^AUPNPAT DATA+6, DATA3+6
$$ROUND^BGPMUA01 G28B+8, G28B+9, G28A+7, G28A+8, SUM28A+10, SUM28A+13, SUM28A+16, SUM28B+10, SUM28B+13, SUM28B+16
HDRBLK^BGPMUPH P1+13, P1A+13
HEADER^BGPMUPH P1+12, P1+15, P1+17, DATA+11, P1A+12, P1A+15, P1A+17
HEADERL^BGPMUPH P2+3, P2A+2, DATA3+11
W^BGPMUPP P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11
PTLSORT^BGPMUUTL P2+17, P2+24, P2A+17, P2A+24
$$GET1^DIQ DATA+3, DATA+7, DATA3+3, DATA3+7
$$FMTE^XLFDT DATA+16, DATA+17, DATA+20, DATA+22, DATA3+14, DATA3+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Pts 18+/Tobacco user/24mos",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
  • Line Location: P1+14
Function Call: WRITE
  • Prompt: !!,"# w/cess counsel/agent/24 mos",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,7),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,7),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,7),5,1),?74,$J($FN(PRB1,",+",1),6)
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: !,"# w/o cess counsel/agent/24 mos",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,8),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,8),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,8),5,1),?74,$J($FN(PRB2,",+",1),6)
  • Line Location: P1+18
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR"
  • Line Location: P2+12
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P2+13
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: P2+29
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: !,NAME,?23,HRN,?30,COMM,?42,SEX,?46,AGE
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: !,?50,$S(BGPTMP="EN":"EN:"_$P($$FMTE^XLFDT($P($P(DEN,":",1),";",2),2),"@",1),1:"HF:"_$P($$FMTE^XLFDT($P(DEN,":",2),2),"@",1))
  • Line Location: DATA+20
Function Call: WRITE
  • Prompt: !,?50,"HF:"_$P($$FMTE^XLFDT($P(DEN,":",2),2),"@",1)
  • Line Location: DATA+22
Function Call: WRITE
  • Prompt: !,"Pts 18+",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
  • Line Location: P1A+14
Function Call: WRITE
  • Prompt: !!,"# w/tob screen-24 mos",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,7),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,7),5,1),?56,$J($FN(PRD1,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,7),5,1),?74,$J($FN(PRB1,",+",1),6)
  • Line Location: P1A+16
Function Call: WRITE
  • Prompt: !,"# w/o tob screen-24 mos",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,8),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,8),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,8),5,1),?74,$J($FN(PRB2,",+",1),6)
  • Line Location: P1A+18
Function Call: WRITE
  • Prompt: !,"Patients 18+ with at least 1 or 2 encounters with the EP during the reporting "
  • Line Location: P2A+3
Function Call: WRITE
  • Prompt: !,"period, with documented tobacco screening within 24 months, if any."
  • Line Location: P2A+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P2A+5
Function Call: WRITE
  • Prompt: !,"Patients who do not meet the numerator criteria are listed first (NM:), followed"
  • Line Location: P2A+6
Function Call: WRITE
  • Prompt: !,"by patients who do meet the numerator criteria (M:)."
  • Line Location: P2A+7
Function Call: WRITE
  • Prompt: !
  • Line Location: P2A+8
Function Call: WRITE
  • Prompt: !,"The following are the abbreviations used in the denominator column:"
  • Line Location: P2A+9
Function Call: WRITE
  • Prompt: !,"EN=Encounter"
  • Line Location: P2A+10
Function Call: WRITE
  • Prompt: !
  • Line Location: P2A+11
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"HRN",?30,"COMMUNITY",?42,"SEX",?46,"AGE",?50,"DENOMINATOR",?63,"NUMERATOR"
  • Line Location: P2A+12
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P2A+13
Function Call: WRITE
  • Prompt: !!,"Total # of patients on list: "_PTCT
  • Line Location: P2A+29
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DATA3+13
Function Call: WRITE
  • Prompt: !,NAME,?23,HRN,?30,COMM,?42,SEX,?46,AGE,?50,$S($P(DEN,";",1)'="":"EN:"_$P($$FMTE^XLFDT($P(DEN,";",1),2),"@",1)_$S($L(DEN,";")>1:";",1:""),1:""),?63,$S(NUM'="":"M:"_$E($P(NUM,";",1),1,15),1:"NM:")
  • Line Location: DATA3+14
Function Call: WRITE
  • Prompt: !,?50,$S($P(DEN,";",2)'="":"EN:"_$P($$FMTE^XLFDT($P(DEN,";",2),2),"@",1),1:""),?65,$S($P(NUM,";",2)'="":$P($$FMTE^XLFDT($P(NUM,";",2),2),"@",1),1:"")
  • Line Location: DATA3+15

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)
^TMP("BGPMU SUMMARY" SUM28A+4!, SUM28A+5*, SUM28A+23*, SUM28B+4!, SUM28B+5*, SUM28B+23*
^TMP("BGPMU0028A" TOB2+2!, G28A+2, G28A+3, G28A+4, XML28A+2, XML28A+3!, SUM28A+8, SUM28A+9, SUM28A+11, SUM28A+12
, SUM28A+14, SUM28A+15
^TMP("BGPMU0028B" TOB+2!, G28B+3, G28B+4, G28B+5, XML28B+2, XML28B+3!, SUM28B+8, SUM28B+9, SUM28B+11, SUM28B+12
, SUM28B+14, SUM28B+15

Label References

Name Line Occurrences
$$G28A P1A+5, P1A+6, P1A+7
$$G28B P1+5, P1+6, P1+7
DATA P2+21, P2+28
DATA3 P2A+21, P2A+28
P1 TOB+1
P1A TOB2+1
P2 P1+19
P2A P1A+19
SUM28A P1A+20
SUM28B P1+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE DATA+1~, DATA+5*, DATA+15, DATA3+1~, DATA3+5*, DATA3+14
ARRAY G28B+1~, G28B+10*, G28B+11, G28A+1~, G28A+9*, G28A+10
>> BDEN1CT SUM28A+14*, SUM28A+16, SUM28A+22, SUM28B+14*, SUM28B+16, SUM28B+22
BGPARR P2+1~, P2+16!, P2+17, P2+23!, P2+24, P2A+1~, P2A+16!, P2A+17, P2A+23!, P2A+24
BGPARR( P2+18, P2+20, P2+25, P2+27, P2A+18, P2A+20, P2A+25, P2A+27
BGPDNCNT SUM28A+2~, SUM28A+3*, SUM28A+17*, SUM28A+23, SUM28B+2~, SUM28B+3*, SUM28B+17*, SUM28B+23
>> BGPED DATA+5, DATA3+5
>> BGPIC P1+19, P1A+19, SUM28A+4, SUM28A+5, SUM28A+23, SUM28B+4, SUM28B+5, SUM28B+23
>> BGPIOSL P1+15, P1+17, DATA+10, P1A+15, P1A+17, DATA3+10
>> BGPLIST P2+15, P2+22, P2A+15, P2A+22
>> BGPLIST( P1+19, P1A+19
BGPMUTF G28B~, G28B+3, G28B+4, G28B+5, G28A~, G28A+2, G28A+3, G28A+4
BGPPTYPE P1+2~, P1+4*, P2+4, P2+5, P2+6, P2+7, P2+8, P2+9, P2+10, P2+11
, P1A+1~, P1A+4*
>> BGPQUIT P1+12, P1+15, P1+17, P2+3, DATA+11, P1A+12, P1A+15, P1A+17, P2A+2, DATA3+11
BGPSSTR SUM28A+2~, SUM28A+18*, SUM28A+20*, SUM28A+22*, SUM28A+23, SUM28B+2~, SUM28B+18*, SUM28B+20*, SUM28B+22*, SUM28B+23
>> BGPTMP DATA+19*, DATA+20, DATA+22
>> BGPXML(1 XML28A+2*, XML28B+2*
BMI P2+1~, P2A+1~
>> BMP SUM28A+16*, SUM28A+22, SUM28B+16*, SUM28B+22
>> BNUM1CT SUM28A+15*, SUM28A+16, SUM28A+22, SUM28B+15*, SUM28B+16, SUM28B+22
>> CDEN1CT SUM28A+8*, SUM28A+10, SUM28A+18, SUM28B+8*, SUM28B+10, SUM28B+18
>> CMP SUM28A+10*, SUM28A+18, SUM28B+10*, SUM28B+18
>> CNUM1CT SUM28A+9*, SUM28A+10, SUM28A+18, SUM28B+9*, SUM28B+10, SUM28B+18
COMM DATA+1~, DATA+7*, DATA+15, DATA3+1~, DATA3+7*, DATA3+14
DEN DATA+1~, DATA+8*, DATA+16, DATA+19, DATA+20, DATA+22, DATA3+1~, DATA3+8*, DATA3+14, DATA3+15
DEN1 P1+2~, G28B+3*, G28B+6, G28B+7, G28B+8, G28B+9, G28B+10, P1A+2~, G28A+1~, G28A+2*
, G28A+5, G28A+6, G28A+7, G28A+8, G28A+9
DFN DATA+1~, DATA+2*, DATA+4, DATA+5, DATA+6, DATA+7, DATA3+1~, DATA3+2*, DATA3+4, DATA3+5
, DATA3+6, DATA3+7
DUZ(2 DATA+4, DATA3+4
FOL P2+1~, P2A+1~
HRN DATA+1~, DATA+4*, DATA+15, DATA3+1~, DATA3+4*, DATA3+14
J P1+1~, P1+3*, G28B+2*, G28B+3, G28B+4, G28B+5, P2+1~, P2+2*, SUM28A+2~, SUM28B+2~
LINE P2+13*, DATA+13*, P1A+3~, P2A+1~, P2A+13*, DATA3+13*
LIST1 P1+1~, P1A+1~
LIST2 P1+1~, P1A+1~
LIST3 P1+1~, P1A+1~
N G28B+1~, SUM28A+2~, SUM28A+6*, SUM28A+8, SUM28A+9, SUM28A+11, SUM28A+12, SUM28A+14, SUM28A+15, SUM28A+18
, SUM28B+2~, SUM28B+6*, SUM28B+8, SUM28B+9, SUM28B+11, SUM28B+12, SUM28B+14, SUM28B+15, SUM28B+18
N1 LARGE~, LARGE+1, LARGE+2, LARGE+3
N2 LARGE~, LARGE+1, LARGE+2
NAME P2+1~, DATA+1~, DATA+3*, DATA+15, P2A+1~, DATA3+1~, DATA3+3*, DATA3+14
NODE P2+1~, P2+20*, P2+21, P2+27*, P2+28, DATA~, DATA+2, DATA+3, DATA+8, DATA+9
, P2A+1~, P2A+20*, P2A+21, P2A+27*, P2A+28, DATA3~, DATA3+2, DATA3+3, DATA3+8, DATA3+9
NONUM G28B+5*, G28B+9, G28B+10, P1A+2~, G28A+1~, G28A+4*, G28A+8, G28A+9
NUM DATA+1~, DATA+9*, DATA+17, DATA3+1~, DATA3+9*, DATA3+14, DATA3+15
NUM1 P1+2~, G28B+4*, G28B+8, G28B+10, P1A+2~, G28A+1~, G28A+3*, G28A+7, G28A+9
PC1 P1+2~, G28B+6*, G28B+8*, G28B+10, P1A+2~, G28A+1~, G28A+5*, G28A+7*, G28A+9
>> PC2 G28B+6*, G28B+9*, G28B+10, G28A+5*, G28A+8*, G28A+9
>> PDEN1CT SUM28A+11*, SUM28A+13, SUM28A+20, SUM28B+11*, SUM28B+13, SUM28B+20
>> PMP SUM28A+13*, SUM28A+20, SUM28B+13*, SUM28B+20
>> PNUM1CT SUM28A+12*, SUM28A+13, SUM28A+20, SUM28B+12*, SUM28B+13, SUM28B+20
PRB1 P1+2~, P1+10*, P1+16, P1A+2~, P1A+10*, P1A+16
PRB2 P1+2~, P1+11*, P1+18, P1A+2~, P1A+11*, P1A+18
PRD1 P1+2~, P1+8*, P1+16, P1A+2~, P1A+8*, P1A+16
PRD2 P1+2~, P1+9*, P1+18, P1A+2~, P1A+9*, P1A+18
PT P2+1~, P2+18*, P2+20, P2+25*, P2+27, P2A+1~, P2A+18*, P2A+20, P2A+25*, P2A+27
PTCT P2+14*, P2+19*, P2+26*, P2+29, P2A+1~, P2A+14*, P2A+19*, P2A+26*, P2A+29
SEX DATA+1~, DATA+6*, DATA+15, DATA3+1~, DATA3+6*, DATA3+14
STRING1 P1+2~, P1+5*, P1+8, P1+9, P1+10, P1+11, P1+14, P1+16, P1+18, P1A+2~
, P1A+5*, P1A+8, P1A+9, P1A+10, P1A+11, P1A+14, P1A+16, P1A+18
STRING2 P1+2~, P1+6*, P1+8, P1+9, P1+14, P1+16, P1+18, P1A+2~, P1A+6*, P1A+8
, P1A+9, P1A+14, P1A+16, P1A+18
STRING3 P1+2~, P1+7*, P1+10, P1+11, P1+14, P1+16, P1+18, P1A+2~, P1A+7*, P1A+10
, P1A+11, P1A+14, P1A+16, P1A+18
U P1+8, P1+9, P1+10, P1+11, P1+14, P1+16, P1+18, G28B+10, DATA+2, DATA+3
, DATA+8, DATA+9, P1A+8, P1A+9, P1A+10, P1A+11, P1A+14, P1A+16, P1A+18, G28A+9
, DATA3+2, DATA3+3, DATA3+8, DATA3+9, XML28A+2, XML28B+2, SUM28A+5, SUM28A+18, SUM28A+20, SUM28A+22
, SUM28B+5, SUM28B+18, SUM28B+20, SUM28B+22
VST P2+1~, P2A+1~
X P1+1~, P2+1~, P2+4*, P2+5*, P2+6*, P2+7*, P2+8*, P2+9*, P2+10*, P2+11*
, P1A+1~, P2A+1~
Y P1+1~, P1A+1~
Z P1+1~, P1A+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All