- IBCNESI ;ALB/TAZ - Potential Medicare COB Prompts ;15-JAN-2013
- ;;2.0;INTEGRATED BILLING;**497**;21-MAR-94;Build 120
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- EN ;PRIMARY ENTRY POINT
- N IBSDT,IBEDT,IBCOMP,IBREP,IBSORT,IBERD
- ;
- S IBERD=$P($O(^IBCN(365,"AD","")),".",1)
- W !,"The earliest date in the IIV RESPONSE file is "_$$FMTE^XLFDT(IBERD),!!
- Q1 ; Question 1 - Begin Search Date
- N X,Y,DIRUT
- S DIR(0)="DA^"_IBERD_":DT:EX"
- S DIR("A")="Select Earliest Report Date: ",DIR("B")="TODAY-7"
- S DIR("?",1)=" Please enter a valid date for which an eIV Response"
- S DIR("?",2)=" would have been received (earliest date is "_$$FMTE^XLFDT(IBERD)_")."
- S DIR("?")=" Future dates are not allowed."
- D ^DIR K DIR
- I $D(DIRUT) G ENQ
- S IBSDT=+Y
- ;
- Q2 ; Question 2 - End Search Date
- S DIR(0)="DA^"_IBSDT_":DT:EX"
- S DIR("A")="Select Latest Report Date ",DIR("B")="TODAY"
- S DIR("?",1)=" Please enter a valid date for which an eIV Response"
- S DIR("?",2)=" would have been received. This date must not precede"
- S DIR("?")=" the Start Date. Future dates are not allowed."
- D ^DIR K DIR
- I $D(DIRUT) G ENQ
- S IBEDT=+Y
- ;
- Q3 ;Question 3 - Sort Criteria
- N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- W !
- S DIR(0)="SA^1:Chronological Order;2:Reverse Chronological Order"
- S DIR("A")="Sort Report By: "
- S DIR("B")="Chronological Order"
- D ^DIR
- I $D(DTOUT)!$D(DUOUT)!(Y<0) G ENQ
- S IBSORT=$S(Y=2:"-1",1:"+1")
- ;
- Q4 ;
- S DIR(0)="SA^R:Report;S:Screen List"
- S DIR("A")="Do you want a (R)eport or a (S)creen List format?: "
- S DIR("B")="Screen List"
- W ! D ^DIR K DIR
- I $D(DTOUT)!$D(DUOUT) G ENQ
- S IBREP=Y
- ;
- I IBREP="S" S IBCOMP=0 D LIST^IBCNESI1 G ENQ
- ;
- Q5 ; Include completed entries
- W !!,"1) Display COMPLETED entries, but do not display any comments"
- W !,"2) Display COMPLETED entries along with any associated comments"
- W !!,"3) Display non-COMPLETED entries, but do not display any comments"
- W !,"4) Display non-COMPLETED entries along with any associated comments",!
- S DIR("A")="Which report type do you want? "
- S DIR(0)="SA^1:Display COMPLETED entries, but do not display any comments;2:Display COMPLETED entries along with any associated comments"
- S DIR(0)=DIR(0)_";3:Display non-COMPLETED entries, but do not display any comments;4:Display non-COMPLETED entries along with any associated comments"
- S DIR("B")=1
- W ! D ^DIR K DIR
- I $D(DTOUT)!$D(DUOUT) G ENQ
- S IBCOMP=Y
- ;
- Q6 ; Select device
- F S IBACT=0 D DEVSEL(.IBACT) Q:IBACT
- I IBACT=99 G ENQ
- U IO
- D LIST^IBCNESI1
- ;
- ENQ ;
- Q
- ;
- DEVSEL(IBACT) ;
- N DIR,POP,X,Y,ZTRTN,ZTSAVE,ZTDESC,IBOK,%ZIS
- W !!,"You will need a 132 column printer for this report!"
- S %ZIS="QM" D ^%ZIS I POP S IBACT=99 G DEVSELQ
- I $G(IOM),IOM<132 S IBOK=1 D I 'IBOK S IBACT=0 G DEVSELQ
- . S DIR(0)="YA",DIR("A",1)="This report requires output to a 132 column device."
- . S DIR("A",2)="The device you have chosen is only set for "_IOM_"."
- . S DIR("A")="Are you sure you want to continue?: ",DIR("B")="No"
- . W ! D ^DIR K DIR
- . I Y'=1 S IBOK=0 W !
- I $D(IO("Q")) D S IBACT=99 G DEVSELQ
- . K IO("Q")
- . S ZTRTN="LIST^IBCNESI",ZTSAVE("IBCRIT(")="",ZTSAVE("IB*")="",ZTSAVE("^TMP(""IB_POT_COB_RPT"",$J)")="",ZTDESC="IBCNE - Potential COB Report"
- . D ^%ZTLOAD K ZTSK D HOME^%ZIS
- S IBACT=1
- DEVSELQ ;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNESI 3361 printed Feb 18, 2025@23:41:50 Page 2
- IBCNESI ;ALB/TAZ - Potential Medicare COB Prompts ;15-JAN-2013
- +1 ;;2.0;INTEGRATED BILLING;**497**;21-MAR-94;Build 120
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- EN ;PRIMARY ENTRY POINT
- +1 NEW IBSDT,IBEDT,IBCOMP,IBREP,IBSORT,IBERD
- +2 ;
- +3 SET IBERD=$PIECE($ORDER(^IBCN(365,"AD","")),".",1)
- +4 WRITE !,"The earliest date in the IIV RESPONSE file is "_$$FMTE^XLFDT(IBERD),!!
- Q1 ; Question 1 - Begin Search Date
- +1 NEW X,Y,DIRUT
- +2 SET DIR(0)="DA^"_IBERD_":DT:EX"
- +3 SET DIR("A")="Select Earliest Report Date: "
- SET DIR("B")="TODAY-7"
- +4 SET DIR("?",1)=" Please enter a valid date for which an eIV Response"
- +5 SET DIR("?",2)=" would have been received (earliest date is "_$$FMTE^XLFDT(IBERD)_")."
- +6 SET DIR("?")=" Future dates are not allowed."
- +7 DO ^DIR
- KILL DIR
- +8 IF $DATA(DIRUT)
- GOTO ENQ
- +9 SET IBSDT=+Y
- +10 ;
- Q2 ; Question 2 - End Search Date
- +1 SET DIR(0)="DA^"_IBSDT_":DT:EX"
- +2 SET DIR("A")="Select Latest Report Date "
- SET DIR("B")="TODAY"
- +3 SET DIR("?",1)=" Please enter a valid date for which an eIV Response"
- +4 SET DIR("?",2)=" would have been received. This date must not precede"
- +5 SET DIR("?")=" the Start Date. Future dates are not allowed."
- +6 DO ^DIR
- KILL DIR
- +7 IF $DATA(DIRUT)
- GOTO ENQ
- +8 SET IBEDT=+Y
- +9 ;
- Q3 ;Question 3 - Sort Criteria
- +1 NEW DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- +2 WRITE !
- +3 SET DIR(0)="SA^1:Chronological Order;2:Reverse Chronological Order"
- +4 SET DIR("A")="Sort Report By: "
- +5 SET DIR("B")="Chronological Order"
- +6 DO ^DIR
- +7 IF $DATA(DTOUT)!$DATA(DUOUT)!(Y<0)
- GOTO ENQ
- +8 SET IBSORT=$SELECT(Y=2:"-1",1:"+1")
- +9 ;
- Q4 ;
- +1 SET DIR(0)="SA^R:Report;S:Screen List"
- +2 SET DIR("A")="Do you want a (R)eport or a (S)creen List format?: "
- +3 SET DIR("B")="Screen List"
- +4 WRITE !
- DO ^DIR
- KILL DIR
- +5 IF $DATA(DTOUT)!$DATA(DUOUT)
- GOTO ENQ
- +6 SET IBREP=Y
- +7 ;
- +8 IF IBREP="S"
- SET IBCOMP=0
- DO LIST^IBCNESI1
- GOTO ENQ
- +9 ;
- Q5 ; Include completed entries
- +1 WRITE !!,"1) Display COMPLETED entries, but do not display any comments"
- +2 WRITE !,"2) Display COMPLETED entries along with any associated comments"
- +3 WRITE !!,"3) Display non-COMPLETED entries, but do not display any comments"
- +4 WRITE !,"4) Display non-COMPLETED entries along with any associated comments",!
- +5 SET DIR("A")="Which report type do you want? "
- +6 SET DIR(0)="SA^1:Display COMPLETED entries, but do not display any comments;2:Display COMPLETED entries along with any associated comments"
- +7 SET DIR(0)=DIR(0)_";3:Display non-COMPLETED entries, but do not display any comments;4:Display non-COMPLETED entries along with any associated comments"
- +8 SET DIR("B")=1
- +9 WRITE !
- DO ^DIR
- KILL DIR
- +10 IF $DATA(DTOUT)!$DATA(DUOUT)
- GOTO ENQ
- +11 SET IBCOMP=Y
- +12 ;
- Q6 ; Select device
- +1 FOR
- SET IBACT=0
- DO DEVSEL(.IBACT)
- if IBACT
- QUIT
- +2 IF IBACT=99
- GOTO ENQ
- +3 USE IO
- +4 DO LIST^IBCNESI1
- +5 ;
- ENQ ;
- +1 QUIT
- +2 ;
- DEVSEL(IBACT) ;
- +1 NEW DIR,POP,X,Y,ZTRTN,ZTSAVE,ZTDESC,IBOK,%ZIS
- +2 WRITE !!,"You will need a 132 column printer for this report!"
- +3 SET %ZIS="QM"
- DO ^%ZIS
- IF POP
- SET IBACT=99
- GOTO DEVSELQ
- +4 IF $GET(IOM)
- IF IOM<132
- SET IBOK=1
- Begin DoDot:1
- +5 SET DIR(0)="YA"
- SET DIR("A",1)="This report requires output to a 132 column device."
- +6 SET DIR("A",2)="The device you have chosen is only set for "_IOM_"."
- +7 SET DIR("A")="Are you sure you want to continue?: "
- SET DIR("B")="No"
- +8 WRITE !
- DO ^DIR
- KILL DIR
- +9 IF Y'=1
- SET IBOK=0
- WRITE !
- End DoDot:1
- IF 'IBOK
- SET IBACT=0
- GOTO DEVSELQ
- +10 IF $DATA(IO("Q"))
- Begin DoDot:1
- +11 KILL IO("Q")
- +12 SET ZTRTN="LIST^IBCNESI"
- SET ZTSAVE("IBCRIT(")=""
- SET ZTSAVE("IB*")=""
- SET ZTSAVE("^TMP(""IB_POT_COB_RPT"",$J)")=""
- SET ZTDESC="IBCNE - Potential COB Report"
- +13 DO ^%ZTLOAD
- KILL ZTSK
- DO HOME^%ZIS
- End DoDot:1
- SET IBACT=99
- GOTO DEVSELQ
- +14 SET IBACT=1
- DEVSELQ ;
- +1 QUIT
- +2 ;