- 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 Jan 18, 2025@03:19:22 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