- IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ; 12-MAR-1993
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- EN ; -- main entry point for IBCNS INSURANCE COMPANY, IBCNS VIEW INS CO
- K VALMQUIT,VALMEVL,XQORS,^TMP("XQORS",$J),IBCNS
- S IBCHANGE="OKAY"
- I '$G(IBVIEW) D EN^VALM("IBCNS INSURANCE COMPANY") G ENQ
- D EN^VALM("IBCNS VIEW INS CO")
- ENQ Q
- ;
- HDR ; -- header code
- S VALMHDR(1)="Insurance Company Information for: "_$E($P(^DIC(36,IBCNS,0),"^"),1,30)
- S VALMHDR(2)="Type of Company: "_$E($P($G(^IBE(355.2,+$P($G(^DIC(36,+IBCNS,0)),"^",13),0)),"^"),1,20)_" Currently "_$S(+($P($G(^DIC(36,+IBCNS,0)),"^",5)):"Inactive",1:"Active")
- Q
- ;
- INIT ; -- init variables and list array
- K VALMQUIT
- S VALMCNT=0,VALMBG=1
- I '$D(IBCNS) D INSCO Q:$D(VALMQUIT)
- D BLD,HDR
- Q
- BLD ; -- list builder
- K ^TMP("IBCNSC",$J)
- D KILL^VALM10()
- F I=1:1:65 D BLANK(.I)
- S VALMCNT=61
- D PARAM^IBCNSC01,MAIN^IBCNSC01,CLAIMS1^IBCNSC0,CLAIMS2^IBCNSC0,PRESCR^IBCNSC1,APPEALS,INQUIRY,REMARKS^IBCNSC01,SYN^IBCNSC01
- S VALMCNT=61+$G(IBLCNT)
- Q
- ;
- APPEALS ;
- N OFFSET,START,IBCNS14,IBADD
- S IBCNS14=$$ADDRESS^IBCNSC0(IBCNS,.14,7)
- S START=40,OFFSET=2
- D SET^IBCNSP(START,OFFSET+25," Appeals Office Information ",IORVON,IORVOFF)
- D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS14,"^",7),0)),"^",1))
- D SET^IBCNSP(START+2,OFFSET," Street: "_$P(IBCNS14,"^",1))
- D SET^IBCNSP(START+3,OFFSET," Street 2: "_$P(IBCNS14,"^",2))
- N OFFSET S OFFSET=45
- D SET^IBCNSP(START+1,OFFSET," Street 3: "_$P(IBCNS14,"^",3)) S IBADD=1
- D SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$E($P(IBCNS14,"^",4),1,15)_$S($P(IBCNS14,"^",4)="":"",1:", ")_$P($G(^DIC(5,+$P(IBCNS14,"^",5),0)),"^",2)_" "_$E($P(IBCNS14,"^",6),1,5))
- D SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$P(IBCNS14,"^",8))
- D SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$P(IBCNS14,"^",9))
- Q
- ;
- INQUIRY ;
- ;
- N OFFSET,START,IBCNS15,IBADD
- S IBCNS15=$$ADDRESS^IBCNSC0(IBCNS,.15,8)
- S START=47,OFFSET=2
- D SET^IBCNSP(START,OFFSET+25," Inquiry Office Information ",IORVON,IORVOFF)
- D SET^IBCNSP(START+1,OFFSET," Company Name: "_$P($G(^DIC(36,+$P(IBCNS15,"^",7),0)),"^",1))
- D SET^IBCNSP(START+2,OFFSET," Street: "_$P(IBCNS15,"^"))
- D SET^IBCNSP(START+3,OFFSET," Street 2: "_$P(IBCNS15,"^",2))
- N OFFSET S OFFSET=45
- D SET^IBCNSP(START+1,OFFSET," Street 3: "_$P(IBCNS15,"^",3)) S IBADD=1
- D SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$E($P(IBCNS15,"^",4),1,15)_$S($P(IBCNS15,"^",4)="":"",1:", ")_$P($G(^DIC(5,+$P(IBCNS15,"^",5),0)),"^",2)_" "_$E($P(IBCNS15,"^",6),1,5))
- D SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$P(IBCNS15,"^",8))
- D SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$P(IBCNS15,"^",9))
- Q
- ;
- HELP ; -- help code
- S X="?" D DISP^XQORM1 W !!
- Q
- ;
- EXIT ; -- exit code
- K VALMQUIT,IBCNS,IBCHANGE
- D CLEAN^VALM10
- Q
- ;
- INSCO ; -- select insurance company
- I '$D(IBCNS) D G:$D(VALMQUIT) INSCOQ
- .S DIC="^DIC(36,",DIC(0)="AEQMZ"
- .I '$G(IBVIEW) S DLAYGO=36,DIC(0)=DIC(0)_"L"
- .D ^DIC K DIC
- .S IBCNS=+Y
- I $G(IBCNS)<1 K IBCNS S VALMQUIT="" G INSCOQ
- INSCOQ ;
- K DIC
- Q
- ;
- BLANK(LINE) ; -- Build blank line
- D SET^VALM10(.LINE,$J("",80))
- Q
- CC ; -- change insurance company
- S IBCNS1=IBCNS D INSCO
- Q
- IBCNSC ;ALB/NLR - INSURANCE COMPANY EDIT ; 12-MAR-1993
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- EN ; -- main entry point for IBCNS INSURANCE COMPANY, IBCNS VIEW INS CO
- +1 KILL VALMQUIT,VALMEVL,XQORS,^TMP("XQORS",$JOB),IBCNS
- +2 SET IBCHANGE="OKAY"
- +3 IF '$GET(IBVIEW)
- DO EN^VALM("IBCNS INSURANCE COMPANY")
- GOTO ENQ
- +4 DO EN^VALM("IBCNS VIEW INS CO")
- ENQ QUIT
- +1 ;
- HDR ; -- header code
- +1 SET VALMHDR(1)="Insurance Company Information for: "_$EXTRACT($PIECE(^DIC(36,IBCNS,0),"^"),1,30)
- +2 SET VALMHDR(2)="Type of Company: "_$EXTRACT($PIECE($GET(^IBE(355.2,+$PIECE($GET(^DIC(36,+IBCNS,0)),"^",13),0)),"^"),1,20)_" Currently "_$SELECT(+($PIECE($GET(^DIC(36,+IBCNS,0)),"^",5)):"Inactive",1:"Active")
- +3 QUIT
- +4 ;
- INIT ; -- init variables and list array
- +1 KILL VALMQUIT
- +2 SET VALMCNT=0
- SET VALMBG=1
- +3 IF '$DATA(IBCNS)
- DO INSCO
- IF $DATA(VALMQUIT)
- QUIT
- +4 DO BLD
- DO HDR
- +5 QUIT
- BLD ; -- list builder
- +1 KILL ^TMP("IBCNSC",$JOB)
- +2 DO KILL^VALM10()
- +3 FOR I=1:1:65
- DO BLANK(.I)
- +4 SET VALMCNT=61
- +5 DO PARAM^IBCNSC01
- DO MAIN^IBCNSC01
- DO CLAIMS1^IBCNSC0
- DO CLAIMS2^IBCNSC0
- DO PRESCR^IBCNSC1
- DO APPEALS
- DO INQUIRY
- DO REMARKS^IBCNSC01
- DO SYN^IBCNSC01
- +6 SET VALMCNT=61+$GET(IBLCNT)
- +7 QUIT
- +8 ;
- APPEALS ;
- +1 NEW OFFSET,START,IBCNS14,IBADD
- +2 SET IBCNS14=$$ADDRESS^IBCNSC0(IBCNS,.14,7)
- +3 SET START=40
- SET OFFSET=2
- +4 DO SET^IBCNSP(START,OFFSET+25," Appeals Office Information ",IORVON,IORVOFF)
- +5 DO SET^IBCNSP(START+1,OFFSET," Company Name: "_$PIECE($GET(^DIC(36,+$PIECE(IBCNS14,"^",7),0)),"^",1))
- +6 DO SET^IBCNSP(START+2,OFFSET," Street: "_$PIECE(IBCNS14,"^",1))
- +7 DO SET^IBCNSP(START+3,OFFSET," Street 2: "_$PIECE(IBCNS14,"^",2))
- +8 NEW OFFSET
- SET OFFSET=45
- +9 DO SET^IBCNSP(START+1,OFFSET," Street 3: "_$PIECE(IBCNS14,"^",3))
- SET IBADD=1
- +10 DO SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$EXTRACT($PIECE(IBCNS14,"^",4),1,15)_$SELECT($PIECE(IBCNS14,"^",4)="":"",1:", ")_$PIECE($GET(^DIC(5,+$PIECE(IBCNS14,"^",5),0)),"^",2)_" "_$EXTRACT($PIECE(IBCNS14,"^",6),1,5))
- +11 DO SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$PIECE(IBCNS14,"^",8))
- +12 DO SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$PIECE(IBCNS14,"^",9))
- +13 QUIT
- +14 ;
- INQUIRY ;
- +1 ;
- +2 NEW OFFSET,START,IBCNS15,IBADD
- +3 SET IBCNS15=$$ADDRESS^IBCNSC0(IBCNS,.15,8)
- +4 SET START=47
- SET OFFSET=2
- +5 DO SET^IBCNSP(START,OFFSET+25," Inquiry Office Information ",IORVON,IORVOFF)
- +6 DO SET^IBCNSP(START+1,OFFSET," Company Name: "_$PIECE($GET(^DIC(36,+$PIECE(IBCNS15,"^",7),0)),"^",1))
- +7 DO SET^IBCNSP(START+2,OFFSET," Street: "_$PIECE(IBCNS15,"^"))
- +8 DO SET^IBCNSP(START+3,OFFSET," Street 2: "_$PIECE(IBCNS15,"^",2))
- +9 NEW OFFSET
- SET OFFSET=45
- +10 DO SET^IBCNSP(START+1,OFFSET," Street 3: "_$PIECE(IBCNS15,"^",3))
- SET IBADD=1
- +11 DO SET^IBCNSP(START+1+IBADD,OFFSET," City/State: "_$EXTRACT($PIECE(IBCNS15,"^",4),1,15)_$SELECT($PIECE(IBCNS15,"^",4)="":"",1:", ")_$PIECE($GET(^DIC(5,+$PIECE(IBCNS15,"^",5),0)),"^",2)_" "_$EXTRACT($PIECE(IBCNS15,"^",6),1,5))
- +12 DO SET^IBCNSP(START+2+IBADD,OFFSET," Phone: "_$PIECE(IBCNS15,"^",8))
- +13 DO SET^IBCNSP(START+3+IBADD,OFFSET," Fax: "_$PIECE(IBCNS15,"^",9))
- +14 QUIT
- +15 ;
- HELP ; -- help code
- +1 SET X="?"
- DO DISP^XQORM1
- WRITE !!
- +2 QUIT
- +3 ;
- EXIT ; -- exit code
- +1 KILL VALMQUIT,IBCNS,IBCHANGE
- +2 DO CLEAN^VALM10
- +3 QUIT
- +4 ;
- INSCO ; -- select insurance company
- +1 IF '$DATA(IBCNS)
- Begin DoDot:1
- +2 SET DIC="^DIC(36,"
- SET DIC(0)="AEQMZ"
- +3 IF '$GET(IBVIEW)
- SET DLAYGO=36
- SET DIC(0)=DIC(0)_"L"
- +4 DO ^DIC
- KILL DIC
- +5 SET IBCNS=+Y
- End DoDot:1
- IF $DATA(VALMQUIT)
- GOTO INSCOQ
- +6 IF $GET(IBCNS)<1
- KILL IBCNS
- SET VALMQUIT=""
- GOTO INSCOQ
- INSCOQ ;
- +1 KILL DIC
- +2 QUIT
- +3 ;
- BLANK(LINE) ; -- Build blank line
- +1 DO SET^VALM10(.LINE,$JUSTIFY("",80))
- +2 QUIT
- CC ; -- change insurance company
- +1 SET IBCNS1=IBCNS
- DO INSCO
- +2 QUIT
