PRCFD8 ;WISC/LEM-BUILD FMS PV SEGMENTS ;8/29/94  15:35
V ;;5.1;IFCAP;;Oct 20, 2000
 ;Per VHA Directive 10-93-142, this routine should not be modified.
 ;
NEW(CI,ACTION) ;
HDR ; Build header segments
 D PV2^PRCFD8H(CI,ACTION)
 D PV3^PRCFD8H
 D PV4^PRCFD8H
 D PV5^PRCFD8H
 S DIC=421.5,(DA,CIDA)=CI,DR=31,DR(421.531)=".01;1;2;3;4"
 S DIQ="PRCTMP(",DIQ(0)="IE"
 F DA(421.531)=1:1:3 D EN^DIQ1
 K DA(421.531),DR S DR=41,DR(421.541)=".01;1;2;3;4"
 S LINE=0 F  S LINE=$O(^PRCF(421.5,CIDA,5,LINE)) Q:'+LINE  D LIN(LINE)
 K LINE,CIDA,DA,DIC,DIQ,DR
 Q
LIN(LINE) ; Build 'LIN' segments
 D LIN^PRCFD8L
 D PVA^PRCFD8L
 D PVB^PRCFD8L
 D PVC^PRCFD8L
 Q