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 |
Rev | Line | |
---|---|---|
[613] | 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.