AQAOPA5 ; IHS/ORDC/LJF - REVIEWED ACTIONS REPORT ;
;;1.01;QAI MANAGEMENT;;OCT 05, 1995
;
;This rtn includes the user interface and DIP call to print a listing
;of reviewed actions sorted in various ways.
;
TYPE ; >> choose listing vs summaries
W !! K DIR S DIR(0)="SO^L:BRIEF LISTING;S:FULL SUMMARIES"
S DIR("A")="Choose TYPE of Report to Print" D ^DIR
G END:X="",END:$D(DIRUT),END:Y=-1
I Y="L" S FLDS="[AQAO REVIEWED]"
E S FLDS="[AQAO REVIEWED WITH SUM]"
;
SORT ; >>> choose sorting order for report
W !! K DIR S DIR(0)="SO^",DIR("A")="Choose SORT ORDER for Report"
F X=1:1:5 S DIR(0)=DIR(0)_X_":By "_$P($T(RPT+X),";;",2)_";"
S DIR(0)=$E(DIR(0),1,$L(DIR(0))-1)
D ^DIR G END:$D(DIRUT),SORT:X="",END:Y=-1 S AQAORPT=+Y
S BY=$P($T(RPT+Y),";;",3) ;set sort order
I FLDS="[AQAO REVIEWED WITH SUM]" D
.S BY=$S(AQAORPT=1:"#"_BY,1:BY_",#ACTION NUMBER")
I AQAORPT=1 S AQAOSRT="?" G PRINT ;no other ques for sort by plan #
;
CHOOSE ; >>> choose all or just one entry
K DIR S DIR(0)="Y",DIR("B")="NO"
S DIR("A")="Do you wish to print ALL "_$P($T(RPT+AQAORPT),";;",2)_"S"
D ^DIR G END:$D(DIRUT)
I (AQAORPT=3)!(AQAORPT=4) G BDATE:Y=0 S AQAOSRT="" G PRINT
I Y=1 S AQAOSRT="" G PRINT
;
K DIC S DIC=$P($T(RPT+AQAORPT),";;",4),DIC(0)="AEQMZ" D ^DIC
G TYPE:$D(DIRUT),CHOOSE:Y=-1
S AQAOSRT=$P(Y,U,2) G PRINT
;
BDATE ; >>> choose beginning date for report
W !! K DIR S DIR(0)="DO^::EX"
S DIR("A")="Select BEGINNING "_$P($T(RPT+AQAORPT),";;",3)
D ^DIR I Y>DT W *7," NO FUTURE DATES" G BDATE
G TYPE:X="",END:$D(DIRUT),BDATE:Y=-1 S FR=Y
;
EDATE ; >>> choose ending occurrence date for report
W ! K DIR S DIR(0)="DO^::EX"
S DIR("A")="Select ENDING "_$P($T(RPT+AQAORPT),";;",3)
D ^DIR I Y=-1 G EDATE
I Y>DT W *7," NO FUTURE DATES" G EDATE
I Y<FR W *7," ENDING DATE MUST BE AFTER BEGINNING DATE" G BDATE
G BDATE:X="",END:$D(DIRUT),EDATE:Y=-1 S TO=Y
;
;
; >>> FIND DATA FOR SELECTED REPORT <<<
PRINT ; >>> set up variables for dip call
K DIC S DIC="^AQAO(5,",L=0 S:'$D(FR) (TO,FR)=AQAOSRT
S DIS(0)="I ($P(^AQAO(5,D0,0),U,5)=3)!($P(^(0),U,5)=4)!($P(^(0),U,5)=5)"
S DIS(1)="S Y=D0 D ACTCHK^AQAOSEC I $D(AQAOCHK(""OK""))"
D EN1^DIP K AQAOCHK("OK")
;
;
I IOST["C-" D PRTOPT^AQAOVAR
;
END D ^%ZISC,KILL^AQAOUTIL Q
;
;
RPT ;;
;;ACTION PLAN #;;ACTION NUMBER;;^AQAO(5,;;
;;ACTION TYPE;;@ACTION TYPE;;^AQAO(6,;;
;;IMPLEMENTATION DATE;;IMPLEMENTATION DATE;;
;;REVIEW DATE;;PROPOSED REVIEW DATE;;
;;IMPLEMENTATION TEAM;;IMPLEMENTATION TEAMS,IMPLEMENTATION TEAM;;^AQAO1(1,;;
AQAOPA5 ; IHS/ORDC/LJF - REVIEWED ACTIONS REPORT ;
+1 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
+2 ;
+3 ;This rtn includes the user interface and DIP call to print a listing
+4 ;of reviewed actions sorted in various ways.
+5 ;
TYPE ; >> choose listing vs summaries
+1 WRITE !!
KILL DIR
SET DIR(0)="SO^L:BRIEF LISTING;S:FULL SUMMARIES"
+2 SET DIR("A")="Choose TYPE of Report to Print"
DO ^DIR
+3 IF X=""
GOTO END
IF $DATA(DIRUT)
GOTO END
IF Y=-1
GOTO END
+4 IF Y="L"
SET FLDS="[AQAO REVIEWED]"
+5 IF '$TEST
SET FLDS="[AQAO REVIEWED WITH SUM]"
+6 ;
SORT ; >>> choose sorting order for report
+1 WRITE !!
KILL DIR
SET DIR(0)="SO^"
SET DIR("A")="Choose SORT ORDER for Report"
+2 FOR X=1:1:5
SET DIR(0)=DIR(0)_X_":By "_$PIECE($TEXT(RPT+X),";;",2)_";"
+3 SET DIR(0)=$EXTRACT(DIR(0),1,$LENGTH(DIR(0))-1)
+4 DO ^DIR
IF $DATA(DIRUT)
GOTO END
IF X=""
GOTO SORT
IF Y=-1
GOTO END
SET AQAORPT=+Y
+5 ;set sort order
SET BY=$PIECE($TEXT(RPT+Y),";;",3)
+6 IF FLDS="[AQAO REVIEWED WITH SUM]"
Begin DoDot:1
+7 SET BY=$SELECT(AQAORPT=1:"#"_BY,1:BY_",#ACTION NUMBER")
End DoDot:1
+8 ;no other ques for sort by plan #
IF AQAORPT=1
SET AQAOSRT="?"
GOTO PRINT
+9 ;
CHOOSE ; >>> choose all or just one entry
+1 KILL DIR
SET DIR(0)="Y"
SET DIR("B")="NO"
+2 SET DIR("A")="Do you wish to print ALL "_$PIECE($TEXT(RPT+AQAORPT),";;",2)_"S"
+3 DO ^DIR
IF $DATA(DIRUT)
GOTO END
+4 IF (AQAORPT=3)!(AQAORPT=4)
IF Y=0
GOTO BDATE
SET AQAOSRT=""
GOTO PRINT
+5 IF Y=1
SET AQAOSRT=""
GOTO PRINT
+6 ;
+7 KILL DIC
SET DIC=$PIECE($TEXT(RPT+AQAORPT),";;",4)
SET DIC(0)="AEQMZ"
DO ^DIC
+8 IF $DATA(DIRUT)
GOTO TYPE
IF Y=-1
GOTO CHOOSE
+9 SET AQAOSRT=$PIECE(Y,U,2)
GOTO PRINT
+10 ;
BDATE ; >>> choose beginning date for report
+1 WRITE !!
KILL DIR
SET DIR(0)="DO^::EX"
+2 SET DIR("A")="Select BEGINNING "_$PIECE($TEXT(RPT+AQAORPT),";;",3)
+3 DO ^DIR
IF Y>DT
WRITE *7," NO FUTURE DATES"
GOTO BDATE
+4 IF X=""
GOTO TYPE
IF $DATA(DIRUT)
GOTO END
IF Y=-1
GOTO BDATE
SET FR=Y
+5 ;
EDATE ; >>> choose ending occurrence date for report
+1 WRITE !
KILL DIR
SET DIR(0)="DO^::EX"
+2 SET DIR("A")="Select ENDING "_$PIECE($TEXT(RPT+AQAORPT),";;",3)
+3 DO ^DIR
IF Y=-1
GOTO EDATE
+4 IF Y>DT
WRITE *7," NO FUTURE DATES"
GOTO EDATE
+5 IF Y<FR
WRITE *7," ENDING DATE MUST BE AFTER BEGINNING DATE"
GOTO BDATE
+6 IF X=""
GOTO BDATE
IF $DATA(DIRUT)
GOTO END
IF Y=-1
GOTO EDATE
SET TO=Y
+7 ;
+8 ;
+9 ; >>> FIND DATA FOR SELECTED REPORT <<<
PRINT ; >>> set up variables for dip call
+1 KILL DIC
SET DIC="^AQAO(5,"
SET L=0
IF '$DATA(FR)
SET (TO,FR)=AQAOSRT
+2 SET DIS(0)="I ($P(^AQAO(5,D0,0),U,5)=3)!($P(^(0),U,5)=4)!($P(^(0),U,5)=5)"
+3 SET DIS(1)="S Y=D0 D ACTCHK^AQAOSEC I $D(AQAOCHK(""OK""))"
+4 DO EN1^DIP
KILL AQAOCHK("OK")
+5 ;
+6 ;
+7 IF IOST["C-"
DO PRTOPT^AQAOVAR
+8 ;
END DO ^%ZISC
DO KILL^AQAOUTIL
QUIT
+1 ;
+2 ;
RPT ;;
+1 ;;ACTION PLAN #;;ACTION NUMBER;;^AQAO(5,;;
+2 ;;ACTION TYPE;;@ACTION TYPE;;^AQAO(6,;;
+3 ;;IMPLEMENTATION DATE;;IMPLEMENTATION DATE;;
+4 ;;REVIEW DATE;;PROPOSED REVIEW DATE;;
+5 ;;IMPLEMENTATION TEAM;;IMPLEMENTATION TEAMS,IMPLEMENTATION TEAM;;^AQAO1(1,;;
