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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP1CP5

Package: IHS GPRA Information System

Routine: BGP1CP5


Information

BGP1CP5 ; IHS/CMI/LAB - IHS gpra print ;

Source Information

Source file <BGP1CP5.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS GPRA Information System 10 (HDR,L1H)^BGP1CP  (OTHDPOVS,WADM,WADM92,WADMS92,WALLALG,WALLALGT,WCESS,WCESSMED,WDOB,WDSGS92,WDT,WINS,WIVUD,WRACE,WSMOKER,WTT,WZIP)^BGP1CPU  (WOTHPROS,WPRINPRO)^BGP1CPU2  (EXCL487,OTHDPOVS,WABGPO,WADMDX,WANTIRX,WCHEST,WCOMFORT,WCYSTIC,WDOD,WDT,WDT9,WERBC,WERPNEU,WEXCL1,WFLU,WNURSHOM,WOTHINF,WPNEUMO,WPNEUPOV,WPPDPOV,WPRIORHO,WPSEUDO,WTT,WWOUND)^BGP1CPU3  ($$ADMDX,$$COMFORT,$$DODA,$$DSCH,$$ERPNEU,$$TRANS,$$TRANSIN,ABGPO,CHESTXRY,CTSCAN)^BGP1CU  (ALLALG1,ALLALGA1,IVUD)^BGP1CU1  (CESS,CESSMEDS,PNEUVAX,SMOKER)^BGP1CU2  (ANTIRX,ERBCP)^BGP1CU3  
($$COPD,$$HOS2DAYS,$$NURSHOME,$$PRIORHOS,$$PSEUDO,$$WOUNDCAR,EXCLCOMP,FLUVAX)^BGP1CU4  $$LASTDX^BGP1UTL1  
IHS Patient 1 $$DOB^AUPNPAT  
Kernel 1 $$FMADD^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PN2 ;EP
PN1 ;EP
TRANSN2 ;
PN5B ;EP
PN4 ;EP
PN7 ;EP
PN6 ;EP
TRANSIN ;
TRANSN3 ;
TRANSN ;
TRANSIN3 ;
PN3B ;EP
PNALL ;EP

External References

