source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFD8.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 637 bytes
Line 
1PRCFD8 ;WISC/LEM-BUILD FMS PV SEGMENTS ;8/29/94 15:35
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5NEW(CI,ACTION) ;
6HDR ; 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
18LIN(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.