- AMHRPT0 ; IHS/CMI/LAB - MENUS FOR REPORT DRIVER ;
- ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- ;
- K AMHDISP,AMHSEL,AMHHIGH
- W:$D(IOF) @IOF
- S AMHLHDR="PRINT DATA ITEMS Menu" W ?((80-$L(AMHLHDR))/2),AMHLHDR,!
- W "The following data items can be printed. You can use up to 132 characters.",!,"Choose the data items in the order you want them printed.",!
- W ?15,"Total Report width (including column margins - 2 spaces): ",AMHTCW
- S AMHHIGH=0,X=0 F S X=$O(^AMHSORT("C",X)) Q:X'=+X S Y=$O(^AMHSORT("C",X,"")) I $P(^AMHSORT(Y,0),U,5)["P",$P(^(0),U,11)["V" S AMHHIGH=AMHHIGH+1,AMHSEL(AMHHIGH)=Y
- S AMHCUT=((AMHHIGH/2)+.5)\1
- S I=0,J=1 F S I=$O(AMHSEL(I)) Q:I'=+I I '$D(AMHDISP(I)) D
- .W !?2,I,") ",$P(^AMHSORT(AMHSEL(I),0),U) S AMHDISP(I)="",J=I+AMHCUT I $D(AMHSEL(J)),'$D(AMHDISP(J)) W ?40,J,") ",$P(^AMHSORT(AMHSEL(J),0),U) S AMHDISP(J)=""
- W !?7,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
- W !?7,"<<PRESS ENTER to conclude selections or '^' to exit>>"
- Q
- K AMHDISP,AMHSEL,AMHHIGH
- I $Y>(IOSL-4) W:$D(IOF) @IOF
- W !,"The records displayed can be selected based on any of the following criteria:",!
- S AMHHIGH=0,X=0 F S X=$O(^AMHSORT(AMHXREF,X)) Q:X'=+X S Y=$O(^AMHSORT(AMHXREF,X,"")) I $P(^AMHSORT(Y,0),U,5)["S",$P(^(0),U,11)[AMHPTVS S AMHHIGH=AMHHIGH+1,AMHSEL(AMHHIGH)=Y
- S AMHCUT=((AMHHIGH/3)+1)\1
- S I=0,J=1,K=1 F S I=$O(AMHSEL(I)) Q:I'=+I!($D(AMHDISP(I))) D
- .W !,I,") ",$E($P(^AMHSORT(AMHSEL(I),0),U),1,23) S AMHDISP(I)=""
- .S J=I+AMHCUT I $D(AMHSEL(J)),'$D(AMHDISP(J)) W ?27,J,") ",$E($P(^AMHSORT(AMHSEL(J),0),U),1,22) S AMHDISP(J)=""
- .S K=J+AMHCUT I $D(AMHSEL(K)),'$D(AMHDISP(K)) W ?53,K,") ",$E($P(^AMHSORT(AMHSEL(K),0),U),1,22) S AMHDISP(K)=""
- W !?9,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
- W !?9,"<<PRESS ENTER to conclude selections or bypass screens>>"
- Q
- K AMHDISP,AMHSEL,AMHHIGH
- I $Y>(IOSL-4) W:$D(IOF) @IOF
- W !!,"The records displayed can be sorted by any one of the following:",!
- S AMHHIGH=0,X=0 F S X=$O(^AMHSORT("C",X)) Q:X'=+X S Y=$O(^AMHSORT("C",X,"")) I $P(^AMHSORT(Y,0),U,5)["R",$P(^(0),U,11)["V" S AMHHIGH=AMHHIGH+1,AMHSEL(AMHHIGH)=Y
- S AMHCUT=((AMHHIGH/2)+.5)\1
- S I=0,J=1,K=1 F S I=$O(AMHSEL(I)) Q:I'=+I I '$D(AMHDISP(I)) W !?5,I,") ",$P(^AMHSORT(AMHSEL(I),0),U) S AMHDISP(I)="",J=I+AMHCUT I $D(AMHSEL(J)),'$D(AMHDISP(J)) W ?40,J,") ",$P(^AMHSORT(AMHSEL(J),0),U) S AMHDISP(J)=""
- W !!,"<<If you don't select a sort criteria the report will be sorted by Visit date>>"
- Q
- ;
- N ;EP
- K ^AMHTRPT(AMHRPT,11,AMHCRIT),^AMHTRPT(AMHRPT,11,"B",AMHCRIT)
- S DIR(0)="FO^1:7",DIR("A")="Enter a Range for "_$P(^AMHSORT(AMHCRIT,0),U)_", (e.g. 5-12)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- I Y="" W !!,"No number range entered. All numbers will be included." Q
- I Y'?.N1"-".N W !!,$C(7),$C(7),"Enter an number range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20." G N
- S ^AMHTRPT(AMHRPT,11,AMHCRIT,0)=AMHCRIT,^AMHTRPT(AMHRPT,11,"B",AMHCRIT,AMHCRIT)=""
- S AMHCNT=0,^AMHTRPT(AMHRPT,11,AMHCRIT,11,AMHCNT,0)="^9002013.8110101A^1^1" F X=$P(Y,"-"):1:$P(Y,"-",2) S AMHCNT=AMHCNT+1,^AMHTRPT(AMHRPT,11,AMHCRIT,11,1,0)=X,^AMHTRPT(AMHRPT,11,AMHCRIT,11,"B",X,AMHCNT)=""
- Q
- Y ;EP
- S DIR(0)="S^1:"_AMHTEXT_";0:NO "_AMHTEXT_"",DIR("A")="Choose one",DIR("B")="1" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
- Q:$D(DIRUT)
- Q:Y=""
- S ^AMHTRPT(AMHRPT,11,AMHCRIT,0)=AMHCRIT,^AMHTRPT(AMHRPT,11,"B",AMHCRIT,AMHCRIT)=""
- S ^AMHTRPT(AMHRPT,11,AMHCRIT,11,1,0)=Y,^AMHTRPT(AMHRPT,11,AMHCRIT,11,"B",Y,1)="",^AMHTRPT(AMHRPT,11,AMHCRIT,11,0)="^9001003.8110101A^"_1_"^"_1
- Q
- AMHRPT0 ; IHS/CMI/LAB - MENUS FOR REPORT DRIVER ;
- +1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
- +2 ;
- +1 KILL AMHDISP,AMHSEL,AMHHIGH
- +2 IF $DATA(IOF)
- WRITE @IOF
- +3 SET AMHLHDR="PRINT DATA ITEMS Menu"
- WRITE ?((80-$LENGTH(AMHLHDR))/2),AMHLHDR,!
- +4 WRITE "The following data items can be printed. You can use up to 132 characters.",!,"Choose the data items in the order you want them printed.",!
- +5 WRITE ?15,"Total Report width (including column margins - 2 spaces): ",AMHTCW
- +6 SET AMHHIGH=0
- SET X=0
- FOR
- SET X=$ORDER(^AMHSORT("C",X))
- IF X'=+X
- QUIT
- SET Y=$ORDER(^AMHSORT("C",X,""))
- IF $PIECE(^AMHSORT(Y,0),U,5)["P"
- IF $PIECE(^(0),U,11)["V"
- SET AMHHIGH=AMHHIGH+1
- SET AMHSEL(AMHHIGH)=Y
- +7 SET AMHCUT=((AMHHIGH/2)+.5)\1
- +8 SET I=0
- SET J=1
- FOR
- SET I=$ORDER(AMHSEL(I))
- IF I'=+I
- QUIT
- IF '$DATA(AMHDISP(I))
- Begin DoDot:1
- +9 WRITE !?2,I,") ",$PIECE(^AMHSORT(AMHSEL(I),0),U)
- SET AMHDISP(I)=""
- SET J=I+AMHCUT
- IF $DATA(AMHSEL(J))
- IF '$DATA(AMHDISP(J))
- WRITE ?40,J,") ",$PIECE(^AMHSORT(AMHSEL(J),0),U)
- SET AMHDISP(J)=""
- End DoDot:1
- +10 WRITE !?7,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
- +11 WRITE !?7,"<<PRESS ENTER to conclude selections or '^' to exit>>"
- +12 QUIT
- +1 KILL AMHDISP,AMHSEL,AMHHIGH
- +2 IF $Y>(IOSL-4)
- IF $DATA(IOF)
- WRITE @IOF
- +3 WRITE !,"The records displayed can be selected based on any of the following criteria:",!
- +4 SET AMHHIGH=0
- SET X=0
- FOR
- SET X=$ORDER(^AMHSORT(AMHXREF,X))
- IF X'=+X
- QUIT
- SET Y=$ORDER(^AMHSORT(AMHXREF,X,""))
- IF $PIECE(^AMHSORT(Y,0),U,5)["S"
- IF $PIECE(^(0),U,11)[AMHPTVS
- SET AMHHIGH=AMHHIGH+1
- SET AMHSEL(AMHHIGH)=Y
- +5 SET AMHCUT=((AMHHIGH/3)+1)\1
- +6 SET I=0
- SET J=1
- SET K=1
- FOR
- SET I=$ORDER(AMHSEL(I))
- IF I'=+I!($DATA(AMHDISP(I)))
- QUIT
- Begin DoDot:1
- +7 WRITE !,I,") ",$EXTRACT($PIECE(^AMHSORT(AMHSEL(I),0),U),1,23)
- SET AMHDISP(I)=""
- +8 SET J=I+AMHCUT
- IF $DATA(AMHSEL(J))
- IF '$DATA(AMHDISP(J))
- WRITE ?27,J,") ",$EXTRACT($PIECE(^AMHSORT(AMHSEL(J),0),U),1,22)
- SET AMHDISP(J)=""
- +9 SET K=J+AMHCUT
- IF $DATA(AMHSEL(K))
- IF '$DATA(AMHDISP(K))
- WRITE ?53,K,") ",$EXTRACT($PIECE(^AMHSORT(AMHSEL(K),0),U),1,22)
- SET AMHDISP(K)=""
- End DoDot:1
- +10 WRITE !?9,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>"
- +11 WRITE !?9,"<<PRESS ENTER to conclude selections or bypass screens>>"
- +12 QUIT
- +1 KILL AMHDISP,AMHSEL,AMHHIGH
- +2 IF $Y>(IOSL-4)
- IF $DATA(IOF)
- WRITE @IOF
- +3 WRITE !!,"The records displayed can be sorted by any one of the following:",!
- +4 SET AMHHIGH=0
- SET X=0
- FOR
- SET X=$ORDER(^AMHSORT("C",X))
- IF X'=+X
- QUIT
- SET Y=$ORDER(^AMHSORT("C",X,""))
- IF $PIECE(^AMHSORT(Y,0),U,5)["R"
- IF $PIECE(^(0),U,11)["V"
- SET AMHHIGH=AMHHIGH+1
- SET AMHSEL(AMHHIGH)=Y
- +5 SET AMHCUT=((AMHHIGH/2)+.5)\1
- +6 SET I=0
- SET J=1
- SET K=1
- FOR
- SET I=$ORDER(AMHSEL(I))
- IF I'=+I
- QUIT
- IF '$DATA(AMHDISP(I))
- WRITE !?5,I,") ",$PIECE(^AMHSORT(AMHSEL(I),0),U)
- SET AMHDISP(I)=""
- SET J=I+AMHCUT
- IF $DATA(AMHSEL(J))
- IF '$DATA(AMHDISP(J))
- WRITE ?40,J,") ",$PIECE(^AMHSORT(AMHSEL(J),0),U)
- SET AMHDISP(J)=""
- +7 WRITE !!,"<<If you don't select a sort criteria the report will be sorted by Visit date>>"
- +8 QUIT
- +9 ;
- N ;EP
- +1 KILL ^AMHTRPT(AMHRPT,11,AMHCRIT),^AMHTRPT(AMHRPT,11,"B",AMHCRIT)
- +2 SET DIR(0)="FO^1:7"
- SET DIR("A")="Enter a Range for "_$PIECE(^AMHSORT(AMHCRIT,0),U)_", (e.g. 5-12)"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +3 IF Y=""
- WRITE !!,"No number range entered. All numbers will be included."
- QUIT
- +4 IF Y'?.N1"-".N
- WRITE !!,$CHAR(7),$CHAR(7),"Enter an number range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20."
- GOTO N
- +5 SET ^AMHTRPT(AMHRPT,11,AMHCRIT,0)=AMHCRIT
- SET ^AMHTRPT(AMHRPT,11,"B",AMHCRIT,AMHCRIT)=""
- +6 SET AMHCNT=0
- SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,AMHCNT,0)="^9002013.8110101A^1^1"
- FOR X=$PIECE(Y,"-"):1:$PIECE(Y,"-",2)
- SET AMHCNT=AMHCNT+1
- SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,1,0)=X
- SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,"B",X,AMHCNT)=""
- +7 QUIT
- Y ;EP
- +1 SET DIR(0)="S^1:"_AMHTEXT_";0:NO "_AMHTEXT_""
- SET DIR("A")="Choose one"
- SET DIR("B")="1"
- DO ^DIR
- KILL DIR
- IF $DATA(DUOUT)
- SET DIRUT=1
- +2 IF $DATA(DIRUT)
- QUIT
- +3 IF Y=""
- QUIT
- +4 SET ^AMHTRPT(AMHRPT,11,AMHCRIT,0)=AMHCRIT
- SET ^AMHTRPT(AMHRPT,11,"B",AMHCRIT,AMHCRIT)=""
- +5 SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,1,0)=Y
- SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,"B",Y,1)=""
- SET ^AMHTRPT(AMHRPT,11,AMHCRIT,11,0)="^9001003.8110101A^"_1_"^"_1
- +6 QUIT
