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

Package: IHS GPRA Information System

Routine: BGP4DPAP


Information

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

Source Information

Source file <BGP4DPAP.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  GUIR^XBLM  EN^XBVK  
IHS GPRA Information System 2 PROCCY^BGP4D1  ($$DATE,JRNL)^BGP4UTL  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
IHS Patient 1 ($$COMMRES,$$HRN)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
PATS ;
ENDDATE ;
ZIS ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
EOJ ;
LIST ;"??" help list
ENDLOG ;-- write the end of the log
GUIEP ;EP
PRINT ;EP - called from xbdbque
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
DONE ;
BDMG(BGPBD,BGPED,BGPCLN) ;EP - GUI DMS Entry Point
CTR(X,Y) ;EP - Center X in a field Y wide.
TEST ;
SELPT ;
PROC ;
EP ;EP - called from option interactive

External References

Name Field # of Occurrence
NOW^%DTC BDMG+7, ENDLOG+1
^%ZTLOAD BDMG+20
$$COMMRES^AUPNPAT PRINT+8
$$HRN^AUPNPAT PRINT+8
PROCCY^BGP4D1 PROC+11
$$DATE^BGP4UTL PRINT+8
JRNL^BGP4UTL PROC+1
^DIC SELPT+12, SELPT+16
FILE^DICN BDMG+13
^DIE ENDLOG+4
IX1^DIK GUIEP+10
^DIR PATS+5, SELPT+8, DONE+2, HEADER+2, EOP+5, LIST+3
^XBDBQUE ENDDATE+31
^XBFMK EOJ+1, BDMG+18
GUIR^XBLM GUIEP+4
EN^XBVK EOJ+3
$$FMADD^XLFDT BDMG+2, PROC+5, PROC+7
$$FMTE^XLFDT HEADER1+3, HEADER1+5
$$NOW^XLFDT BDMG+10, BDMG+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^BGPCTRL(BGPCTRL,58,X,0)
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !,"Enter a patient's HRN or name (HORSECHIEF,JOHN DOE or HORSECHIEF,JOHN)."
  • Line Location: PATS+1
Function Call: WRITE
  • Prompt: !,"A template can also be selected by typing a ""["" followed by"
  • Line Location: PATS+2
Function Call: WRITE
  • Prompt: !,"the template name."
  • Line Location: PATS+3