Name Field # of Occurrence
$$DOB^AUPNPAT PN1+27, PN2+20, PN2+23, PN3B+29, PN4+22, PN5B+34, PN6+48, PN7+21
HDR^BGP1CP PNALL+1, PN1+1, PN2+1, PN3B+1, PN4+1, PN5B+1, PN6+1, PN7+1, TRANSIN+1, TRANSN+1
, TRANSN2+1, TRANSN3+1, TRANSIN3+1
L1H^BGP1CP PNALL+1, PN1+1, PN2+1, PN3B+1, PN4+1, PN5B+1, PN6+1, PN7+1, TRANSIN+1, TRANSN+1
, TRANSN2+1, TRANSN3+1, TRANSIN3+1
OTHDPOVS^BGP1CPU PNALL+26
WADM^BGP1CPU PNALL+11
WADM92^BGP1CPU PNALL+13
WADMS92^BGP1CPU PNALL+15
WALLALG^BGP1CPU PN1+35, PN2+28, PN3B+42, PN4+41, PN5B+42, PN6+65, PN7+31
WALLALGT^BGP1CPU PN1+39, PN2+32, PN3B+46, PN4+45, PN5B+46, PN6+69, PN7+35
WCESS^BGP1CPU PN4+33
WCESSMED^BGP1CPU PN4+37
WDOB^BGP1CPU PNALL+5
WDSGS92^BGP1CPU PNALL+19
WDT^BGP1CPU PNALL+17
WINS^BGP1CPU PNALL+9
WIVUD^BGP1CPU PN1+42, PN2+35, PN3B+49, PN4+48, PN5B+49, PN6+72, PN7+38
WRACE^BGP1CPU PNALL+3
WSMOKER^BGP1CPU PN4+29
WTT^BGP1CPU PNALL+21
WZIP^BGP1CPU PNALL+7
WOTHPROS^BGP1CPU2 PNALL+30
WPRINPRO^BGP1CPU2 PNALL+28
EXCL487^BGP1CPU3 PN7+14
OTHDPOVS^BGP1CPU3 PN1+10, PN2+9, PN3B+12, PN4+11, PN5B+12, PN6+12, PN7+9
WABGPO^BGP1CPU3 PN1+31
WADMDX^BGP1CPU3 PN1+16, PN3B+18, PN5B+18, PN6+18
WANTIRX^BGP1CPU3 PN3B+34, PN5B+31, PN6+58
WCHEST^BGP1CPU3 PN1+24, PN2+17, PN3B+26, PN4+19, PN5B+26, PN6+41, PN7+18
WCOMFORT^BGP1CPU3 PN1+19, PN2+12, PN3B+21, PN4+14, PN5B+21, PN6+21, PN7+12
WCYSTIC^BGP1CPU3 PN1+28, PN2+21, PN3B+30, PN4+23, PN5B+35, PN6+49, PN7+22
WDOD^BGP1CPU3 PN3B+3, PN4+2, PN5B+3, PN6+3
WDT^BGP1CPU3 PN1+3, PN3B+5, PN5B+5, PN6+5
WDT9^BGP1CPU3 PN2+2, PN4+4, PN7+2
WERBC^BGP1CPU3 PN3B+38
WERPNEU^BGP1CPU3 PN1+14, PN3B+16, PN5B+16, PN6+16
WEXCL1^BGP1CPU3 PN6+27
WFLU^BGP1CPU3 PN7+27
WNURSHOM^BGP1CPU3 PN6+34
WOTHINF^BGP1CPU3 PN6+44
WPNEUMO^BGP1CPU3 PN2+24
WPNEUPOV^BGP1CPU3 PNALL+23
WPPDPOV^BGP1CPU3 PN1+8, PN2+7, PN3B+10, PN4+9, PN5B+10, PN6+10, PN7+7
WPRIORHO^BGP1CPU3 PN6+31
WPSEUDO^BGP1CPU3 PN6+53
WTT^BGP1CPU3 PN1+5, PN2+4, PN3B+7, PN4+6, PN5B+7, PN6+7, PN7+4
WWOUND^BGP1CPU3 PN6+37
$$ADMDX^BGP1CU PN1+15, PN5B+17, PN6+17, PN6+43
$$COMFORT^BGP1CU PN1+18, PN2+11, PN3B+20, PN4+13, PN5B+20, PN6+20, PN7+11
$$DODA^BGP1CU PN1+7
$$DSCH^BGP1CU PN1+27, PN1+30, PN1+34, PN1+41, PN2+20, PN2+23, PN2+27, PN2+34, PN3B+29, PN3B+41
, PN3B+48, PN4+22, PN4+28, PN4+32, PN4+36, PN4+40, PN4+47, PN5B+34, PN5B+41, PN5B+48
, PN6+48, PN6+52, PN6+64, PN6+71, PN7+21, PN7+25, PN7+30, PN7+37
$$ERPNEU^BGP1CU PN1+13, PN3B+15, PN5B+15, PN6+15
$$TRANS^BGP1CU PNALL+21, PN1+5, PN1+7, PN2+4, PN2+6, PN3B+7, PN3B+9, PN4+6, PN4+8, PN5B+7
, PN5B+9, PN6+7, PN6+9, PN7+4, PN7+6
$$TRANSIN^BGP1CU PN1+2, PN3B+2, PN5B+2, PN6+2
ABGPO^BGP1CU PN1+30
CHESTXRY^BGP1CU PN1+22, PN2+15, PN3B+24, PN4+17, PN5B+24, PN6+39, PN7+16
CTSCAN^BGP1CU PN1+23, PN2+16, PN3B+25, PN4+18, PN5B+25, PN6+40, PN7+17
ALLALG1^BGP1CU1 PN1+34, PN2+27, PN3B+41, PN4+40, PN5B+41, PN6+64, PN7+30
ALLALGA1^BGP1CU1 PN1+38, PN2+31, PN3B+45, PN4+44, PN5B+45, PN6+68, PN7+34
IVUD^BGP1CU1 PN1+41, PN2+34, PN3B+48, PN4+47, PN5B+48, PN6+71, PN7+37
CESS^BGP1CU2 PN4+32
CESSMEDS^BGP1CU2 PN4+36
PNEUVAX^BGP1CU2 PN2+23
SMOKER^BGP1CU2 PN4+28
ANTIRX^BGP1CU3 PN3B+33, PN5B+30, PN6+57
ERBCP^BGP1CU3 PN3B+37
$$COPD^BGP1CU4 PN6+52
$$HOS2DAYS^BGP1CU4 PN6+30
$$NURSHOME^BGP1CU4 PN6+33
$$PRIORHOS^BGP1CU4 PN6+29
$$PSEUDO^BGP1CU4 PN6+51
$$WOUNDCAR^BGP1CU4 PN6+36
EXCLCOMP^BGP1CU4 PN6+26
FLUVAX^BGP1CU4 PN7+25
$$LASTDX^BGP1UTL1 PN1+27, PN2+20, PN3B+29, PN4+22, PN5B+34, PN6+48, PN7+21
$$FMADD^XLFDT PN1+13, PN1+22, PN1+23, PN1+30, PN2+15, PN2+16, PN3B+15, PN3B+24, PN3B+25, PN3B+33
, PN3B+37, PN4+17, PN4+18, PN4+28, PN5B+15, PN5B+24, PN5B+25, PN5B+30, PN6+15, PN6+29
, PN6+30, PN6+33, PN6+36, PN6+39, PN6+40, PN6+57, PN7+16, PN7+17, PN7+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"NOTE: Since Admission Type was ","""","Transferred,",""""," review patient's chart"
  • Line Location: TRANSIN+2
