source:
WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFPV21.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 335 bytes |
Line | |
---|---|
1 | PRCFPV21 ;WISC/LEM-FMS PV4, PV5 SEGMENTS ;2/2/94 8:57 AM |
2 | V ;;5.1;IFCAP;;Oct 20, 2000 |
3 | ;Per VHA Directive 10-93-142, this routine should not be modified. |
4 | ; |
5 | PV4 ;BUILD 'PV4' SEGMENT |
6 | N SEG |
7 | S SEG="^^^^^^^^^^^" |
8 | S ^TMP($J,"PRCPV",3)="PV4^"_SEG_"^~" |
9 | Q |
10 | PV5 ;BUILD 'PV5' SEGMENT |
11 | N SEG |
12 | S SEG="^" |
13 | S ^TMP($J,"PRCPV",4)="PV5^"_SEG_"^~" |
14 | Q |
Note:
See TracBrowser
for help on using the repository browser.