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 | |
---|
1 | IBCNSV ;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 | ;
|
---|
7 | NXT(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.