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 |  Marked Items |  All
Print Page as PDF
Routine: BWGRVL

Package: Women's Health

Routine: BWGRVL


Information

BWGRVL ; IHS/CMI/LAB - WH VISIT GENERAL RETRIEVAL DRIVER ROUTINE ;15-Feb-2003 21:51;PLS

Source Information

Source file <BWGRVL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 DD^%DT  (C,YX)^%DTC  (,IX)^DIC  ^DIK  ^DIR  
Women's Health 4 (XIT,XIT1)^BWGRVL1  (COUNT,SAVE,TITLE)^BWGRVL3  ^BWGRVL4  (SHOW,SHOWP,SHOWR)^BWGRVLS  
IHS VA Utilities 1 ^XBDBQUE  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Women's Health 4 BWGR REPORT GENERAL RETRIEVAL  BWGRVLP1  BWGRVLP2  BWGRVLS  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PP13
PP12
PP11
RTYPE ;get report type - patient list or procedure list
GETDATE1 ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DEL ;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
PS0 ;
PS1 ;EP
D11
PS ;--- process report when search template used
PP ;patient lister
RP ;visit/pt search template
D12
LOC() ;EP - Return location name from file 4 based on DUZ(2).
RS ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
D13
INFORM ;EP
INTRO ;
COUNT ;count only or detailed report
PAUSE ;EP
ZIS ;call to XBDBQUE
ED ;get ending date
SCREEN ;
START ;
PP1 ;if patient, no prev defined report used
XIT ;
TITLE ;
SAVE ;
ADD ;EP
XIT1 ;
GETDATES ;
ADD1 ;
PS13
TYPE ;--- get type of report (patient, date range or search template)
PS12
D1 ;if visit, no prev defined report used

External References

Name Field # of Occurrence
DD^%DT ED+5
C^%DTC ED+5
YX^%DTC ADD1+2
XIT^BWGRVL1 XIT+1
XIT1^BWGRVL1 XIT1+1
COUNT^BWGRVL3 COUNT+1
SAVE^BWGRVL3 SAVE+1
TITLE^BWGRVL3 TITLE+1
^BWGRVL4 SCREEN+2
SHOW^BWGRVLS ZIS+4
SHOWP^BWGRVLS ZIS+4
SHOWR^BWGRVLS ZIS+4
^DIC PS0+1, RP+1, ADD1+2
IX^DIC ADD+8
^DIK DEL+1
^DIR RTYPE+2, TYPE+6, BD+1, ED+1, ZIS+7, ADD+5, PAUSE+2, EOP+5
^XBDBQUE ZIS+13, BROWSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RP+1
Function Call: WRITE
  • Prompt: !!?((80-$L(BWGRLHDR))/2),BWGRLHDR
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !!,"This is a required response. Remember, if you are using a Search Template of",!,"WH Procedures, the Date Range entered here must correspond to the date range"
  • Line Location: GETDATES+2
Function Call: WRITE
  • Prompt: !,"used to generate the template or be a subset of that date range.",!
  • Line Location: GETDATES+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!,"UNABLE TO CREATE REPORT ENTRY - NOTIFY SITE MANAGER!"
  • Line Location: ADD1+2
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC(),80),!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: $$CTR($$USR(),80)
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !!,$$CTR("WOMEN'S HEALTH GENERAL RETRIEVAL PROGRAM",80),!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Routine Call
  • DIC
  • Line Location:
    • PS0+1
    • RP+1
    • ADD1+2
Routine Call
  • DIR
  • Line Location:
    • RTYPE+2
    • TYPE+6
    • BD+1
    • ED+1
    • ZIS+7
    • ADD+5
    • PAUSE+2
    • EOP+5
Routine Call
  • DIC
  • Line Location:
    • ADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BWGRTRPT - [#9002086.88] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BWGRTRPT - [#9002086.88] PP+3, PP11!, PP12!, PS12!, D11!, D12!, DEL+1, ADD+12, ADD+13, ADD1+6!
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] ADD1+2, USR+1

Label References

