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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP8CPU4

Package: IHS GPRA Information System

Routine: BGP8CPU4


Information

BGP8CPU4 ; IHS/CMI/LAB - calc CMS measures ;

Source Information

Source file <BGP8CPU4.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS GPRA Information System 4 (HDR,L1H)^BGP8CP  $$DSCH^BGP8CU  $$ADMPRIM^BGP8CU5  $$DATE^BGP8UTL  
Kernel 3 $$FMDIFF^XLFDT  $$ABS^XLFMTH  $$UP^XLFSTR  
DRG Grouper 2 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  
Patient Care Component Reports 2 $$START1^APCLDF  ($$PRIMPOV,$$VD)^APCLV  
IHS Patient 1 $$DOD^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS GPRA Information System 3 BGP8CP6  BGP8CPU  BGP8CPU2  

Entry Points

Name Comments DBIA/ICR reference
WOTHPROC ;EP
WDOD(V) ;EP - write dod
WPPDPOV(V) ;EP
OTHSURG ;EP
PERI ;EP
WPP ;EP
WPOSTINF ;EP
GETFRAG
GETTXT ;EP - GENERALIZED TEXT PRINTER
WANTIRX ;EP
WPP1 ;EP
GETTXT2
INF ;EP
WTT(V) ;EP - write transferred to
WDT(V) ;EP - write discharge type at column 3
OTHDPOVS(V) ;EP write out other discharge povs

External References

Name Field # of Occurrence
$$START1^APCLDF OTHSURG+7
$$PRIMPOV^APCLV WPPDPOV+2
$$VD^APCLV OTHSURG+7
$$DOD^AUPNPAT WDOD+2, WDOD+3
HDR^BGP8CP WPOSTINF+1, PERI+1, WANTIRX+2, OTHSURG+1, INF+1, WOTHPROC+22, WPP1+1, WPP+1, WDOD+1, WDT+1
, WTT+1, WPPDPOV+1, OTHDPOVS+7
L1H^BGP8CP WPOSTINF+1, PERI+1, WANTIRX+2, OTHSURG+1, INF+1, WOTHPROC+22, WPP1+1, WPP+1, WDOD+1, WDT+1
, WTT+1, WPPDPOV+1, OTHDPOVS+7
$$DSCH^BGP8CU OTHSURG+7, WOTHPROC+3, WOTHPROC+11
$$ADMPRIM^BGP8CU5 PERI+2
$$DATE^BGP8UTL OTHSURG+15, WPP1+4, WDOD+3
$$ICDDX^ICDCODE OTHDPOVS+13
$$CPT^ICPTCOD WOTHPROC+17
$$VAL^XBDIQ1 OTHSURG+15, WOTHPROC+8, WOTHPROC+17, WDT+2, WTT+2, OTHDPOVS+14
$$FMDIFF^XLFDT OTHSURG+14
$$ABS^XLFMTH OTHSURG+14
$$UP^XLFSTR OTHDPOVS+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,"Post-Operative Infection? ",BGPPOSTI
  • Line Location: WPOSTINF+2
Function Call: WRITE
  • Prompt: !?2,"NOTE: Review patient's chart to determine if patient should be excluded"
  • Line Location: WPOSTINF+4
Function Call: WRITE
  • Prompt: !,"to see if all conditions are true: 1) there is physician/APN/PA documentation"
  • Line Location: WPOSTINF+5
Function Call: WRITE
  • Prompt: !,"the patient is being treated for an infection, 2) infection occurred during"
  • Line Location: WPOSTINF+6
Function Call: WRITE
  • Prompt: !,"specified timeframe, and 3) where treatment was administered via an "
  • Line Location: WPOSTINF+7
Function Call: WRITE
  • Prompt: !,"antibiotic administration route listed in the SIP inclusions for the"
  • Line Location: WPOSTINF+8
Function Call: WRITE
  • Prompt: !,"Data Element 'Antibiotic Administration Route.'"
  • Line Location: WPOSTINF+9
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[1:"*",1:""),"Preoperative Infectious Disease Diagnosis? ",$P($$ADMPRIM^BGP8CU5(BGPVINP,"BGP CMS INFECTIOUS DXS"),U,2)
  • Line Location: PERI+2
Function Call: WRITE
  • Prompt: !!?2,"Recent Antibiotic Rx Status: "
  • Line Location: WANTIRX+3
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WANTIRX+4
Function Call: WRITE
  • Prompt: !!?2,"Other Surgery with Anesthesia? "
  • Line Location: OTHSURG+2
