|
Last change
on this file since 1780 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
