Last change
on this file since 1746 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
637 bytes
|
Line | |
---|
1 | PRCFD8 ;WISC/LEM-BUILD FMS PV SEGMENTS ;8/29/94 15:35
|
---|
2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | NEW(CI,ACTION) ;
|
---|
6 | HDR ; Build header segments
|
---|
7 | D PV2^PRCFD8H(CI,ACTION)
|
---|
8 | D PV3^PRCFD8H
|
---|
9 | D PV4^PRCFD8H
|
---|
10 | D PV5^PRCFD8H
|
---|
11 | S DIC=421.5,(DA,CIDA)=CI,DR=31,DR(421.531)=".01;1;2;3;4"
|
---|
12 | S DIQ="PRCTMP(",DIQ(0)="IE"
|
---|
13 | F DA(421.531)=1:1:3 D EN^DIQ1
|
---|
14 | K DA(421.531),DR S DR=41,DR(421.541)=".01;1;2;3;4"
|
---|
15 | S LINE=0 F S LINE=$O(^PRCF(421.5,CIDA,5,LINE)) Q:'+LINE D LIN(LINE)
|
---|
16 | K LINE,CIDA,DA,DIC,DIQ,DR
|
---|
17 | Q
|
---|
18 | LIN(LINE) ; Build 'LIN' segments
|
---|
19 | D LIN^PRCFD8L
|
---|
20 | D PVA^PRCFD8L
|
---|
21 | D PVB^PRCFD8L
|
---|
22 | D PVC^PRCFD8L
|
---|
23 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.