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

Package: IHS GPRA Information System

Routine: BGPMUHP8


Information

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

Source Information

Source file <BGPMUHP8.m>

Call Graph

Call Graph Total: 8

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

Entry Points

Name Comments DBIA/ICR reference
376(BGPMUTF) ;Get the numbers for this measure
VTE5 ;EH output routine for 0375 VTE-5 (BGPMUH14)
375(BGPMUTF) ;Get the numbers for this measure
P5 ;Write individual measure
P5D ;Do the Details
VTE6 ;EH output routine for 0376 VTE-6 (BGPMUH15)
D375(NODE) ;get data
P6D ;Do the details
XML375 ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count
DEXC375(NODE) ;GET DATA
XML376 ;Populate the BGPXML array with data for each population/numerator
; BGPXMLOUT(i)=Measure number^""^Denominator Count^Numerator Count^Exclusion Count
P6 ;Write individual measure
DEXC376(NODE) ;GET DATA
D376(NODE) ;get data

External References

Name Field # of Occurrence
$$AGE^AUPNPAT D376+5, D375+5, DEXC375+5
$$HRN^AUPNPAT D376+4, D375+4, DEXC375+4
$$SEX^AUPNPAT D376+6, D375+6, DEXC375+6
$$ROUND^BGPMUA01 P5+11, 375+10, 375+11, P6+11, 376+10, 376+11
SUM375^BGPMUHD7 P5+33
SUM376^BGPMUHD7 P6+33
HDRBLK^BGPMUPH P5+15, P6+15
HEADER^BGPMUPH P5+13, P5+18, P5+20, P5+24, P5+28, DEXC375+11, P6+13, P6+18, P6+20, P6+24
, P6+28
HEADERL^BGPMUPH P5D+2, P5D+16, D376+11, D375+11, P6D+3, P6D+15
W^BGPMUPP P5D+3, P5D+4, P5D+5, P5D+6, P5D+7, P5D+8, P5D+9, P5D+10, P5D+11, P5D+12
, P5D+13, P5D+14, P5D+40, P6D+4, P6D+5, P6D+6, P6D+7, P6D+8, P6D+9, P6D+10
, P6D+11, P6D+12, P6D+13, P6D+14, P6D+39
PTLSORT^BGPMUUTL P5D+22, P5D+28, P5D+35, P6D+21, P6D+27, P6D+34
$$GET1^DIQ D376+3, D376+7, D375+3, D375+7, DEXC375+3, DEXC375+7
$$FMTE^XLFDT D376+14, D375+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P5+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: P5+16
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE"
  • Line Location: P5+17
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
  • Line Location: P5+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: P5+21
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE Less Exc"
  • Line Location: P5+22
Function Call: WRITE
  • Prompt: !
  • Line Location: P5+23
Function Call: WRITE
  • Prompt: !,"# w/documentation",?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: P5+25
Function Call: WRITE
  • Prompt: !,"(discharge instruction"
  • Line Location: P5+26
Function Call: WRITE
  • Prompt: !,"or educational material)"
  • Line Location: P5+27
Function Call: WRITE
  • Prompt: !,"# w/o documentation",?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: P5+29
Function Call: WRITE
  • Prompt: !,"(discharge instruction"
  • Line Location: P5+30
Function Call: WRITE
  • Prompt: !,"or educational material)"
  • Line Location: P5+31
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?69,"NUMERATOR"
  • Line Location: P5D+17
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P5D+18
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: D376+13
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: D375+13
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DEXC375+13
Function Call: WRITE
  • Prompt: !,NAME,?25,HRN,?33,COMM,?44,SEX,?48,AGE,?53,"Excluded"
  • Line Location: DEXC375+14
Function Call: WRITE
  • Prompt: !
  • Line Location: P6+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: P6+16
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE"
  • Line Location: P6+17
Function Call: WRITE
  • Prompt: !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
  • Line Location: P6+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: P6+21
Function Call: WRITE
  • Prompt: !,"w/confirmed VTE Less Exc"
  • Line Location: P6+22
Function Call: WRITE
  • Prompt: !
  • Line Location: P6+23
Function Call: WRITE
  • Prompt: !,"# w/o VTE prophylaxis",?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: P6+25
Function Call: WRITE
  • Prompt: !,"prior to the VTE"
  • Line Location: P6+26
Function Call: WRITE
  • Prompt: !,"diagnostic test date"
  • Line Location: P6+27
Function Call: WRITE
  • Prompt: !,"# w/VTE prophylaxis",?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: P6+29
