BWMDE ;IHS/ANMC/MWR - EXPORT MDE'S FOR CDC.;29-Oct-2003 21:28;PLS
Source file <BWMDE.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DATES | ;EP ; Select data range for export. | |
| LOAD(BWBEGDT,BWENDDT,BWLOC,BWHCF,BWCC,BWPRV,BWCUTF,BWCUTO) | ;EP;TO QUEUE EXPORT TO RUN IN BACKGROUND ; BWBEGDT - BEGINNING DATE FOR EXPORT ; BWENDDT - ENDING DATE FOR EXPORT ; BWLOC - ARRAY OF LOCATIONS TO INCLUDE ; BWHCF - ARRAY OF HEALTH CARE FACILITIES TO INCLUDE ; BWCC - ARRAY OF COMMUNITIES TO INCLUDE ; BWPRV - ARRAY OF PROVIDERS TO INCLUDE ; BWCUTF - YOUNGEST AGE TO INCLUDE ; BWCUTO - OLDEST AGE TO INCLUDE | |
| S2 | ;FOR SILENT CALL | |
| S1 | ;EP;TO RUN EXPORT IN BACKGROUND | |
| START | ;EP | |
| EXIT | ; | |
| EXTRACT | ;EP | |
| EXPORT | ;EP ; Called by option "BW CDC EXPORT DATA" exports data. | |
| DATA | ;EP ; Retreive data and store in ^BWTMP(. | |
| INCCHK(BWDFN,PROCDT) | ; EP ; Input: PROCDT - Date of procedure ; Returns: 0=exclude procedure; 1=include procedure | |
| SELECT | ;EP | 
| Name | Field # of Occurrence | 
|---|---|
| ^%ZISC | DATA+13 | 
| $$OPEN^%ZISH | DATA+12 | 
| ^%ZTLOAD | LOAD+18 | 
| $$DOD^AUPNPAT | DATA+55 | 
| BUILD^BWMDE1 | DATA+68 | 
| CHECKS^BWMDE4 | START+3, S1+2 | 
| ERROR^BWMDEU1 | DATA+14 | 
| HFS^BWMDEU1 | S2+3 | 
| SELECT^BWSELECT | DATES+14, DATES+18, DATES+24, DATES+28 | 
| $$AGEAT^BWUTL1 | DATA+55 | 
| $$CURCOM^BWUTL1 | DATA+61 | 
| ASKDATES^BWUTL3 | DATES+7 | 
| DIRZ^BWUTL3 | START+15, DATES+60 | 
| $$AGENCY^BWUTL5 | DATES+23 | 
| SETVARS^BWUTL5 | START+2, S1+1 | 
| TITLE^BWUTL5 | SELECT+2 | 
| KILLALL^BWUTL8 | EXIT+1 | 
| ^DIR | START+7, DATES+37, DATES+47, DATES+59 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^BWP - [#9002086] | INCCHK+5, INCCHK+6 | 
| ^BWPCD - [#9002086.1] | DATA+23, DATA+24, DATA+25 | 
| ^BWPCD("D" | DATA+20, DATA+22, DATA+23! | 
| ^BWSITE - [#9002086.02] | START+11, START+12, DATES+6, DATA+6, DATA+10, DATA+11, EXPORT+6, EXTRACT+11 | 
| ^BWTMP($J | DATA+17! | 
| ^DPT - [#2] | DATA+52 | 
| ^TMP("BWTPCD" | DATA+70* | 
| Name | Line Occurrences | 
|---|---|
| $$INCCHK | DATA+53 | 
| DATA | S2+1 | 
| DATES | DATES+9 | 
| EXIT | START+3, START+5, S2+2, S1+2 | 
| EXPORT | BWMDE+10 | 
| LOAD | START+16 | 
| S2 | S1+3 | 
| SELECT | START+4 | 
| START | EXPORT+7, EXTRACT+13 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AGE | DATA+49~, DATA+55*, DATA+56, DATA+57 | 
| >> BW0 | DATA+25*, DATA+29, DATA+30, DATA+31, DATA+32, DATA+35, DATA+38, DATA+41, DATA+45, DATA+50 , DATA+53, DATA+61, DATA+65, DATA+70 | 
| >> BW2 | DATA+25*, DATA+30 | 
| BWBEGDT | START+16, LOAD~, LOAD+10, DATES+7, DATES+9, DATA+18, EXPORT+3~, EXTRACT+3~ | 
| BWCC | START+16, LOAD~, LOAD+9*, LOAD+13 | 
| BWCC( | DATA+60 | 
| BWCC("ALL" | LOAD+13*, DATES+23*, DATA+60 | 
| BWCDCV | START+12, DATA+6*, DATA+11, DATA+68, EXPORT+3~, EXPORT+6*, EXTRACT+3~, EXTRACT+11* | 
| >> BWCUR | DATA+60, DATA+61* | 
| BWCUTF | START+16, LOAD~, LOAD+10, DATES+41*, DATA+56, EXPORT+3~, EXTRACT+3~ | 
| BWCUTO | START+16, LOAD~, LOAD+10, DATES+49*, DATA+57, EXPORT+3~, EXTRACT+3~ | 
| BWDFN | DATA+49~, DATA+50*, DATA+51, DATA+52, DATA+53, DATA+55, INCCHK~, INCCHK+4, INCCHK+5, INCCHK+6 | 
| >> BWDT | DATA+18*, DATA+20*, DATA+22, DATA+23 | 
| BWENDDT | START+16, LOAD~, LOAD+10, DATES+7, DATA+18, DATA+20, EXPORT+3~, EXTRACT+3~ | 
| >> BWENDT | DATA+18* | 
| >> BWFLNM | START+12*, START+13, DATA+11*, DATA+12 | 
| BWHCF | START+16, LOAD~, LOAD+9*, LOAD+12 | 
| BWHCF( | DATA+45 | 
| BWHCF("ALL" | LOAD+12*, DATA+45 | 
| >> BWIEN | DATA+21*, DATA+22*, DATA+23, DATA+24, DATA+25, DATA+68, DATA+70 | 
| BWLOC | START+16, LOAD~, LOAD+9*, LOAD+11 | 
| BWLOC( | DATA+38 | 
| BWLOC("ALL" | LOAD+11*, DATA+38 | 
| >> BWMAM | DATA+31*, DATA+32* | 
| >> BWNOFAC | DATA+18*, DATA+41* | 
| >> BWOFAC | DATA+18*, DATA+45* | 
| >> BWPAP | DATA+31*, DATA+32* | 
| >> BWPATH | START+11*, START+13, DATA+10*, DATA+12 | 
| BWPOP | START+3, START+5, S2+2, S1+2, DATES+7, DATES+8, DATES+14, DATES+15, DATES+18, DATES+19 , DATES+24, DATES+25, DATES+28, DATES+29, DATES+40*, DATES+48*, DATES+53, DATES+60*, DATA+12*, DATA+14* , EXPORT+3~, EXTRACT+3~ | 
| BWPRV | START+16, LOAD~, LOAD+9*, LOAD+14 | 
| BWPRV( | DATA+65 | 
| BWPRV("ALL" | LOAD+14*, DATA+65 | 
| BWSILENT | LOAD+15*, DATA+3, EXPORT+3~, EXTRACT+3~ | 
| BWSTTDT | DATES+6*, DATES+7, DATES+9, EXPORT+3~, EXTRACT+3~ | 
| BWTITLE | LOAD+16, SELECT+2, EXPORT+3~, EXPORT+4*, EXTRACT+3~, EXTRACT+9* | 
| >> BWTSEL | DATA+51 | 
| >> BWTSEL( | DATA+51 | 
| BWXPORT | START+12, DATES+53, DATA+11, EXPORT+3~, EXPORT+4*, EXTRACT+3~, EXTRACT+12* | 
| DIR | START+8!, DATES+33~, DATES+38!, DATES+42~, DATES+47!, DATES+54~ | 
| DIR("?" | DATES+35*, DATES+44*, DATES+45*, DATES+56*, DATES+57* | 
| DIR("A" | START+6*, DATES+36*, DATES+46*, DATES+58* | 
| DIR("B" | START+6*, DATES+36*, DATES+46*, DATES+58* | 
| DIR(0 | START+6*, DATES+36*, DATES+46*, DATES+58* | 
| >> DIRUT | START+9, DATES+40, DATES+48, DATES+60 | 
| DT | START+12, DATA+11, DATA+55 | 
| DUZ(2 | START+11, START+12, DATES+6, DATES+18, DATES+23, DATA+6, DATA+10, DATA+11, EXPORT+6, EXTRACT+11 | 
| ELGDT | INCCHK+3~, INCCHK+6*, INCCHK+7, INCCHK+8 | 
| ELGV | INCCHK+3~, INCCHK+5*, INCCHK+7, INCCHK+8 | 
| IOF | DATA+3 | 
| PROCDT | INCCHK~, INCCHK+4, INCCHK+8 | 
| U | START+11, START+12, DATES+6, DATA+6, DATA+10, DATA+11, DATA+24, DATA+29, DATA+30, DATA+31 , DATA+32, DATA+35, DATA+38, DATA+41, DATA+45, DATA+50, DATA+53, DATA+61, DATA+65, DATA+70 , INCCHK+5, INCCHK+6, EXPORT+6, EXTRACT+11 | 
| >> Y | START+10, DATES+41, DATES+49, DATES+60 | 
| >> ZTDESC | LOAD+16* | 
| >> ZTDTH | LOAD+16* | 
| >> ZTIO | LOAD+16* | 
| >> ZTQUEUED | DATA+3 | 
| >> ZTRTN | LOAD+16* | 
| >> ZTSAVE("BW*" | LOAD+17* |