- ACDRL3 ;IHS/ADC/EDE/KML - LISTER;
- ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- ;
- ;
- COUNT ;EP
- W !! S DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing"_$S(ACDPTVS="V":";F:Flat ASCII file (pre-defined record format)",1:"")
- S DIR("A")="Choose Type of Report",DIR("B")="D" D ^DIR K DIR W !!
- S:$D(DUOUT) DIRUT=1
- I $D(DIRUT) S ACDQUIT=1 Q
- S ACDCTYP=Y
- I ACDCTYP="T" S $P(^ACDRPTD(ACDRPT,0),U,5)=1 S:ACDPTVS="V" ACDSORT=19,ACDSORV="Visit Date" S:ACDPTVS="P" ACDSORT=119,ACDSORV="Patient Name" Q
- I ACDCTYP="D" D PRINT Q:$D(ACDQUIT) D SORT Q
- I ACDCTYP="F" D FLAT Q:$D(ACDQUIT) S $P(^ACDRPTD(ACDRPT,0),U,5)=1 S:ACDPTVS="V" ACDSORT=19,ACDSORV="Visit Date" S:ACDPTVS="P" ACDSORT=119,ACDSORV="Patient Name" Q
- D SORT
- Q
- PRINT ;
- S ACDCNTL="P" D ^ACDRL4 K ACDCNTL
- Q
- SORT ;
- K ACDSORT,ACDSORV,ACDQUIT
- I ACDCTYP="D",'$D(^ACDRPTD(ACDRPT,12)) W !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) S ACDQUIT=1 Q
- S ACDSORT=""
- D SHOWR^ACDRLS
- S ACDCNTL="R" D ^ACDRL4 K ACDCNTL
- Q:ACDCTYP'="D"
- PAGE ;
- K ACDSPAG
- Q:ACDCTYP'="D"
- S DIR(0)="Y",DIR("A")="Do you want a separate page for each "_ACDSORV,DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- I $D(DIRUT) G SORT
- S ACDSPAG=Y,DIE="^ACDRPTD(",DA=ACDRPT,DR=".04///"_ACDSPAG D CALLDIE^ACDRLU1
- Q
- FLAT ;
- S ACDFILE="ACD"_DUZ_"."
- S X2=$E(DT,1,3)_"0101",X1=DT D ^%DTC S ACDJD=X+1
- S ACDFILE=ACDFILE_ACDJD
- W !!,"I am going to create a file called ",ACDFILE," 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,"********** ",ACDFILE," **********",!
- 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 ",ACDFILE,!
- 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 ACDQUIT=1 Q
- S DA=ACDRPT,DR=".12///"_ACDFILE,DIE="^ACDRPTD(" D ^DIE
- K DIE,DA,DR
- Q
- ACDRL3 ;IHS/ADC/EDE/KML - LISTER;
- +1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- +2 ;
- +3 ;
- COUNT ;EP
- +1 WRITE !!
- SET DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing"_$SELECT(ACDPTVS="V":";F:Flat ASCII file (pre-defined record format)",1:"")
- +2 SET DIR("A")="Choose Type of Report"
- SET DIR("B")="D"
- DO ^DIR
- KILL DIR
- WRITE !!
- +3 IF $DATA(DUOUT)
- SET DIRUT=1
- +4 IF $DATA(DIRUT)
- SET ACDQUIT=1
- QUIT
- +5 SET ACDCTYP=Y
- +6 IF ACDCTYP="T"
- SET $PIECE(^ACDRPTD(ACDRPT,0),U,5)=1
- IF ACDPTVS="V"
- SET ACDSORT=19
- SET ACDSORV="Visit Date"
- IF ACDPTVS="P"
- SET ACDSORT=119
- SET ACDSORV="Patient Name"
- QUIT
- +7 IF ACDCTYP="D"
- DO PRINT
- IF $DATA(ACDQUIT)
- QUIT
- DO SORT
- QUIT
- +8 IF ACDCTYP="F"
- DO FLAT
- IF $DATA(ACDQUIT)
- QUIT
- SET $PIECE(^ACDRPTD(ACDRPT,0),U,5)=1
- IF ACDPTVS="V"
- SET ACDSORT=19
- SET ACDSORV="Visit Date"
- IF ACDPTVS="P"
- SET ACDSORT=119
- SET ACDSORV="Patient Name"
- QUIT
- +9 DO SORT
- +10 QUIT
- PRINT ;
- +1 SET ACDCNTL="P"
- DO ^ACDRL4
- KILL ACDCNTL
- +2 QUIT
- SORT ;
- +1 KILL ACDSORT,ACDSORV,ACDQUIT
- +2 IF ACDCTYP="D"
- IF '$DATA(^ACDRPTD(ACDRPT,12))
- WRITE !!,"NO PRINT FIELDS SELECTED!!",$CHAR(7),$CHAR(7)
- SET ACDQUIT=1
- QUIT
- +3 SET ACDSORT=""
- +4 DO SHOWR^ACDRLS
- +5 SET ACDCNTL="R"
- DO ^ACDRL4
- KILL ACDCNTL
- +6 IF ACDCTYP'="D"
- QUIT
- PAGE ;
- +1 KILL ACDSPAG
- +2 IF ACDCTYP'="D"
- QUIT
- +3 SET DIR(0)="Y"
- SET DIR("A")="Do you want a separate page for each "_ACDSORV
- SET DIR("B")="N"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +4 IF $DATA(DIRUT)
- GOTO SORT
- +5 SET ACDSPAG=Y
- SET DIE="^ACDRPTD("
- SET DA=ACDRPT
- SET DR=".04///"_ACDSPAG
- DO CALLDIE^ACDRLU1
- +6 QUIT
- FLAT ;
- +1 SET ACDFILE="ACD"_DUZ_"."
- +2 SET X2=$EXTRACT(DT,1,3)_"0101"
- SET X1=DT
- DO ^%DTC
- SET ACDJD=X+1
- +3 SET ACDFILE=ACDFILE_ACDJD
- +4 WRITE !!,"I am going to create a file called ",ACDFILE," 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,"********** ",ACDFILE," **********",!
- +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 ",ACDFILE,!
- +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 ACDQUIT=1
- QUIT
- +12 SET DA=ACDRPT
- SET DR=".12///"_ACDFILE
- SET DIE="^ACDRPTD("
- DO ^DIE
- +13 KILL DIE,DA,DR
- +14 QUIT
