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

Package: IHS GPRA Information System

Routine: BGP8DPA


Information

BGP8DPA ;IHS/CMI/LAB - FORECAST;

Source Information

Source file <BGP8DPA.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
IHS GPRA Information System 7 PROCCY^BGP8D1  PROC^BGP8DPA  PRINT^BGP8DPAW  PAUSE^BGP8DU  JRNL^BGP8UTL  ($$DEMOCHK,UNFOLDTX)^BGP8UTL2  TAXCHK^BGP8XTCN  
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  (,IX1)^DIK  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  
IHS VA Utilities 3 ^XBFMK  GUIR^XBLM  EN^XBVK  
IHS Changes To Scheduling 1 LIST^BSDAPI2  
Registration 1 TERM^VALM0  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS GPRA Information System 2 BGP8DPA  BGP8GFOR  

Entry Points

Name Comments DBIA/ICR reference
DATES ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
RTYPE ;
EOJ ;
STMP ;EP
ZISCP ;
GUIEP ;EP
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
BDMG(BGPBD,BGPED,BGPCLN) ;EP - GUI DMS Entry Point
GETPAT1 ;
CLIN ;
DIV ;
ZIS ;
TEMP ;search template created?
CTR(X,Y) ;EP - Center X in a field Y wide.
COVPAGE ;EP - called from option to display the cover page
GUIECP ;EP
EN1 ;EP Help
EN2
SELPT ;
CPDONE ;
NT
ADDON ;
ENDDATE ;
GPRAYR ;
F ;calendar year
DRIVER ;
GETPAT ;
ENDLOG ;-- write the end of the log
CPHEADER ;EP
TSKMNCP ;EP ENTRY POINT FROM TASKMAN
DUP
EP ;EP - called from option interactive
CLIN1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
ZIS1 ;
CPHEAD1 ;
TEST ;
CPPRINT ;EP - called from xbdbque
PROC ;EP

External References

Name Field # of Occurrence
NOW^%DTC BDMG+7, ENDLOG+1
^%ZIS NT+6, ZISCP+2
^%ZISC DRIVER+5
^%ZTLOAD TSKMN+5, BDMG+20, TSKMNCP+5
PROCCY^BGP8D1 PROC+18, PROC+51
PROC^BGP8DPA DRIVER+2
PRINT^BGP8DPAW DRIVER+4
PAUSE^BGP8DU EP+12
JRNL^BGP8UTL PROC+1
$$DEMOCHK^BGP8UTL2 EP+11
UNFOLDTX^BGP8UTL2 PROC+3
TAXCHK^BGP8XTCN EP+10
LIST^BSDAPI2 PROC+26
^DIC DIV+4, CLIN1+2, GETPAT1+3, SELPT+12, SELPT+16, EN2+1
FILE^DICN BDMG+13
^DIE ENDLOG+4, DUP+16
^DIK DUP+7
IX1^DIK GUIEP+10, GUIECP+9, DUP+8
^DIR EP+6, EP+8, RTYPE+4, TEMP+2, DATES+4, DATES+6, ADDON+4, ADDON+9, CLIN+2, SELPT+8
, EOP+5, CPHEADER+2, CPDONE+2, DUP+3, F+5
TERM^VALM0 EP+3
^XBFMK EOJ+1, BDMG+18
GUIR^XBLM GUIEP+4, GUIECP+3
EN^XBVK EOJ+3
$$FMADD^XLFDT DATES+11, BDMG+2, PROC+6, PROC+8, PROC+20, PROC+21
$$FMDIFF^XLFDT DATES+7
$$FMTE^XLFDT CPHEAD1+4
$$NOW^XLFDT BDMG+10, BDMG+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^BGPCTRL(BGPCTRL,58,X,0)
  • Line Location: EP+5
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the BGPZ PATIENT LISTS security key.",!
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !!,"Exiting Report....."
  • Line Location: EP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: GPRAYR+1
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: GPRAYR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+3
Function Call: WRITE
  • Prompt: !!,"You can only run this for a maximum 7 day time period."
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+10
Function Call: WRITE
  • Prompt: !!,"Home Location not found in Site File!!",!,"PHN Visits counts to Home will be calculated using clinic 11 only!!"
  • Line Location: ZIS+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: NT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN1+1
