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: BGP0DPA9

Package: IHS GPRA Information System

Routine: BGP0DPA9


Information

BGP0DPA9 ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT ;

Source Information

Source file <BGP0DPA9.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
IHS GPRA Information System 4 PROCCY^BGP0D1  PROC^BGP0DPA9  PRINT^BGP0DPAW  JRNL^BGP0UTL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$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 BGP0DPA9  BGP0GFO9  

Entry Points

Name Comments DBIA/ICR reference
DATES
TSKMN ;EP ENTRY POINT FROM TASKMAN
RTYPE ;
EOJ ;
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 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
COVPAGE ;EP - called from option to display the cover page
EP ;EP - called from option interactive
SELPT ;
CPDONE ;
ENDDATE ;
ZIS ;
DRIVER ;
GETPAT ;
ENDLOG ;-- write the end of the log
CPHEADER ;EP
TSKMNCP ;EP ENTRY POINT FROM TASKMAN
GUIECP ;EP
CLIN1 ;
ZISCP ;
ZIS1 ;
CPHEAD1 ;
CPPRINT ;EP - called from xbdbque
PROC ;EP

External References

Name Field # of Occurrence
NOW^%DTC BDMG+7, ENDLOG+1
^%ZIS ENDDATE+18, ZISCP+2
^%ZISC DRIVER+5
^%ZTLOAD TSKMN+5, BDMG+20, TSKMNCP+5
PROCCY^BGP0D1 PROC+16, PROC+42
PROC^BGP0DPA9 DRIVER+2
PRINT^BGP0DPAW DRIVER+4
JRNL^BGP0UTL PROC+1
LIST^BSDAPI2 PROC+25
^DIC DIV+4, CLIN1+2, GETPAT1+3, SELPT+12, SELPT+16
FILE^DICN BDMG+13
^DIE ENDLOG+4
IX1^DIK GUIEP+10, GUIECP+9
^DIR EP+6, EP+8, RTYPE+3, DATES+2, DATES+4, CLIN+2, SELPT+8, EOP+5, CPHEADER+2, CPDONE+2
TERM^VALM0 EP+3
^XBFMK EOJ+1, BDMG+18
GUIR^XBLM GUIEP+4, GUIECP+3
EN^XBVK EOJ+3
$$FMADD^XLFDT DATES+8, BDMG+2, PROC+6, PROC+8, PROC+18, PROC+19
$$FMTE^XLFDT CPHEAD1+4
$$NOW^XLFDT BDMG+10, BDMG+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^BGPCTRL(BGPCTRL,69,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: !
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+7
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: ENDDATE+18
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+1
Function Call: WRITE
  • Prompt: !,"used in the GPRA Measures Forecast Patient List.",!!
  • Line Location: COVPAGE+2
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
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • DIV+4
    • CLIN1+2
    • GETPAT1+3
    • SELPT+12
    • SELPT+16
Routine Call
  • DIR
  • Line Location:
    • EP+6
    • EP+8
    • RTYPE+3
    • DATES+2
    • DATES+4
    • CLIN+2
    • SELPT+8
    • EOP+5
    • CPHEADER+2
    • CPDONE+2
Routine Call
  • %ZIS
  • Line Location:
    • ENDDATE+18
    • 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
^BGPGUIT - [#90378.08] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPCTRL - [#90241.01] EP+5, ENDDATE+4, CPPRINT+8, CPPRINT+10
^BGPCTRL("B" EP+4, ENDDATE+3, CPPRINT+7
^BGPGUIT - [#90378.08] GUIEP+8*, GUIEP+9*, GUIECP+7*, GUIECP+8*
^BGPINDT("GPRA" ENDDATE+2
^BGPSITE - [#90241.02] ZIS+2, PROC+4, PROC+15, PROC+32, PROC+41
^DIBT( SELPT+14, PROC+15, PROC+32, PROC+41
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+14, PROC+31, PROC+40
^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("BGP0DPA" PROC+7!, PROC+8*
^XUSEC("BGPZ PATIENT LISTS" EP+7

Label References

Name Line Occurrences
CLIN RTYPE+6, CLIN1+3, CLIN1+4, CLIN1+7
CLIN1 CLIN1+9
CPDONE CPPRINT+11
CPHEAD1 CPHEADER+1
CPHEADER CPPRINT+6, CPPRINT+9
DATES RTYPE+6, RTYPE+7, RTYPE+8, DATES+6
DIV RTYPE+7
ENDLOG GUIEP+11, GUIECP+10
EOJ EP+1, RTYPE+4, DATES+2, DATES+4, ENDDATE+19, DRIVER+6, TSKMN+5, BDMG+21, ZISCP+3, TSKMNCP+5
GETPAT RTYPE+8
PROC GUIEP+1
RTYPE RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9
SELPT RTYPE+9
TSKMN ZIS1+1
TSKMNCP ZISCP+5
ZIS RTYPE+9

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 ENDDATE+17!, ENDDATE+18*, ZISCP+1!, ZISCP+2*
>> BDMGIEN BDMG+17*
>> BGP0GPU ZIS+1*, BDMG+6*
>> BGP0RPTH ZIS+1*, BDMG+6*
>> BGP3YE PROC+6*
BGPABD DATES!, DATES+2*, DATES+6, DATES+8, PROC+18
BGPAED DATES!, DATES+4*, DATES+6, PROC+19
>> BGPALLPT ZIS+1*
BGPAPPT PROC+9!, PROC+20!
BGPAPPT( PROC+26, PROC+28, PROC+33
BGPAPPTS PROC+9!
BGPAPPTS( PROC+33*, PROC+36, PROC+38
>> BGPARRAY PROC+22*, PROC+25
>> BGPASD DATES+8*
>> BGPBBD ENDDATE+7*
BGPBD ENDDATE+5*, ENDDATE+10*, BDMG~, BDMG+2
>> BGPBED ENDDATE+7*
>> BGPBEN ZIS+1*
>> BGPCHSO PROC+4*
>> BGPCHWC PROC+3*
BGPCLN CLIN+1*, CLIN+4*, CLIN+5!, CLIN+7!, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+7, BDMG~, PROC+21*
, PROC+25
BGPCLN( CLIN1+8*
BGPCLN("DEV" PROC+24*
BGPCLN(0 PROC+21
>> BGPCPLC ENDDATE+15*
>> 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+24
BGPED ENDDATE+5*, ENDDATE+10*, BDMG~, PROC+6
BGPET CPDONE+3!
>> BGPGPRAH PROC+2*, PROC+7
>> BGPGPRAJ PROC+2*, PROC+7
BGPGPYR CPDONE+3!
>> BGPGUI BDMG+3*, CPPRINT+4, CPPRINT+5, CPHEAD1+3
>> BGPGYR CPPRINT+7*, CPPRINT+8, CPPRINT+10
>> 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+16*, PROC+42*
>> BGPIND( ENDDATE+2*
>> BGPINDT ZIS+1*, BDMG+6*
>> BGPIOSL CPPRINT+4*
>> BGPISSO PROC+42*
>> BGPISST PROC+16*, PROC+42*
>> BGPLIST ENDDATE+14*
BGPM CPDONE+3!
>> BGPMJ SELPT+14*, SELPT+15
>> BGPNGR09 ENDDATE+13*
BGPNOW BDMG+4~, BDMG+8*, BDMG+11, ENDLOG+2*, ENDLOG+3
>> BGPOD PROC+19*, PROC+25
BGPOPT BDMG+4~, BDMG+5*, BDMG+11
BGPPATS GETPAT+1!, GETPAT1+4, SELPT+1!, SELPT+14*, SELPT+17*, SELPT+19!
BGPPATS( GETPAT1+5*, SELPT+14*, SELPT+17*, PROC+12, PROC+13, PROC+30
BGPPATS("" SELPT+20
>> BGPPBD ENDDATE+6*, ENDDATE+11*
>> BGPPED ENDDATE+6*, ENDDATE+11*
>> BGPPER ENDDATE+8*, ENDDATE+12*
>> BGPPG CPPRINT+3*, CPHEADER+1, CPHEAD1+2*, CPHEAD1+3, CPHEAD1+4
>> BGPQ CPPRINT+9, CPHEADER+2*
>> BGPQTR ENDDATE+8*
>> BGPQUIT RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, DIV+1*, DIV+5*, CLIN+1*, CLIN+3*, GETPAT1+1*, GETPAT1+4*
, SELPT+20*
>> BGPRT1 RTYPE+1*, RTYPE+5*, RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, PROC+11, PROC+24, PROC+30, PROC+42
>> BGPRTYPE ZIS+1*, BDMG+6*
BGPS CPDONE+3!
>> BGPSD BDMG+2*, PROC+18*, PROC+19
>> BGPSMI SELPT+2*, SELPT+14*, SELPT+17*
>> BGPSOX PROC+12*, PROC+13, PROC+36*, PROC+38
>> BGPTA PROC+10*, PROC+33*
BGPTS CPDONE+3!
BGPX CPPRINT+8*, CPPRINT+10, CPDONE+3!
>> C GUIEP+5*, GUIEP+8*, GUIEP+9, GUIECP+4*, GUIECP+7*, GUIECP+8
D0 BDMG+9!
DA RTYPE+3!, CLIN+2!, BDMG+14!, GUIEP+10*, GUIECP+9*, ENDLOG+3*, ENDLOG+5!
DD BDMG+9!
DFN EOJ+2!, PROC+13*, PROC+14, PROC+15, PROC+38*, PROC+40, PROC+41
DFOUT EOP+4!
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!
DIC("A" CLIN1+1*
DIC("DR" BDMG+11*
DIC("S" CLIN1+2*, SELPT+12*
DIC(0 DIV+3*, CLIN1+1*, GETPAT1+3*, SELPT+12*, SELPT+16*, BDMG+12*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+10*, GUIECP+9*
DIR EP+6!, EP+8!, RTYPE+3!, DATES+1!, DATES+3!, EOJ+2!, CLIN+2!, SELPT+8!, EOP+3!, CPHEADER+2!
, CPDONE+1!, CPDONE+2!
DIR("?" SELPT+5*, SELPT+6*, SELPT+7*
DIR("??" SELPT+7*
DIR("A" EP+6*, EP+8*, RTYPE+3*, DATES+1*, DATES+3*, CLIN+2*, SELPT+4*, EOP+5*, CPDONE+2*
DIR("B" RTYPE+3*, CLIN+2*
DIR(0 EP+6*, EP+8*, RTYPE+2*, DATES+1*, DATES+3*, CLIN+2*, SELPT+4*, EOP+5*, CPHEADER+2*, CPDONE+2*
DIRUT RTYPE+4, CLIN+3, EOP+4!, CPDONE+2*
DLAYGO BDMG+12*, BDMG+14!
DLOUT EOP+4!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+9, GUIECP+8, PROC+8, CPHEAD1+4
DTOUT EOP+4!, CPHEADER+2
DUOUT EOP+4!, CPDONE+2
DUZ EP+7, BDMG+10, BDMG+11, USR+1, CPHEAD1+4
DUZ(2 ZIS+2, PROC+4, PROC+15, PROC+32, PROC+41, LOC+1
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 ENDDATE+17!, ZISCP+1!
IOSL TSKMN+3, CPPRINT+4, CPPRINT+5*, CPPRINT+9, TSKMNCP+3
IOST TSKMN+1, EOP+1, CPHEADER+2, CPDONE+2, TSKMNCP+1
>> IOT EOP+2
>> POP ENDDATE+19, ZISCP+3
U ZIS+2, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, SELPT+3, SELPT+9, SELPT+19, PROC+4, PROC+14
, PROC+15, PROC+28, PROC+31, PROC+32, PROC+38, PROC+40, PROC+41, USR+1, LOC+1, CPHEAD1+4
X EP+5*, ENDDATE+2*, ENDDATE+3*, ENDDATE+4, CLIN1+4, CLIN1+7, SELPT+3, SELPT+9*, SELPT+10, SELPT+11*
, SELPT+12, SELPT+19, BDMG+10*, GUIEP+5*, GUIEP+6, GUIEP+8, GUIECP+4*, GUIECP+5, GUIECP+7, PROC+26*
, PROC+28, PROC+33, CTR~, CTR+1
Y RTYPE+5, DATES+2, DATES+4, ENDDATE+4*, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, 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+30, PROC+31, PROC+32, CTR~, CTR+1, CPHEADER+2
>> 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