Function Call: WRITE
  • Prompt: !,"prior to the VTE"
  • Line Location: P6+30
Function Call: WRITE
  • Prompt: !,"diagnostic test date"
  • Line Location: P6+31
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?69,"NUMERATOR"
  • Line Location: P6D+16
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: P6D+17

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("BGPMU0375" VTE5+2!, 375+2, 375+3, 375+4, 375+5, P5D+20, P5D+27, P5D+34, XML375+2, XML375+3!
^TMP("BGPMU0376" VTE6+2!, 376+2, 376+3, 376+4, 376+5, P6D+19, P6D+26, P6D+33, XML376+2, XML376+3!

Label References

Name Line Occurrences
$$375 P5+3, P5+4, P5+5
$$376 P6+3, P6+4, P6+5
D375 P5D+26, P5D+32
D376 P6D+25, P6D+31
DEXC375 P5D+39, DEXC376+1
DEXC376 P6D+38
P5 VTE5+1
P5D P5+32
P6 VTE6+1
P6D P6+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE D376+1~, D376+5*, D376+14, D375+1~, D375+5*, D375+14, DEXC375+1~, DEXC375+5*, DEXC375+14
ARRAY 375+1~, 375+12*, 375+13, 376+1~, 376+12*, 376+13
BGPARR P5D+21!, P5D+22, P5D+28, P5D+35, P6D+2~, P6D+20!, P6D+21, P6D+27, P6D+34
BGPARR( P5D+23, P5D+25, P5D+29, P5D+31, P5D+36, P5D+38, P6D+22, P6D+24, P6D+28, P6D+30
, P6D+35, P6D+37
>> BGPED D376+5, D375+5, DEXC375+5
BGPI D376+1~, D375+1~, DEXC375+1~
>> BGPIC P5+32, P6+32
>> BGPIOSL P5+18, P5+20, P5+24, P5+28, P5D+16, D376+10, D375+10, DEXC375+10, P6+18, P6+20
, P6+24, P6+28, P6D+15
>> BGPLIST P5D+20, P5D+27, P5D+34, P6D+19, P6D+26, P6D+33
>> BGPLIST( P5+32, P6+32
BGPMUTF 375~, 375+2, 375+3, 375+4, 375+5, 376~, 376+2, 376+3, 376+4, 376+5
>> BGPPTYPE P5D+3, P5D+4, P5D+5, P5D+6, P5D+7, P5D+8, P5D+9, P5D+10, P5D+11, P5D+12
, P5D+13, P5D+14, P5D+40, P6D+4, P6D+5, P6D+6, P6D+7, P6D+8, P6D+9, P6D+10
, P6D+11, P6D+12, P6D+13, P6D+14, P6D+39
>> BGPQUIT P5+13, P5+18, P5+20, P5+24, P5+28, P5D+2, P5D+16, D376+11, D375+11, DEXC375+11
, P6+13, P6+18, P6+20, P6+24, P6+28, P6D+3, P6D+15
>> BGPXML(1 XML375+2*, XML376+2*
BMI P5D+1~, P6D+1~
>> COMM D376+7*, D376+14, D375+7*, D375+14, DEXC375+7*, DEXC375+14
DATA D376+1~, D375+1~, DEXC375+1~
DEN P5+2~, 375+2*, 375+6, 375+7, 375+8, 375+10, 375+11, 375+12, D376+1~, D376+8*
, D376+14, D375+1~, D375+8*, D375+14, DEXC375+1~, DEXC375+8*, P6+2~, 376+2*, 376+6, 376+7
, 376+8, 376+10, 376+11, 376+12
DFN D376+1~, D376+2*, D376+4, D376+5, D376+6, D376+7, D375+1~, D375+2*, D375+4, D375+5
, D375+6, D375+7, DEXC375+1~, DEXC375+2*, DEXC375+4, DEXC375+5, DEXC375+6, DEXC375+7
DUZ(2 D376+4, D375+4, DEXC375+4
EXC P5+2~, 375+4*, 375+8, 375+10, 375+11, 375+12, P6+2~, 376+4*, 376+8, 376+10
, 376+11, 376+12
FOL P5D+1~, P6D+1~
HRN D376+1~, D376+4*, D376+14, D375+1~, D375+4*, D375+14, DEXC375+1~, DEXC375+4*, DEXC375+14
>> LINE P5D+18*, D376+13*, D375+13*, DEXC375+13*, P6D+17*
LIST1 P5+1~, P6+1~
LIST2 P5+1~, P6+1~
LIST3 P5+1~, P6+1~
NAME P5D+1~, D376+1~, D376+3*, D376+14, D375+1~, D375+3*, D375+14, DEXC375+1~, DEXC375+3*, DEXC375+14
, P6D+1~
NODE P5D+1~, P5D+25*, P5D+26, P5D+31*, P5D+32, P5D+38*, P5D+39, D376~, D376+2, D376+3
, D376+8, D376+9, D376+14, D375~, D375+2, D375+3, D375+8, D375+9, D375+14, DEXC376~
, DEXC376+1, DEXC375~, DEXC375+2, DEXC375+3, DEXC375+8, DEXC375+9, P6D+1~, P6D+24*, P6D+25, P6D+30*
, P6D+31, P6D+37*, P6D+38
NONUM P5+2~, 375+5*, 375+11, 375+12, P6+2~, 376+5*, 376+11, 376+12
NUM P5+2~, 375+3*, 375+10, 375+12, D376+1~, D376+9*, D376+14, D375+1~, D375+9*, D375+14
, DEXC375+1~, DEXC375+9*, P6+2~, 376+3*, 376+10, 376+12
PC1 P5+2~, 375+6*, 375+8*, 375+10*, 375+12, P6+2~, 376+6*, 376+8*, 376+10*, 376+12
PC2 P5+2~, 375+6*, 375+8*, 375+11*, 375+12, P6+2~, 376+6*, 376+8*, 376+11*, 376+12
PRB1 P5+2~, P6+2~
PRB2 P5+2~, P6+2~
PRD1 P5+2~, P5+6*, P6+2~, P6+6*
PRD2 P5+2~, P5+7*, P5+25, P6+2~, P6+7*, P6+25
>> PRD3 P5+8*, P5+25, P6+8*, P6+25
>> PRD4 P5+9*, P5+29, P6+9*, P6+29
>> PRD5 P5+10*, P5+29, P6+10*, P6+29
>> PRD6 P5+11*, P5+12*, P6+11*, P6+12*
PT P5D+1~, P5D+23*, P5D+25, P5D+29*, P5D+31, P5D+36*, P5D+38, P6D+1~, P6D+22*, P6D+24
, P6D+28*, P6D+30, P6D+35*, P6D+37
>> PTCT P5D+19*, P5D+24*, P5D+30*, P5D+37*, P5D+40, P6D+18*, P6D+23*, P6D+29*, P6D+36*, P6D+39
>> SEX D376+6*, D376+14, D375+6*, D375+14, DEXC375+6*, DEXC375+14
STRING1 P5+2~, P5+3*, P5+6, P5+7, P5+8, P5+9, P5+10, P5+11, P5+16, P5+19
, P5+21, P5+25, P5+29, P6+2~, P6+3*, P6+6, P6+7, P6+8, P6+9, P6+10
, P6+11, P6+16, P6+19, P6+21, P6+25, P6+29
STRING2 P5+2~, P5+4*, P5+6, P5+7, P5+9, P5+16, P5+19, P5+21, P5+25, P5+29
, P6+2~, P6+4*, P6+6, P6+7, P6+9, P6+16, P6+19, P6+21, P6+25, P6+29
STRING3 P5+2~, P5+5*, P5+8, P5+10, P5+11, P5+16, P5+19, P5+21, P5+25, P5+29
, P6+2~, P6+5*, P6+8, P6+10, P6+11, P6+16, P6+19, P6+21, P6+25, P6+29
U P5+6, P5+7, P5+8, P5+9, P5+10, P5+11, P5+16, P5+19, P5+21, P5+25
, P5+29, 375+12, D376+2, D376+3, D376+8, D376+9, D375+2, D375+3, D375+8, D375+9
, DEXC375+2, DEXC375+3, DEXC375+8, DEXC375+9, P6+6, P6+7, P6+8, P6+9, P6+10, P6+11
, P6+16, P6+19, P6+21, P6+25, P6+29, 376+12, XML375+2, XML376+2
VST P5D+1~, P6D+1~
X P5+1~, P5D+1~, P5D+3*, P5D+4*, P5D+5*, P5D+6*, P5D+7*, P5D+8*, P5D+9*, P5D+10*
, P5D+11*, P5D+12*, P5D+13*, P5D+14*, P5D+40*, P6+1~, P6D+1~, P6D+4*, P6D+5*, P6D+6*
, P6D+7*, P6D+8*, P6D+9*, P6D+10*, P6D+11*, P6D+12*, P6D+13*, P6D+14*, P6D+39*
Y P5+1~, P6+1~
Z P5+1~, P6+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