DIPR26 ;SFISC/SO- PRE INSTALL ROUTINE FOR PATCH DI*22.0*26;12:23 PM 6 Jan 2000
;;22.0;VA FileMan;**26**;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
; Make SCREEN field of Variable Pointer DD Required
;
; Current:
; ^DD(.12,1,0) = SCREEN^FX^^1;E1,240^K:$L(X)>240!...D:$D(X) ^DIM
;
; To:
; ^DD(.12,1,0) = SCREEN^RFX^^1;E1,240^K:$L(X)>240!...D:$D(X) ^DIM
;
S $P(^DD(.12,1,0),"^",2)="RFX"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR26 449 printed Dec 13, 2024@02:53:21 Page 2
DIPR26 ;SFISC/SO- PRE INSTALL ROUTINE FOR PATCH DI*22.0*26;12:23 PM 6 Jan 2000
+1 ;;22.0;VA FileMan;**26**;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ; Make SCREEN field of Variable Pointer DD Required
+4 ;
+5 ; Current:
+6 ; ^DD(.12,1,0) = SCREEN^FX^^1;E1,240^K:$L(X)>240!...D:$D(X) ^DIM
+7 ;
+8 ; To:
+9 ; ^DD(.12,1,0) = SCREEN^RFX^^1;E1,240^K:$L(X)>240!...D:$D(X) ^DIM
+10 ;
+11 SET $PIECE(^DD(.12,1,0),"^",2)="RFX"
+12 QUIT
