IBCNSV ;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ;06-JUL-93
;;2.0;INTEGRATED BILLING;**276**; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;also used for IA #4694
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSV 611 printed Dec 13, 2024@02:18:10 Page 2
IBCNSV ;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ;06-JUL-93
+1 ;;2.0;INTEGRATED BILLING;**276**; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;also used for IA #4694
+5 ;
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
