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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGP1CPU

Package: IHS GPRA Information System

Routine: BGP1CPU


Information

BGP1CPU ; IHS/CMI/LAB - calc CMS measures 26 Sep 2004 11:28 AM 04 May 2010 2:38 PM 02 Jul 2010 9:11 AM ;

Source Information

Source file <BGP1CPU.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS GPRA Information System 3 (HDR,L1H)^BGP1CP  GETTXT^BGP1CPU4  $$DATE^BGP1UTL  
DRG Grouper 1 $$ICDDX^ICDCODE  
IHS Patient 1 $$DOD^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$UP^XLFSTR  
Patient Care Component Reports 1 $$PRIMPOV^APCLV  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IHS GPRA Information System 7 BGP1CP1  BGP1CP11  BGP1CP2  BGP1CP3  BGP1CP4  BGP1CP5  BGP1CP6  

Entry Points

Name Comments DBIA/ICR reference
WPPDPOV(V) ;EP
WIVUD ;EP - write out all allergies from problem list
WADM(I) ;EP
WLASTAP ;EP - write out last rx
USR() ;EP - Return name of current user from ^VA(200.
WADM92(I) ;EP
WCESS ;EP write out CESSATION DATA
WINS(V,P) ;EP
WALLALGT ;EP - write out all allergies from allergy tracking
WCOMFORT(X) ;EP - write out comfort message
WBETAAL ;EP - write out BETA allergy
WASAALEG ;EP - write out asa allergy
WDT(V) ;EP - write discharge type at column 3
WTT(V) ;EP - write transferred to
WNMIASP ;EP - write out nmi aspirin
WNMIBETA ;EP - write out nmi BETA BLOCKER
WLASTASP ;EP - write out last rx
WRACE(P) ;EP
WDOD(V) ;EP - write dod
OTHDPOVS(V) ;EP write out other discharge povs
WDXS ;EP write out DX
WNMIACE(X) ;EP - write out nmi ACE/ARB
WZIP(P) ;EP
WSMOKER ;EP write out smoking data
WAORTIC ;EP write out DX
WADMS92(I) ;EP
WLASTACE ;EP - write out ace/arb
WLVSD ;EP write out lsvd/cef
WACEALEG ;EP - write out asa allergy
WASPCPT(X) ;EP
WLASTBB ;EP write out beta blocker status
WALLALG ;EP - write out all allergies from problem list
WCESSMED ;EP write out CESSATION DATA
EOP ;EP - End of page.
WDOB(P) ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
WWARRX ;EP - write out all warfarin rxs
WDSGS92(I) ;EP

External References

Name Field # of Occurrence
$$PRIMPOV^APCLV WPPDPOV+2
$$DOD^AUPNPAT WDOD+2, WDOD+3
HDR^BGP1CP WDOB+1, WRACE+1, WZIP+1, WADM+1, WADM92+1, WADMS92+1, WDSGS92+1, WINS+2, WINS+11, WINS+24
, WINS+51, WBETAAL+1, WLASTBB+1, WLASTBB+7, WNMIBETA+2, WNMIBETA+4, WNMIBETA+7, WNMIBETA+9, WCESSMED+2, WCESS+2
, WSMOKER+2, WAORTIC+2, WLASTACE+1, WNMIACE+2, WNMIACE+4, WACEALEG+1, WDXS+2, WLVSD+2, WIVUD+2, WIVUD+8
, WWARRX+2, WASAALEG+1, WALLALG+2, WALLALG+6, WALLALGT+2, WALLALGT+6, WLASTAP+1, WLASTAP+10, WLASTASP+1, WLASTASP+10
, WASPCPT+2, WNMIASP+2, WNMIASP+4, WNMIASP+8, WCOMFORT+2, WCOMFORT+4, WDOD+1, WDT+1, WTT+1, WPPDPOV+1
, OTHDPOVS+7
L1H^BGP1CP WDOB+1, WRACE+1, WZIP+1, WADM+1, WADM92+1, WADMS92+1, WDSGS92+1, WINS+2, WINS+11, WINS+24
, WINS+51, WBETAAL+1, WLASTBB+1, WNMIBETA+2, WNMIBETA+4, WNMIBETA+7, WNMIBETA+9, WCESSMED+2, WCESS+2, WSMOKER+2
, WAORTIC+2, WLASTACE+1, WNMIACE+2, WNMIACE+4, WACEALEG+1, WDXS+2, WLVSD+2, WIVUD+2, WWARRX+2, WASAALEG+1
, WALLALG+2, WALLALG+6, WALLALGT+2, WALLALGT+6, WLASTAP+1, WLASTASP+1, WASPCPT+2, WNMIASP+2, WNMIASP+4, WNMIASP+8
, WCOMFORT+2, WCOMFORT+4, WDOD+1, WDT+1, WTT+1, WPPDPOV+1, OTHDPOVS+7
GETTXT^BGP1CPU4 WLASTBB+5, WIVUD+6, WLASTAP+8, WLASTASP+8
$$DATE^BGP1UTL WDOB+2, WINS+12, WINS+25, WINS+44, WINS+52, WCESSMED+5, WCESS+5, WIVUD+3, WDOD+3
^DIR EOP+5
$$ICDDX^ICDCODE OTHDPOVS+13
$$VAL^XBDIQ1 WRACE+2, WZIP+2, WADM+2, WADM92+2, WADMS92+2, WDSGS92+3, WINS+25, WINS+42, WDT+2, WTT+2
, OTHDPOVS+14
$$VALI^XBDIQ1 WDSGS92+3
$$UP^XLFSTR OTHDPOVS+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"Date of Birth: ",$$DATE^BGP1UTL($P(^DPT(P,0),U,3))
  • Line Location: WDOB+2
Function Call: WRITE
  • Prompt: !!?2,"Race: ",$$VAL^XBDIQ1(2,DFN,.06)
  • Line Location: WRACE+2
Function Call: WRITE
  • Prompt: !?2,"Postal Code: ",$$VAL^XBDIQ1(2,P,.116)
  • Line Location: WZIP+2
Function Call: WRITE
  • Prompt: !?2,"Admission Type: ",$$VAL^XBDIQ1(9000010.02,I,.07)
  • Line Location: WADM+2
Function Call: WRITE
  • Prompt: !?2,"Admission Type-UB92: ",$$VAL^XBDIQ1(9000010.02,I,6101)
  • Line Location: WADM92+2
Function Call: WRITE
  • Prompt: !?2,"Admission Source-UB92: ",$$VAL^XBDIQ1(9000010.02,I,6102)
  • Line Location: WADMS92+2
Function Call: WRITE
  • Prompt: !?2,"Discharge Status-UB92: "
  • Line Location: WDSGS92+3
Function Call: WRITE
  • Prompt: $$VAL^XBDIQ1(99999.04,T,.02)
  • Line Location: WDSGS92+3
Function Call: WRITE
  • Prompt: !?2,"Insurance Status: "
  • Line Location: WINS+3
Function Call: WRITE
  • Prompt: !?3,"Medicare Coverage Type: ",$P(^AUPNMCR(P,11,I,0),U,3)," Policy #: ",$P(^AUPNMCR(P,0),U,3)," Effective Date: ",$$DATE^BGP1UTL($P(^AUPNMCR(P,11,I,0),U))
  • Line Location: WINS+12
Function Call: WRITE
  • Prompt: !?3,"Private ",$P(^AUTNINS(X,0),U)
  • Line Location: WINS+38
Function Call: WRITE
  • Prompt: " Coverage Type: ",C,!?10," Policy #: ",N," Effective Date: ",$$DATE^BGP1UTL($P(^AUPNPRVT(P,11,I,0),U,6))
  • Line Location: WINS+44
Function Call: WRITE
  • Prompt: !?3,"Railroad Coverage Type: ",$P(^AUPNRRE(P,11,I,0),U,3)," Policy #: ",$P(^AUPNRRE(P,0),U,4)," Effective Date: ",$$DATE^BGP1UTL($P(^AUPNRRE(P,11,I,0),U))
  • Line Location: WINS+52
Function Call: WRITE
  • Prompt: "No Insurance per Patient Registration"
  • Line Location: WINS+55
Function Call: WRITE
  • Prompt: !
  • Line Location: WINS+56
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[8:"*",1:""),"Beta Blocker Allergy? "
  • Line Location: WBETAAL+2
Function Call: WRITE
  • Prompt: "No, None Recorded"
  • Line Location: WBETAAL+3
Function Call: WRITE
  • Prompt: !?4,X
  • Line Location: WBETAAL+4
Function Call: WRITE
  • Prompt: !!?2,"Beta Blocker Rx Status? "
  • Line Location: WLASTBB+2
Function Call: WRITE
  • Prompt: "No Rxs documented"
  • Line Location: WLASTBB+3
Function Call: WRITE
  • Prompt: !?4,BGPLETXT(BGPZZ)
  • Line Location: WLASTBB+7
Function Call: WRITE
  • Prompt: !?4,Z
  • Line Location: WLASTBB+9
Function Call: WRITE
  • Prompt: !!?2,"NMI Refusal: Yes"
  • Line Location: WNMIBETA+5
Function Call: WRITE
  • Prompt: !?4,Z
  • Line Location: WNMIBETA+10
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if this was"
  • Line Location: WNMIBETA+11
Function Call: WRITE
  • Prompt: !,"documented by a physician/APN/PA before it is used to exclude patients"
  • Line Location: WNMIBETA+12
Function Call: WRITE
  • Prompt: !,"from the denominator."
  • Line Location: WNMIBETA+13
Function Call: WRITE
  • Prompt: !!?2,"Smoking Cessation Medication Rx Status? "
  • Line Location: WCESSMED+3
Function Call: WRITE
  • Prompt: "No Rxs documented"
  • Line Location: WCESSMED+4
Function Call: WRITE
  • Prompt: !?4,$$DATE^BGP1UTL($P(BGPDATA(X),U))," ",$P(BGPDATA(X),U,2)
  • Line Location: WCESSMED+5
Function Call: WRITE
  • Prompt: !,"NOTE: Per the CMS Data Abstraction Guidelines, a prescription of a smoking "
  • Line Location: WCESSMED+6
Function Call: WRITE
  • Prompt: !,"cessation aid during hospital stay or at discharge meets the numerator "
  • Line Location: WCESSMED+7
Function Call: WRITE
  • Prompt: !,"requirements."
  • Line Location: WCESSMED+8
Function Call: WRITE
  • Prompt: !!?2,"Smoking Cessation Advice/Counseling: "
  • Line Location: WCESS+3
Function Call: WRITE
  • Prompt: "Nothing recorded"
  • Line Location: WCESS+4
Function Call: WRITE
  • Prompt: !?4,$$DATE^BGP1UTL($P(BGPDATA(BGPXX),U))," ",$P(BGPDATA(BGPXX),U,2)
  • Line Location: WCESS+5
Function Call: WRITE
  • Prompt: !!?2,"Smoking Data: "
  • Line Location: WSMOKER+3
Function Call: WRITE
  • Prompt: "Nothing recorded"
  • Line Location: WSMOKER+4
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WSMOKER+5
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[7:"*",1:""),"Moderate or Severe Aortic Stenosis? "
  • Line Location: WAORTIC+3
Function Call: WRITE
  • Prompt: "No Recorded Dxs"
  • Line Location: WAORTIC+4
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WAORTIC+5
Function Call: WRITE
  • Prompt: !!?2,"ACEI or ARB Rx Status? "
  • Line Location: WLASTACE+2
Function Call: WRITE
  • Prompt: "No Rxs"
  • Line Location: WLASTACE+3
Function Call: WRITE
  • Prompt: !?4,X
  • Line Location: WLASTACE+4
Function Call: WRITE
  • Prompt: !?4,Z
  • Line Location: WLASTACE+5
Function Call: WRITE
  • Prompt: !!?2,"NMI Refusal: Yes"
  • Line Location: WNMIACE+5
Function Call: WRITE
  • Prompt: !?4,X(Y)
  • Line Location: WNMIACE+6
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if this was"
  • Line Location: WNMIACE+7
Function Call: WRITE
  • Prompt: !,"documented by a physician/APN/PA before it is used to exclude patients"
  • Line Location: WNMIACE+8
Function Call: WRITE
  • Prompt: !,"from the denominator."
  • Line Location: WNMIACE+9
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[6:"*",1:""),"ACEI and/or ARB Allergy? "
  • Line Location: WACEALEG+2
Function Call: WRITE
  • Prompt: "No, None Recorded"
  • Line Location: WACEALEG+3
Function Call: WRITE
  • Prompt: !?4,"ACEI: Yes ",$P(X,U,2)
  • Line Location: WACEALEG+4
Function Call: WRITE
  • Prompt: !?4,"ARB: Yes ",$P(Z,U,2)
  • Line Location: WACEALEG+5
Function Call: WRITE
  • Prompt: !!?2,"Angioedema, Hyperkalemia, Hypotension, Renal Artery Stenosis, or Worsening"
  • Line Location: WDXS+3
Function Call: WRITE
  • Prompt: !,"Renal Function/Renal Disease/Dysfunction? "
  • Line Location: WDXS+4
Function Call: WRITE
  • Prompt: !?4,"None Recorded"
  • Line Location: WDXS+5
Function Call: WRITE
  • Prompt: !?4,BGPDX(X)
  • Line Location: WDXS+6
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if this"
  • Line Location: WDXS+7
Function Call: WRITE
  • Prompt: !,"was documented by a physician/APN/PA before it is used to exclude "
  • Line Location: WDXS+8
Function Call: WRITE
  • Prompt: !,"patients from the denominator."
  • Line Location: WDXS+9
Function Call: WRITE
  • Prompt: "None Recorded"
  • Line Location: WLVSD+3
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WLVSD+4
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart still needs to be reviewed to determine if the"
  • Line Location: WLVSD+5
Function Call: WRITE
  • Prompt: !,"LVEF is <40% or the LVS narrative indicates moderate or severe systolic"
  • Line Location: WLVSD+6
Function Call: WRITE
  • Prompt: !,"dysfunction. Refer to CMS Specification Manual for National Hospital"
  • Line Location: WLVSD+7
Function Call: WRITE
  • Prompt: !,"Quality Measures, Appendix H, Table 1.5 (LVSD Notes Table) for information"
  • Line Location: WLVSD+8
Function Call: WRITE
  • Prompt: !,"on determining if patient meets CMS LVSD criteria."
  • Line Location: WLVSD+9
Function Call: WRITE
  • Prompt: !!?2,"ALL Unit Dose/IV Meds during Hospital Stay: ",$$DATE^BGP1UTL($P($P(^AUPNVSIT(BGPVSIT,0),U),"."))," - ",$$DATE^BGP1UTL($P($P(^AUPNVINP(BGPVINP,0),U),"."))
  • Line Location: WIVUD+3
Function Call: WRITE
  • Prompt: !?4,BGPLETXT(BGPZZ)
  • Line Location: WIVUD+8
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[4:"*",1:""),"Warfarin/Coumadin Contraindication?: "
  • Line Location: WWARRX+3
Function Call: WRITE
  • Prompt: "No, None Recorded"
  • Line Location: WWARRX+4
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WWARRX+5
Function Call: WRITE
  • Prompt: !!?2,$S(BGPPEX[3:"*",1:""),"Aspirin Allergy? "
  • Line Location: WASAALEG+2
Function Call: WRITE
  • Prompt: "No, None Recorded"
  • Line Location: WASAALEG+3
Function Call: WRITE
  • Prompt: !?4,"Yes ",X
  • Line Location: WASAALEG+4
Function Call: WRITE
  • Prompt: !!?2,"ALL Allergies from Problem List: "
  • Line Location: WALLALG+3
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WALLALG+4
Function Call: WRITE
  • Prompt: !!?2,"ALL Allergies from Allergy Tracking: "
  • Line Location: WALLALGT+3
Function Call: WRITE
  • Prompt: !?4,BGPDATA(X)
  • Line Location: WALLALGT+4
Function Call: WRITE
  • Prompt: !!?2,"Other Anti-Platelet Rx Status? "
  • Line Location: WLASTAP+2
Function Call: WRITE
  • Prompt: ""
  • Line Location: WLASTAP+3
Function Call: WRITE
  • Prompt: !?4,X
  • Line Location: WLASTAP+4
Function Call: WRITE
  • Prompt: !?4,"UNIT DOSE/IV During Hospital Stay: "
  • Line Location: WLASTAP+5
Function Call: WRITE
  • Prompt: !?6,BGPLETXT(BGPZZ)
  • Line Location: WLASTAP+10
Function Call: WRITE
  • Prompt: !!?2,"Aspirin Rx Status? "
  • Line Location: WLASTASP+2
Function Call: WRITE
  • Prompt: ""
  • Line Location: WLASTASP+3
Function Call: WRITE
  • Prompt: !?4,X
  • Line Location: WLASTASP+4
Function Call: WRITE
  • Prompt: !?4,"UNIT DOSE/IV During Hospital Stay: "
  • Line Location: WLASTASP+5
Function Call: WRITE
  • Prompt: !?6,BGPLETXT(BGPZZ)
  • Line Location: WLASTASP+10
Function Call: WRITE
  • Prompt: !?6,BGPUD(Y)
  • Line Location: WLASTASP+14
Function Call: WRITE
  • Prompt: !?4,"CPT: ",X
  • Line Location: WASPCPT+3
Function Call: WRITE
  • Prompt: !!?2,"NMI Refusal: Yes"
  • Line Location: WNMIASP+5
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if this was"
  • Line Location: WNMIASP+11
Function Call: WRITE
  • Prompt: !,"documented by a physician/APN/PA before it is used to exclude patients"
  • Line Location: WNMIASP+12
Function Call: WRITE
  • Prompt: !,"from the denominator."
  • Line Location: WNMIASP+13
Function Call: WRITE
  • Prompt: !!?2,"Comfort Measures? ",X
  • Line Location: WCOMFORT+5
Function Call: WRITE
  • Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if"
  • Line Location: WCOMFORT+6
Function Call: WRITE
  • Prompt: !,"this was documented by a physician/APN/PA before it is used"
  • Line Location: WCOMFORT+7
Function Call: WRITE
  • Prompt: !,"to exclude patients from the denominator. "
  • Line Location: WCOMFORT+8
Function Call: WRITE
  • Prompt: !?2,$S(BGPPEX[1!(BGPPEX[5):"*",1:""),"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
Routine Call
  • DIR
  • Line Location:
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] WINS+40
^AUPNMCD - [#9000004] WINS+19, WINS+20, WINS+22, WINS+25
^AUPNMCD("B" WINS+18
^AUPNMCR - [#9000003] WINS+8, WINS+9, WINS+10, WINS+12
^AUPNPRVT - [#9000006] WINS+31, WINS+32, WINS+33, WINS+35, WINS+36, WINS+39, WINS+41, WINS+43, WINS+44
^AUPNRRE - [#9000005] WINS+48, WINS+49, WINS+50, WINS+52
^AUPNVINP - [#9000010.02] WIVUD+3
^AUPNVPOV - [#9000010.07] OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13
^AUPNVPOV("AD" OTHDPOVS+2, OTHDPOVS+9
^AUPNVSIT - [#9000010] WINS+6, WIVUD+3
^AUTNINS - [#9999999.18] WINS+34, WINS+38
^AUTTPIC - [#9999999.65] WINS+43
^DPT - [#2] WDOB+2
^VA(200 - [#200] USR+1

Naked Globals

Name Field # of Occurrence
^(0 WINS+10, WINS+22, WINS+36, WINS+50, USR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPDATA WNMIBETA+1, WCESSMED+4, WCESS+4, WSMOKER+4, WAORTIC+4, WLVSD+3, WWARRX+4, WNMIASP+1
>> BGPDATA( WNMIBETA+6, WNMIBETA+8, WCESSMED+1, WCESSMED+5, WCESS+1, WCESS+5, WSMOKER+1, WSMOKER+5, WAORTIC+1, WAORTIC+5
, WLVSD+1, WLVSD+4, WIVUD+1, WIVUD+4, WIVUD+5, WWARRX+1, WWARRX+5, WALLALG+1, WALLALG+5, WALLALG+7
, WALLALGT+1, WALLALGT+5, WALLALGT+7, WNMIASP+6, WNMIASP+7, WNMIASP+9
>> BGPDX WDXS+5
>> BGPDX( WDXS+1, WDXS+6
>> BGPIOSL WDOB+1, WRACE+1, WZIP+1, WADM+1, WADM92+1, WADMS92+1, WDSGS92+1, WINS+2, WINS+11, WINS+24
, WINS+51, WBETAAL+1, WLASTBB+1, WLASTBB+7, WNMIBETA+2, WNMIBETA+4, WNMIBETA+7, WNMIBETA+9, WCESSMED+2, WCESS+2
, WSMOKER+2, WAORTIC+2, WLASTACE+1, WNMIACE+2, WNMIACE+4, WACEALEG+1, WDXS+2, WLVSD+2, WIVUD+2, WIVUD+8
, WWARRX+2, WASAALEG+1, WALLALG+2, WALLALG+6, WALLALGT+2, WALLALGT+6, WLASTAP+1, WLASTAP+10, WLASTASP+1, WLASTASP+10
, WASPCPT+2, WNMIASP+2, WNMIASP+4, WNMIASP+8, WCOMFORT+2, WCOMFORT+4, WDOD+1, WDT+1, WTT+1, WPPDPOV+1
, OTHDPOVS+7
>> BGPLEC WLASTBB+4*, WIVUD+5*, WLASTAP+7*, WLASTASP+7*
>> BGPLETP("ICL" WLASTBB+4*, WIVUD+5*, WLASTAP+7*, WLASTASP+7*
>> BGPLETP("LGTH" WLASTBB+4*, WIVUD+5*, WLASTAP+7*, WLASTASP+7*
>> BGPLETP("NRQ" WLASTBB+4*, WIVUD+5*, WLASTAP+7*, WLASTASP+7*
>> BGPLETP("TXT" WLASTBB+4*, WIVUD+5*, WLASTAP+7*, WLASTASP+7*
BGPLETXT WLASTBB+4!, WIVUD+5!, WLASTAP+7!, WLASTASP+7!
BGPLETXT( WLASTBB+6, WLASTBB+7, WIVUD+7, WIVUD+8, WLASTAP+9, WLASTAP+10, WLASTASP+9, WLASTASP+10
>> BGPNOBA WDT+2, WTT+2, WPPDPOV+2, OTHDPOVS+8
>> BGPPEX WBETAAL+2, WAORTIC+3, WACEALEG+2, WWARRX+3, WASAALEG+2, WDOD+3, WDT+2
>> BGPQUIT WDOB+1, WRACE+1, WZIP+1, WADM+1, WADM92+1, WADMS92+1, WDSGS92+1, WINS+2, WINS+8, WINS+11
, WINS+16, WINS+18, WINS+20, WINS+24, WINS+29, WINS+31, WINS+46, WINS+48, WINS+51, WBETAAL+1
, WLASTBB+1, WLASTBB+6, WLASTBB+7, WNMIBETA+2, WNMIBETA+4, WNMIBETA+7, WNMIBETA+9, WCESSMED+2, WCESS+2, WSMOKER+2
, WAORTIC+2, WLASTACE+1, WNMIACE+2, WNMIACE+4, WACEALEG+1, WDXS+2, WLVSD+2, WIVUD+2, WIVUD+4, WIVUD+7
, WIVUD+8, WWARRX+2, WASAALEG+1, WALLALG+2, WALLALG+5, WALLALG+6, WALLALGT+2, WALLALGT+5, WALLALGT+6, WLASTAP+1
, WLASTAP+6, WLASTAP+9, WLASTAP+10, WLASTASP+1, WLASTASP+6, WLASTASP+9, WLASTASP+10, WASPCPT+2, WNMIASP+2, WNMIASP+4
, WNMIASP+8, WCOMFORT+2, WCOMFORT+4, WDOD+1, WDT+1, WTT+1, WPPDPOV+1, OTHDPOVS+7
>> BGPUD WLASTAP+5, WLASTASP+5
>> BGPUD( WLASTAP+6, WLASTAP+7, WLASTASP+6, WLASTASP+7
>> BGPVINP WIVUD+3
>> BGPVSIT WIVUD+3, OTHDPOVS+2, OTHDPOVS+9
>> BGPXX WNMIBETA+6*, WNMIBETA+8, WCESS+5*, WIVUD+4*, WIVUD+5, WALLALG+5*, WALLALG+7, WALLALGT+5*, WALLALGT+7, WLASTAP+6*
, WLASTAP+7, WLASTASP+6*, WLASTASP+7, WNMIASP+7*, WNMIASP+9
>> BGPZZ WLASTBB+6*, WLASTBB+7, WIVUD+7*, WIVUD+8, WLASTAP+9*, WLASTAP+10, WLASTASP+9*, WLASTASP+10
C WINS+4~, WINS+42*, WINS+43*, WINS+44, WCESSMED+1~*, WCESSMED+2, WCESS+1~*, WCESS+2, WSMOKER+1~*, WSMOKER+2
, WAORTIC+1~*, WAORTIC+2, WDXS+1~*, WDXS+2, WLVSD+1~*, WLVSD+2, WIVUD+1~*, WWARRX+1~*, WWARRX+2, WALLALG+1~*
, WALLALGT+1~*, OTHDPOVS+1~, OTHDPOVS+2*, OTHDPOVS+5*, OTHDPOVS+7, OTHDPOVS+8, OTHDPOVS+9*, OTHDPOVS+12*
D WINS+4~, WINS+6*, WINS+9, WINS+10, WINS+21, WINS+22, WINS+35, WINS+36, WINS+49, WINS+50
>> DFN WRACE+2
DFOUT EOP+4!
DIR EOP+3~
DIR(0 EOP+5*
DIRUT EOP+4!
DLOUT EOP+4!
DTOUT EOP+4!
DUOUT EOP+4!
DUZ USR+1
I WADM~, WADM+2, WADM92~, WADM92+2, WADMS92~, WADMS92+2, WDSGS92~, WDSGS92+3, WINS+4~, WINS+7*
, WINS+8*, WINS+9, WINS+10, WINS+12, WINS+18*, WINS+19, WINS+20, WINS+22, WINS+25, WINS+30*
, WINS+31*, WINS+32, WINS+33, WINS+35, WINS+36, WINS+39, WINS+41, WINS+43, WINS+44, WINS+47*
, WINS+48*, WINS+49, WINS+50, WINS+52, OTHDPOVS+13*, OTHDPOVS+15
IO("S" EOP+2
IOST EOP+1
>> IOT EOP+2
J WINS+4~, WINS+20*, WINS+21, WINS+22, WINS+25
MCD WINS+4~, WINS+5*, WINS+23*, WINS+55
MCR WINS+4~, WINS+5*, WINS+13*, WINS+53*, WINS+55
N WINS+4~, WINS+40*, WINS+41*, WINS+44, OTHDPOVS+14*, OTHDPOVS+15
P WDOB~, WDOB+2, WRACE~, WZIP~, WZIP+2, WINS~, WINS+8, WINS+9, WINS+10, WINS+12
, WINS+18, WINS+31, WINS+32, WINS+33, WINS+35, WINS+36, WINS+39, WINS+41, WINS+43, WINS+44
, WINS+48, WINS+49, WINS+50, WINS+52
PI WINS+4~, WINS+5*, WINS+37*, WINS+55
Q WINS+4~, WINS+39*, WINS+40, WINS+41, WINS+42, WINS+43
RR WINS+4~, WINS+5*, WINS+55
T WDSGS92+2~, WDSGS92+3*
U WDOB+2, WINS+6, WINS+9, WINS+10, WINS+12, WINS+22, WINS+25, WINS+32, WINS+33, WINS+34
, WINS+35, WINS+36, WINS+38, WINS+39, WINS+40, WINS+41, WINS+43, WINS+44, WINS+49, WINS+50
, WINS+52, WCESSMED+5, WCESS+5, WACEALEG+4, WACEALEG+5, WIVUD+3, OTHDPOVS+4, OTHDPOVS+11, OTHDPOVS+13, USR+1
V WINS~, WINS+6, WDOD~, WDOD+2, WDOD+3, WDT~, WDT+2, WTT~, WTT+2, WPPDPOV~
, WPPDPOV+2, OTHDPOVS~
X WINS+4~, WINS+33*, WINS+34, WINS+38, WBETAAL+3, WBETAAL+4, WLASTBB+3, WLASTBB+4, WCESSMED+1~*, WCESSMED+5*
, WCESS+1~*, WSMOKER+1~*, WSMOKER+5*, WAORTIC+1~*, WAORTIC+5*, WLASTACE+3, WLASTACE+4, WNMIACE~, WNMIACE+1, WACEALEG+3
, WACEALEG+4, WDXS+1~*, WDXS+6*, WLVSD+1~*, WLVSD+4*, WIVUD+1~*, WWARRX+1~*, WWARRX+5*, WASAALEG+3, WASAALEG+4
, WALLALG+1~*, WALLALGT+1~*, WLASTAP+4, WLASTASP+4, WASPCPT~, WASPCPT+1, WASPCPT+3, WCOMFORT~, WCOMFORT+1, WCOMFORT+5
, OTHDPOVS+1~, OTHDPOVS+2*, OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+9*, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13, OTHDPOVS+14, CTR~
, CTR+1
X( WNMIACE+6
Y WINS+4~, WINS+17*, WNMIACE+6~*, WNMIASP+6~*, CTR~, CTR+1
>> Z WLASTBB+9, WNMIBETA+10, WLASTACE+3, WLASTACE+5, WACEALEG+3, WACEALEG+5
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All