IBBASCI.m

IBBASCI ;OAK/ELZ - CIDC SWITCH UTILITIES ;16-DEC-2004

 ;;2.0;INTEGRATED BILLING;**260**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ;

 ;

CIDC(DFN) ; function to look up the status for DFN and switch

 N IBINS,IBSTAT

 S IBINS=$S('DFN:1,1:$$INSUR^IBBAPI(DFN))

 I IBINS<0 S IBINS=1

 S IBSTAT=$$STAT

 Q $S(IBSTAT=2:1,IBSTAT=0:0,IBSTAT=1&('IBINS):0,1:1)

 ;

STAT() ; looks up the status of the CIDC switch

 N IBPAR,IBENT

 D ENVAL^XPAR(.IBPAR,"IB CIDC INSURANCE CHECK")

 S IBENT=$O(IBPAR(""))

 Q $S('IBENT:1,$L($G(IBPAR(IBENT,1))):$G(IBPAR(IBENT,1)),1:1)

 ;

SET ; option to change switch data

 W !!,"The switch will change when CIDC prompts are displayed for related applications."

 W !,"When changing this option, great care should be executed for it will change the"

 W !,"display of CIDC prompts to both providers and back door users.",!!

 ;

 D EDITPAR^XPAREDIT("IB CIDC INSURANCE CHECK")

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBBASCI   956     printed  Dec 13, 2024@02:08:23                                                                                                                                                                                                      Page 2

IBBASCI   ;OAK/ELZ - CIDC SWITCH UTILITIES ;16-DEC-2004

 +1       ;;2.0;INTEGRATED BILLING;**260**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;

 +5       ;

CIDC(DFN) ; function to look up the status for DFN and switch

 +1        NEW IBINS,IBSTAT

 +2        SET IBINS=$SELECT('DFN:1,1:$$INSUR^IBBAPI(DFN))

 +3        IF IBINS<0

               SET IBINS=1

 +4        SET IBSTAT=$$STAT

 +5        QUIT $SELECT(IBSTAT=2:1,IBSTAT=0:0,IBSTAT=1&('IBINS):0,1:1)

 +6       ;

STAT()    ; looks up the status of the CIDC switch

 +1        NEW IBPAR,IBENT

 +2        DO ENVAL^XPAR(.IBPAR,"IB CIDC INSURANCE CHECK")

 +3        SET IBENT=$ORDER(IBPAR(""))

 +4        QUIT $SELECT('IBENT:1,$LENGTH($GET(IBPAR(IBENT,1))):$GET(IBPAR(IBENT,1)),1:1)

 +5       ;

SET       ; option to change switch data

 +1        WRITE !!,"The switch will change when CIDC prompts are displayed for related applications."

 +2        WRITE !,"When changing this option, great care should be executed for it will change the"

 +3        WRITE !,"display of CIDC prompts to both providers and back door users.",!!

 +4       ;

 +5        DO EDITPAR^XPAREDIT("IB CIDC INSURANCE CHECK")

 +6       ;

 +7        QUIT