Function Call: WRITE
  • Prompt: !,"to determine if patient should be excluded if transfer was from another"
  • Line Location: TRANSIN+3
Function Call: WRITE
  • Prompt: !,"acute care hospital, including ER from another hospital.",!
  • Line Location: TRANSIN+4
Function Call: WRITE
  • Prompt: !!?3,"NOTE: Since Discharge Type was ","""","Transferred,",""""," review patient's chart"
  • Line Location: TRANSN+2
Function Call: WRITE
  • Prompt: !,"to determine if patient should be excluded if transferred to another"
  • Line Location: TRANSN+3
Function Call: WRITE
  • Prompt: !,"acute care hospital or federal hospital.",!
  • Line Location: TRANSN+4
Function Call: WRITE
  • Prompt: !!?3,"NOTE: Since Discharge Type was ","""","Transferred,",""""," review patient's chart"
  • Line Location: TRANSN2+2
Function Call: WRITE
  • Prompt: !,"to determine if patient should be excluded if transferred to another"
  • Line Location: TRANSN2+3
Function Call: WRITE
  • Prompt: !,"short term hospital, federal hospital, or to hospice.",!
  • Line Location: TRANSN2+4
Function Call: WRITE
  • Prompt: !!?3,"NOTE: Since Discharge Type was ","""","Transferred,",""""," review patient's chart"
  • Line Location: TRANSN3+2
Function Call: WRITE
  • Prompt: !,"to determine if patient should be excluded if transferred to another"
  • Line Location: TRANSN3+3
Function Call: WRITE
  • Prompt: !,"acute care hospital or federal hospital on day of or day after arrival.",!
  • Line Location: TRANSN3+4
Function Call: WRITE
  • Prompt: !!?3,"NOTE: Since Admission Type was ","""","Transferred,",""""," review patient's chart"
  • Line Location: TRANSIN3+2
Function Call: WRITE
  • Prompt: !,"to determine if patient should be excluded if transfer was from another"
  • Line Location: TRANSIN3+3