Name Line Occurrences
$$CTR INFORM+3, INFORM+4, INFORM+5
$$LOC INFORM+3
$$USR INFORM+4
@( TYPE+9
ADD PP+1, PS1+1, ED+7
ADD1 ADD+3, ADD+4, ADD+7
BD ED+2, ED+3
BROWSE ZIS+11
COUNT PP12, PS12, D12
D1 ED+8
D11 D12
D12 D13
DEL PP+1, PP11, BD+2, ED+7, D11
GETDATE1 PP+6, PP11+3
INFORM START+3
PP1 PP+2
PP11 PP11+4, PP12
PP12 PP13
PS PS1+1, PS12
PS0 PS+2
PS12 PS13
RS RP+4, ED+7, D11
SAVE PP13+1, D13+1, ZIS+10
SCREEN PP11, D11
TITLE PP+7, PP13, PS13, ED+9, D13
TYPE PP+1, PP+7, PP11, ED+9
XIT START+2, RTYPE+3, TYPE+7, TYPE+9, ZIS+11, ZIS+14
XIT1 ZIS+5
ZIS PP+8, PP13+1, PS13+1, ED+10, D13+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H ADD1+2*
>> BWGRBD BD+3*, ED+1, ED+5
>> BWGRBDD PP+3, PP11+4, ED+5*
BWGRCAND PP+2, PP+3, ED+8, ADD+1!, ADD+10*
>> BWGRCNTL SCREEN+1*
>> BWGRCTYP ZIS+6, ADD+12*
>> BWGRD ED+5*
>> BWGRDONE ZIS+3*
BWGRDTR START+1!, PP+4*, PP11+1, ED+6
>> BWGRED ED+4*, ED+5
>> BWGREDD PP+3, PP11+4, ED+5*
>> BWGREP1 ADD+4, ADD+8
>> BWGRLHDR GETDATES+1*
>> BWGRNCAN ADD+3
BWGROPT ZIS+1!, ZIS+9*, ZIS+11
>> BWGRPCNT TYPE+1*
>> BWGRPTCT TYPE+1*
>> BWGRPTVS RTYPE+1*, RTYPE+4*, TYPE+4, TYPE+5, TYPE+6, TYPE+8
>> BWGRQMAN PS+1
BWGRQUIT START+1!, PP+1!, PP+7!, PP11!, PP12!, PP13!, PS+3, PS1+1, PS12!, PS13!
, PS0+2*, RP+2*, ED+7!, ED+9!, D11!, D12!, D13!, ZIS+8*, ZIS+10, ADD+6*
, ADD+9*, ADD1+2*
>> BWGRRPT PP+3, PP11, PP12, PS12, D11, D12, DEL+1, ADD+10*, ADD+12, ADD+13
, ADD1+3*, ADD1+6
>> BWGRSEAT PS0+3*, RP+3*, ADD+4
>> BWGRSORT ADD+12*
>> BWGRSORV ADD+12*
>> BWGRSPAG ADD+12*
>> BWGRTCW PP12*, PS12*, D12*, ZIS+2*, ADD+13*, INFORM+1*
BWGRTYPE TYPE+2!, TYPE+8*, TYPE+9
>> D ADD+8*
DA RTYPE+2!, PS0+1!, RP+1!, ZIS+7!, DEL+1*!, ADD+8!, ADD1+2!, ADD1+4!
DD ADD1+4!
DFOUT EOP+4!
DIADD ADD1+2*!, ADD1+4!
DIC PS0+1*!, RP+1*!, DEL+1!, ADD+8*!, ADD1+2*!, ADD1+4!
DIC("A" PS0+1*, RP+1*, ADD+8*
DIC("DR" ADD1+2*
DIC("S" PS0+1*, RP+1*, ADD+8*
DIC(0 PS0+1*, RP+1*, ADD+8*, ADD1+2*
DICR PS0+1!, RP+1!
DIK DEL+1*!
DINUM ADD1+4!
DIR RTYPE+2!, TYPE+3!, TYPE+6!, BD+1!, ED+1!, ZIS+7!, ADD+5!, PAUSE+2!, EOP+3~
DIR("A" RTYPE+2*, TYPE+6*, BD+1*, ED+1*, ZIS+7*, ADD+5*, PAUSE+2*
DIR("B" RTYPE+2*, TYPE+4*, TYPE+5*, ZIS+7*, ADD+5*
DIR(0 RTYPE+2*, TYPE+4*, TYPE+5*, BD+1*, ED+1*, ZIS+7*, ADD+5*, PAUSE+2*, EOP+5*
DIRUT RTYPE+3, TYPE+6*, TYPE+7, PP+3, PP11+4, BD+1*, BD+2, ED+1*, ED+2, ZIS+8
, ADD+5*, ADD+6, PAUSE+2*, EOP+4!
DLAYGO ADD1+2*!, ADD1+4!
DLOUT EOP+4!
DR PS0+1!, RP+1!, ADD+8!, ADD1+2!, ADD1+4!
DTOUT EOP+4!
DUOUT TYPE+6, BD+1, ED+1, ADD+5, PAUSE+2, EOP+4!
DUZ ADD1+2, USR+1
DUZ(2 LOC+1
IO PAUSE+1
IO("S" EOP+2
IO(0 PAUSE+1
IOF INFORM+2
IOM ZIS+2, CTR+1
IOST PAUSE+1, EOP+1
>> IOT EOP+2
J INFORM+7*, INFORM+8!
T INFORM+7*, INFORM+8!
U PP+3, DEL+1, ADD+12, ADD+13, ADD1+2, USR+1, LOC+1
X TYPE+3!, BD+1!, ED+1!, ED+5, ADD+13*, ADD1+2*, ADD1+4!, INFORM+7*, INFORM+8!, CTR~
, CTR+1
>> X1 ED+5*
>> X2 ED+5*
>> XBIOP BROWSE+2*
>> XBNS ZIS+12*
>> XBRC ZIS+12*, BROWSE+2*
>> XBRP ZIS+12*, BROWSE+1*
>> XBRX ZIS+12*, BROWSE+2*
Y RTYPE+4, TYPE+3!, TYPE+8, PS0+2, PS0+3, RP+2, RP+3, BD+1!, BD+3, ED+1!
, ED+3, ED+4, ED+5*, ZIS+9, ADD+7, ADD+9, ADD+10, ADD1+2, ADD1+3, ADD1+4!
, CTR~, CTR+1
>> ZTQUEUED EOP+2

Marked Items

Name Field # of Occurrence
$T(@T+J INFORM+7
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 |  Marked Items |  All