PRCFPV21.m

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 ---PRCFPV21   349     printed  Apr 09, 2024@21:17:48                                                                                                                                                                                                     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