- AMQQN ; IHS/CMI/THL - NATURAL LANGUAGE INTERPRETER ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;-----
- I AMQQQSTG="" G EXIT
- S X=AMQQQSTG
- S AMQQNN=1
- S AMQQXX=""
- W !!
- D WAIT^DICD
- W !!
- RUN F AMQQNRUN=0,1,2 D @("^AMQQN"_AMQQNRUN) I $D(AMQQFAIL) D FAIL,KILL,KILL1 G EXIT
- D SET
- D KILL
- D AND
- I $D(AMQQFAIL) D FAIL G EXIT
- D EN1^AMQQQ2,KILL1
- S AMQV("OPTION")="LIST"
- S AMQQXX("FORMAT")=1
- D ^AMQQCMPL
- EXIT K AMQQONE,AMQQXX,AMQQNTAX,AMQQFAIL,%,%Y,A,B,C,I,J,N,S,Z,C
- Q
- ;
- SET S AMQQXX(0)=AMQQNSBJ
- S AMQQNA=1
- I "^MALES^BOYS^MEN^"[(U_AMQQNSBJ_U) S AMQQXX(99.1,1)="3^SEX;11^IS;M" G SET1
- I "^FEMALES^GIRLS^WOMEN"[(U_AMQQNSBJ_U) S AMQQXX(99.1,1)="3^SEX;11^IS;F" G SET1
- I AMQQNSBJ="INFANTS" S AMQQXX(.1,1)="33^AGE;39^LESS THAN;1" G SET1
- SET1 I $D(AMQQFAIL) Q
- S AMQQNSVL=$G(AMQQNSVL)
- I $D(AMQQNATT),$D(AMQQNCND),$D(AMQQNVAL)
- E Q
- I '$G(AMQQCTXS) S AMQQXX(AMQQNA,1)=AMQQNATT_";"_AMQQNCND_";"_AMQQNVAL Q
- S AMQQXX(AMQQNA,1)=$S($G(AMQQNCND)="MTAX":(AMQQNATT_";MTAX;"_AMQQNVAL),1:(AMQQNATT_";MULT"))
- I "MTAX"[$G(AMQQNCND),$G(AMQQNSUB)="" Q
- I $G(AMQQNCND)="" S AMQQXX(AMQQNA,1,1,1)=AMQQNSCD_";"_AMQQNSVL Q
- I $G(AMQQNSUB)="" S AMQQXX(AMQQNA,1,1,1)=AMQQNCND_";"_AMQQNVAL Q
- I AMQQNSTP="O",'$D(AMQQNISF),$D(AMQQONE) S AMQQXX(AMQQNA,1,2,1)=AMQQNSCD_";"_AMQQNSVL,AMQQXX(AMQQNA,1,1,1)=AMQQNCND_";"_AMQQNVAL Q
- S AMQQXX(AMQQNA,1,2,1)=AMQQNCND_";"_AMQQNVAL
- S AMQQXX(AMQQNA,1,1,1)=AMQQNSCD_";"_AMQQNSVL
- Q
- ;
- KILL K AMQQNATT,AMQQNCND,AMQQNN,AMQQNRUN,AMQQNSBJ,AMQQNSCD,AMQQNSTP,AMQQNSUB,AMQQNSVL,AMQQNVAL,AMQQQ,AUPNDAYS,AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,A,B,I,J,S,X,Y,Z,%,%Y,AMQQCTXS,AMQQLINK
- Q
- ;
- KILL1 K AMQQLSQF,AMQQATN,AMQQATNM,AMQQMMCC,AMQQMULT,AMQQQSTG,N,AMQQQ,AMQQYYYY,I,N,X,Y,Z,AMQQCNAM,AMQQXX,AMQQXXND,AMQQYYAT,AMQQNA,AMQQNAP
- Q
- ;
- FAIL ;EP;
- I $G(AMQQFAIL)=-1 Q
- I $D(AMQQNSF) K AMQQNSF D KILL Q
- I AMQQFAIL=4 W !!,"I'm unable to identify the subject of the query...try again",!!,*7 G F1
- W !!,"Sorry, I don't understand your query. Check for spelling errors and typos."
- W !,"If this fails, try rewording the query. If you still fail, dont blame me..."
- W !,"After all, I'm only a stupid machine!!",!!,*7
- F1 R "<>",%:DTIME E S AMQQQUIT=""
- D KILL
- Q
- ;
- AND F AMQQNAP=1:0 S AMQQNAP=$O(AMQQNAP(AMQQNAP)) Q:'AMQQNAP S AMQQNA=AMQQNA+1 S X=AMQQNAP(AMQQNAP) D ^AMQQN2,SET1,KILL I $D(AMQQFAIL) Q
- Q
- ;
- AMQQN ; IHS/CMI/THL - NATURAL LANGUAGE INTERPRETER ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;-----
- +3 IF AMQQQSTG=""
- GOTO EXIT
- +4 SET X=AMQQQSTG
- +5 SET AMQQNN=1
- +6 SET AMQQXX=""
- +7 WRITE !!
- +8 DO WAIT^DICD
- +9 WRITE !!
- RUN FOR AMQQNRUN=0,1,2
- DO @("^AMQQN"_AMQQNRUN)
- IF $DATA(AMQQFAIL)
- DO FAIL
- DO KILL
- DO KILL1
- GOTO EXIT
- +1 DO SET
- +2 DO KILL
- +3 DO AND
- +4 IF $DATA(AMQQFAIL)
- DO FAIL
- GOTO EXIT
- +5 DO EN1^AMQQQ2
- DO KILL1
- +6 SET AMQV("OPTION")="LIST"
- +7 SET AMQQXX("FORMAT")=1
- +8 DO ^AMQQCMPL
- EXIT KILL AMQQONE,AMQQXX,AMQQNTAX,AMQQFAIL,%,%Y,A,B,C,I,J,N,S,Z,C
- +1 QUIT
- +2 ;
- SET SET AMQQXX(0)=AMQQNSBJ
- +1 SET AMQQNA=1
- +2 IF "^MALES^BOYS^MEN^"[(U_AMQQNSBJ_U)
- SET AMQQXX(99.1,1)="3^SEX;11^IS;M"
- GOTO SET1
- +3 IF "^FEMALES^GIRLS^WOMEN"[(U_AMQQNSBJ_U)
- SET AMQQXX(99.1,1)="3^SEX;11^IS;F"
- GOTO SET1
- +4 IF AMQQNSBJ="INFANTS"
- SET AMQQXX(.1,1)="33^AGE;39^LESS THAN;1"
- GOTO SET1
- SET1 IF $DATA(AMQQFAIL)
- QUIT
- +1 SET AMQQNSVL=$GET(AMQQNSVL)
- +2 IF $DATA(AMQQNATT)
- IF $DATA(AMQQNCND)
- IF $DATA(AMQQNVAL)
- +3 IF '$TEST
- QUIT
- +4 IF '$GET(AMQQCTXS)
- SET AMQQXX(AMQQNA,1)=AMQQNATT_";"_AMQQNCND_";"_AMQQNVAL
- QUIT
- +5 SET AMQQXX(AMQQNA,1)=$SELECT($GET(AMQQNCND)="MTAX":(AMQQNATT_";MTAX;"_AMQQNVAL),1:(AMQQNATT_";MULT"))
- +6 IF "MTAX"[$GET(AMQQNCND)
- IF $GET(AMQQNSUB)=""
- QUIT
- +7 IF $GET(AMQQNCND)=""
- SET AMQQXX(AMQQNA,1,1,1)=AMQQNSCD_";"_AMQQNSVL
- QUIT
- +8 IF $GET(AMQQNSUB)=""
- SET AMQQXX(AMQQNA,1,1,1)=AMQQNCND_";"_AMQQNVAL
- QUIT
- +9 IF AMQQNSTP="O"
- IF '$DATA(AMQQNISF)
- IF $DATA(AMQQONE)
- SET AMQQXX(AMQQNA,1,2,1)=AMQQNSCD_";"_AMQQNSVL
- SET AMQQXX(AMQQNA,1,1,1)=AMQQNCND_";"_AMQQNVAL
- QUIT
- +10 SET AMQQXX(AMQQNA,1,2,1)=AMQQNCND_";"_AMQQNVAL
- +11 SET AMQQXX(AMQQNA,1,1,1)=AMQQNSCD_";"_AMQQNSVL
- +12 QUIT
- +13 ;
- KILL KILL AMQQNATT,AMQQNCND,AMQQNN,AMQQNRUN,AMQQNSBJ,AMQQNSCD,AMQQNSTP,AMQQNSUB,AMQQNSVL,AMQQNVAL,AMQQQ,AUPNDAYS,AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,A,B,I,J,S,X,Y,Z,%,%Y,AMQQCTXS,AMQQLINK
- +1 QUIT
- +2 ;
- KILL1 KILL AMQQLSQF,AMQQATN,AMQQATNM,AMQQMMCC,AMQQMULT,AMQQQSTG,N,AMQQQ,AMQQYYYY,I,N,X,Y,Z,AMQQCNAM,AMQQXX,AMQQXXND,AMQQYYAT,AMQQNA,AMQQNAP
- +1 QUIT
- +2 ;
- FAIL ;EP;
- +1 IF $GET(AMQQFAIL)=-1
- QUIT
- +2 IF $DATA(AMQQNSF)
- KILL AMQQNSF
- DO KILL
- QUIT
- +3 IF AMQQFAIL=4
- WRITE !!,"I'm unable to identify the subject of the query...try again",!!,*7
- GOTO F1
- +4 WRITE !!,"Sorry, I don't understand your query. Check for spelling errors and typos."
- +5 WRITE !,"If this fails, try rewording the query. If you still fail, dont blame me..."
- +6 WRITE !,"After all, I'm only a stupid machine!!",!!,*7
- F1 READ "<>",%:DTIME
- IF '$TEST
- SET AMQQQUIT=""
- +1 DO KILL
- +2 QUIT
- +3 ;
- AND FOR AMQQNAP=1:0
- SET AMQQNAP=$ORDER(AMQQNAP(AMQQNAP))
- IF 'AMQQNAP
- QUIT
- SET AMQQNA=AMQQNA+1
- SET X=AMQQNAP(AMQQNAP)
- DO ^AMQQN2
- DO SET1
- DO KILL
- IF $DATA(AMQQFAIL)
- QUIT
- +1 QUIT
- +2 ;
