Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCNSV

IBCNSV.m

Go to the documentation of this file.
  1. IBCNSV ;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ;06-JUL-93
  1. ;;2.0;INTEGRATED BILLING;**276**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;also used for IA #4694
  1. ;
  1. NXT(IBTMPNM) ; -- Go to next template
  1. ; -- Input template name
  1. N VALMY,I,J,IBXXV
  1. D EN^VALM2($G(XQORNOD(0)))
  1. D FULL^VALM1 W !!
  1. I $D(VALMY) S IBXXV=0 F S IBXXV=$O(VALMY(IBXXV)) Q:'IBXXV D
  1. .S IBPPOL=$G(^TMP("IBNSMDX",$J,$O(^TMP("IBNSM",$J,"IDX",IBXXV,0))))
  1. .Q:IBPPOL=""
  1. .S IBCNS=$P(IBPPOL,"^",5),IBCPOL=$P(IBPPOL,"^",22)
  1. .D EN^VALM(IBTMPNM)
  1. .Q
  1. D BLD^IBCNSM
  1. S VALMBCK="R"
  1. Q