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

Package: IHS GPRA Information System

Routine: BGP7DCHA


Information

BGP7DCHA ; IHS/CMI/LAB - ihs area GPRA 02 Sep 2004 1:11 PM ;

Source Information

Source file <BGP7DCHA.m>

Call Graph

Call Graph Total: 9

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

Entry Points

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

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^BGP7ASL ASU+6
$$LZERO^BGP7UTL HWSF3+7
^DIR ASU+3, EISSEX+16, ONEF+17, B+6, F+8, EOP+5
^XBFMK EISSEX+13, EXIT+4
EN^XBVK EXIT+2
$$FMTE^XLFDT TP+19
$$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: BGP7DCHA+6
Function Call: WRITE
  • Prompt: !!,"This option is used to produce an area aggregate Height and"
  • Line Location: BGP7DCHA+7
Function Call: WRITE
  • Prompt: !,"Weight Export file. This is a single delimited file that will be comprised"
  • Line Location: BGP7DCHA+8
Function Call: WRITE
  • Prompt: !,"of height and weight data. This file should be exported to the Division"
  • Line Location: BGP7DCHA+9
Function Call: WRITE
  • Prompt: !,"of Epidemiology, where it will construct frequency curves of BMI as"
  • Line Location: BGP7DCHA+10
Function Call: WRITE
  • Prompt: !,"a GPRA developmental performance measure.",!!
  • Line Location: BGP7DCHA+11
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+5
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+11
Function Call: WRITE
  • Prompt: !,"This file will contain height and weight data for the time period"
  • Line Location: TP+18
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(BGPBBD)," through ",$$FMTE^XLFDT(BGPED)," for all Active Clinical"
  • Line Location: TP+19
Function Call: WRITE
  • Prompt: !,"patients 0-18 who have both a height and weight value documented"
  • Line Location: TP+20
Function Call: WRITE
  • Prompt: !,"on a visit and for all Active Clinical patients age 19 and older who"
  • Line Location: TP+21
Function Call: WRITE
  • Prompt: !,"have a height and/or weight value documented on a visit."
  • Line Location: TP+22
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)
^%ZOSF("OS" EISSEX+3
^AUTTAREA - [#9999999.21] BGP7DCHA+5
^AUTTAREA("C" BGP7DCHA+5
^AUTTLOC - [#9999999.06] BGP7DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2
^AUTTSITE(1 EISSEX+3, EISSEX+4
^BGPGPDCA - [#90530.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 BGP7DCHA+6
$$D EISSEX+6, EISSEX+10, HWSF3+7, HWSF1+2
EXIT INTRO+1, ASU+7, EISSEX+17, EISSEX+18, DRIVER+3
F B+10, F+12
GS DRIVER+1
HWSF1 HWSF3+1
HWSF2 GS+18
HWSF3 GS+19

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BDWC EISSEX+7*
>> BGP7RPTH TP+2*
>> BGPA BGP7DCHA+5*, BGP7DCHA+6
>> BGPAREAA TP+1*
>> BGPASUF EISSEX+5*, EISSEX+12*
>> BGPBBD TP+15*, TP+19
>> BGPBD TP+14*, EISSEX+10, HWSF3+7, HWSF1+2, F+13*
>> BGPBED TP+15*
>> BGPBEN TP+2*
>> BGPBPER B+1*, B+11*
>> BGPC HWSF3+13*, HWSF3+14, HWSF3+16*, HWSF1+9*
>> BGPCHWE ASU+5*
>> BGPED TP+14*, TP+19, 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+16*
>> BGPPED TP+16*
>> BGPPER TP+17*, F+1*, F+13*
>> BGPQTR TP+17*
>> 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+3*, EISSEX+4*, 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 BGP7DCHA+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 BGP7DCHA+4
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
U BGP7DCHA+5, EISSEX+3, EISSEX+4, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2, USR+1, LOC+1
X ASU+8*, EISSEX+7*, EISSEX+14!, CTR~, CTR+1
Y 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, GS+15, HWSF3+10, HWSF1+4, HWSF1+6, EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All