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

Package: IHS GPRA Information System

Routine: BGPMUHP7


Information

BGPMUHP7 ; IHS/MSC/JSM - MU EH measure output routines;02-Mar-2011 16:06;MGH

Source Information

Source file <BGPMUHP7.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS GPRA Information System 5 $$ROUND^BGPMUA01  (SUM373,SUM374)^BGPMUHD6  (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 BGPMUHD6  

Entry Points

Name Comments DBIA/ICR reference
P3 ;Write individual measure
VTE3 ;EH output routine for 0373 VTE-3 (BGPMUH12)
VTE4 ;EH output routine for 0374 VTE-4 (BGPMUH13)
P4 ;Write individual measure
P4D ;Do the Details
DEXC374(NODE)
P3D ;Do the Details
374(BGPMUTF) ;Get the numbers for this measure
D373(NODE) ;GET DATA
DEXC373(NODE) ;GET DATA
XML374 ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count
D374(NODE) ;GET DATA
XML373 ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count
373(BGPMUTF) ;Get the numbers for this measure

External References

Name Field # of Occurrence
$$AGE^AUPNPAT D373+5, DEXC373+5, D374+5
$$HRN^AUPNPAT D373+4, DEXC373+4, D374+4
$$SEX^AUPNPAT D373+6, DEXC373+6, D374+6
$$ROUND^BGPMUA01 P3+11, 373+10, 373+11, P4+11, 374+10, 374+11
SUM373^BGPMUHD6 P3+31
SUM374^BGPMUHD6 P4+32
HDRBLK^BGPMUPH P3+15, P4+15
HEADER^BGPMUPH P3+13, P3+18, P3+20, P3+24, P3+27, P4+13, P4+16, P4+19, P4+21, P4+24
, P4+28
HEADERL^BGPMUPH P3D+2, P3D+20, D373+12, DEXC373+11, P4D+2, P4D+15, D374+12
W^BGPMUPP P3D+3, P3D+4, P3D+5, P3D+6, P3D+7, P3D+8, P3D+9, P3D+10, P3D+11, P3D+12
, P3D+13, P3D+14, P3D+15, P3D+16, P3D+17, P3D+18, P3D+19, P3D+44, P4D+3, P4D+4
, P4D+5, P4D+6, P4D+7, P4D+8, P4D+9, P4D+10, P4D+11, P4D+12, P4D+13, P4D+14
, P4D+39
PTLSORT^BGPMUUTL P3D+26, P3D+32, P3D+39, P4D+21, P4D+27, P4D+34
$$GET1^DIQ D373+3, D373+7, DEXC373+3, DEXC373+7, D374+3, D374+7
$$FMTE^XLFDT D373+15, D373+17, D374+15, D374+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P3+14
Function Call: WRITE
  • Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?65,$P(STRING3,U,1)
  • Line Location: P3+16
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE"
  • Line Location: P3+17
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
  • Line Location: P3+19
Function Call: WRITE
  • Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?65,$P(STRING3,U,1)-$P(STRING3,U,4)
  • Line Location: P3+21
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE Less Exc"
  • Line Location: P3+22
Function Call: WRITE
  • Prompt: !
  • Line Location: P3+23
Function Call: WRITE
  • Prompt: !,"# w/overlap therapy",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD2,",+",1),6),?65,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6)
  • Line Location: P3+25
Function Call: WRITE
  • Prompt: !,"at discharge"
  • Line Location: P3+26
Function Call: WRITE
  • Prompt: !,"# w/o overlap therapy",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?65,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6)
  • Line Location: P3+28
Function Call: WRITE
  • Prompt: !,"at discharge"
  • Line Location: P3+29
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?69,"NUMERATOR"
  • Line Location: P3D+21
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P3D+22
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: D373+14
Function Call: WRITE
  • Prompt: ";",!,?69,"INR: "_INR_" "_INRDT
  • Line Location: D373+16
Function Call: WRITE
  • Prompt: ";",!,?69,"RX:"_$$FMTE^XLFDT($P(DD,".",1),2)
  • Line Location: D373+17
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DEXC373+13
Function Call: WRITE
  • Prompt: !,NAME,?25,HRN,?33,COMM,?44,SEX,?48,AGE,?53,"Excluded"
  • Line Location: DEXC373+14
Function Call: WRITE
  • Prompt: !
  • Line Location: P4+14
Function Call: WRITE
  • Prompt: !,"# Discharges for Pts",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?65,$P(STRING3,U,1)
  • Line Location: P4+17
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE"
  • Line Location: P4+18
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
  • Line Location: P4+20
Function Call: WRITE
  • Prompt: !,"# Discharges for Pts",?33,($P(STRING1,U,1)-$P(STRING1,U,4)),?44,($P(STRING2,U,1)-$P(STRING2,U,4)),?65,($P(STRING3,U,1)-$P(STRING3,U,4))
  • Line Location: P4+22
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE Less Exc"
  • Line Location: P4+23
Function Call: WRITE
  • Prompt: !
  • Line Location: P4+25
