- AMQQF2 ; IHS/CMI/THL - MORE ANALYTIC FUNCTIONS ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;-----
- LAST N I,J,N,X,Y,Z,%
- S J=0
- F %=0:0 S %=$O(^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,%)) Q:'% S J=J+1,Y=$P(^(%),U,2) I Y S ^UTILITY("AMQQ",$J,"TMP",Y,%)=""
- S Z=J-AMQQCOMP
- I '$D(AMQQNOT),Z<1 G LAEXIT
- I '$D(AMQQNOT) D LA1 G LAEXIT
- I Z<1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN) G LAEXIT
- LA2 S (X,N)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S N=N+1 I N>Z K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y)
- LAEXIT K ^UTILITY("AMQQ",$J,"TMP"),AMQQNOT
- Q
- ;
- LA1 S (X,I)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y) S I=I+1 I I=Z G LA1EXIT
- LA1EXIT Q
- ;
- FIRST N I,J,N,Y,Z,%
- S J=0
- F %=0:0 S %=$O(^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,%)) Q:'% S J=J+1,Y=$P(^(%),U,2) I Y S ^UTILITY("AMQQ",$J,"TMP",Y,%)=""
- S Z=J-AMQQCOMP
- I '$D(AMQQNOT),Z<1 G FIEXIT
- I '$D(AMQQNOT) D FI1 G FIEXIT
- I Z<1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN) G FIEXIT
- FI2 S (X,N)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S N=N+1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y) I N=AMQQCOMP G FIEXIT
- FIEXIT K ^UTILITY("AMQQ",$J,"TMP"),AMQQNOT
- Q
- ;
- FI1 S (X,I)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S I=I+1 I I>AMQQCOMP K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y)
- Q
- ;
- HIGH N I,J,N,X,Y,Z,%
- S J=0
- F %=0:0 S %=$O(^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,%)) Q:'% S J=J+1,Y=+^(%),^UTILITY("AMQQ",$J,"TMP",Y,%)=""
- S Z=J-AMQQCOMP
- I '$D(AMQQNOT),Z<1 G HGEXIT
- I '$D(AMQQNOT) D HG1 G HGEXIT
- I Z<1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN) G HGEXIT
- HG2 S (X,N)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S N=N+1 I N>Z K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y)
- HGEXIT K ^UTILITY("AMQQ",$J,"TMP"),AMQQNOT
- Q
- ;
- HG1 S (X,I)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y) S I=I+1 I I=Z G HG1EXIT
- HG1EXIT Q
- ;
- LOW N I,J,N,X,Y,Z,%
- S J=0
- F %=0:0 S %=$O(^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,%)) Q:'% S J=J+1,Y=+^(%),^UTILITY("AMQQ",$J,"TMP",Y,%)=""
- S Z=J-AMQQCOMP
- I '$D(AMQQNOT),Z<1 G LOEXIT
- I '$D(AMQQNOT) D LO1 G LOEXIT
- I Z<1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN) G LOEXIT
- LO2 S (X,N)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S N=N+1 K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y) I N=AMQQCOMP G LOEXIT
- LOEXIT K ^UTILITY("AMQQ",$J,"TMP"),AMQQNOT
- Q
- ;
- LO1 S (X,I)=0
- F S X=$O(^UTILITY("AMQQ",$J,"TMP",X)) Q:'X F Y=0:0 S Y=$O(^UTILITY("AMQQ",$J,"TMP",X,Y)) Q:'Y S I=I+1 I I>AMQQCOMP K ^UTILITY("AMQQ",$J,AMQQAG,AMQQUATN,Y)
- Q
- TYPES ;
- Q
- AMQQF2 ; IHS/CMI/THL - MORE ANALYTIC FUNCTIONS ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;-----
- LAST NEW I,J,N,X,Y,Z,%
- +1 SET J=0
- +2 FOR %=0:0
- SET %=$ORDER(^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,%))
- IF '%
- QUIT
- SET J=J+1
- SET Y=$PIECE(^(%),U,2)
- IF Y
- SET ^UTILITY("AMQQ",$JOB,"TMP",Y,%)=""
- +3 SET Z=J-AMQQCOMP
- +4 IF '$DATA(AMQQNOT)
- IF Z<1
- GOTO LAEXIT
- +5 IF '$DATA(AMQQNOT)
- DO LA1
- GOTO LAEXIT
- +6 IF Z<1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN)
- GOTO LAEXIT
- LA2 SET (X,N)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET N=N+1
- IF N>Z
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- LAEXIT KILL ^UTILITY("AMQQ",$JOB,"TMP"),AMQQNOT
- +1 QUIT
- +2 ;
- LA1 SET (X,I)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- SET I=I+1
- IF I=Z
- GOTO LA1EXIT
- LA1EXIT QUIT
- +1 ;
- FIRST NEW I,J,N,Y,Z,%
- +1 SET J=0
- +2 FOR %=0:0
- SET %=$ORDER(^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,%))
- IF '%
- QUIT
- SET J=J+1
- SET Y=$PIECE(^(%),U,2)
- IF Y
- SET ^UTILITY("AMQQ",$JOB,"TMP",Y,%)=""
- +3 SET Z=J-AMQQCOMP
- +4 IF '$DATA(AMQQNOT)
- IF Z<1
- GOTO FIEXIT
- +5 IF '$DATA(AMQQNOT)
- DO FI1
- GOTO FIEXIT
- +6 IF Z<1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN)
- GOTO FIEXIT
- FI2 SET (X,N)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET N=N+1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- IF N=AMQQCOMP
- GOTO FIEXIT
- FIEXIT KILL ^UTILITY("AMQQ",$JOB,"TMP"),AMQQNOT
- +1 QUIT
- +2 ;
- FI1 SET (X,I)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET I=I+1
- IF I>AMQQCOMP
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- +2 QUIT
- +3 ;
- HIGH NEW I,J,N,X,Y,Z,%
- +1 SET J=0
- +2 FOR %=0:0
- SET %=$ORDER(^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,%))
- IF '%
- QUIT
- SET J=J+1
- SET Y=+^(%)
- SET ^UTILITY("AMQQ",$JOB,"TMP",Y,%)=""
- +3 SET Z=J-AMQQCOMP
- +4 IF '$DATA(AMQQNOT)
- IF Z<1
- GOTO HGEXIT
- +5 IF '$DATA(AMQQNOT)
- DO HG1
- GOTO HGEXIT
- +6 IF Z<1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN)
- GOTO HGEXIT
- HG2 SET (X,N)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET N=N+1
- IF N>Z
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- HGEXIT KILL ^UTILITY("AMQQ",$JOB,"TMP"),AMQQNOT
- +1 QUIT
- +2 ;
- HG1 SET (X,I)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- SET I=I+1
- IF I=Z
- GOTO HG1EXIT
- HG1EXIT QUIT
- +1 ;
- LOW NEW I,J,N,X,Y,Z,%
- +1 SET J=0
- +2 FOR %=0:0
- SET %=$ORDER(^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,%))
- IF '%
- QUIT
- SET J=J+1
- SET Y=+^(%)
- SET ^UTILITY("AMQQ",$JOB,"TMP",Y,%)=""
- +3 SET Z=J-AMQQCOMP
- +4 IF '$DATA(AMQQNOT)
- IF Z<1
- GOTO LOEXIT
- +5 IF '$DATA(AMQQNOT)
- DO LO1
- GOTO LOEXIT
- +6 IF Z<1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN)
- GOTO LOEXIT
- LO2 SET (X,N)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET N=N+1
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- IF N=AMQQCOMP
- GOTO LOEXIT
- LOEXIT KILL ^UTILITY("AMQQ",$JOB,"TMP"),AMQQNOT
- +1 QUIT
- +2 ;
- LO1 SET (X,I)=0
- +1 FOR
- SET X=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X))
- IF 'X
- QUIT
- FOR Y=0:0
- SET Y=$ORDER(^UTILITY("AMQQ",$JOB,"TMP",X,Y))
- IF 'Y
- QUIT
- SET I=I+1
- IF I>AMQQCOMP
- KILL ^UTILITY("AMQQ",$JOB,AMQQAG,AMQQUATN,Y)
- +2 QUIT
- TYPES ;
- +1 QUIT