Function Call: WRITE
  • Prompt: !,"Entering ""[??"" will list your templates."
  • Line Location: PATS+4
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: !!
  • Line Location: ENDDATE+1
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?1,BGPT1
  • Condition for execution: X=2
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?28,Y,!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?28,BGPX1
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPPG,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !!,$$CTR("Patient Listing with GPRA Measure Data",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,"HRN",?7,"PATIENT NAME",?38,"Sex",?42,"DOB",?51,"Community"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,?2,X
  • Line Location: LIST+1
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • SELPT+12
    • SELPT+16
Routine Call
  • DIR
  • Line Location:
    • PATS+5
    • SELPT+8
    • DONE+2
    • HEADER+2
    • EOP+5
    • LIST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BGPGUIJ - [#90552.19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LIST+1
^BGPCTRL - [#90241.01] EP+4, ENDDATE+3
^BGPCTRL("B" EP+3, ENDDATE+2
^BGPGUIJ - [#90552.19] GUIEP+8*, GUIEP+9*
^BGPINDJ("GPRA" ENDDATE+13
^BGPSITE - [#90241.02] ZIS+2
^DIBT( SELPT+14
^DIC(4 - [#4] LOC+1
^DPT - [#2] PRINT+8
^TMP($J EOJ+4!, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200] HEADER1+3, USR+1
^XTMP("BGP4DPAP" PROC+6!, PROC+7*, DONE+5!, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13
, PRINT+14

Label References

Name Line Occurrences
$$CTR HEADER1+4, HEADER1+6
BDMG TEST+1
DONE PRINT+3, PRINT+20
ENDLOG GUIEP+11
EOJ EP+1, SELPT+20, BDMG+21
HEADER PRINT+3, PRINT+4, PRINT+7, PRINT+10
HEADER1 HEADER+1
PROC GUIEP+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
>> BDMGIEN BDMG+17*
>> BGP3YE PROC+5*
>> BGPALLPT ZIS+1*
BGPAPPT PROC+8!
BGPAPPTS PROC+8!
>> BGPBBD ENDDATE+6*
BGPBD ENDDATE+4*, BDMG~, BDMG+2
>> BGPBED ENDDATE+6*
>> BGPBEN ZIS+1*
BGPCLN BDMG~
>> BGPCPLC ENDDATE+26*
>> BGPCPPL ZIS+1*, BDMG+6*
>> BGPCTRL EP+3*, EP+4
>> BGPDATA GUIEP+6*, GUIEP+7*, GUIEP+8
BGPED ENDDATE+4*, BDMG~, PROC+5, HEADER1+5
BGPET DONE+4!
>> BGPGPRAH PROC+2*, PROC+6, DONE+5, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13
, PRINT+14
>> BGPGPRAJ PROC+2*, PROC+6, DONE+5, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13
, PRINT+14
>> BGPGUI BDMG+3*, PRINT+1, HEADER1+2
>> BGPHOME ZIS+2*
>> BGPI PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+14
BGPIEN BDMG+4~, BDMG+15*, BDMG+16*, BDMG+17, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BGPIISO PROC+11*
>> BGPIND( ENDDATE+13*
>> BGPINDJ ZIS+1*, BDMG+6*
>> BGPIOSL PRINT+1*, PRINT+7
>> BGPISST PROC+11*
>> BGPLIST ENDDATE+25*
BGPM DONE+4!
>> BGPMJ SELPT+14*, SELPT+15, LIST+1*, LIST+2*, LIST+3*
BGPMK LIST+1*, LIST+5!
>> BGPNAME PRINT+5*, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14
>> BGPNOD PRINT+2*, PRINT+3*
BGPNOW BDMG+4~, BDMG+8*, BDMG+11, ENDLOG+2*, ENDLOG+3
BGPOPT BDMG+4~, BDMG+5*, BDMG+11
>> BGPPBD ENDDATE+5*
>> BGPPED ENDDATE+5*
>> BGPPER ENDDATE+7*
>> BGPPG PRINT+2*, HEADER+1, HEADER1+1*, HEADER1+2, HEADER1+3
BGPQ PRINT+2!, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, HEADER+2*
>> BGPQTR ENDDATE+7*
>> BGPRTYPE ZIS+1*, BDMG+6*
BGPS DONE+4!
>> BGPSD BDMG+2*
>> BGPSMI SELPT+2*, SELPT+14*, SELPT+17*
>> BGPSOX PROC+9*, PROC+10
BGPSPAT SELPT+1!, SELPT+14*, SELPT+17*, SELPT+19!, LIST+1*
BGPSPAT( SELPT+14*, SELPT+17*, PROC+9, PROC+10, LIST+1
BGPSPAT("" SELPT+20
>> BGPT PRINT+11*, PRINT+15
>> BGPT1 PRINT+12*, PRINT+16
BGPTS DONE+4!
>> BGPX PRINT+13*, PRINT+16
>> BGPX1 PRINT+14*, PRINT+17
>> BGPYGPU ZIS+1*, BDMG+6*
>> BGPYRPTH ZIS+1*, BDMG+6*
>> C GUIEP+5*, GUIEP+8*, GUIEP+9
D0 BDMG+9!
DA BDMG+14!, GUIEP+10*, ENDLOG+3*, ENDLOG+5!
DD BDMG+9!
DFN EOJ+2!, PROC+10*, PRINT+6*, PRINT+8, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14
DFOUT EOP+4!
DIADD BDMG+12*, BDMG+14!
DIC SELPT+12!*, SELPT+16!*, EOJ+2!, BDMG+9!, BDMG+12*, BDMG+14!
DIC("DR" BDMG+11*
DIC("S" SELPT+12*
DIC(0 SELPT+12*, SELPT+16*, BDMG+12*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+10*
DIR PATS+5!, SELPT+8!, EOJ+2!, DONE+1!, DONE+2!, HEADER+2!, EOP+3!, LIST+3!, LIST+4!
DIR("?" SELPT+5*, SELPT+6*, SELPT+7*
DIR("??" SELPT+7*
DIR("A" PATS+5*, SELPT+4*, DONE+2*, EOP+5*
DIR(0 PATS+5*, SELPT+4*, DONE+2*, HEADER+2*, EOP+5*, LIST+3*
DIRUT DONE+2*, EOP+4!, LIST+3!
DLAYGO BDMG+12*, BDMG+14!
DLOUT EOP+4!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+9, PROC+7, HEADER1+3
DTOUT HEADER+2, EOP+4!, LIST+3!
DUOUT DONE+2, EOP+4!, LIST+3!
DUZ BDMG+10, BDMG+11, HEADER1+3, USR+1
DUZ(2 ZIS+2, PRINT+8, LOC+1
IO DONE+2, HEADER+2
IO("S" EOP+2
IO(0 DONE+2, HEADER+2
IOF EP+2, HEADER1+1
IOM GUIEP+3*, CTR+1
IOSL PRINT+1, PRINT+10, LIST+1, LIST+2
IOST DONE+2, HEADER+2, EOP+1
>> IOT EOP+2
U SELPT+3, SELPT+9, SELPT+19, ZIS+2, ENDDATE+4, ENDDATE+5, ENDDATE+6, ENDDATE+7, PRINT+8, PRINT+11
, PRINT+12, PRINT+13, PRINT+14, HEADER1+3, USR+1, LOC+1, LIST+1
X EP+4*, SELPT+3, SELPT+9*, SELPT+10, SELPT+11*, SELPT+12, SELPT+19, ENDDATE+2*, ENDDATE+3, ENDDATE+13*
, BDMG+10*, GUIEP+5*, GUIEP+6, GUIEP+8, PRINT+16*, PRINT+17*, HEADER1+5*, HEADER1+6, CTR~, CTR+1
, LIST+1*, LIST+4*
>> XBNS ENDDATE+30*
>> XBRC ENDDATE+30*
>> XBRP ENDDATE+30*
>> XBRX ENDDATE+30*
Y SELPT+13, SELPT+14*, SELPT+17, ENDDATE+3*, ENDDATE+4, ENDDATE+5, ENDDATE+6, ENDDATE+7, BDMG+15, BDMG+16
, PRINT+16*, PRINT+17*, HEADER+2, CTR~, CTR+1, LIST+3
>> ZTDESC BDMG+20*
>> ZTDTH BDMG+20*
>> ZTIO BDMG+20*
>> ZTQUEUED EOP+2
>> ZTREQ GUIEP+13*
>> ZTRTN BDMG+20*
ZTSAVE BDMG+19!
ZTSAVE("*" BDMG+19*
Info |  Source |  Call 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