Function Call: WRITE
  • Prompt: !,"NOTE: To determine if patient should be excluded, review patients chart"
  • Line Location: OTHSURG+17
Function Call: WRITE
  • Prompt: !,"to determine if anesthesia was general or spinal anesthesia and occurred"
  • Line Location: OTHSURG+18
Function Call: WRITE
  • Prompt: !,"during the specified timeframe."
  • Line Location: OTHSURG+19
Function Call: WRITE
  • Prompt: !!?2,"Infection Documented at Time of Surgery? ",$S($P(BGPPROC(1),U,4)="":"NO",1:$P(BGPPROC(1),U,4))
  • Line Location: INF+2
Function Call: WRITE
  • Prompt: !,"NOTE: Review patient's chart to determine if patient should be excluded"
  • Line Location: INF+6
Function Call: WRITE
  • Prompt: !,"when infection was present to see if infection was documented by "
  • Line Location: INF+7
Function Call: WRITE
  • Prompt: !,"physician/APN/PA prior to this surgery."
  • Line Location: INF+8
Function Call: WRITE
  • Prompt: !?2,"Other Procedures for this Visit:"
  • Line Location: WOTHPROC+23
Function Call: WRITE
  • Prompt: !?4,BGPXX(BGPX)
  • Line Location: WOTHPROC+24
Function Call: WRITE
  • Prompt: !?2,"Principle Procedure: ",$P(BGPPROC(1),U,1)
  • Line Location: WPP1+2
Function Call: WRITE
  • Prompt: !?23,$P(BGPPROC(X),U,1)
  • Line Location: WPP1+3
Function Call: WRITE
  • Prompt: !?2,$S(BGPPPD<$P($P(BGPVSIT0,U),"."):"*",1:""),"Principle Procedure Date: ",$$DATE^BGP8UTL(BGPPPD)
  • Line Location: WPP1+4
Function Call: WRITE
  • Prompt: !?2,"Principle Procedure: ",BGPDATA(1)
  • Line Location: WPP+2
Function Call: WRITE
  • Prompt: !?23,BGPDATA(X)
  • Line Location: WPP+3
Function Call: WRITE
  • Prompt: !?2,"Discharge Type: ",$$VAL^XBDIQ1(9000010.02,V,.06)
  • Line Location: WDT+2
Function Call: WRITE
  • Prompt: !?2,"Transferred to: ",$$VAL^XBDIQ1(9000010.02,V,.09)
  • Line Location: WTT+2
Function Call: WRITE
  • Prompt: !?2,"Primary Discharge POV: "_$$PRIMPOV^APCLV(V,"C")," ",$$PRIMPOV^APCLV(V,"N")
  • Line Location: WPPDPOV+2
