24 lines
637 B
Mathematica
24 lines
637 B
Mathematica
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
|