BWMDE4 ;IHS/ANMC/MWR - EXPORT MDE'S FOR CDC.;06-Oct-2003 15:36;DKM
;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; CALLED BY BWMDE IN EXPORT DATA OF TO CDC.
;
;
SETS ;EP
Q
;
CHECKS ;EP
N Y S Y=^BWSITE(DUZ(2),0)
I '$P(Y,U,12) D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""CDC Export:"" set to NO."
I '$P(Y,U,16) D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""FIPS County Code:"" not set."
I '$P(Y,U,11) D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""FIPS Program Code:"" not set."
I $P(Y,U,13)="" D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""CDC Tribal Pgm Abbreviation:"" not set."
I '$P(Y,U,17) D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""Date CDC Funding Began:"" not set."
I $P(Y,U,14)="" D S BWPOP=1
.W:'$D(BWSILENT) !?5,"Site Parameter ""Host File Path:"" not set."
I BWPOP D DIRZ^BWUTL3 S BWPOP=1
Q
;
SAVELOG ;EP
I '$D(BWSILENT) D
.W !!," The CDC Export Log contains a listing of CDC exports,"
.W !," their dates, numbers of records exported, and host filenames."
.W !!," Do you wish to save this export in the CDC Export Log?"
.S DIR("?",1)=" Enter YES to save the date, number of records, and"
.S DIR("?")=" filename in the CDC Export Log."
.S DIR(0)="YO",DIR("A")=" Enter Yes or No"
.D ^DIR W !
.Q:Y<1
S DIC("DR")=".02////"_BWCOUNT_";.03////"_BWPATH_BWFLNM
D FILE^BWFMAN(9002086.92,DIC("DR"),"ML",DT,9002086,.Y)
;---> IF Y<0, CHECK PERMISSIONS.
I Y<0 W:'$D(BWSILENT) !!,*7,"UNABLE TO LOG THIS EXPORT." D DIRZ^BWUTL3
Q
;
LOG ;EP
;---> PRINT EXPORT LOG.
S DIOEND="W:$E(IOST)'=""C"" @IOF D:$E(IOST)=""C"" DIRZ^BWUTL3"
S DIC=9002086.92,FLDS="[BW CDC EXPORT LOG]",BY=".01",FR="",TO=""
D EN1^DIP
D KILLALL^BWUTL8
Q
;
HELP1 ;EP
;;If you send the extract to the Host File, it can then be copied
;;to a floppy disc or transmitted to another computer using utilities
;;such as uucp or ftp.
;;
;;If you send the extract to your Screen, all of the records will
;;display in a scroll fashion very quickly. This may be useful if
;;you are attempting to "capture" the file on a PC monitor and
;;download it to a drive on the PC. (Refer to your communications
;;software documentation for information on how to perform such
;;procedures.)
S BWTAB=5,BWLINL="HELP1" D HELPTX
Q
;
HELPTX ;EP
N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
Q
BWMDE4 ;IHS/ANMC/MWR - EXPORT MDE'S FOR CDC.;06-Oct-2003 15:36;DKM
+1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; CALLED BY BWMDE IN EXPORT DATA OF TO CDC.
+4 ;
+5 ;
SETS ;EP
+1 QUIT
+2 ;
CHECKS ;EP
+1 NEW Y
SET Y=^BWSITE(DUZ(2),0)
+2 IF '$PIECE(Y,U,12)
Begin DoDot:1
+3 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""CDC Export:"" set to NO."
End DoDot:1
SET BWPOP=1
+4 IF '$PIECE(Y,U,16)
Begin DoDot:1
+5 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""FIPS County Code:"" not set."
End DoDot:1
SET BWPOP=1
+6 IF '$PIECE(Y,U,11)
Begin DoDot:1
+7 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""FIPS Program Code:"" not set."
End DoDot:1
SET BWPOP=1
+8 IF $PIECE(Y,U,13)=""
Begin DoDot:1
+9 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""CDC Tribal Pgm Abbreviation:"" not set."
End DoDot:1
SET BWPOP=1
+10 IF '$PIECE(Y,U,17)
Begin DoDot:1
+11 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""Date CDC Funding Began:"" not set."
End DoDot:1
SET BWPOP=1
+12 IF $PIECE(Y,U,14)=""
Begin DoDot:1
+13 IF '$DATA(BWSILENT)
WRITE !?5,"Site Parameter ""Host File Path:"" not set."
End DoDot:1
SET BWPOP=1
+14 IF BWPOP
DO DIRZ^BWUTL3
SET BWPOP=1
+15 QUIT
+16 ;
SAVELOG ;EP
+1 IF '$DATA(BWSILENT)
Begin DoDot:1
+2 WRITE !!," The CDC Export Log contains a listing of CDC exports,"
+3 WRITE !," their dates, numbers of records exported, and host filenames."
+4 WRITE !!," Do you wish to save this export in the CDC Export Log?"
+5 SET DIR("?",1)=" Enter YES to save the date, number of records, and"
+6 SET DIR("?")=" filename in the CDC Export Log."
+7 SET DIR(0)="YO"
SET DIR("A")=" Enter Yes or No"
+8 DO ^DIR
WRITE !
+9 IF Y<1
QUIT
End DoDot:1
+10 SET DIC("DR")=".02////"_BWCOUNT_";.03////"_BWPATH_BWFLNM
+11 DO FILE^BWFMAN(9002086.92,DIC("DR"),"ML",DT,9002086,.Y)
+12 ;---> IF Y<0, CHECK PERMISSIONS.
+13 IF Y<0
IF '$DATA(BWSILENT)
WRITE !!,*7,"UNABLE TO LOG THIS EXPORT."
DO DIRZ^BWUTL3
+14 QUIT
+15 ;
LOG ;EP
+1 ;---> PRINT EXPORT LOG.
+2 SET DIOEND="W:$E(IOST)'=""C"" @IOF D:$E(IOST)=""C"" DIRZ^BWUTL3"
+3 SET DIC=9002086.92
SET FLDS="[BW CDC EXPORT LOG]"
SET BY=".01"
SET FR=""
SET TO=""
+4 DO EN1^DIP
+5 DO KILLALL^BWUTL8
+6 QUIT
+7 ;
HELP1 ;EP
+1 ;;If you send the extract to the Host File, it can then be copied
+2 ;;to a floppy disc or transmitted to another computer using utilities
+3 ;;such as uucp or ftp.
+4 ;;
+5 ;;If you send the extract to your Screen, all of the records will
+6 ;;display in a scroll fashion very quickly. This may be useful if
+7 ;;you are attempting to "capture" the file on a PC monitor and
+8 ;;download it to a drive on the PC. (Refer to your communications
+9 ;;software documentation for information on how to perform such
+10 ;;procedures.)
+11 SET BWTAB=5
SET BWLINL="HELP1"
DO HELPTX
+12 QUIT
+13 ;
HELPTX ;EP
+1 NEW I,T,X
SET T=""
FOR I=1:1:BWTAB
SET T=T_" "
+2 FOR I=1:1
SET X=$TEXT(@BWLINL+I)
IF X'[";;"
QUIT
SET DIR("?",I)=T_$PIECE(X,";;",2)
+3 SET DIR("?")=DIR("?",I-1)
KILL DIR("?",I-1)
+4 QUIT
