Routine: IBCNSM4

IBCNSM4	;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ; 21-OCT-92

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

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

%	; -- main entry point

EN	;

	D DT^DICRW

	K XQORS,VALMEVL,DFN,IBFASTXT

	I '$G(IBVIEW) D EN^VALM("IBCNS PATIENT INSURANCE")

	I $G(IBVIEW) D EN^VALM("IBCNS VIEW PAT INS")

ENQ	K DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE

INIT	; -- set up inital variables

	S U="^",VALMCNT=0,VALMBG=1

	K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)

	D:'$D(DFN) PAT G:$D(VALMQUIT) INITQ

	D BLD^IBCNSM

INITQ	Q

PAT	; -- select patient you are working with

	S DIC(0)="AEQMN",DIC="^DPT(" D ^DIC I +Y<1 S VALMQUIT="" Q

	S DFN=+Y

HDR	; -- screen header for initial screen

	D PID^VADPT

	S VALMHDR(1)="Insurance Management for Patient: "_$E($P($G(^DPT(DFN,0)),"^"),1,20)_" "_$E($G(^(0)),1)_VA("BID")

	S VALMHDR(2)=" "

FNL	; -- exit and clean up

	K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)

	K IBFASTXT

	D CLEAN^VALM10

IBCNSM4   ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ; 21-OCT-92

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

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

 +3       ;

%         ; -- main entry point

EN        ;

 +1        DO DT^DICRW

 +2        KILL XQORS,VALMEVL,DFN,IBFASTXT

 +3        IF '$GET(IBVIEW)

               DO EN^VALM("IBCNS PATIENT INSURANCE")

 +4        IF $GET(IBVIEW)

               DO EN^VALM("IBCNS VIEW PAT INS")

ENQ        KILL DFN,IBFASTXT,IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE

 +1        QUIT

 +2       ;

 +3       ;

INIT      ; -- set up inital variables

 +1        SET U="^"

           SET VALMCNT=0

           SET VALMBG=1

 +2        KILL ^TMP("IBNSM",$JOB),^TMP("IBNSMDX",$JOB)

 +3        IF '$DATA(DFN)

               DO PAT

           IF $DATA(VALMQUIT)

               GOTO INITQ

 +4        DO BLD^IBCNSM

 +5       ;

INITQ      QUIT

 +1       ;

 +2       ;

PAT       ; -- select patient you are working with

 +1        SET DIC(0)="AEQMN"

           SET DIC="^DPT("

           DO ^DIC

           IF +Y<1

               SET VALMQUIT=""

               QUIT

 +2        SET DFN=+Y

 +3        QUIT

 +4       ;

HDR       ; -- screen header for initial screen

 +1        DO PID^VADPT

 +2        SET VALMHDR(1)="Insurance Management for Patient: "_$EXTRACT($PIECE($GET(^DPT(DFN,0)),"^"),1,20)_" "_$EXTRACT($GET(^(0)),1)_VA("BID")

 +3        SET VALMHDR(2)=" "

 +4        QUIT

 +5       ;

FNL       ; -- exit and clean up

 +1        KILL ^TMP("IBNSM",$JOB),^TMP("IBNSMDX",$JOB)

 +2        KILL IBFASTXT

 +3        DO CLEAN^VALM10

 +4        QUIT

IBCNSM4.m