Function Call: WRITE
  • Prompt: !,BGPMJ,$S(BGPMJ=1:" entry",1:" entries")," added."
  • Line Location: SELPT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPT+18
Function Call: WRITE
  • Prompt: !,"All selections cancelled!"
  • Line Location: SELPT+19
Function Call: WRITE
  • Prompt: !,"No patients selected."
  • Line Location: SELPT+20
Function Call: WRITE
  • Prompt: !!,"This option is used to print out the denominator definitions"
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !,"used in the GPRA/GPRAMA Measures Forecast Patient List.",!!
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZISCP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CPHEADER+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: CPHEAD1+3
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPPG,!
  • Line Location: CPHEAD1+4
Function Call: WRITE
  • Prompt: !!,"No Search Template selected."
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"Must be 2018 or 2019"
  • Line Location: F+8
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+10
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
    • DUP+16
Routine Call
  • DIC
  • Line Location:
    • DIV+4
    • CLIN1+2
    • GETPAT1+3
    • SELPT+12
    • SELPT+16
    • EN2+1
Routine Call
  • DIR
  • Line Location:
    • EP+6
    • EP+8
    • RTYPE+4
    • TEMP+2
    • DATES+4
    • DATES+6
    • ADDON+4
    • ADDON+9
    • CLIN+2
    • SELPT+8
    • EOP+5
    • CPHEADER+2
    • CPDONE+2
    • DUP+3
    • F+5
