- PSOSPMDL ;BIRM/SJA - State Prescription Monitoring Program - Delete unexported batch ;09/20/20
- ;;7.0;OUTPATIENT PHARMACY;**625**;DEC 1997;Build 42
- ;
- EN ; - entry point for the PSO SPMP1 DELETE BATCH protocol
- N %DT,DIR,DIRUT,X,DIC,DTOUT,DUOUT,Y
- N II,SELECT,BATCH,EXPORT
- D FULL^VALM1 W !
- ;
- I $G(^TMP("PSOSPML1",$J,1,0))["There are no export batches" W !!,"Nothing to be deleted!",$C(7) D ENTER G END
- K DIC W ! S DIR("A")="Select batch(es) to delete",DIR(0)="L^"_VALMBG_":"_VALMLST D ^DIR
- K DIR I Y["^"!($D(DTOUT))!($D(DUOUT)) W !!,?3,"Nothing selected to delete",! G END
- S SELECT=Y
- F II=1:1:$L(SELECT,",") Q:'$P(SELECT,",",II) D
- . S BATCH=$G(^TMP("PSOSPML1",$J,$P(SELECT,",",II),"BAT")),EXPORT=$$GET1^DIQ(58.42,BATCH,9,"I")
- . I EXPORT W !!,"Batch #",BATCH," may not be deleted; it has been exported to the state.",$C(7) D ENTER:(II=($L(SELECT,",")-1)) Q
- . I 'EXPORT D DEL(BATCH)
- G BACK
- Q
- ;
- DEL(BATCH) ; delete selected batch(es)
- K DIR,DIRUT,DTOUT
- W !! K DIR S DIR(0)="Y",DIR("B")="Y"
- S DIR("A",1)="This action cannot be recovered once complete."
- S DIR("A")="Are you sure you want to delete batch #"_BATCH_" (Y/N)"
- D ^DIR K DIR I Y'=1 W !,"No action taken for batch #",BATCH D ENTER Q
- S DA=BATCH,DIK="^PS(58.42," D ^DIK K DA,DIK W !,"Deleting batch #",BATCH," ...",! D ENTER
- Q
- ;
- ENTER ;
- K DIR S DIR("A")="Press Return to continue",DIR(0)="E" D ^DIR
- Q
- ;
- BACK ; go back to the list
- D INIT^PSOSPML1 I 'VALMCNT Q
- ;
- END S VALMBCK="R"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOSPMDL 1497 printed Mar 13, 2025@21:39:53 Page 2
- PSOSPMDL ;BIRM/SJA - State Prescription Monitoring Program - Delete unexported batch ;09/20/20
- +1 ;;7.0;OUTPATIENT PHARMACY;**625**;DEC 1997;Build 42
- +2 ;
- EN ; - entry point for the PSO SPMP1 DELETE BATCH protocol
- +1 NEW %DT,DIR,DIRUT,X,DIC,DTOUT,DUOUT,Y
- +2 NEW II,SELECT,BATCH,EXPORT
- +3 DO FULL^VALM1
- WRITE !
- +4 ;
- +5 IF $GET(^TMP("PSOSPML1",$JOB,1,0))["There are no export batches"
- WRITE !!,"Nothing to be deleted!",$CHAR(7)
- DO ENTER
- GOTO END
- +6 KILL DIC
- WRITE !
- SET DIR("A")="Select batch(es) to delete"
- SET DIR(0)="L^"_VALMBG_":"_VALMLST
- DO ^DIR
- +7 KILL DIR
- IF Y["^"!($DATA(DTOUT))!($DATA(DUOUT))
- WRITE !!,?3,"Nothing selected to delete",!
- GOTO END
- +8 SET SELECT=Y
- +9 FOR II=1:1:$LENGTH(SELECT,",")
- if '$PIECE(SELECT,",",II)
- QUIT
- Begin DoDot:1
- +10 SET BATCH=$GET(^TMP("PSOSPML1",$JOB,$PIECE(SELECT,",",II),"BAT"))
- SET EXPORT=$$GET1^DIQ(58.42,BATCH,9,"I")
- +11 IF EXPORT
- WRITE !!,"Batch #",BATCH," may not be deleted; it has been exported to the state.",$CHAR(7)
- if (II=($LENGTH(SELECT,",")-1))
- DO ENTER
- QUIT
- +12 IF 'EXPORT
- DO DEL(BATCH)
- End DoDot:1
- +13 GOTO BACK
- +14 QUIT
- +15 ;
- DEL(BATCH) ; delete selected batch(es)
- +1 KILL DIR,DIRUT,DTOUT
- +2 WRITE !!
- KILL DIR
- SET DIR(0)="Y"
- SET DIR("B")="Y"
- +3 SET DIR("A",1)="This action cannot be recovered once complete."
- +4 SET DIR("A")="Are you sure you want to delete batch #"_BATCH_" (Y/N)"
- +5 DO ^DIR
- KILL DIR
- IF Y'=1
- WRITE !,"No action taken for batch #",BATCH
- DO ENTER
- QUIT
- +6 SET DA=BATCH
- SET DIK="^PS(58.42,"
- DO ^DIK
- KILL DA,DIK
- WRITE !,"Deleting batch #",BATCH," ...",!
- DO ENTER
- +7 QUIT
- +8 ;
- ENTER ;
- +1 KILL DIR
- SET DIR("A")="Press Return to continue"
- SET DIR(0)="E"
- DO ^DIR
- +2 QUIT
- +3 ;
- BACK ; go back to the list
- +1 DO INIT^PSOSPML1
- IF 'VALMCNT
- QUIT
- +2 ;
- END SET VALMBCK="R"
- +1 QUIT
