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
