- BHLIQUI ; cmi/sitka/maw - BHL HL7 Immunization Query User Interface ;
- ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- ;
- ;this routine will generate a standard query message based upon
- ;the selected criteria. The message type being generated will depend
- ;upon the type of query. We will try to use defined query messages
- ;for each query. (ie. VXQ/V01, etc)
- ;
- MAIN ;-- this is the main routine driver
- K INA
- D REG
- D PT Q:$D(DUOUT)!($D(DTOUT)) Q:Y<0
- D DTR Q:$D(DIRUT)
- D REC Q:$D(DIRUT)
- K DIC,DIR,Y
- S X=$S(BHLREG:"BHL SEND IMMUNIZATION QUERY REGISTRY",1:"BHL SEND IMMUNIZATION QUERY"),DIC=101 D EN^XQOR
- D EOJ
- Q
- ;
- REG ;-- ask if this is going to a registry or not
- S DIR(0)="Y"
- S DIR("A")="Query a State Registry: "
- D ^DIR
- Q:Y<1
- S BHLREG=1
- Q
- ;
- ;
- PT ;-- get the patient
- S DIC=9000001,DIC(0)="AEMQZ",DIC("A")="Select Patient for Query: "
- D ^DIC
- Q:$D(DUOUT)!($D(DTOUT))
- Q:Y<0
- S INA("QNM",+Y)=$$VAL^XBDIQ1(2,+Y,.01)
- S BHLQDA=+Y
- K DIC
- Q
- ;support for multiples maybe later
- W !
- S DIR(0)="Y"
- S DIR("A")="Would you like to select an additional patient: "
- D ^DIR
- Q:Y<1
- S BHLQMPT=1
- G PT
- Q
- ;
- DTR ;-- get the date ranges
- W !
- S DIR(0)="Y",DIR("A")="Would like to specify a date range "
- D ^DIR
- Q:$D(DIRUT)
- Q:Y<1
- K DIR,Y
- W !
- S %DT="AE",%DT("A")="Select beginning date: "
- D ^%DT
- Q:Y<0
- S INA("QBDT")=+Y
- W !
- K %DT,Y
- S %DT="AE",%DT("A")="Select ending date: "
- D ^%DT
- Q:Y<0
- S INA("QEDT")=+Y
- K %DT,Y
- Q
- ;
- REC ;-- limit the query to number of records
- K DIR,Y
- W !
- S DIR(0)="N",DIR("A")="Please enter the number of responses "
- D ^DIR
- Q:$D(DIRUT)
- Q:Y<1
- S INA("QTY")=+Y
- K DIR,Y
- Q
- ;
- EOJ ;-- kill variables
- K BHLREG,BHLQDT,BHLQDA
- Q
- ;
- BHLIQUI ; cmi/sitka/maw - BHL HL7 Immunization Query User Interface ;
- +1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- +2 ;
- +3 ;this routine will generate a standard query message based upon
- +4 ;the selected criteria. The message type being generated will depend
- +5 ;upon the type of query. We will try to use defined query messages
- +6 ;for each query. (ie. VXQ/V01, etc)
- +7 ;
- MAIN ;-- this is the main routine driver
- +1 KILL INA
- +2 DO REG
- +3 DO PT
- IF $DATA(DUOUT)!($DATA(DTOUT))
- QUIT
- IF Y<0
- QUIT
- +4 DO DTR
- IF $DATA(DIRUT)
- QUIT
- +5 DO REC
- IF $DATA(DIRUT)
- QUIT
- +6 KILL DIC,DIR,Y
- +7 SET X=$SELECT(BHLREG:"BHL SEND IMMUNIZATION QUERY REGISTRY",1:"BHL SEND IMMUNIZATION QUERY")
- SET DIC=101
- DO EN^XQOR
- +8 DO EOJ
- +9 QUIT
- +10 ;
- REG ;-- ask if this is going to a registry or not
- +1 SET DIR(0)="Y"
- +2 SET DIR("A")="Query a State Registry: "
- +3 DO ^DIR
- +4 IF Y<1
- QUIT
- +5 SET BHLREG=1
- +6 QUIT
- +7 ;
- +8 ;
- PT ;-- get the patient
- +1 SET DIC=9000001
- SET DIC(0)="AEMQZ"
- SET DIC("A")="Select Patient for Query: "
- +2 DO ^DIC
- +3 IF $DATA(DUOUT)!($DATA(DTOUT))
- QUIT
- +4 IF Y<0
- QUIT
- +5 SET INA("QNM",+Y)=$$VAL^XBDIQ1(2,+Y,.01)
- +6 SET BHLQDA=+Y
- +7 KILL DIC
- +8 QUIT
- +9 ;support for multiples maybe later
- +10 WRITE !
- +11 SET DIR(0)="Y"
- +12 SET DIR("A")="Would you like to select an additional patient: "
- +13 DO ^DIR
- +14 IF Y<1
- QUIT
- +15 SET BHLQMPT=1
- +16 GOTO PT
- +17 QUIT
- +18 ;
- DTR ;-- get the date ranges
- +1 WRITE !
- +2 SET DIR(0)="Y"
- SET DIR("A")="Would like to specify a date range "
- +3 DO ^DIR
- +4 IF $DATA(DIRUT)
- QUIT
- +5 IF Y<1
- QUIT
- +6 KILL DIR,Y
- +7 WRITE !
- +8 SET %DT="AE"
- SET %DT("A")="Select beginning date: "
- +9 DO ^%DT
- +10 IF Y<0
- QUIT
- +11 SET INA("QBDT")=+Y
- +12 WRITE !
- +13 KILL %DT,Y
- +14 SET %DT="AE"
- SET %DT("A")="Select ending date: "
- +15 DO ^%DT
- +16 IF Y<0
- QUIT
- +17 SET INA("QEDT")=+Y
- +18 KILL %DT,Y
- +19 QUIT
- +20 ;
- REC ;-- limit the query to number of records
- +1 KILL DIR,Y
- +2 WRITE !
- +3 SET DIR(0)="N"
- SET DIR("A")="Please enter the number of responses "
- +4 DO ^DIR
- +5 IF $DATA(DIRUT)
- QUIT
- +6 IF Y<1
- QUIT
- +7 SET INA("QTY")=+Y
- +8 KILL DIR,Y
- +9 QUIT
- +10 ;
- EOJ ;-- kill variables
- +1 KILL BHLREG,BHLQDT,BHLQDA
- +2 QUIT
- +3 ;
