PRCFPV21 ;WISC/LEM-FMS PV4, PV5 SEGMENTS ;2/2/94 8:57 AM
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
;
PV4 ;BUILD 'PV4' SEGMENT
N SEG
S SEG="^^^^^^^^^^^"
S ^TMP($J,"PRCPV",3)="PV4^"_SEG_"^~"
Q
PV5 ;BUILD 'PV5' SEGMENT
N SEG
S SEG="^"
S ^TMP($J,"PRCPV",4)="PV5^"_SEG_"^~"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFPV21 349 printed Nov 22, 2024@17:14:24 Page 2
PRCFPV21 ;WISC/LEM-FMS PV4, PV5 SEGMENTS ;2/2/94 8:57 AM
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;
PV4 ;BUILD 'PV4' SEGMENT
+1 NEW SEG
+2 SET SEG="^^^^^^^^^^^"
+3 SET ^TMP($JOB,"PRCPV",3)="PV4^"_SEG_"^~"
+4 QUIT
PV5 ;BUILD 'PV5' SEGMENT
+1 NEW SEG
+2 SET SEG="^"
+3 SET ^TMP($JOB,"PRCPV",4)="PV5^"_SEG_"^~"
+4 QUIT
