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

Package: IHS GPRA Information System

Routine: BGP0DCHA


Information

BGP0DCHA ; IHS/CMI/LAB - ihs area GPRA 02 Sep 2004 1:11 PM 02 Jul 2009 2:14 PM ;

Source Information

Source file <BGP0DCHA.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS GPRA Information System 3 EN^BGP0ASL  $$LZERO^BGP0UTL  $$GETDIR^BGP0UTL2  
Kernel 3 ^%ZISC  $$OPEN^%ZISH  ($$FMTE,$$NOW)^XLFDT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP0GACW  

Entry Points

Name Comments DBIA/ICR reference
HWSF1 ;EP
EISSEX ;
HWSF3 ;
HWSF2 ;
GS ;EP - write out file
ZIS ;call to XBDBQUE
ASU ;
ONEF ;
CTR(X,Y) ;EP - Center X in a field Y wide.
F ;fiscal year
DRIVER ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
TP ;
START ;
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
EXIT ;
D(D) ;EP
B ;fiscal year
EOP ;EP - End of page.
NT ;END TEST STUFF

External References

Name Field # of Occurrence
^%ZISC DRIVER+2, EXIT+1, HWSF3+18, HWSF1+12
$$OPEN^%ZISH HWSF3+9, HWSF1+5
KILL^AUPNPAT EXIT+3
EN^BGP0ASL ASU+6
$$LZERO^BGP0UTL HWSF3+7
$$GETDIR^BGP0UTL2 EISSEX+2
^DIR ASU+3, EISSEX+16, ONEF+17, B+6, F+8, EOP+5
^XBFMK EISSEX+13, EXIT+4
EN^XBVK EXIT+2
$$FMTE^XLFDT START+2
$$NOW^XLFDT EISSEX+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR(BGPA_" Area Aggregate Height and Weight Data Export",80)
  • Line Location: BGP0DCHA+6
Function Call: WRITE
  • Prompt: !!,"This option is used to produce an area aggregate Height and"
  • Line Location: BGP0DCHA+7
Function Call: WRITE
  • Prompt: !,"Weight Export file. This is a single delimited file that will be comprised"
  • Line Location: BGP0DCHA+8
Function Call: WRITE
  • Prompt: !,"of height and weight data. This file will be used by the Division"
  • Line Location: BGP0DCHA+9
Function Call: WRITE
  • Prompt: !,"of Epidemiology, where it will construct frequency curves of BMI as"
  • Line Location: BGP0DCHA+10
Function Call: WRITE
  • Prompt: !,"a GPRA developmental performance measure.",!!
  • Line Location: BGP0DCHA+11
Function Call: WRITE
  • Prompt: !!,"for testing purposes only, please enter a report year",!
  • Line Location: TP+11
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+13
Function Call: WRITE
  • Prompt: !!,"for testing purposes only, please enter a BASELINE year",!
  • Line Location: TP+17
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+19
Function Call: WRITE
  • Prompt: !,"This file will contain height and weight data for the time period"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(BGPBD)," through ",$$FMTE^XLFDT(BGPED)," for all Active Clinical"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"patients 0-18 who have both a height and weight value documented"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"on a visit and for all Active Clinical patients age 19-65 who"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"have a height and/or weight value documented on visits during this time"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"period."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!!,"You will now be able to select which sites to use in the export.",!
  • Line Location: ASU+2
Function Call: WRITE
  • Prompt: !!,"No sites selected"
  • Line Location: ASU+7
Function Call: WRITE
  • Prompt: !!,"A total of ",C," facilities have been selected.",!!
  • Line Location: ASU+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EISSEX+15
Function Call: WRITE
  • Prompt: !!!,"An Area wide Height/Weight Export file will be created. You can choose"
  • Line Location: ONEF+2
Function Call: WRITE
  • Prompt: !,"to create one file of data or multiple files of data. If you are"
  • Line Location: ONEF+3
Function Call: WRITE
  • Prompt: !,"planning to review this data using Microsoft Excel please keep in"
  • Line Location: ONEF+4
