source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBBASCI.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 929 bytes
Line 
1IBBASCI ;OAK/ELZ - CIDC SWITCH UTILITIES ;16-DEC-2004
2 ;;2.0;INTEGRATED BILLING;**260**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;
6 ;
7CIDC(DFN) ; function to look up the status for DFN and switch
8 N IBINS,IBSTAT
9 S IBINS=$S('DFN:1,1:$$INSUR^IBBAPI(DFN))
10 I IBINS<0 S IBINS=1
11 S IBSTAT=$$STAT
12 Q $S(IBSTAT=2:1,IBSTAT=0:0,IBSTAT=1&('IBINS):0,1:1)
13 ;
14STAT() ; looks up the status of the CIDC switch
15 N IBPAR,IBENT
16 D ENVAL^XPAR(.IBPAR,"IB CIDC INSURANCE CHECK")
17 S IBENT=$O(IBPAR(""))
18 Q $S('IBENT:1,$L($G(IBPAR(IBENT,1))):$G(IBPAR(IBENT,1)),1:1)
19 ;
20SET ; option to change switch data
21 W !!,"The switch will change when CIDC prompts are displayed for related applications."
22 W !,"When changing this option, great care should be executed for it will change the"
23 W !,"display of CIDC prompts to both providers and back door users.",!!
24 ;
25 D EDITPAR^XPAREDIT("IB CIDC INSURANCE CHECK")
26 ;
27 Q
Note: See TracBrowser for help on using the repository browser.