- AMHRL3 ; IHS/CMI/LAB - LISTER ;
- ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- ;
- ;
- COUNT ;EP
- W !! S DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing"_$S(AMHPTVS="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 AMHQUIT=1 Q
- S AMHCTYP=Y
- I AMHCTYP="T" S $P(^AMHTRPT(AMHRPT,0),U,5)=1 S:AMHPTVS="V" AMHSORT=19,AMHSORV="Encounter Date" S:AMHPTVS="P" AMHSORT=70,AMHSORV="Patient Name" S:AMHPTVS="S" AMHSORT=129,AMHSORV="Date of Suicide Act" Q
- I AMHCTYP="D" D PRINT Q:$D(AMHQUIT) D SORT Q
- I AMHCTYP="F" D FLAT S:AMHPTVS="S" AMHSORT=129,AMHSORV="Date of Suicide Act" Q:$D(AMHQUIT) S $P(^AMHTRPT(AMHRPT,0),U,5)=1 S:AMHPTVS="V" AMHSORT=19,AMHSORV="Encounter Date" S:AMHPTVS="P" AMHSORT=70,AMHSORV="Patient Name" Q
- D SORT
- Q
- PRINT ;
- S AMHCNTL="P" D ^AMHRL4
- Q
- SORT ;
- K AMHSORT,AMHSORV,AMHQUIT
- I AMHCTYP="D",'$D(^AMHTRPT(AMHRPT,12)) W !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) S AMHQUIT=1 Q
- S AMHSORT=""
- D SHOWR^AMHRLS
- S AMHCNTL="R" D ^AMHRL4 K AMHCNTL
- I '$D(AMHSORV) S AMHQUIT=1 Q
- Q:AMHCTYP'="D"
- PAGE ;
- K AMHSPAG
- Q:AMHCTYP'="D"
- S DIR(0)="Y",DIR("A")="Do you want a separate page for each "_AMHSORV,DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- I $D(DIRUT) G SORT
- S AMHSPAG=Y,DIE="^AMHTRPT(",DA=AMHRPT,DR=".04///"_AMHSPAG D CALLDIE^AMHLEIN
- Q
- FLAT ;
- S AMHFILE="AMH"_DUZ_"."
- S X2=$E(DT,1,3)_"0101",X1=DT D ^%DTC S AMHJD=X+1
- S AMHFILE=AMHFILE_AMHJD
- W !!,"I am going to create a file called ",AMHFILE," 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,"********** ",AMHFILE," **********",!
- 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 ",AMHFILE,!
- 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 AMHQUIT=1 Q
- S DA=AMHRPT,DR=".12///"_AMHFILE,DIE="^AMHTRPT(" D ^DIE
- K DIE,DA,DR
- Q
- AMHRL3 ; IHS/CMI/LAB - LISTER ;
- +1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- +2 ;
- +3 ;
- COUNT ;EP
- +1 WRITE !!
- SET DIR(0)="S^T:Total Count Only;S:Sub-counts and Total Count;D:Detailed Listing"_$SELECT(AMHPTVS="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 AMHQUIT=1
- QUIT
- +5 SET AMHCTYP=Y
- +6 IF AMHCTYP="T"
- SET $PIECE(^AMHTRPT(AMHRPT,0),U,5)=1
- IF AMHPTVS="V"
- SET AMHSORT=19
- SET AMHSORV="Encounter Date"
- IF AMHPTVS="P"
- SET AMHSORT=70
- SET AMHSORV="Patient Name"
- IF AMHPTVS="S"
- SET AMHSORT=129
- SET AMHSORV="Date of Suicide Act"
- QUIT
- +7 IF AMHCTYP="D"
- DO PRINT
- IF $DATA(AMHQUIT)
- QUIT
- DO SORT
- QUIT
- +8 IF AMHCTYP="F"
- DO FLAT
- IF AMHPTVS="S"
- SET AMHSORT=129
- SET AMHSORV="Date of Suicide Act"
- IF $DATA(AMHQUIT)
- QUIT
- SET $PIECE(^AMHTRPT(AMHRPT,0),U,5)=1
- IF AMHPTVS="V"
- SET AMHSORT=19
- SET AMHSORV="Encounter Date"
- IF AMHPTVS="P"
- SET AMHSORT=70
- SET AMHSORV="Patient Name"
- QUIT
- +9 DO SORT
- +10 QUIT
- PRINT ;
- +1 SET AMHCNTL="P"
- DO ^AMHRL4
- +2 QUIT
- SORT ;
- +1 KILL AMHSORT,AMHSORV,AMHQUIT
- +2 IF AMHCTYP="D"
- IF '$DATA(^AMHTRPT(AMHRPT,12))
- WRITE !!,"NO PRINT FIELDS SELECTED!!",$CHAR(7),$CHAR(7)
- SET AMHQUIT=1
- QUIT
- +3 SET AMHSORT=""
- +4 DO SHOWR^AMHRLS
- +5 SET AMHCNTL="R"
- DO ^AMHRL4
- KILL AMHCNTL
- +6 IF '$DATA(AMHSORV)
- SET AMHQUIT=1
- QUIT
- +7 IF AMHCTYP'="D"
- QUIT
- PAGE ;
- +1 KILL AMHSPAG
- +2 IF AMHCTYP'="D"
- QUIT
- +3 SET DIR(0)="Y"
- SET DIR("A")="Do you want a separate page for each "_AMHSORV
- SET DIR("B")="N"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +4 IF $DATA(DIRUT)
- GOTO SORT
- +5 SET AMHSPAG=Y
- SET DIE="^AMHTRPT("
- SET DA=AMHRPT
- SET DR=".04///"_AMHSPAG
- DO CALLDIE^AMHLEIN
- +6 QUIT
- FLAT ;
- +1 SET AMHFILE="AMH"_DUZ_"."
- +2 SET X2=$EXTRACT(DT,1,3)_"0101"
- SET X1=DT
- DO ^%DTC
- SET AMHJD=X+1
- +3 SET AMHFILE=AMHFILE_AMHJD
- +4 WRITE !!,"I am going to create a file called ",AMHFILE," 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,"********** ",AMHFILE," **********",!
- +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 ",AMHFILE,!
- +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 AMHQUIT=1
- QUIT
- +12 SET DA=AMHRPT
- SET DR=".12///"_AMHFILE
- SET DIE="^AMHTRPT("
- DO ^DIE
- +13 KILL DIE,DA,DR
- +14 QUIT
