IBCNSV.m

IBCNSV	;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ; 06-JUL-93

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

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

	;

	;

NXT(IBTMPNM)	; -- Go to next template

	; -- Input template name

	N VALMY,I,J,IBXXV

	D EN^VALM2($G(XQORNOD(0)))

	D FULL^VALM1 W !!

	I $D(VALMY) S IBXXV=0 F  S IBXXV=$O(VALMY(IBXXV)) Q:'IBXXV  D

	.S IBPPOL=$G(^TMP("IBNSMDX",$J,$O(^TMP("IBNSM",$J,"IDX",IBXXV,0))))

	.Q:IBPPOL=""

	.S IBCNS=$P(IBPPOL,"^",5),IBCPOL=$P(IBPPOL,"^",22)

	.D EN^VALM(IBTMPNM)

	.Q

	D BLD^IBCNSM

	S VALMBCK="R"

	Q

IBCNSV    ;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ; 06-JUL-93

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

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

 +3       ;

 +4       ;

NXT(IBTMPNM) ; -- Go to next template

 +1       ; -- Input template name

 +2        NEW VALMY,I,J,IBXXV

 +3        DO EN^VALM2($GET(XQORNOD(0)))

 +4        DO FULL^VALM1

           WRITE !!

 +5        IF $DATA(VALMY)

               SET IBXXV=0

               FOR 

                   SET IBXXV=$ORDER(VALMY(IBXXV))

                   IF 'IBXXV

                       QUIT 

                   Begin DoDot:1

 +6                    SET IBPPOL=$GET(^TMP("IBNSMDX",$JOB,$ORDER(^TMP("IBNSM",$JOB,"IDX",IBXXV,0))))

 +7                    IF IBPPOL=""

                           QUIT 

 +8                    SET IBCNS=$PIECE(IBPPOL,"^",5)

                       SET IBCPOL=$PIECE(IBPPOL,"^",22)

 +9                    DO EN^VALM(IBTMPNM)

 +10                   QUIT 

                   End DoDot:1

 +11       DO BLD^IBCNSM

 +12       SET VALMBCK="R"

 +13       QUIT