source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNSV.m@ 1703

Last change on this file since 1703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 591 bytes
Line 
1IBCNSV ;ALB/AAS - INS. MGMT, INVOKE LIST TEMPLATE ;06-JUL-93
2 ;;2.0;INTEGRATED BILLING;**276**; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;also used for IA #4694
6 ;
7NXT(IBTMPNM) ; -- Go to next template
8 ; -- Input template name
9 N VALMY,I,J,IBXXV
10 D EN^VALM2($G(XQORNOD(0)))
11 D FULL^VALM1 W !!
12 I $D(VALMY) S IBXXV=0 F S IBXXV=$O(VALMY(IBXXV)) Q:'IBXXV D
13 .S IBPPOL=$G(^TMP("IBNSMDX",$J,$O(^TMP("IBNSM",$J,"IDX",IBXXV,0))))
14 .Q:IBPPOL=""
15 .S IBCNS=$P(IBPPOL,"^",5),IBCPOL=$P(IBPPOL,"^",22)
16 .D EN^VALM(IBTMPNM)
17 .Q
18 D BLD^IBCNSM
19 S VALMBCK="R"
20 Q
Note: See TracBrowser for help on using the repository browser.