BWGRVL3 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ; [ 08/16/01 3:48 PM ]
;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996
;
;
;IHS/CMI/LAB - modified file number
TITLE ;EP
Q:"FTC"[BWGRCTYP
K DIR,X,Y S DIR(0)="Y",DIR("A")="Would you like a custom title for this report",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) S BWGRQUIT=1 Q
Q:Y=0
S BWGRLENG=$S(BWGRTCW:BWGRTCW-8,1:60)
I Y=1 K DIR,X,Y S DIR(0)="F^3:"_BWGRLENG,DIR("A")="Enter custom title",DIR("?")=" Enter from 3 to "_BWGRLENG_" characters" D ^DIR K DIR
G:$D(DIRUT) TITLE
S BWGRTITL=Y
Q
SAVE ;EP
Q:$D(BWGRCAND) ;--- don't ask if already a pre-defined rpt
Q:BWGRCTYP'="D" ;--- must be a detailed report to be saved
S BWGRSAVE=""
K DIR,X,Y S DIR(0)="Y",DIR("A")="Do you wish to SAVE this "_$S('$D(BWGREP1):"SEARCH/",1:"")_"PRINT/SORT logic for future use",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
Q:$D(DIRUT)
Q:'Y
K DIR,X,Y S DIR(0)="9002086.88,.03",DIR("A")="Enter NAME for this REPORT DEFINITION" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
G:$D(DIRUT) SAVE
S BWGRNAME=Y
S DIE="^BWGRTRPT(",DA=BWGRRPT,DR=".02////1;.03///"_BWGRNAME_";.06///"_BWGRPTVS_";.05///"_BWGRCTYP S:$D(BWGREP1) DR=DR_";.09///"_BWGRPACK D ^DIE K DIE,DA,DR
Q
COUNT ;EP
W !!
S DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed "_$S(BWGRPTVS="R":"WH Procedure",1:"Patient")_" Listing"
S DIR("A")=" Choose Type of Report",DIR("B")="D" D ^DIR K DIR W !!
S:$D(DUOUT) DIRUT=1
I $D(DIRUT) S BWGRQUIT=1 Q
S BWGRCTYP=Y
I BWGRCTYP="T" S $P(^BWGRTRPT(BWGRRPT,0),U,5)="T" S:BWGRPTVS="R" BWGRSORT=19,BWGRSORV="Procedure Date" S:BWGRPTVS="P" BWGRSORT=1,BWGRSORV="Patient Name" Q
I BWGRCTYP="D" D PRINT Q:$D(BWGRQUIT) D SORT Q
D SORT
Q
PRINT ;
S BWGRCNTL="P"
D ^BWGRVL4
Q
SORT ;EP
K BWGRSORT,BWGRSORV,BWGRQUIT
I BWGRCTYP="D",'$D(^BWGRTRPT(BWGRRPT,12)) W !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) S BWGRQUIT=1 Q
S BWGRSORT=""
D SHOWR^BWGRVLS
S BWGRCNTL="R" D ^BWGRVL4 K BWGRCNTL
I '$D(BWGRSORV) S BWGRQUIT=1 Q
Q:BWGRCTYP'="D"
PAGE ;
K BWGRSPAG
Q:BWGRCTYP'="D"
S DIR(0)="Y",DIR("A")="Do you want a separate page for each "_BWGRSORV,DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) G SORT
S BWGRSPAG=Y,DIE="^BWGRTRPT(",DA=BWGRRPT,DR=".04///"_BWGRSPAG D ^DIE K DA,DR,DIE
Q
FLAT ;
S BWGRFILE="BWGR"_DUZ_"."
S X2=$E(DT,1,3)_"0101",X1=DT D ^%DTC S BWGRJD=X+1
S BWGRFILE=BWGRFILE_BWGRJD
W !!,"I am going to create a file called ",BWGRFILE," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",!
W "Actually, the file will be placed in the same directory that the data export"
W !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"********** ",BWGRFILE," **********",!
W "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!
W !,"As a reminder, the records that are generated and placed in file ",BWGRFILE,!
W !,"are in a standard, pre-defined record format. For a definition of the format",!,"please see your user manual.",!
S DIR(0)="Y",DIR("A")="Is everything ok? Do you want to continue?",DIR("B")="Y" K DA D ^DIR K DIR
I $D(DIRUT)!(Y'=1) S BWGRQUIT=1 Q
S DA=BWGRRPT,DR=".12///"_BWGRFILE,DIE="^BWGRTRPT(" D ^DIE
K DIE,DA,DR
Q
BWGRVL3 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ; [ 08/16/01 3:48 PM ]
+1 ;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996
+2 ;
+3 ;
+4 ;IHS/CMI/LAB - modified file number
TITLE ;EP
+1 IF "FTC"[BWGRCTYP
QUIT
+2 KILL DIR,X,Y
SET DIR(0)="Y"
SET DIR("A")="Would you like a custom title for this report"
SET DIR("B")="N"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+3 IF $DATA(DIRUT)
SET BWGRQUIT=1
QUIT
+4 IF Y=0
QUIT
+5 SET BWGRLENG=$SELECT(BWGRTCW:BWGRTCW-8,1:60)
+6 IF Y=1
KILL DIR,X,Y
SET DIR(0)="F^3:"_BWGRLENG
SET DIR("A")="Enter custom title"
SET DIR("?")=" Enter from 3 to "_BWGRLENG_" characters"
DO ^DIR
KILL DIR
+7 IF $DATA(DIRUT)
GOTO TITLE
+8 SET BWGRTITL=Y
+9 QUIT
SAVE ;EP
+1 ;--- don't ask if already a pre-defined rpt
IF $DATA(BWGRCAND)
QUIT
+2 ;--- must be a detailed report to be saved
IF BWGRCTYP'="D"
QUIT
+3 SET BWGRSAVE=""
+4 KILL DIR,X,Y
SET DIR(0)="Y"
SET DIR("A")="Do you wish to SAVE this "_$SELECT('$DATA(BWGREP1):"SEARCH/",1:"")_"PRINT/SORT logic for future use"
SET DIR("B")="N"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+5 IF $DATA(DIRUT)
QUIT
+6 IF 'Y
QUIT
+7 KILL DIR,X,Y
SET DIR(0)="9002086.88,.03"
SET DIR("A")="Enter NAME for this REPORT DEFINITION"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+8 IF $DATA(DIRUT)
GOTO SAVE
+9 SET BWGRNAME=Y
+10 SET DIE="^BWGRTRPT("
SET DA=BWGRRPT
SET DR=".02////1;.03///"_BWGRNAME_";.06///"_BWGRPTVS_";.05///"_BWGRCTYP
IF $DATA(BWGREP1)
SET DR=DR_";.09///"_BWGRPACK
DO ^DIE
KILL DIE,DA,DR
+11 QUIT
COUNT ;EP
+1 WRITE !!
+2 SET DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed "_$SELECT(BWGRPTVS="R":"WH Procedure",1:"Patient")_" Listing"
+3 SET DIR("A")=" Choose Type of Report"
SET DIR("B")="D"
DO ^DIR
KILL DIR
WRITE !!
+4 IF $DATA(DUOUT)
SET DIRUT=1
+5 IF $DATA(DIRUT)
SET BWGRQUIT=1
QUIT
+6 SET BWGRCTYP=Y
+7 IF BWGRCTYP="T"
SET $PIECE(^BWGRTRPT(BWGRRPT,0),U,5)="T"
IF BWGRPTVS="R"
SET BWGRSORT=19
SET BWGRSORV="Procedure Date"
IF BWGRPTVS="P"
SET BWGRSORT=1
SET BWGRSORV="Patient Name"
QUIT
+8 IF BWGRCTYP="D"
DO PRINT
IF $DATA(BWGRQUIT)
QUIT
DO SORT
QUIT
+9 DO SORT
+10 QUIT
PRINT ;
+1 SET BWGRCNTL="P"
+2 DO ^BWGRVL4
+3 QUIT
SORT ;EP
+1 KILL BWGRSORT,BWGRSORV,BWGRQUIT
+2 IF BWGRCTYP="D"
IF '$DATA(^BWGRTRPT(BWGRRPT,12))
WRITE !!,"NO PRINT FIELDS SELECTED!!",$CHAR(7),$CHAR(7)
SET BWGRQUIT=1
QUIT
+3 SET BWGRSORT=""
+4 DO SHOWR^BWGRVLS
+5 SET BWGRCNTL="R"
DO ^BWGRVL4
KILL BWGRCNTL
+6 IF '$DATA(BWGRSORV)
SET BWGRQUIT=1
QUIT
+7 IF BWGRCTYP'="D"
QUIT
PAGE ;
+1 KILL BWGRSPAG
+2 IF BWGRCTYP'="D"
QUIT
+3 SET DIR(0)="Y"
SET DIR("A")="Do you want a separate page for each "_BWGRSORV
SET DIR("B")="N"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+4 IF $DATA(DIRUT)
GOTO SORT
+5 SET BWGRSPAG=Y
SET DIE="^BWGRTRPT("
SET DA=BWGRRPT
SET DR=".04///"_BWGRSPAG
DO ^DIE
KILL DA,DR,DIE
+6 QUIT
FLAT ;
+1 SET BWGRFILE="BWGR"_DUZ_"."
+2 SET X2=$EXTRACT(DT,1,3)_"0101"
SET X1=DT
DO ^%DTC
SET BWGRJD=X+1
+3 SET BWGRFILE=BWGRFILE_BWGRJD
+4 WRITE !!,"I am going to create a file called ",BWGRFILE," which will reside in ",!,"the ",$SELECT($PIECE(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",!
+5 WRITE "Actually, the file will be placed in the same directory that the data export"
+6 WRITE !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"********** ",BWGRFILE," **********",!
+7 WRITE "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!
+8 WRITE !,"As a reminder, the records that are generated and placed in file ",BWGRFILE,!
+9 WRITE !,"are in a standard, pre-defined record format. For a definition of the format",!,"please see your user manual.",!
+10 SET DIR(0)="Y"
SET DIR("A")="Is everything ok? Do you want to continue?"
SET DIR("B")="Y"
KILL DA
DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)!(Y'=1)
SET BWGRQUIT=1
QUIT
+12 SET DA=BWGRRPT
SET DR=".12///"_BWGRFILE
SET DIE="^BWGRTRPT("
DO ^DIE
+13 KILL DIE,DA,DR
+14 QUIT