Routine Call
  • %ZIS
  • Line Location:
    • NT+6
    • ZISCP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^BGPGUIR - [#90560.19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPCTRL - [#90241.01] EP+5, ENDDATE+4, CPPRINT+9, CPPRINT+11
^BGPCTRL("B" EP+4, ENDDATE+3, CPPRINT+8
^BGPGUIR - [#90560.19] GUIEP+8*, GUIEP+9*, GUIECP+7*, GUIECP+8*
^BGPINDR("GPRA" ENDDATE+2
^BGPSITE - [#90241.02] ZIS+2
^DIBT( SELPT+14, PROC+16, PROC+17*, PROC+32, PROC+49, PROC+50*, EN2+3, DUP+6, DUP+7, DUP+8*
, DUP+9, DUP+11, DUP+13!
^DIBT("B" PROC+16, PROC+32, PROC+49
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+14, PROC+30, PROC+47
^SC - [#44] PROC+38, PROC+39, PROC+40, PROC+41
^TMP($J EOJ+4!, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!, GUIECP+1!, GUIECP+4, GUIECP+5, GUIECP+11!
^VA(200 - [#200] USR+1, CPHEAD1+4
^XTMP("BGP15TAX" PROC+2!, PROC+53!
^XTMP("BGP8DPA" PROC+7!, PROC+8*
^XTMP("BGPSNOMEDSUBSET" PROC+2!, PROC+53!
^XUSEC("BGPZ PATIENT LISTS" EP+7

Label References

Name Line Occurrences
BDMG TEST+1
CLIN GPRAYR+9, CLIN1+3, CLIN1+4, CLIN1+7
CLIN1 CLIN1+9
CPDONE CPPRINT+12
CPHEAD1 CPHEADER+1
CPHEADER CPPRINT+7, CPPRINT+10
DATES TEMP+4, DATES+6, DATES+7, DATES+9
DIV GPRAYR+10
EN2 DUP
ENDLOG GUIEP+11, GUIECP+10
EOJ EP+1, EP+12, RTYPE+5, NT+7, DRIVER+6, TSKMN+5, BDMG+21, ZISCP+3, TSKMNCP+5
F GPRAYR+2, F+8, F+10
GETPAT GPRAYR+11
NT ENDDATE+9
PROC GUIEP+1
RTYPE GPRAYR+3, GPRAYR+9, GPRAYR+10, GPRAYR+11, GPRAYR+12, TEMP+3, ADDON+2
SELPT GPRAYR+12
STMP TEMP+5
TEMP GPRAYR+9, GPRAYR+10, GPRAYR+11, GPRAYR+12, TEMP+6, DATES+4
TSKMN ZIS1+1
TSKMNCP ZISCP+5
ZIS DATES+1

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+8, ENDLOG+2
%ZIS NT+5!, NT+6*, ZISCP+1!, ZISCP+2*
>> A PROC+38*, PROC+39, PROC+40, PROC+41
>> BDMGIEN BDMG+17*
>> BGP3YE PROC+6*
BGPABD DATES+2!, DATES+4*, DATES+7, DATES+9, DATES+11, PROC+20
>> BGPADDOD ADDON+8*, ADDON+12*, PROC+41
BGPAED DATES+2!, DATES+6*, DATES+7, DATES+9, PROC+21
>> BGPALLPT ZIS+1*
BGPAPPT PROC+9!, PROC+22!
BGPAPPT( PROC+27, PROC+28, PROC+37, PROC+41!, PROC+43
BGPAPPTS PROC+9!
BGPAPPTS( PROC+43*, PROC+45, PROC+46
>> BGPARRAY PROC+24*, PROC+26
>> BGPASD DATES+11*
>> BGPBBD GPRAYR+7*, ENDDATE+12*
BGPBD GPRAYR+4*, GPRAYR+5, GPRAYR+7, ENDDATE+10*, BDMG~, BDMG+2
>> BGPBED GPRAYR+8*, ENDDATE+12*
>> BGPBEN ZIS+1*
BGPCLN CLIN+1*, CLIN+4*, CLIN+5!, CLIN+7!, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+7, BDMG~, PROC+23*
, PROC+26
BGPCLN( CLIN1+8*
BGPCLN("DEV" PROC+25*
BGPCLN(0 PROC+23
>> BGPCPLC NT+1*
>> BGPCPPL ZIS+1*, BDMG+6*
>> BGPCTRL EP+4*, EP+5
>> BGPDATA GUIEP+6*, GUIEP+7*, GUIEP+8, GUIECP+5*, GUIECP+6*, GUIECP+7
>> BGPDIVI DIV+1*, DIV+6*, GETPAT1+1*, PROC+25
BGPED GPRAYR+4*, GPRAYR+6, GPRAYR+8, ENDDATE+10*, BDMG~, PROC+6
BGPET CPDONE+3!
>> BGPGPRAH PROC+4*, PROC+7
>> BGPGPRAJ PROC+4*, PROC+7
BGPGPYR CPDONE+3!
>> BGPGUI BDMG+3*, CPPRINT+4, CPPRINT+5, CPHEAD1+3
>> BGPGYR CPPRINT+8*, CPPRINT+9, CPPRINT+11
>> BGPHOME ZIS+2*
BGPIEN BDMG+4~, BDMG+15*, BDMG+16*, BDMG+17, GUIEP+8, GUIEP+9, GUIEP+10, GUIECP+7, GUIECP+8, GUIECP+9
, ENDLOG+3
>> BGPIISO PROC+18*, PROC+51*
>> BGPIND( ENDDATE+2*
>> BGPINDG ZIS+1*, BDMG+6*
>> BGPIOSL CPPRINT+4*
>> BGPISSO PROC+51*
>> BGPISST PROC+18*, PROC+51*
>> BGPLIST NT*
BGPM CPDONE+3!
>> BGPMJ SELPT+14*, SELPT+15
>> BGPNGR09 F+1*, F+12*
BGPNOW BDMG+4~, BDMG+8*, BDMG+11, ENDLOG+2*, ENDLOG+3
>> BGPOD PROC+21*, PROC+26
BGPOPT BDMG+4~, BDMG+5*, BDMG+11
BGPPATS GETPAT+1!, GETPAT1+4, SELPT+1!, SELPT+14*, SELPT+17*
BGPPATS( GETPAT1+5*, SELPT+14*, SELPT+17*, PROC+12, PROC+13, PROC+29
BGPPATS("" SELPT+20
>> BGPPBD GPRAYR+5*, ENDDATE+11*
>> BGPPED GPRAYR+6*, ENDDATE+11*
>> BGPPER GPRAYR+3, GPRAYR+4, F+1*, F+11*, F+12
>> BGPPG CPPRINT+3*, CPHEADER+1, CPHEAD1+1, CPHEAD1+2*, CPHEAD1+3, CPHEAD1+4
BGPQ ADDON+1!, ADDON+2, ADDON+5*, ADDON+10*, ADDON+11*, CPPRINT+6!, CPPRINT+9, CPPRINT+10, CPHEADER+2*
BGPQUIT RTYPE+1!, GPRAYR+9, GPRAYR+10, GPRAYR+11, GPRAYR+12, DIV+1*, DIV+5*, CLIN+1*, CLIN+3*, GETPAT1+1*
, GETPAT1+4*, SELPT+20*, EN1+1!, EN2+2*
>> BGPRT1 RTYPE+2*, RTYPE+6*, GPRAYR+9, GPRAYR+10, GPRAYR+11, GPRAYR+12, DATES+1, ADDON+2, PROC+11, PROC+25
, PROC+29, PROC+35, PROC+51
>> BGPRT2 ADDON+6*, ADDON+7, PROC+35
>> BGPRTYPE ZIS+1*, BDMG+6*
BGPS CPDONE+3!
>> BGPSD BDMG+2*, PROC+20*, PROC+21
>> BGPSMI SELPT+2*, SELPT+14*, SELPT+17*
>> BGPSNAM EN2+3*, DUP+8, DUP+12
>> BGPSOX PROC+12*, PROC+13, PROC+45*, PROC+46
BGPSTMP TEMP+1*, TEMP+6, PROC+17, PROC+50, EN1+1*, EN2+3*, DUP!, DUP+6, DUP+7, DUP+8
, DUP+9, DUP+11, DUP+13, DUP+14, DUP+15
>> BGPSTN DUP+7*
>> BGPTA PROC+10*, PROC+43*
BGPTS CPDONE+3!
>> BGPVDT F+1*, F+9*, F+11
BGPX CPPRINT+9*, CPPRINT+11, CPDONE+3!
>> BGPYGPU ZIS+1*, BDMG+6*
>> BGPYRPTH ZIS+1*, BDMG+6*
>> C GUIEP+5*, GUIEP+8*, GUIEP+9, GUIECP+4*, GUIECP+7*, GUIECP+8, PROC+37*, PROC+38, PROC+39, PROC+40
, PROC+41
>> D PROC+37*, PROC+38, PROC+39, PROC+40, PROC+41
D0 BDMG+9!
DA RTYPE+4!, TEMP+2!, ADDON+4!, ADDON+9!, CLIN+2!, BDMG+14!, GUIEP+10*, GUIECP+9*, ENDLOG+3*, ENDLOG+5!
, DUP+3!, DUP+7*, DUP+8*, DUP+15*, DUP+17!
DD BDMG+9!
DFN EOJ+2!, PROC+13*, PROC+14, PROC+16, PROC+17, PROC+46*, PROC+47, PROC+49, PROC+50
DFOUT EOP+4!
>> DHIT DUP+14*
DIADD BDMG+12*, BDMG+14!
DIC EOJ+2!, DIV+2!, DIV+3*, DIV+4!, CLIN1+1*, CLIN1+2!, GETPAT1+2!, GETPAT1+3*!, SELPT+12!*, SELPT+16!*
, BDMG+9!, BDMG+12*, BDMG+14!, EN2!*, EN2+1!
DIC("A" CLIN1+1*, EN2*
DIC("DR" BDMG+11*
DIC("S" CLIN1+2*, SELPT+12*, EN2*
DIC(0 DIV+3*, CLIN1+1*, GETPAT1+3*, SELPT+12*, SELPT+16*, BDMG+12*, EN2*
DIE ENDLOG+3*, ENDLOG+5!, DUP+15*, DUP+17!
>> DIK GUIEP+10*, GUIECP+9*, DUP+7*, DUP+8*
DIR EP+6!, EP+8!, RTYPE+4!, TEMP+2!, DATES+3!, DATES+5!, ADDON+4!, ADDON+9!, EOJ+2!, CLIN+2!
, SELPT+8!, EOP+3!, CPHEADER+2!, CPDONE+1!, CPDONE+2!, DUP+3!, F+5!
DIR("?" SELPT+5*, SELPT+6*, SELPT+7*, F+4*
DIR("??" SELPT+7*
DIR("A" EP+6*, EP+8*, RTYPE+4*, TEMP+2*, DATES+3*, DATES+5*, ADDON+4*, ADDON+9*, CLIN+2*, SELPT+4*
, EOP+5*, CPDONE+2*, DUP+3*, F+3*
DIR("B" RTYPE+4*, TEMP+2*, ADDON+4*, CLIN+2*, DUP+3*
DIR(0 EP+6*, EP+8*, RTYPE+3*, TEMP+2*, DATES+3*, DATES+5*, ADDON+3*, ADDON+9*, CLIN+2*, SELPT+4*
, EOP+5*, CPHEADER+2*, CPDONE+2*, DUP+3*, F+2*
DIRUT RTYPE+5, TEMP+3, ADDON+5, ADDON+10, CLIN+3, EOP+4!, CPDONE+2*, DUP+4, F+6, F+7*
DLAYGO BDMG+12*, BDMG+14!, EN2!*, EN2+1!
DLOUT EOP+4!
DR ENDLOG+3*, ENDLOG+5!, DUP+15*, DUP+17!
DT ADDON+9, GUIEP+9, GUIECP+8, PROC+8, CPHEAD1+4, DUP+15
DTOUT EOP+4!, CPHEADER+2
DUOUT EOP+4!, CPDONE+2, F+7
DUZ EP+7, BDMG+10, BDMG+11, USR+1, CPHEAD1+4, DUP+15
DUZ(2 ZIS+2, LOC+1
>> G PROC+34*, PROC+38*, PROC+41*, PROC+42
IO DRIVER+3, TSKMN+1, CPPRINT+1, CPHEADER+2, CPDONE+2, TSKMNCP+1
IO("DOC" TSKMN+2, TSKMNCP+2
IO("Q" ZIS1+1, ZISCP+5
IO("S" EOP+2
IO(0 CPHEADER+2, CPDONE+2
>> IOCPU TSKMN+5, TSKMNCP+5
IOF EP+2, CPHEAD1+1
IOM TSKMN+3, GUIEP+3*, GUIECP+2*, CTR+1, TSKMNCP+3
ION TSKMN+1, TSKMNCP+1
IOP NT+5!, ZISCP+1!
IOSL TSKMN+3, CPPRINT+4, CPPRINT+5*, CPPRINT+10, TSKMNCP+3
IOST TSKMN+1, EOP+1, CPHEADER+2, CPDONE+2, TSKMNCP+1
>> IOT EOP+2
>> POP NT+7, ZISCP+3
>> Q DUP, DUP+1*, DUP+4*, DUP+5*
U ZIS+2, SELPT+3, SELPT+9, PROC+14, PROC+28, PROC+30, PROC+37, PROC+40, PROC+41, PROC+46
, PROC+47, USR+1, LOC+1, CPHEAD1+4, EN2+3, DUP, DUP+7
X EP+5*, EP+11*, EP+12, GPRAYR+7, GPRAYR+8, ENDDATE+2*, ENDDATE+3*, ENDDATE+4, CLIN1+4, CLIN1+7
, SELPT+3, SELPT+9*, SELPT+10, SELPT+11*, SELPT+12, BDMG+10*, GUIEP+5*, GUIEP+6, GUIEP+8, GUIECP+4*
, GUIECP+5, GUIECP+7, PROC+16*, PROC+27*, PROC+28, PROC+37, PROC+41, PROC+43, PROC+49*, CTR~
, CTR+1
Y RTYPE+6, TEMP+4, DATES+4, DATES+6, ADDON+6, ADDON+11, ADDON+12, ENDDATE+4*, DIV+5, DIV+6
, CLIN+4, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+8, GETPAT1+4, GETPAT1+5, SELPT+13, SELPT+14*, SELPT+17
, BDMG+15, BDMG+16, PROC+28*, PROC+29, PROC+30, PROC+32, PROC+40, CTR~, CTR+1, CPHEADER+2
, EN2+2, EN2+3, DUP!, DUP+5, F+8, F+9, F+10
>> Z PROC+32*
>> ZTCPU TSKMN+5*, TSKMNCP+5*
>> ZTDESC TSKMN+5*, BDMG+20*, TSKMNCP+5*
>> ZTDTH TSKMN+5*, BDMG+20*, TSKMNCP+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*, BDMG+20*, TSKMNCP+1*, TSKMNCP+2*, TSKMNCP+3*
>> ZTQUEUED DRIVER+1, EOP+2, CPPRINT+2
>> ZTREQ DRIVER+1*, GUIEP+13*, GUIECP+12*, CPPRINT+2*
>> ZTRTN TSKMN+5*, BDMG+20*, TSKMNCP+5*
ZTSAVE TSKMN+4!, BDMG+19!, TSKMNCP+4!
ZTSAVE("*" BDMG+19*
ZTSAVE("BGP*" TSKMN+4*, TSKMNCP+4*
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 |  Naked Globals |  Local Variables |  All