Function Call: WRITE
  • Prompt: !,"mind that Excel can only handle 65,536 records per file. If you"
  • Line Location: ONEF+5
Function Call: WRITE
  • Prompt: !,"are using this data for your own use and will be using Microsoft"
  • Line Location: ONEF+6
Function Call: WRITE
  • Prompt: !,"Excel to review the data you must choose to create multiple files."
  • Line Location: ONEF+7
Function Call: WRITE
  • Prompt: !,"If you are creating this file to send to the Division of Epidemiology"
  • Line Location: ONEF+8
Function Call: WRITE
  • Prompt: !,"then you should select to create one file. If you want to both review"
  • Line Location: ONEF+9
Function Call: WRITE
  • Prompt: !,"and export your data you will need to run this option twice."
  • Line Location: ONEF+10
Function Call: WRITE
  • Prompt: !,"If you choose to create one file it will be called:"
  • Line Location: ONEF+11
Function Call: WRITE
  • Prompt: !?5,BGPFN,!?5,"and will reside in the ",BGPUF," directory."
  • Line Location: ONEF+12
Function Call: WRITE
  • Prompt: !,"If you have multiple files generated they will all have the"
  • Line Location: ONEF+13
Function Call: WRITE
  • Prompt: !,"same name with the last 10 characters of the filename being a"
  • Line Location: ONEF+14
Function Call: WRITE
  • Prompt: !,"of the number of files (e.g. _001_of_003)."
  • Line Location: ONEF+15
Function Call: WRITE
  • Prompt: !!,"Writing out Ht/Wt file...."
  • Line Location: GS+15
Function Call: WRITE
  • Prompt: !?10,BGPFN
  • Line Location: HWSF1+4
Function Call: WRITE
  • Prompt: "SERVICE UNIT^ASUFAC^UNIQUE DB ID^DATE RUN^BEG DATE^END DATE^PATIENT UID^DOB^TRIBE CODE^GENDER^STATE OF RESIDENCE^UNIQUE VISIT ID^DATE OF VISIT^TIME OF VISIT^HT CM^WT KG",!
  • Line Location: HWSF1+8