Function Call: WRITE
  • Prompt: !!?2,"Other Discharge POVs for this visit:",$S(C=0:" None",1:"")
  • Line Location: OTHDPOVS+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT - [#9000010.18] WOTHPROC+17
^AUPNVCPT("AD" WOTHPROC+15, WOTHPROC+16
^AUPNVPOV - [#9000010.07] OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13
^AUPNVPOV("AD" OTHDPOVS+2, OTHDPOVS+9
^AUPNVPRC - [#9000010.08] OTHSURG+9, OTHSURG+10, OTHSURG+12, WOTHPROC+6, WOTHPROC+7
^AUPNVPRC("AA" WOTHPROC+4, WOTHPROC+5
^AUPNVSIT - [#9000010] WOTHPROC+3, WOTHPROC+11, WOTHPROC+14
^AUPNVSIT("AA" WOTHPROC+12, WOTHPROC+13

Label References

Name Line Occurrences
GETFRAG GETTXT2
GETTXT2 GETTXT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BD WOTHPROC+10~
>> BGPB WOTHPROC+3*, WOTHPROC+4*, WOTHPROC+5, WOTHPROC+11*, WOTHPROC+12*, WOTHPROC+13, WOTHPROC+17
>> BGPC OTHSURG+4*, WOTHPROC+2*, WOTHPROC+8*, WOTHPROC+17*
>> BGPDATA WANTIRX+4
>> BGPDATA( WANTIRX+1, WANTIRX+4, WPP+3
>> BGPDATA(1 WPP+2
>> BGPE WOTHPROC+3*, WOTHPROC+4, WOTHPROC+11*, WOTHPROC+12
BGPG OTHSURG+3!, OTHSURG+5!
BGPG( OTHSURG+8
>> BGPIOSL WPOSTINF+1, PERI+1, WANTIRX+2, OTHSURG+1, INF+1, WOTHPROC+22, WPP1+1, WPP+1, WDOD+1, WDT+1
, WTT+1, WPPDPOV+1, OTHDPOVS+7
>> BGPLEC GETTXT2*, GETTXT2+1
>> BGPLETP("C" GETTXT+3!, GETFRAG+1*, GETFRAG+2
>> BGPLETP("DLT" GETTXT+1*, GETTXT+3!, GETTXT2+1*
>> BGPLETP("F" GETTXT+3!, GETTXT2+1, GETFRAG*, GETFRAG+2*
>> BGPLETP("ICL" GETTXT2, GETTXT2+1*
>> BGPLETP("ILN" GETTXT+1*, GETTXT+3!, GETTXT2+1*, GETFRAG, GETFRAG+1
>> BGPLETP("NRQ" GETTXT+2*
>> BGPLETP("Q" GETTXT+2*
>> BGPLETP("TXT" GETTXT+2*, GETTXT+3!, GETFRAG*, GETFRAG+1, GETFRAG+2*
>> BGPLETXT( GETTXT2*, GETTXT2+1*
>> BGPNOBA WPP+2, WDT+2, WPPDPOV+2
>> BGPPEX PERI+2
>> BGPPOSTI WPOSTINF+2, WPOSTINF+3
>> BGPPPD WPP1+4
>> BGPPROC( WPP1+3
>> BGPPROC(1 OTHSURG+10, OTHSURG+13, INF+2, INF+3, INF+4, INF+5, WOTHPROC+7, WPP1+2
>> BGPQUIT WPOSTINF+1, PERI+1, WANTIRX+2, OTHSURG+1, INF+1, WOTHPROC+22, WPP1+1, WPP+1, WDOD+1, WDT+1
, WTT+1, WPPDPOV+1, OTHDPOVS+7
>> BGPVINP PERI+2, OTHSURG+7, WOTHPROC+3, WOTHPROC+11
>> BGPVSIT OTHSURG+7, WOTHPROC+3, WOTHPROC+11, OTHDPOVS+2, OTHDPOVS+9
>> BGPVSIT0 OTHSURG+12, WPP1+4
>> BGPX WOTHPROC+24*
BGPXX WOTHPROC+1!
BGPXX( WOTHPROC+8*, WOTHPROC+17*, WOTHPROC+21, WOTHPROC+24
BGPY OTHSURG+4!
C WANTIRX+1*, WANTIRX+2, WOTHPROC+21*, WOTHPROC+22, OTHDPOVS+1~, OTHDPOVS+2*, OTHDPOVS+5*, OTHDPOVS+7, OTHDPOVS+8, OTHDPOVS+9*
, OTHDPOVS+12*
D OTHSURG+12*, OTHSURG+14, OTHSURG+15, WOTHPROC+10~
>> DFN OTHSURG+7, WOTHPROC+4, WOTHPROC+5, WOTHPROC+12, WOTHPROC+13
>> E OTHSURG+7*, OTHSURG+13*, OTHSURG+14
ED WOTHPROC+10~
>> F OTHSURG+4*, OTHSURG+15*, OTHSURG+16
>> I OTHDPOVS+13*, OTHDPOVS+15
>> N OTHDPOVS+14*, OTHDPOVS+15
U PERI+2, OTHSURG+8, OTHSURG+10, OTHSURG+12, OTHSURG+13, INF+2, INF+4, INF+5, WOTHPROC+3, WOTHPROC+7
, WOTHPROC+11, WOTHPROC+17, WPP1+2, WPP1+3, WPP1+4, OTHDPOVS+4, OTHDPOVS+11, OTHDPOVS+13
V WOTHPROC+10~, WOTHPROC+13*, WOTHPROC+14, WOTHPROC+15, WOTHPROC+16, WDOD~, WDOD+2, WDOD+3, WDT~, WDT+2
, WTT~, WTT+2, WPPDPOV~, WPPDPOV+2, OTHDPOVS~
X WANTIRX+1*, WANTIRX+4*, OTHSURG+7*, OTHSURG+8*, OTHSURG+9, OTHSURG+10, OTHSURG+12, OTHSURG+15, WOTHPROC+5*, WOTHPROC+6
, WOTHPROC+7, WOTHPROC+8, WOTHPROC+16*, WOTHPROC+17, WOTHPROC+21*, WPP1+3*, WPP+3*, OTHDPOVS+1~, OTHDPOVS+2*, OTHDPOVS+3
, OTHDPOVS+4, OTHDPOVS+9*, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13, OTHDPOVS+14, GETTXT2*
Y OTHSURG+6*, OTHSURG+7, OTHSURG+8*, WOTHPROC+10~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All