AMHRP5 ; IHS/CMI/LAB - ACTIVE CLIENT LIST ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
;
I '$D(IOF) D HOME^%ZIS
W @(IOF),!!
W "********** TALLY CASE OPEN/ADMIT/CLOSED DATES **********",!!
W "This report will count the total number of cases that were opened,",!,"admitted or closed during a date range you specify.",!
GETDATES ;
BD ;get beginning date
W !,"Please enter the date range during which the case should have been",!,"opened, admitted or closed",!
W ! S DIR(0)="D^:DT:EP",DIR("A")="Enter BEGINNING Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) G XIT
S AMHBD=Y
ED ;get ending date
W ! S DIR(0)="D^"_AMHBD_":DT:EP",DIR("A")="Enter ENDING Date" S Y=AMHBD D DD^%DT D ^DIR K DIR S:$D(DUOUT) DIRUT=1
I $D(DIRUT) G BD
S AMHED=Y
S X1=AMHBD,X2=-1 D C^%DTC S AMHSD=X S Y=AMHBD D DD^%DT S AMHBDD=Y S Y=AMHED D DD^%DT S AMHEDD=Y
;
ZIS ;
S XBRC="PROC^AMHRP5",XBRP="PRINT^AMHRP5",XBNS="AMH",XBRX="XIT^AMHRP5"
D ^XBDBQUE
XIT K ZTSK,Y,AMHBD,AMHED,IO("Q"),AMH80D,AMHBTH,AMHHRCN,AMHJOB,AMHLENG,AMHPCNT,AMHPG,AMHPROV,AMHX,DFN,DIC,DIR,DIRUT,DTOUT,DUOUT,XBNS,XBRC,XBRP,XBTX,D
K AMHPRNM,AMHPRNT,AMHPROB,AMHPRV,AMHR,AMHRCNT,AMHRLOC,AMHSD,AMHTOT,AMHBDD,AMHBT,AMHEDD,AMHEDO,AMHBDO,AMHBT,AMHFOUND,AMHHIT,AMHID,AMHLINE,AMHP
Q
;
PROC ;EP - entry point for processing
S AMHJOB=$J,AMHBTH=$H,AMHTOT=0,DFN=0,AMHBT=$H
F S DFN=$O(^AMHPATR(DFN)) Q:DFN'=+DFN D PROC1
S AMHET=$H
K DFN
Q
PROC1 ;
S X=$G(^AMHPATR(DFN,0))
I $P(X,U,5)]"",$P(X,U,5)'<AMHBD,$P(X,U,5)'>AMHED S ^("OPEN")=$S($D(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN")+1,1:1)
I $P(X,U,6)]"",$P(X,U,6)'<AMHBD,$P(X,U,6)'>AMHED S ^("ADMIT")=$S($D(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT")+1,1:1)
I $P(X,U,7)]"",$P(X,U,7)'<AMHBD,$P(X,U,7)'>AMHED S ^("CLOSED")=$S($D(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED")+1,1:1)
Q
PRINT ;EP
S Y=AMHBD D DD^%DT S AMHBDD=Y S Y=AMHED D DD^%DT S AMHEDD=Y
S AMH80D="-------------------------------------------------------------------------------"
W:$D(IOF) @IOF
W !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
W !,$P(^VA(200,DUZ,0),U,2),?72,"Page 1 ",!
W ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
W ?20,"Date Range: ",AMHBDD," to ",AMHEDD,!
W ?22,"TALLY OF CASES OPENED/ADMITTED/CLOSED",!
W AMH80D,!
I '$D(^TMP("AMHRP5",AMHJOB,AMHBTH)) W !!,"NO DATA TO REPORT" G DONE
W !?22,"CASES OPENED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN"),1:0)
W !?22,"CASES ADMITTED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT"),1:0)
W !?22,"CASES CLOSED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED"),1:0)
DONE D DONE^AMHLEIN,^AMHEKL
K ^TMP("AMHRP5",AMHJOB,AMHBTH),AMHJOB,AMHBTH
Q
AMHRP5 ; IHS/CMI/LAB - ACTIVE CLIENT LIST ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
+2 ;
+3 IF '$DATA(IOF)
DO HOME^%ZIS
+4 WRITE @(IOF),!!
+5 WRITE "********** TALLY CASE OPEN/ADMIT/CLOSED DATES **********",!!
+6 WRITE "This report will count the total number of cases that were opened,",!,"admitted or closed during a date range you specify.",!
GETDATES ;
BD ;get beginning date
+1 WRITE !,"Please enter the date range during which the case should have been",!,"opened, admitted or closed",!
+2 WRITE !
SET DIR(0)="D^:DT:EP"
SET DIR("A")="Enter BEGINNING Date"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+3 IF $DATA(DIRUT)
GOTO XIT
+4 SET AMHBD=Y
ED ;get ending date
+1 WRITE !
SET DIR(0)="D^"_AMHBD_":DT:EP"
SET DIR("A")="Enter ENDING Date"
SET Y=AMHBD
DO DD^%DT
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET DIRUT=1
+2 IF $DATA(DIRUT)
GOTO BD
+3 SET AMHED=Y
+4 SET X1=AMHBD
SET X2=-1
DO C^%DTC
SET AMHSD=X
SET Y=AMHBD
DO DD^%DT
SET AMHBDD=Y
SET Y=AMHED
DO DD^%DT
SET AMHEDD=Y
+5 ;
ZIS ;
+1 SET XBRC="PROC^AMHRP5"
SET XBRP="PRINT^AMHRP5"
SET XBNS="AMH"
SET XBRX="XIT^AMHRP5"
+2 DO ^XBDBQUE
XIT KILL ZTSK,Y,AMHBD,AMHED,IO("Q"),AMH80D,AMHBTH,AMHHRCN,AMHJOB,AMHLENG,AMHPCNT,AMHPG,AMHPROV,AMHX,DFN,DIC,DIR,DIRUT,DTOUT,DUOUT,XBNS,XBRC,XBRP,XBTX,D
+1 KILL AMHPRNM,AMHPRNT,AMHPROB,AMHPRV,AMHR,AMHRCNT,AMHRLOC,AMHSD,AMHTOT,AMHBDD,AMHBT,AMHEDD,AMHEDO,AMHBDO,AMHBT,AMHFOUND,AMHHIT,AMHID,AMHLINE,AMHP
+2 QUIT
+3 ;
PROC ;EP - entry point for processing
+1 SET AMHJOB=$JOB
SET AMHBTH=$HOROLOG
SET AMHTOT=0
SET DFN=0
SET AMHBT=$HOROLOG
+2 FOR
SET DFN=$ORDER(^AMHPATR(DFN))
IF DFN'=+DFN
QUIT
DO PROC1
+3 SET AMHET=$HOROLOG
+4 KILL DFN
+5 QUIT
PROC1 ;
+1 SET X=$GET(^AMHPATR(DFN,0))
+2 IF $PIECE(X,U,5)]""
IF $PIECE(X,U,5)'<AMHBD
IF $PIECE(X,U,5)'>AMHED
SET ^("OPEN")=$SELECT($DATA(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN")+1,1:1)
+3 IF $PIECE(X,U,6)]""
IF $PIECE(X,U,6)'<AMHBD
IF $PIECE(X,U,6)'>AMHED
SET ^("ADMIT")=$SELECT($DATA(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT")+1,1:1)
+4 IF $PIECE(X,U,7)]""
IF $PIECE(X,U,7)'<AMHBD
IF $PIECE(X,U,7)'>AMHED
SET ^("CLOSED")=$SELECT($DATA(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED")+1,1:1)
+5 QUIT
PRINT ;EP
+1 SET Y=AMHBD
DO DD^%DT
SET AMHBDD=Y
SET Y=AMHED
DO DD^%DT
SET AMHEDD=Y
+2 SET AMH80D="-------------------------------------------------------------------------------"
+3 IF $DATA(IOF)
WRITE @IOF
+4 WRITE !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
+5 WRITE !,$PIECE(^VA(200,DUZ,0),U,2),?72,"Page 1 ",!
+6 WRITE ?(80-$LENGTH($PIECE(^DIC(4,DUZ(2),0),U))/2),$PIECE(^DIC(4,DUZ(2),0),U),!
+7 WRITE ?20,"Date Range: ",AMHBDD," to ",AMHEDD,!
+8 WRITE ?22,"TALLY OF CASES OPENED/ADMITTED/CLOSED",!
+9 WRITE AMH80D,!
+10 IF '$DATA(^TMP("AMHRP5",AMHJOB,AMHBTH))
WRITE !!,"NO DATA TO REPORT"
GOTO DONE
+11 WRITE !?22,"CASES OPENED: ",?39,$SELECT($GET(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN"),1:0)
+12 WRITE !?22,"CASES ADMITTED: ",?39,$SELECT($GET(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT"),1:0)
+13 WRITE !?22,"CASES CLOSED: ",?39,$SELECT($GET(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED"),1:0)
DONE DO DONE^AMHLEIN
DO ^AMHEKL
+1 KILL ^TMP("AMHRP5",AMHJOB,AMHBTH),AMHJOB,AMHBTH
+2 QUIT