Function Call: WRITE
  • Prompt: !!,"Enter the BASELINE year for the report. Use a 4 digit ",!,"year, e.g. 2005"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: B+10
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,"Enter the Fiscal Year (FY) for the report END date. Use a 4 digit",!,"year, e.g. 2002, 2005"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+12
Routine Call
  • DIR
  • Line Location:
    • ASU+3
    • EISSEX+16
    • ONEF+17
    • B+6
    • F+8
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] BGP0DCHA+5
^AUTTAREA("C" BGP0DCHA+5
^AUTTLOC - [#9999999.06] BGP0DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2
^BGPCTRL - [#90241.01] TP+4
^BGPCTRL("B" TP+3
^BGPGPDCT - [#90377.03] HWSF2+1
^DIC(4 - [#4] LOC+1
^TMP($J GS+14!, HWSF2+1*, HWSF3+14, HWSF3+15, HWSF1+10, HWSF1+11
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP0DCHA+6
$$D EISSEX+6, EISSEX+10, HWSF3+7, HWSF1+2
B TP+18
EXIT INTRO+1, TP+13, TP+19, ASU+7, EISSEX+17, EISSEX+18, DRIVER+3
F TP+12, B+10, F+12
GS DRIVER+1
HWSF1 HWSF3+1
HWSF2 GS+18
HWSF3 GS+19
NT TP+10
START TP+21

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGP0RPTH TP+2*
>> BGPA BGP0DCHA+5*, BGP0DCHA+6
>> BGPAREAA TP+1*
>> BGPASUF EISSEX+5*, EISSEX+12*
>> BGPBBD TP+7*, TP+20*
>> BGPBD TP+5*, TP+15*, START+2, EISSEX+10, HWSF3+7, HWSF1+2, F+13*
>> BGPBED TP+7*, TP+20*
>> BGPBEN TP+2*
>> BGPBPER TP+19, TP+20, B+1*, B+11*
>> BGPC EISSEX+7*, HWSF3+13*, HWSF3+14, HWSF3+16*, HWSF1+9*
>> BGPCHWE ASU+5*
>> BGPED TP+5*, TP+15*, START+2, EISSEX+10, HWSF3+7, HWSF1+2, F+13*
>> BGPEXCEL EISSEX+1*
>> BGPFN EISSEX+10*, ONEF+12, HWSF3+7*, HWSF3+8, HWSF3+9, HWSF1+2*, HWSF1+3, HWSF1+4, HWSF1+5
BGPFNX GS+17!
BGPFNX( HWSF3+8*, HWSF1+3*
>> BGPLX HWSF3+5*, HWSF3+13, HWSF3+17*
>> BGPNF HWSF3+3*, HWSF3+4*, HWSF3+6, HWSF3+7
>> BGPNF1 HWSF3+2*, HWSF3+3
>> BGPNOW EISSEX+6*, EISSEX+10, HWSF3+7, HWSF1+2
>> BGPONEF ONEF+1*, ONEF+19*, HWSF3+1
>> BGPPBD TP+6*, TP+16*
>> BGPPED TP+6*, TP+16*
>> BGPPER TP+8*, TP+13, TP+15, TP+16, F+1*, F+13*
>> BGPQTR TP+8*, TP+14*
>> BGPQUIT F+10*
>> BGPRPT GS+18*, HWSF2+1
>> BGPRTYPE TP+2*
>> BGPSUCNT ASU+1*
BGPSUL ASU+4!, ASU+7
BGPSUL( ASU+8, EISSEX+7, GS+18
>> BGPTOT GS+18*, HWSF2+1*, HWSF3+2
>> BGPUF EISSEX+2*, EISSEX+8, ONEF+12, HWSF3+9, HWSF1+5
>> BGPVDT B+1*, B+9*, B+11, F+3*, F+11*, F+13
>> BGPX HWSF2+1*, HWSF3+5*, HWSF3+13*, HWSF3+14*, HWSF3+15, HWSF3+17, HWSF1+9*, HWSF1+10*, HWSF1+11
>> BGPZ HWSF3+6*, HWSF3+7, HWSF3+8, HWSF1+2*, HWSF1+3
>> C ASU+8*, ASU+9
D D~, D+1
DA ASU+3!, EISSEX+14!, EISSEX+16!, ONEF+17!
DD EISSEX+14!
DFOUT EOP+4!
DIADD EISSEX+14!
DIC EISSEX+14!, F+9!
DINUM EISSEX+14!
DIR ASU+3!, EISSEX+16!, ONEF+17!, B+6!, EOP+3~
DIR("?" B+5*, F+7*
DIR("A" ASU+3*, EISSEX+16*, ONEF+17*, B+4*, F+6*
DIR("B" EISSEX+16*, ONEF+17*
DIR(0 ASU+3*, EISSEX+16*, ONEF+17*, B+3*, F+5*, EOP+5*
DIRUT EISSEX+17, ONEF+18, B+7, B+8*, F+10*, EOP+4!
DLAYGO EISSEX+14!
DLOUT EOP+4!
DR EISSEX+14!
DTOUT EOP+4!
DUOUT B+8, F+10, EOP+4!
DUZ USR+1
DUZ(2 BGP0DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2, LOC+1
IO HWSF3+11, HWSF1+4, HWSF1+7
IO("S" EOP+2
IOF BGP0DCHA+4
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
U BGP0DCHA+5, TP+5, TP+6, TP+7, TP+8, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2
, USR+1, LOC+1
X TP+3*, TP+4, ASU+8*, EISSEX+7*, EISSEX+14!, CTR~, CTR+1
Y TP+4*, TP+5, TP+6, TP+7, TP+8, EISSEX+14!, EISSEX+18, ONEF+19, HWSF3+9*, HWSF3+10
, HWSF1+5*, HWSF1+6, B+9, B+10, F+11, F+12, CTR~, CTR+1
>> ZTQUEUED EISSEX+8, EXIT+2, GS+15, HWSF3+10, HWSF1+4, HWSF1+6, EOP+2
>> ZTREQ EXIT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All