Routine: BGP8CPU4

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

Package

Total

Call Graph

IHS GPRA Information System

(HDR,L1H)^BGP8CP $$DSCH^BGP8CU $$ADMPRIM^BGP8CU5 $$DATE^BGP8UTL

Kernel

$$FMDIFF^XLFDT $$ABS^XLFMTH $$UP^XLFSTR

DRG Grouper

$$ICDDX^ICDCODE $$CPT^ICPTCOD

Patient Care Component Reports

$$START1^APCLDF ($$PRIMPOV,$$VD)^APCLV

IHS Patient

$$DOD^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

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

Package

Total

Caller Graph

IHS GPRA Information System

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

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~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8CPU4

Information

Source Information