- APSPDIEN ;IHS/MSC/MGH - DRUG IEN REPORT ;04-Jan-2012 12:33;MGH
- ;;7.0;IHS PHARMACY MODIFICATIONS;**1013**;Sep 23, 2004;Build 33
- EN ;EP-
- N APSPTYP,APSPNUM,APSPQ,APSPDRG,APSPDARY,APSPNAME,QFLG,APSPCNT
- S (APSPQ,APSPTYP)=""
- S APSPCNT=0
- ;All or individual drugs
- W @IOF
- W !,"Drug List Report",!!
- S APSPNUM=$$DIR^APSPUTIL("S^I:Individual Drug;A:All Drugs","Lookup Individual Drug or List ALL Drugs? ",,,.APSPQ)
- Q:APSPQ
- I APSPNUM="A" D
- .S APSPTYP=$$DIR^APSPUTIL("S^A:Active;I:Inactive;B:Both","Drug Type ",,,.APSPQ)
- I APSPNUM="I" D
- .F D Q:QFLG
- ..S APSPDRG=$$GETIEN1^APSPUTIL(50,"Select Drug Name: ",-1,"B^C^D")
- ..I APSPDRG<1 S QFLG=1 Q
- ..S APSPNAME=$$GET1^DIQ(50,APSPDRG,.01)
- ..S APSPDARY(APSPNAME)=APSPDRG
- ..S APSPCNT=APSPCNT+1
- ..S QFLG='$$DIRYN^APSPUTIL("Want to Select Another Drug","No","Enter a 'Y' or 'YES' to include more drugs in your search",.APSPQ)
- ..S:'QFLG QFLG=APSPQ
- Q:APSPQ
- D DEV
- Q
- DEV ;EP
- N XBRP,XBNS
- S XBRP="OUT^APSPDIEN"
- S XBNS="APS*"
- D ^XBDBQUE
- Q
- OUT ;EP
- N IEN,INACT,DRUG,INACTDT
- U IO
- D HDR
- K ^TMP($J)
- I APSPNUM="A" D
- .S APSPCNT=0
- .S IEN=0 F S IEN=$O(^PSDRUG(IEN)) Q:IEN=""!('+IEN) D
- ..S INACTDT=$$GET1^DIQ(50,IEN,100,"I")
- ..I INACTDT'="" D
- ...I INACTDT<DT!(INACTDT=DT) S INACT=1
- ...I INACTDT>DT S INACT=0
- ..I INACTDT="" S INACT=0
- ..I (APSPTYP="A"!(APSPTYP="B"))&(INACT=0) D
- ...S APSPNAME=$$GET1^DIQ(50,IEN,.01)
- ...S APSPDARY(APSPNAME)=IEN
- ...S APSPCNT=APSPCNT+1
- ..I (APSPTYP="I"!(APSPTYP="B"))&(INACT=1) D
- ...S APSPNAME=$$GET1^DIQ(50,IEN,.01)
- ...S APSPDARY(APSPNAME)=IEN
- ...S APSPCNT=APSPCNT+1
- S APSPQ=0
- S DRUG="" F S DRUG=$O(APSPDARY(DRUG)) Q:DRUG=""!(+APSPQ) D
- .W !,DRUG,?50,$G(APSPDARY(DRUG))
- .I $Y+4>IOSL,IOST["C-" D PAUS Q:APSPQ D HDR
- .Q:APSPQ=1
- Q
- PAUS ;
- N DTOUT,DUOUT,DIR
- S DIR("?")="Enter '^' to Halt or Press Return to continue"
- S DIR(0)="FO",DIR("A")="Press Return to continue or '^' to Halt"
- D ^DIR
- I $D(DUOUT) S APSPQ=1
- Q
- HDR ;
- I IOST["C-" W @IOF
- W !,"Drug List Report"
- W !,"Drug Name",?50,"Drug IEN",!
- Q
- APSPDIEN ;IHS/MSC/MGH - DRUG IEN REPORT ;04-Jan-2012 12:33;MGH
- +1 ;;7.0;IHS PHARMACY MODIFICATIONS;**1013**;Sep 23, 2004;Build 33
- EN ;EP-
- +1 NEW APSPTYP,APSPNUM,APSPQ,APSPDRG,APSPDARY,APSPNAME,QFLG,APSPCNT
- +2 SET (APSPQ,APSPTYP)=""
- +3 SET APSPCNT=0
- +4 ;All or individual drugs
- +5 WRITE @IOF
- +6 WRITE !,"Drug List Report",!!
- +7 SET APSPNUM=$$DIR^APSPUTIL("S^I:Individual Drug;A:All Drugs","Lookup Individual Drug or List ALL Drugs? ",,,.APSPQ)
- +8 IF APSPQ
- QUIT
- +9 IF APSPNUM="A"
- Begin DoDot:1
- +10 SET APSPTYP=$$DIR^APSPUTIL("S^A:Active;I:Inactive;B:Both","Drug Type ",,,.APSPQ)
- End DoDot:1
- +11 IF APSPNUM="I"
- Begin DoDot:1
- +12 FOR
- Begin DoDot:2
- +13 SET APSPDRG=$$GETIEN1^APSPUTIL(50,"Select Drug Name: ",-1,"B^C^D")
- +14 IF APSPDRG<1
- SET QFLG=1
- QUIT
- +15 SET APSPNAME=$$GET1^DIQ(50,APSPDRG,.01)
- +16 SET APSPDARY(APSPNAME)=APSPDRG
- +17 SET APSPCNT=APSPCNT+1
- +18 SET QFLG='$$DIRYN^APSPUTIL("Want to Select Another Drug","No","Enter a 'Y' or 'YES' to include more drugs in your search",.APSPQ)
- +19 IF 'QFLG
- SET QFLG=APSPQ
- End DoDot:2
- IF QFLG
- QUIT
- End DoDot:1
- +20 IF APSPQ
- QUIT
- +21 DO DEV
- +22 QUIT
- DEV ;EP
- +1 NEW XBRP,XBNS
- +2 SET XBRP="OUT^APSPDIEN"
- +3 SET XBNS="APS*"
- +4 DO ^XBDBQUE
- +5 QUIT
- OUT ;EP
- +1 NEW IEN,INACT,DRUG,INACTDT
- +2 USE IO
- +3 DO HDR
- +4 KILL ^TMP($JOB)
- +5 IF APSPNUM="A"
- Begin DoDot:1
- +6 SET APSPCNT=0
- +7 SET IEN=0
- FOR
- SET IEN=$ORDER(^PSDRUG(IEN))
- IF IEN=""!('+IEN)
- QUIT
- Begin DoDot:2
- +8 SET INACTDT=$$GET1^DIQ(50,IEN,100,"I")
- +9 IF INACTDT'=""
- Begin DoDot:3
- +10 IF INACTDT<DT!(INACTDT=DT)
- SET INACT=1
- +11 IF INACTDT>DT
- SET INACT=0
- End DoDot:3
- +12 IF INACTDT=""
- SET INACT=0
- +13 IF (APSPTYP="A"!(APSPTYP="B"))&(INACT=0)
- Begin DoDot:3
- +14 SET APSPNAME=$$GET1^DIQ(50,IEN,.01)
- +15 SET APSPDARY(APSPNAME)=IEN
- +16 SET APSPCNT=APSPCNT+1
- End DoDot:3
- +17 IF (APSPTYP="I"!(APSPTYP="B"))&(INACT=1)
- Begin DoDot:3
- +18 SET APSPNAME=$$GET1^DIQ(50,IEN,.01)
- +19 SET APSPDARY(APSPNAME)=IEN
- +20 SET APSPCNT=APSPCNT+1
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +21 SET APSPQ=0
- +22 SET DRUG=""
- FOR
- SET DRUG=$ORDER(APSPDARY(DRUG))
- IF DRUG=""!(+APSPQ)
- QUIT
- Begin DoDot:1
- +23 WRITE !,DRUG,?50,$GET(APSPDARY(DRUG))
- +24 IF $Y+4>IOSL
- IF IOST["C-"
- DO PAUS
- IF APSPQ
- QUIT
- DO HDR
- +25 IF APSPQ=1
- QUIT
- End DoDot:1
- +26 QUIT
- PAUS ;
- +1 NEW DTOUT,DUOUT,DIR
- +2 SET DIR("?")="Enter '^' to Halt or Press Return to continue"
- +3 SET DIR(0)="FO"
- SET DIR("A")="Press Return to continue or '^' to Halt"
- +4 DO ^DIR
- +5 IF $DATA(DUOUT)
- SET APSPQ=1
- +6 QUIT
- HDR ;
- +1 IF IOST["C-"
- WRITE @IOF
- +2 WRITE !,"Drug List Report"
- +3 WRITE !,"Drug Name",?50,"Drug IEN",!
- +4 QUIT