Function Call: WRITE
  • Prompt: !,"# w/IV UFH therapy",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD2,",+",1),6),?65,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6)
  • Line Location: P4+26
Function Call: WRITE
  • Prompt: !,"& platelet count"
  • Line Location: P4+27
Function Call: WRITE
  • Prompt: !,"# w/o IV UFH therapy",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?65,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6)
  • Line Location: P4+29
Function Call: WRITE
  • Prompt: !,"& platelet count"
  • Line Location: P4+30
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?66,"NUMERATOR"
  • Line Location: P4D+16
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P4D+17
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: D374+14

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("BGPMU0373" VTE3+2!, 373+2, 373+3, 373+4, P3D+24, P3D+31, P3D+38, XML373+2, XML373+3!
^TMP("BGPMU0374" 373+5, VTE4+2!, 374+2, 374+3, 374+4, 374+5, P4D+19, P4D+26, P4D+33, XML374+2
, XML374+3!

Label References

Name Line Occurrences
$$373 P3+3, P3+4, P3+5
$$374 P4+3, P4+4, P4+5
D373 P3D+30, P3D+36
D374 P4D+25, P4D+31
DEXC373 P3D+43, DEXC374+1
DEXC374 P4D+38
P3 VTE3+1
P3D P3+30
P4 VTE4+1
P4D P4+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE D373+1~, D373+5*, D373+15, DEXC373+1~, DEXC373+5*, DEXC373+14, D374+1~, D374+5*, D374+15
ARRAY 373+1~, 373+12*, 373+13, 374+1~, 374+12*, 374+13
BGPARR P3D+25!, P3D+26, P3D+32, P3D+39, P4D+20!, P4D+21, P4D+27, P4D+34
BGPARR( P3D+27, P3D+29, P3D+33, P3D+35, P3D+40, P3D+42, P4D+22, P4D+24, P4D+28, P4D+30
, P4D+35, P4D+37
>> BGPED D373+5, DEXC373+5, D374+5
BGPI D373+1~, DEXC373+1~, D374+1~
>> BGPIC P3+30, P4+31
>> BGPIOSL P3+18, P3+20, P3+24, P3+27, P3D+20, D373+11, DEXC373+10, P4+16, P4+19, P4+21
, P4+24, P4+28, P4D+15, D374+10
>> BGPLIST P3D+24, P3D+31, P3D+38, P4D+19, P4D+26, P4D+33
>> BGPLIST( P3+30, P4+31
BGPMUTF 373~, 373+2, 373+3, 373+4, 373+5, 374~, 374+2, 374+3, 374+4, 374+5
>> BGPPTYPE P3D+3, P3D+4, P3D+5, P3D+6, P3D+7, P3D+8, P3D+9, P3D+10, P3D+11, P3D+12
, P3D+13, P3D+14, P3D+15, P3D+16, P3D+17, P3D+18, P3D+19, P3D+44, P4D+3, P4D+4
, P4D+5, P4D+6, P4D+7, P4D+8, P4D+9, P4D+10, P4D+11, P4D+12, P4D+13, P4D+14
, P4D+39
>> BGPQUIT P3+13, P3+18, P3+20, P3+24, P3+27, P3D+2, P3D+20, D373+12, DEXC373+11, P4+13
, P4+16, P4+19, P4+21, P4+24, P4+28, P4D+2, P4D+15, D374+12
>> BGPXML(1 XML373+2*, XML374+2*
BMI P3D+1~, P4D+1~
CNT D373+1~, D373+9*, D373+15
>> COMM D373+7*, D373+15, DEXC373+7*, DEXC373+14, D374+7*, D374+15
DATA D373+1~, DEXC373+1~, D374+1~
DD D373+1~, D373+10*, D373+17
DEN P3+2~, 373+2*, 373+6, 373+7, 373+8, 373+10, 373+11, 373+12, D373+1~, D373+8*
, D373+15, DEXC373+1~, DEXC373+8*, P4+2~, 374+2*, 374+6, 374+7, 374+8, 374+10, 374+11
, 374+12, D374+1~, D374+8*, D374+15
DFN D373+1~, D373+2*, D373+4, D373+5, D373+6, D373+7, DEXC373+1~, DEXC373+2*, DEXC373+4, DEXC373+5
, DEXC373+6, DEXC373+7, D374+1~, D374+2*, D374+4, D374+5, D374+6, D374+7
DUZ(2 D373+4, DEXC373+4, D374+4
EXC P3+2~, 373+4*, 373+8, 373+10, 373+11, 373+12, P4+2~, 374+4*, 374+8, 374+10
, 374+11, 374+12
FOL P3D+1~, P4D+1~
HRN D373+1~, D373+4*, D373+15, DEXC373+1~, DEXC373+4*, DEXC373+14, D374+1~, D374+4*, D374+15
I D374+1~, D374+17*, D374+18
INR D373+1~, D373+9*, D373+16
INRDT D373+1~, D373+9*, D373+16
>> LINE P3D+22*, D373+14*, DEXC373+13*, P4D+17*, D374+14*
>> LINES D374+10*, D374+11
LIST1 P3+1~, P4+1~
LIST2 P3+1~, P4+1~
LIST3 P3+1~, P4+1~
NAME P3D+1~, D373+1~, D373+3*, D373+15, DEXC373+1~, DEXC373+3*, DEXC373+14, P4D+1~, D374+1~, D374+3*
, D374+15
NODE P3D+1~, P3D+29*, P3D+30, P3D+35*, P3D+36, P3D+42*, P3D+43, D373~, D373+2, D373+3
, D373+8, D373+9, D373+10, D373+15, DEXC373~, DEXC373+2, DEXC373+3, DEXC373+8, DEXC373+9, P4D+1~
, P4D+24*, P4D+25, P4D+30*, P4D+31, P4D+37*, P4D+38, D374~, D374+2, D374+3, D374+8
, D374+9, D374+15, DEXC374~, DEXC374+1
NONUM P3+2~, 373+5*, 373+11, 373+12, P4+2~, 374+5*, 374+11, 374+12
NUM P3+2~, 373+3*, 373+10, 373+12, D373+1~, DEXC373+1~, DEXC373+9*, P4+2~, 374+3*, 374+10
, 374+12
NUMDATA D374+1~, D374+9*, D374+10, D374+15, D374+17, D374+18
PC1 P3+2~, 373+6*, 373+8*, 373+10*, 373+12, P4+2~, 374+6*, 374+8*, 374+10*, 374+12
PC2 P3+2~, 373+6*, 373+8*, 373+11*, 373+12, P4+2~, 374+6*, 374+8*, 374+11*, 374+12
PRB1 P3+2~, P4+2~
PRB2 P3+2~, P4+2~
PRD1 P3+2~, P3+6*, P4+2~, P4+6*
PRD2 P3+2~, P3+7*, P3+25, P4+2~, P4+7*, P4+26
>> PRD3 P3+8*, P3+25, P4+8*, P4+26
>> PRD4 P3+9*, P3+28, P4+9*, P4+29
>> PRD5 P3+10*, P3+28, P4+10*, P4+29
>> PRD6 P3+11*, P3+12*, P4+11*, P4+12*
PT P3D+1~, P3D+27*, P3D+29, P3D+33*, P3D+35, P3D+40*, P3D+42, P4D+1~, P4D+22*, P4D+24
, P4D+28*, P4D+30, P4D+35*, P4D+37
>> PTCT P3D+23*, P3D+28*, P3D+34*, P3D+41*, P3D+44, P4D+18*, P4D+23*, P4D+29*, P4D+36*, P4D+39
>> SEX D373+6*, D373+15, DEXC373+6*, DEXC373+14, D374+6*, D374+15
STRING1 P3+2~, P3+3*, P3+6, P3+7, P3+8, P3+9, P3+10, P3+11, P3+16, P3+19
, P3+21, P3+25, P3+28, P4+2~, P4+3*, P4+6, P4+7, P4+8, P4+9, P4+10
, P4+11, P4+17, P4+20, P4+22, P4+26, P4+29
STRING2 P3+2~, P3+4*, P3+6, P3+7, P3+9, P3+16, P3+19, P3+21, P3+25, P3+28
, P4+2~, P4+4*, P4+6, P4+7, P4+9, P4+17, P4+20, P4+22, P4+26, P4+29
STRING3 P3+2~, P3+5*, P3+8, P3+10, P3+11, P3+16, P3+19, P3+21, P3+25, P3+28
, P4+2~, P4+5*, P4+8, P4+10, P4+11, P4+17, P4+20, P4+22, P4+26, P4+29
U P3+6, P3+7, P3+8, P3+9, P3+10, P3+11, P3+16, P3+19, P3+21, P3+25
, P3+28, 373+12, D373+2, D373+3, D373+8, D373+9, D373+10, DEXC373+2, DEXC373+3, DEXC373+8
, DEXC373+9, P4+6, P4+7, P4+8, P4+9, P4+10, P4+11, P4+17, P4+20, P4+22
, P4+26, P4+29, 374+12, D374+2, D374+3, D374+8, D374+9, XML373+2, XML374+2
VST P3D+1~, P4D+1~
X P3+1~, P3D+1~, P3D+3*, P3D+4*, P3D+5*, P3D+6*, P3D+7*, P3D+8*, P3D+9*, P3D+10*
, P3D+11*, P3D+12*, P3D+13*, P3D+14*, P3D+15*, P3D+16*, P3D+17*, P3D+18*, P3D+19*, P3D+44*
, P4+1~, P4D+1~, P4D+3*, P4D+4*, P4D+5*, P4D+6*, P4D+7*, P4D+8*, P4D+9*, P4D+10*
, P4D+11*, P4D+12*, P4D+13*, P4D+14*, P4D+39*
Y P3+1~, P4+1~
Z P3+1~, P4+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