|
Last change
on this file since 1006 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.