Function Call: WRITE
  • Prompt: !,"acute care or critical care access hospital, including ER from another hospital.",!
  • Line Location: TRANSIN3+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP - [#9000010.02] PN1+18, PN1+22, PN1+23, PN2+11, PN2+15, PN2+16, PN3B+20, PN3B+24, PN3B+25, PN3B+33
, PN4+13, PN4+17, PN4+18, PN5B+20, PN5B+24, PN5B+25, PN5B+30, PN6+20, PN6+26, PN6+39
, PN6+40, PN6+57, PN7+11, PN7+16, PN7+17
^AUPNVSIT - [#9000010] PN1+18, PN1+22, PN1+23, PN1+30, PN2+11, PN2+15, PN2+16, PN3B+20, PN3B+24, PN3B+25
, PN3B+33, PN4+13, PN4+17, PN4+18, PN4+28, PN4+32, PN4+36, PN5B+20, PN5B+24, PN5B+25
, PN5B+30, PN6+20, PN6+26, PN6+39, PN6+40, PN6+57, PN7+11, PN7+16, PN7+17, PN7+25

Label References

Name Line Occurrences
TRANSIN PN1+2, PN5B+2, PN6+2
TRANSIN3 PN3B+2
TRANSN PN1+7, PN5B+9, PN6+9, PN7+6
TRANSN2 PN2+6, PN4+8
TRANSN3 PN3B+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPC PN4+27*
>> BGPCOPD PN6+52*
BGPDATA PN1+21!, PN1+22, PN1+29!, PN1+30, PN1+33!, PN1+34, PN1+37!, PN1+38, PN1+40!, PN1+41
, PN2+14!, PN2+15, PN2+22!, PN2+23, PN2+26!, PN2+27, PN2+30!, PN2+31, PN2+33!, PN2+34
, PN3B+23!, PN3B+24, PN3B+31!, PN3B+33, PN3B+36!, PN3B+37, PN3B+40!, PN3B+41, PN3B+44!, PN3B+45
, PN3B+47!, PN3B+48, PN4+16!, PN4+17, PN4+24!, PN4+26!, PN4+28, PN4+31!, PN4+32, PN4+35!
, PN4+36, PN4+39!, PN4+40, PN4+43!, PN4+44, PN4+46!, PN4+47, PN5B+23!, PN5B+24, PN5B+29!
, PN5B+30, PN5B+36!, PN5B+40!, PN5B+41, PN5B+44!, PN5B+45, PN5B+47!, PN5B+48, PN6+23!, PN6+25!
, PN6+26, PN6+38!, PN6+39, PN6+46!, PN6+50!, PN6+56!, PN6+57, PN6+63!, PN6+64, PN6+67!
, PN6+68, PN6+70!, PN6+71, PN7+15!, PN7+16, PN7+23!, PN7+25, PN7+29!, PN7+30, PN7+33!
, PN7+34, PN7+36!, PN7+37
>> BGPEXCL PN1+12, PN1+26, PN2+19, PN3B+3, PN3B+14, PN3B+28, PN4+2, PN4+21, PN5B+3, PN5B+14
, PN5B+33, PN6+3, PN6+14, PN6+24, PN6+47, PN7+20
>> BGPIOSL PNALL+1, PN1+1, PN2+1, PN3B+1, PN4+1, PN5B+1, PN6+1, PN7+1, TRANSIN+1, TRANSN+1
, TRANSN2+1, TRANSN3+1, TRANSIN3+1
BGPNOBA PNALL+2*, PNALL+22!, PNALL+25*, PNALL+31!
>> BGPPSE PN6+51*
>> BGPQUIT PNALL+1, PNALL+4, PNALL+6, PNALL+8, PNALL+10, PNALL+12, PNALL+14, PNALL+16, PNALL+18, PNALL+20
, PNALL+21, PNALL+24, PNALL+27, PNALL+29, PN1+1, PN1+2, PN1+4, PN1+6, PN1+7, PN1+9
, PN1+11, PN1+17, PN1+20, PN1+25, PN1+32, PN1+36, PN2+1, PN2+3, PN2+5, PN2+6
, PN2+8, PN2+10, PN2+13, PN2+18, PN2+25, PN2+29, PN3B+1, PN3B+2, PN3B+4, PN3B+6
, PN3B+8, PN3B+9, PN3B+11, PN3B+13, PN3B+19, PN3B+22, PN3B+27, PN3B+35, PN3B+39, PN3B+43
, PN4+1, PN4+3, PN4+5, PN4+7, PN4+8, PN4+10, PN4+12, PN4+15, PN4+20, PN4+30
, PN4+34, PN4+38, PN4+42, PN5B+1, PN5B+2, PN5B+4, PN5B+6, PN5B+8, PN5B+9, PN5B+11
, PN5B+13, PN5B+19, PN5B+22, PN5B+27, PN5B+32, PN5B+39, PN5B+43, PN6+1, PN6+2, PN6+4
, PN6+6, PN6+8, PN6+9, PN6+11, PN6+13, PN6+19, PN6+22, PN6+24, PN6+28, PN6+32
, PN6+35, PN6+42, PN6+45, PN6+47, PN6+54, PN6+59, PN6+62, PN6+66, PN7+1, PN7+3
, PN7+5, PN7+6, PN7+8, PN7+10, PN7+13, PN7+19, PN7+28, PN7+32, TRANSIN+1, TRANSN+1
, TRANSN2+1, TRANSN3+1, TRANSIN3+1
BGPSCAN PN1+21!, PN1+23, PN2+14!, PN2+16, PN3B+23!, PN3B+25, PN4+16!, PN4+18, PN5B+23!, PN5B+25
, PN6+38!, PN6+40, PN7+15!, PN7+17
>> BGPVINP PNALL+11, PNALL+13, PNALL+15, PNALL+17, PNALL+19, PNALL+21, PN1+2, PN1+3, PN1+5, PN1+7
, PN1+15, PN1+18, PN1+22, PN1+23, PN1+27, PN1+30, PN1+34, PN1+41, PN2+2, PN2+4
, PN2+6, PN2+11, PN2+15, PN2+16, PN2+20, PN2+23, PN2+27, PN2+34, PN3B+2, PN3B+5
, PN3B+7, PN3B+9, PN3B+20, PN3B+24, PN3B+25, PN3B+29, PN3B+33, PN3B+41, PN3B+48, PN4+4
, PN4+6, PN4+8, PN4+13, PN4+17, PN4+18, PN4+22, PN4+28, PN4+32, PN4+36, PN4+40
, PN4+47, PN5B+2, PN5B+5, PN5B+7, PN5B+9, PN5B+17, PN5B+20, PN5B+24, PN5B+25, PN5B+30
, PN5B+34, PN5B+41, PN5B+48, PN6+2, PN6+5, PN6+7, PN6+9, PN6+17, PN6+20, PN6+26
, PN6+39, PN6+40, PN6+43, PN6+48, PN6+51, PN6+52, PN6+57, PN6+64, PN6+71, PN7+2
, PN7+4, PN7+6, PN7+11, PN7+16, PN7+17, PN7+21, PN7+25, PN7+30, PN7+37
>> BGPVSIT PNALL+9, PNALL+23, PNALL+26, PN1+7, PN1+8, PN1+10, PN1+18, PN1+22, PN1+23, PN1+30
, PN2+7, PN2+9, PN2+11, PN2+15, PN2+16, PN3B+10, PN3B+12, PN3B+20, PN3B+24, PN3B+25
, PN3B+33, PN4+9, PN4+11, PN4+13, PN4+17, PN4+18, PN4+28, PN4+32, PN4+36, PN5B+10
, PN5B+12, PN5B+20, PN5B+24, PN5B+25, PN5B+30, PN6+10, PN6+12, PN6+20, PN6+26, PN6+29
, PN6+39, PN6+40, PN6+57, PN7+7, PN7+9, PN7+11, PN7+16, PN7+17, PN7+25
>> BGPVSIT0 PN1+13, PN1+41, PN2+34, PN3B+15, PN3B+37, PN3B+48, PN4+47, PN5B+15, PN5B+48, PN6+15
, PN6+29, PN6+30, PN6+33, PN6+36, PN6+71, PN7+37
>> DFN PNALL+3, PNALL+5, PNALL+7, PNALL+9, PN1+13, PN1+18, PN1+22, PN1+23, PN1+27, PN1+30
, PN1+34, PN1+38, PN1+41, PN2+11, PN2+15, PN2+16, PN2+20, PN2+23, PN2+27, PN2+31
, PN2+34, PN3B+3, PN3B+15, PN3B+20, PN3B+24, PN3B+25, PN3B+29, PN3B+33, PN3B+37, PN3B+41
, PN3B+45, PN3B+48, PN4+2, PN4+13, PN4+17, PN4+18, PN4+22, PN4+28, PN4+32, PN4+36
, PN4+40, PN4+44, PN4+47, PN5B+3, PN5B+15, PN5B+20, PN5B+24, PN5B+25, PN5B+30, PN5B+34
, PN5B+41, PN5B+45, PN5B+48, PN6+3, PN6+15, PN6+20, PN6+26, PN6+29, PN6+30, PN6+33
, PN6+36, PN6+39, PN6+40, PN6+48, PN6+52, PN6+57, PN6+64, PN6+68, PN6+71, PN7+11
, PN7+16, PN7+17, PN7+21, PN7+25, PN7+30, PN7+34, PN7+37
DT PN1+34, PN1+38, PN2+27, PN2+31, PN3B+41, PN3B+45, PN4+40, PN4+44, PN5B+41, PN5B+45
, PN6+64, PN6+68, PN7+30, PN7+34
U PN1+13, PN1+18, PN1+22, PN1+23, PN1+30, PN1+41, PN2+11, PN2+15, PN2+16, PN2+34
, PN3B+15, PN3B+20, PN3B+24, PN3B+25, PN3B+33, PN3B+37, PN3B+48, PN4+13, PN4+17, PN4+18
, PN4+28, PN4+32, PN4+36, PN4+47, PN5B+15, PN5B+20, PN5B+24, PN5B+25, PN5B+30, PN5B+48
, PN6+15, PN6+20, PN6+26, PN6+29, PN6+30, PN6+33, PN6+36, PN6+39, PN6+40, PN6+57
, PN6+71, PN7+11, PN7+16, PN7+17, PN7+25, PN7+37
>> X PN1+13*, PN1+15*, PN1+18*, PN1+19, PN1+27*, PN2+11*, PN2+12, PN2+20*, PN3B+15*, PN3B+20*
, PN3B+21, PN3B+29*, PN4+13*, PN4+14, PN4+22*, PN5B+15*, PN5B+17*, PN5B+20*, PN5B+21, PN5B+34*
, PN6+15*, PN6+17*, PN6+20*, PN6+21, PN6+29*, PN6+33*, PN6+36*, PN6+43*, PN6+48*, PN7+11*
, PN7+12, PN7+21*
>> Y PN6+30*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All