- AMQQHELP ; IHS/CMI/THL - HELP MESSAGES FORQUERY UTILITY ;
- ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- ;-----
- RUN ; - EP -
- N Y,Z,I,%,A,B,C,AMQQLNO
- S AMQQLNO=0
- EN1 ; - EP - FROM ^AMQQHEL2 AND ^AMQQSQA0
- N S,J,Y,Z,I,%,A,B,C,AMQQLNO
- S S=X
- S AMQQLNO=0
- I S["~" D MULT W !! Q
- D L0
- W !!
- Q
- ;
- L0 S A=$P(X,U)
- S C=$P(X,U,2)
- F I=1:1 S B=$P(C,";",I) Q:B="" S Y="" F S Y=$O(^AMQQ(5,A,B,Y)) Q:Y="" D L1 I Y=999999999 G LISTX
- LISTX Q
- ;
- L1 I X="AF^51",'$$WHP(Y) Q
- S AMQQLNO=AMQQLNO+1
- I AMQQLNO=1 W !!,"Possible choices:" D TYPE
- I $D(AMQQMSPF) K AMQQMSPF S AMQQLNO=4 W !?3,"ALL",!?3,"ANY",!?3,"EXISTS",!?3,"NULL" G L1
- I AMQQLNO#(IOSL-4)=1,AMQQLNO>1 D L2 I Y=999999999 Q
- W !,?3,Y
- Q
- ;
- L2 W !!,"Enter '^' to stop listing or any other key to see more <>"
- R Z:DTIME E S Y=999999999 Q
- I Z=U S Y=999999999 Q
- W @IOF
- Q
- ;
- LISTG ; ENTRY POINT FROM AMQQ1
- N Y,Z,I,%,AMQQLNO
- S Y=""
- S AMQQLNO=0
- F S Y=$O(^AMQQ(5,"GOAL",Y)) Q:Y="" D L1
- W !!
- Q
- ;
- MULT F J=1:1 S X=$P(S,"~",J) Q:X="" D L0
- W !!
- Q
- ;
- ITEM ; - EP - FROM ^AMQQATA AND ^AMQQSQA0
- W @IOF,?20,"***** ATTRIBUTE CATEGORIES *****"
- ATTS S DIR(0)="SO^1:DEMOGRAPHICS;2:DENTAL CODES;3:DIAGNOSES;4:EXAMS;5:INPATIENT;6:IMMUNIZATIONS;7:LAB;8:MEASUREMENTS;9:MEDICATIONS;10:PATIENT ED;11:PROCEDURES;13:SKIN TESTS;14:TREATMENTS;15:VISIT INFO;16:WOMEN'S HEALTH"
- S DIR("A")="Your choice"
- D ^DIR
- K DIR
- I X=U S AMQQQUIT=""
- I "^"[X K DIRUT,DTOUT,DUOUT Q
- I Y=1 S X="AF^11" D RUN Q
- I Y=2 W !,"Type ""ADA CODE"" and the enter the code number or procedure name",! Q
- I Y=3 W !,"Type ""DX""<RETURN> and then enter the ICD code or diagnosis",! Q
- I Y=14 W !,"Type ""TREATMENT""<RETURN> and then enter the name of the treatment",! Q
- I Y=9 W !,"Type ""RX""<RETURN> and then enter the name of the prescription",! Q
- I Y=11 W !,"Type ""PROCEDURE""<RETURN> and then enter the procedure code or name",! Q
- I Y=12 S X="AF^16" D RUN Q
- I Y=7 S X="AF^3" D RUN Q
- I Y=6 S X="AF^1" D RUN Q
- I Y=8 S X="AF^5" D RUN Q
- I Y=13 S X="AF^18" D RUN Q
- I Y=4 S X="AF^22" D RUN Q
- I Y=15 S X="AF^17" D RUN Q
- I Y=16 S X="AF^48" D RUN Q
- W !,"Sorry, these attributes are not currently available",!
- Q
- ;
- TYPE I $G(AMQQSQST)="Q" S AMQQLNO=4 W !!,?3,"POSITIVE",!?3,"NEGATIVE",! Q
- I $G(AMQQSQST)="S" W ! S AMQQLNO=2 N %,I,X D W ! Q
- .S %=$P($G(^AMQQ(5,AMQQSQSN,0)),U,5) I % S %=$P($G(^AMQQ(1,%,0)),U,6) I % S %="^DD("_%_",0)" I $D(@%) S %=$P(^(0),U,3) F I=1:1 S X=$P(%,";",I) Q:X="" W !?3,$P(X,":",2) S AMQQLNO=AMQQLNO+1
- Q
- ;
- WHP(Y) ; SCREEN WH PROCEDURE ATTRIBUTES
- I '$D(^BWAA("AC")) Q 1
- N %,Z,T
- ; DON'T SCREEN IF THERE IS MORE THAN ONE PROCEDURE SELECTED
- S T=$O(^UTILITY("AMQQ TAX",$J,+$G(AMQQTAX),0)) I $O(^(T)) Q 1
- S %=$O(^AMQQ(5,"B",Y,0))
- I '% Q 1
- S Z=+$P($G(^AMQQ(1,%,0)),U,4)
- I Z="" Q 1
- I $D(^BWAA("AC",Z,T)) Q 1
- Q 0
- ;
- AMQQHELP ; IHS/CMI/THL - HELP MESSAGES FORQUERY UTILITY ;
- +1 ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58
- +2 ;-----
- RUN ; - EP -
- +1 NEW Y,Z,I,%,A,B,C,AMQQLNO
- +2 SET AMQQLNO=0
- EN1 ; - EP - FROM ^AMQQHEL2 AND ^AMQQSQA0
- +1 NEW S,J,Y,Z,I,%,A,B,C,AMQQLNO
- +2 SET S=X
- +3 SET AMQQLNO=0
- +4 IF S["~"
- DO MULT
- WRITE !!
- QUIT
- +5 DO L0
- +6 WRITE !!
- +7 QUIT
- +8 ;
- L0 SET A=$PIECE(X,U)
- +1 SET C=$PIECE(X,U,2)
- +2 FOR I=1:1
- SET B=$PIECE(C,";",I)
- IF B=""
- QUIT
- SET Y=""
- FOR
- SET Y=$ORDER(^AMQQ(5,A,B,Y))
- IF Y=""
- QUIT
- DO L1
- IF Y=999999999
- GOTO LISTX
- LISTX QUIT
- +1 ;
- L1 IF X="AF^51"
- IF '$$WHP(Y)
- QUIT
- +1 SET AMQQLNO=AMQQLNO+1
- +2 IF AMQQLNO=1
- WRITE !!,"Possible choices:"
- DO TYPE
- +3 IF $DATA(AMQQMSPF)
- KILL AMQQMSPF
- SET AMQQLNO=4
- WRITE !?3,"ALL",!?3,"ANY",!?3,"EXISTS",!?3,"NULL"
- GOTO L1
- +4 IF AMQQLNO#(IOSL-4)=1
- IF AMQQLNO>1
- DO L2
- IF Y=999999999
- QUIT
- +5 WRITE !,?3,Y
- +6 QUIT
- +7 ;
- L2 WRITE !!,"Enter '^' to stop listing or any other key to see more <>"
- +1 READ Z:DTIME
- IF '$TEST
- SET Y=999999999
- QUIT
- +2 IF Z=U
- SET Y=999999999
- QUIT
- +3 WRITE @IOF
- +4 QUIT
- +5 ;
- LISTG ; ENTRY POINT FROM AMQQ1
- +1 NEW Y,Z,I,%,AMQQLNO
- +2 SET Y=""
- +3 SET AMQQLNO=0
- +4 FOR
- SET Y=$ORDER(^AMQQ(5,"GOAL",Y))
- IF Y=""
- QUIT
- DO L1
- +5 WRITE !!
- +6 QUIT
- +7 ;
- MULT FOR J=1:1
- SET X=$PIECE(S,"~",J)
- IF X=""
- QUIT
- DO L0
- +1 WRITE !!
- +2 QUIT
- +3 ;
- ITEM ; - EP - FROM ^AMQQATA AND ^AMQQSQA0
- +1 WRITE @IOF,?20,"***** ATTRIBUTE CATEGORIES *****"
- ATTS SET DIR(0)="SO^1:DEMOGRAPHICS;2:DENTAL CODES;3:DIAGNOSES;4:EXAMS;5:INPATIENT;6:IMMUNIZATIONS;7:LAB;8:MEASUREMENTS;9:MEDICATIONS;10:PATIENT ED;11:PROCEDURES;13:SKIN TESTS;14:TREATMENTS;15:VISIT INFO;16:WOMEN'S HEALTH"
- +1 SET DIR("A")="Your choice"
- +2 DO ^DIR
- +3 KILL DIR
- +4 IF X=U
- SET AMQQQUIT=""
- +5 IF "^"[X
- KILL DIRUT,DTOUT,DUOUT
- QUIT
- +6 IF Y=1
- SET X="AF^11"
- DO RUN
- QUIT
- +7 IF Y=2
- WRITE !,"Type ""ADA CODE"" and the enter the code number or procedure name",!
- QUIT
- +8 IF Y=3
- WRITE !,"Type ""DX""<RETURN> and then enter the ICD code or diagnosis",!
- QUIT
- +9 IF Y=14
- WRITE !,"Type ""TREATMENT""<RETURN> and then enter the name of the treatment",!
- QUIT
- +10 IF Y=9
- WRITE !,"Type ""RX""<RETURN> and then enter the name of the prescription",!
- QUIT
- +11 IF Y=11
- WRITE !,"Type ""PROCEDURE""<RETURN> and then enter the procedure code or name",!
- QUIT
- +12 IF Y=12
- SET X="AF^16"
- DO RUN
- QUIT
- +13 IF Y=7
- SET X="AF^3"
- DO RUN
- QUIT
- +14 IF Y=6
- SET X="AF^1"
- DO RUN
- QUIT
- +15 IF Y=8
- SET X="AF^5"
- DO RUN
- QUIT
- +16 IF Y=13
- SET X="AF^18"
- DO RUN
- QUIT
- +17 IF Y=4
- SET X="AF^22"
- DO RUN
- QUIT
- +18 IF Y=15
- SET X="AF^17"
- DO RUN
- QUIT
- +19 IF Y=16
- SET X="AF^48"
- DO RUN
- QUIT
- +20 WRITE !,"Sorry, these attributes are not currently available",!
- +21 QUIT
- +22 ;
- TYPE IF $GET(AMQQSQST)="Q"
- SET AMQQLNO=4
- WRITE !!,?3,"POSITIVE",!?3,"NEGATIVE",!
- QUIT
- +1 IF $GET(AMQQSQST)="S"
- WRITE !
- SET AMQQLNO=2
- NEW %,I,X
- Begin DoDot:1
- +2 SET %=$PIECE($GET(^AMQQ(5,AMQQSQSN,0)),U,5)
- IF %
- SET %=$PIECE($GET(^AMQQ(1,%,0)),U,6)
- IF %
- SET %="^DD("_%_",0)"
- IF $DATA(@%)
- SET %=$PIECE(^(0),U,3)
- FOR I=1:1
- SET X=$PIECE(%,";",I)
- IF X=""
- QUIT
- WRITE !?3,$PIECE(X,":",2)
- SET AMQQLNO=AMQQLNO+1
- End DoDot:1
- WRITE !
- QUIT
- +3 QUIT
- +4 ;
- WHP(Y) ; SCREEN WH PROCEDURE ATTRIBUTES
- +1 IF '$DATA(^BWAA("AC"))
- QUIT 1
- +2 NEW %,Z,T
- +3 ; DON'T SCREEN IF THERE IS MORE THAN ONE PROCEDURE SELECTED
- +4 SET T=$ORDER(^UTILITY("AMQQ TAX",$JOB,+$GET(AMQQTAX),0))
- IF $ORDER(^(T))
- QUIT 1
- +5 SET %=$ORDER(^AMQQ(5,"B",Y,0))
- +6 IF '%
- QUIT 1
- +7 SET Z=+$PIECE($GET(^AMQQ(1,%,0)),U,4)
- +8 IF Z=""
- QUIT 1
- +9 IF $DATA(^BWAA("AC",Z,T))
- QUIT 1
- +10 QUIT 0
- +11 ;
