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* |