DINIT24 ;SFISC/GFT-INITIALIZE VA FILEMAN ;13NOV2012
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
K ^DD(.5)
;BRING IN DD FOR FUNCTION FILE .5
S ^DIC(.5,"%D",0)="^^4^4^2940908^"
S ^DIC(.5,"%D",1,0)="This file stores information about FUNCTIONS used by FileMan. The first"
S ^DIC(.5,"%D",2,0)="100 records in this file are reserved for functions brought in during the"
S ^DIC(.5,"%D",3,0)="FileMan INIT process. The rest of the file is available for other"
S ^DIC(.5,"%D",4,0)="developers to enter their own functions."
DD F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) G ^DINIT25:X?.P S @("^DD(.5,"_$E($P(X," ",2),3,99)_")=Y")
;;0 ATTRIBUTE^
;;0,"NM","FUNCTION"
;;.01,0 NAME^RF^^0;1^K:$L(X)<2!($L(X)>30)!(X'?1U.ANP)!(X["$") X
;;.01,1,0 ^.1^1^1
;;.01,1,1,0 .5^B
;;.01,1,1,1 S @(DIC_"""B"",X,DA)=""""")
;;.01,1,1,2 K @(DIC_"""B"",X,DA)")
;;.01,3 Function Name must be 2-30 characters long, beginning with Alpha.
;;.01,"DEL",1,0 I DA<100
;;.02,0 MUMPS CODE^FR^^1;E1,255^D ^DIM I $D(X),'$D(DIQUIET),'$D(DDS) W " ..OK"
;;.02,3 Enter MUMPS code that sets a value into 'X'.
;;.02,4 N D1 S D1(1)="For a 1-argument function, use 'X' as the argument.",D1(2)="For a 2-argument function, use 'X1' and 'X'.",D1(3)="Avoid FORs, IFs, and single-character scratch variables.",D1(4)="" D EN^DDIOL(.D1)
;;.02,9 @
;;1,0 EXPLANATION^F^^9;E1,245^K:$L(X)>245 X
;;2,0 DATE-VALUED^S^D:YES;X:NO;O:OPTIONAL (DEPENDS ON VALUE OF ARGUMENT);^2;1^Q
;;9,0 NUMBER OF ARGUMENTS^N^^3;1^K:X\1'=X!(X>8) X
;;10,0 WORD-PROCESSING^S^W:MEANINGFUL ONLY FOR W-P;^10;1
;;
OSDD ; BRING IN DD FOR MUMPS OS FILE .7 (CALLED FROM ^DINIT)
F I=2:1 S X=$T(OSDD+I),Y=$P(X," ",3,99) Q:X?.P S @("^DD(.7,"_$E($P(X," ",2),3,99)_")=Y")
;;0 FIELD^
;;.01,0 NAME^F^^0;1^Q
;;.01,1,0 ^.1^1^1
;;.01,1,1,0 .7^B
;;.01,1,1,1 S ^DD("OS","B",X,DA)=""
;;.01,1,1,2 K ^DD("OS","B",X,DA)
;;.01,21,0 ^^1^1^2940909^^
;;.01,21,1,0 Name of a MUMPS operating system that is supported by VA FileMan.
;;1,0 BREAK LOGIC^RF^^1;E1,250^D ^DIM
;;1,9 @
;;1,21,0 ^^2^2^2940909^^
;;1,21,1,0 MUMPS code to enable terminal break, i.e., to allow the user to interrupt
;;1,21,2,0 processing with <CTRL-C>.
;;419,0 MINIMUM SAFE $S^N^^0;2^K:+X'=X X
;;419,21,0 ^^1^1^2940909^
;;419,21,1,0 The minimum value for $S that will allow routines to process successfully.
;;2,0 GLOBAL LENGTH (MAX)^RN^^0;3^K:+X'=X!(X<30) X
;;2,21,0 ^^1^1^2940909^^
;;2,21,1,0 Maximum allowable length of a global.
;;3,0 ROUTINE SIZE (MAX)^RN^^0;4^K:+X'=X!(X<2048) X
;;3,21,0 ^^1^1^2940909^
;;3,21,1,0 Maximum allowable size of a routine.
;;4,0 CLOSING PRINCIPAL DEVICE^S^1:ALLOWED;^0;5^Q
;;4,21,0 ^^1^1^2940909^
;;4,21,1,0 Is closing a job's principal device allowed?
;;5,0 NEW COMMAND^S^1:SUPPORTED;^0;6^Q
;;5,21,0 ^^1^1^2940909^
;;5,21,1,0 Is the NEW command supported?
;;7,0 INDIVIDUAL SUBSCRIPT LENGTH^N^^0;7^K:X\1'=X!(X<9) X
;;7,21,0 ^^1^1^2940909^
;;7,21,1,0 Maximum length of an individual subscript.
;;8,0 SAVE SYMBOL TABLE^F^^8;E1,250^D ^DIM
;;8,9 @
;;8,21,0 ^^1^1^2940909^
;;8,21,1,0 MUMPS code that saves the contents of the local symbol table.
;;9,0 RIGHT MARGIN^K^^RM;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;9,3 Enter MUMPS code, 1-245 characters.
;;9,9 @
;;9,21,0 ^.001^1^1^3121113^^
;;9,21,1,0 Sets the $I width to X characters. If X=0, then the line in set to no wrap.
;;9,"DT" 3121113
;;10,0 CHECK EXISTENCE OF UCI^K^^UCICHECK;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;10,3 Enter MUMPS code, 1-245 characters.
;;10,9 @
;;10,21,0 ^^1^1^3121113^
;;10,21,1,0 Returns Y'="" if X is a valid UCI name.
;;10,"DT" 3121113
;;11,0 ECHO OFF^K^^EOFF;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;11,3 Enter MUMPS code, 1-245 characters.
;;11,9 @
;;11,21,0 ^^1^1^3121113^
;;11,21,1,0 Turn off echo to the $I device.
;;11,"DT" 3121113
;;12,0 ECHO ON^K^^EON;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;12,3 Enter MUMPS code, 1-245 characters.
;;12,9 @
;;12,21,0 ^^1^1^3121113^
;;12,21,1,0 Turn on echo to the $I device.
;;12,"DT" 3121113
;;21,0 TURN OFF READ TERMINATORS^K^^TRMOFF;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;21,3 Enter MUMPS code, 1-245 characters.
;;21,9 @
;;21,21,0 ^^1^1^3121113^
;;21,21,1,0 Turns off all controls as terminators.
;;21,"DT" 3121113
;;22,0 TURN ON READ TERMINATORS^K^^TRMON;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;22,3 Enter MUMPS code, 1-245 characters.
;;22,9 @
;;22,21,0 ^^1^1^3121113^
;;22,21,1,0 Turns on all controls as terminators.
;;22,"DT" 3121113
;;23,0 GET READ TERMINATOR^K^^TRMRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;23,3 Enter MUMPS code, 1-245 characters.
;;23,9 @
;;23,21,0 ^^1^1^3121113^
;;23,21,1,0 Returns in Y what terminated the last READ.
;;23,"DT" 3121113
;;31,0 DISABLE TYPE AHEAD BUFFERING^K^^NO-TYPE-AHEAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;31,3 Enter MUMPS code, 1-245 characters.
;;31,9 @
;;31,21,0 ^^1^1^3121113^
;;31,21,1,0 Turn off the TYPE-AHEAD for the device $I.
;;31,"DT" 3121113
;;32,0 ENABLE TYPE AHEAD BUFFERING^K^^TYPE-AHEAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;32,3 Enter MUMPS code, 1-245 characters.
;;32,9 @
;;32,21,0 ^^1^1^3121113^
;;32,21,1,0 Allow TYPE-AHEAD for the device $I.
;;32,"DT" 3121113
;;1820,0 ROUTINE EXISTENCE TEST^F^^18;E1,250^D ^DIM
;;1820,9 @
;;1820,21,0 ^^1^1^2940909^
;;1820,21,1,0 MUMPS code that tests for the existence of a routine.
;;2425,0 SET $X & $Y FROM 'IOX' & 'IOY'^F^^XY;E1,250^D ^DIM
;;2425,9 @
;;2425,21,0 ^^2^2^2940909^^
;;2425,21,1,0 MUMPS code to XECUTE to move the position of the cursor to the position
;;2425,21,2,0 specified by the variables IOX and IOY.
;;2619,0 ZSAVE CODE^F^^ZS;E1,250^D ^DIM
;;2619,9 @
;;2619,21,0 ^^4^4^2940909^
;;2619,21,1,0 MUMPS code that will save a routine to disk. The name of the routine
;;2619,21,2,0 must be in variable X. The source code of the routine should be stored
;;2619,21,3,0 in ^UTLITY($J,0,%Y). Each node of the array will become a line of the
;;2619,21,4,0 routine.
;;2620,0 DELETE ROUTINE^K^^DEL;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;2620,3 Enter MUMPS code, 1-245 characters.
;;2620,9 @
;;2620,21,0 ^^1^1^3121113^
;;2620,21,1,0 Delete the routine named in X from the UCI.
;;2620,"DT" 3121113
;;2621,0 LOAD ROUTINE INTO ARRAY^K^^LOAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;2621,3 Enter MUMPS code, 1-245 characters.
;;2621,9 @
;;2621,21,0 ^^1^1^3121113^
;;2621,21,1,0 Load routine X into @(DIE_"XCNP,0)".
;;2621,"DT" 3121113
;;2622,0 SELECT ROUTINES^K^^RSEL;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;2622,3 Enter MUMPS code, 1-245 characters.
;;2622,9 @
;;2622,21,0 ^^1^1^3121113^
;;2622,21,1,0 Returns the user's selection of routines in ^UTILITY($J,"routine name").
;;2622,"DT" 3121113
;;21400,0 HIGHEST CHARACTER VALUE^F^^HIGHESTCHAR;E1,250^D ^DIM
;;21400,3 Enter MUMPS code, 1-245 characters.
;;21400,9 @
;;21400,21,0 ^^1^1^3110515
;;21400,21,1,0 MUMPS code that sets into the "Y" variable the highest ('stop') character for the current MUMPS environment
;;190416,0 WRITE FROM SDP^F^^SDP;E1,250^D ^DIM
;;190416,9 @
;;190416,21,0 ^^4^4^2940909^
;;190416,21,1,0 MUMPS code that READs data from SDP and WRITEs it to a device. The $I
;;190416,21,2,0 value of the SDP device should be in variable DIO and the $I value
;;190416,21,3,0 for the output device in IO. The DLP variable should contain the open
;;190416,21,4,0 parameters of the SDP device.
;;190416.1,0 FIND SDP END^F^^SDPEND;E1,250^D ^DIM
;;190416.1,9 @
;;190416.1,21,0 ^^1^1^2940909^
;;190416.1,21,1,0 MUMPS code that tests for the end of SDP.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT24 7895 printed Nov 22, 2024@18:00:48 Page 2
DINIT24 ;SFISC/GFT-INITIALIZE VA FILEMAN ;13NOV2012
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 KILL ^DD(.5)
+8 ;BRING IN DD FOR FUNCTION FILE .5
+9 SET ^DIC(.5,"%D",0)="^^4^4^2940908^"
+10 SET ^DIC(.5,"%D",1,0)="This file stores information about FUNCTIONS used by FileMan. The first"
+11 SET ^DIC(.5,"%D",2,0)="100 records in this file are reserved for functions brought in during the"
+12 SET ^DIC(.5,"%D",3,0)="FileMan INIT process. The rest of the file is available for other"
+13 SET ^DIC(.5,"%D",4,0)="developers to enter their own functions."
DD FOR I=1:1
SET X=$TEXT(DD+I)
SET Y=$PIECE(X," ",3,99)
if X?.P
GOTO ^DINIT25
SET @("^DD(.5,"_$EXTRACT($PIECE(X," ",2),3,99)_")=Y")
+1 ;;0 ATTRIBUTE^
+2 ;;0,"NM","FUNCTION"
+3 ;;.01,0 NAME^RF^^0;1^K:$L(X)<2!($L(X)>30)!(X'?1U.ANP)!(X["$") X
+4 ;;.01,1,0 ^.1^1^1
+5 ;;.01,1,1,0 .5^B
+6 ;;.01,1,1,1 S @(DIC_"""B"",X,DA)=""""")
+7 ;;.01,1,1,2 K @(DIC_"""B"",X,DA)")
+8 ;;.01,3 Function Name must be 2-30 characters long, beginning with Alpha.
+9 ;;.01,"DEL",1,0 I DA<100
+10 ;;.02,0 MUMPS CODE^FR^^1;E1,255^D ^DIM I $D(X),'$D(DIQUIET),'$D(DDS) W " ..OK"
+11 ;;.02,3 Enter MUMPS code that sets a value into 'X'.
+12 ;;.02,4 N D1 S D1(1)="For a 1-argument function, use 'X' as the argument.",D1(2)="For a 2-argument function, use 'X1' and 'X'.",D1(3)="Avoid FORs, IFs, and single-character scratch variables.",D1(4)="" D EN^DDIOL(.D1)
+13 ;;.02,9 @
+14 ;;1,0 EXPLANATION^F^^9;E1,245^K:$L(X)>245 X
+15 ;;2,0 DATE-VALUED^S^D:YES;X:NO;O:OPTIONAL (DEPENDS ON VALUE OF ARGUMENT);^2;1^Q
+16 ;;9,0 NUMBER OF ARGUMENTS^N^^3;1^K:X\1'=X!(X>8) X
+17 ;;10,0 WORD-PROCESSING^S^W:MEANINGFUL ONLY FOR W-P;^10;1
+18 ;;
OSDD ; BRING IN DD FOR MUMPS OS FILE .7 (CALLED FROM ^DINIT)
+1 FOR I=2:1
SET X=$TEXT(OSDD+I)
SET Y=$PIECE(X," ",3,99)
if X?.P
QUIT
SET @("^DD(.7,"_$EXTRACT($PIECE(X," ",2),3,99)_")=Y")
+2 ;;0 FIELD^
+3 ;;.01,0 NAME^F^^0;1^Q
+4 ;;.01,1,0 ^.1^1^1
+5 ;;.01,1,1,0 .7^B
+6 ;;.01,1,1,1 S ^DD("OS","B",X,DA)=""
+7 ;;.01,1,1,2 K ^DD("OS","B",X,DA)
+8 ;;.01,21,0 ^^1^1^2940909^^
+9 ;;.01,21,1,0 Name of a MUMPS operating system that is supported by VA FileMan.
+10 ;;1,0 BREAK LOGIC^RF^^1;E1,250^D ^DIM
+11 ;;1,9 @
+12 ;;1,21,0 ^^2^2^2940909^^
+13 ;;1,21,1,0 MUMPS code to enable terminal break, i.e., to allow the user to interrupt
+14 ;;1,21,2,0 processing with <CTRL-C>.
+15 ;;419,0 MINIMUM SAFE $S^N^^0;2^K:+X'=X X
+16 ;;419,21,0 ^^1^1^2940909^
+17 ;;419,21,1,0 The minimum value for $S that will allow routines to process successfully.
+18 ;;2,0 GLOBAL LENGTH (MAX)^RN^^0;3^K:+X'=X!(X<30) X
+19 ;;2,21,0 ^^1^1^2940909^^
+20 ;;2,21,1,0 Maximum allowable length of a global.
+21 ;;3,0 ROUTINE SIZE (MAX)^RN^^0;4^K:+X'=X!(X<2048) X
+22 ;;3,21,0 ^^1^1^2940909^
+23 ;;3,21,1,0 Maximum allowable size of a routine.
+24 ;;4,0 CLOSING PRINCIPAL DEVICE^S^1:ALLOWED;^0;5^Q
+25 ;;4,21,0 ^^1^1^2940909^
+26 ;;4,21,1,0 Is closing a job's principal device allowed?
+27 ;;5,0 NEW COMMAND^S^1:SUPPORTED;^0;6^Q
+28 ;;5,21,0 ^^1^1^2940909^
+29 ;;5,21,1,0 Is the NEW command supported?
+30 ;;7,0 INDIVIDUAL SUBSCRIPT LENGTH^N^^0;7^K:X\1'=X!(X<9) X
+31 ;;7,21,0 ^^1^1^2940909^
+32 ;;7,21,1,0 Maximum length of an individual subscript.
+33 ;;8,0 SAVE SYMBOL TABLE^F^^8;E1,250^D ^DIM
+34 ;;8,9 @
+35 ;;8,21,0 ^^1^1^2940909^
+36 ;;8,21,1,0 MUMPS code that saves the contents of the local symbol table.
+37 ;;9,0 RIGHT MARGIN^K^^RM;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+38 ;;9,3 Enter MUMPS code, 1-245 characters.
+39 ;;9,9 @
+40 ;;9,21,0 ^.001^1^1^3121113^^
+41 ;;9,21,1,0 Sets the $I width to X characters. If X=0, then the line in set to no wrap.
+42 ;;9,"DT" 3121113
+43 ;;10,0 CHECK EXISTENCE OF UCI^K^^UCICHECK;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+44 ;;10,3 Enter MUMPS code, 1-245 characters.
+45 ;;10,9 @
+46 ;;10,21,0 ^^1^1^3121113^
+47 ;;10,21,1,0 Returns Y'="" if X is a valid UCI name.
+48 ;;10,"DT" 3121113
+49 ;;11,0 ECHO OFF^K^^EOFF;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+50 ;;11,3 Enter MUMPS code, 1-245 characters.
+51 ;;11,9 @
+52 ;;11,21,0 ^^1^1^3121113^
+53 ;;11,21,1,0 Turn off echo to the $I device.
+54 ;;11,"DT" 3121113
+55 ;;12,0 ECHO ON^K^^EON;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+56 ;;12,3 Enter MUMPS code, 1-245 characters.
+57 ;;12,9 @
+58 ;;12,21,0 ^^1^1^3121113^
+59 ;;12,21,1,0 Turn on echo to the $I device.
+60 ;;12,"DT" 3121113
+61 ;;21,0 TURN OFF READ TERMINATORS^K^^TRMOFF;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+62 ;;21,3 Enter MUMPS code, 1-245 characters.
+63 ;;21,9 @
+64 ;;21,21,0 ^^1^1^3121113^
+65 ;;21,21,1,0 Turns off all controls as terminators.
+66 ;;21,"DT" 3121113
+67 ;;22,0 TURN ON READ TERMINATORS^K^^TRMON;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+68 ;;22,3 Enter MUMPS code, 1-245 characters.
+69 ;;22,9 @
+70 ;;22,21,0 ^^1^1^3121113^
+71 ;;22,21,1,0 Turns on all controls as terminators.
+72 ;;22,"DT" 3121113
+73 ;;23,0 GET READ TERMINATOR^K^^TRMRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+74 ;;23,3 Enter MUMPS code, 1-245 characters.
+75 ;;23,9 @
+76 ;;23,21,0 ^^1^1^3121113^
+77 ;;23,21,1,0 Returns in Y what terminated the last READ.
+78 ;;23,"DT" 3121113
+79 ;;31,0 DISABLE TYPE AHEAD BUFFERING^K^^NO-TYPE-AHEAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+80 ;;31,3 Enter MUMPS code, 1-245 characters.
+81 ;;31,9 @
+82 ;;31,21,0 ^^1^1^3121113^
+83 ;;31,21,1,0 Turn off the TYPE-AHEAD for the device $I.
+84 ;;31,"DT" 3121113
+85 ;;32,0 ENABLE TYPE AHEAD BUFFERING^K^^TYPE-AHEAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+86 ;;32,3 Enter MUMPS code, 1-245 characters.
+87 ;;32,9 @
+88 ;;32,21,0 ^^1^1^3121113^
+89 ;;32,21,1,0 Allow TYPE-AHEAD for the device $I.
+90 ;;32,"DT" 3121113
+91 ;;1820,0 ROUTINE EXISTENCE TEST^F^^18;E1,250^D ^DIM
+92 ;;1820,9 @
+93 ;;1820,21,0 ^^1^1^2940909^
+94 ;;1820,21,1,0 MUMPS code that tests for the existence of a routine.
+95 ;;2425,0 SET $X & $Y FROM 'IOX' & 'IOY'^F^^XY;E1,250^D ^DIM
+96 ;;2425,9 @
+97 ;;2425,21,0 ^^2^2^2940909^^
+98 ;;2425,21,1,0 MUMPS code to XECUTE to move the position of the cursor to the position
+99 ;;2425,21,2,0 specified by the variables IOX and IOY.
+100 ;;2619,0 ZSAVE CODE^F^^ZS;E1,250^D ^DIM
+101 ;;2619,9 @
+102 ;;2619,21,0 ^^4^4^2940909^
+103 ;;2619,21,1,0 MUMPS code that will save a routine to disk. The name of the routine
+104 ;;2619,21,2,0 must be in variable X. The source code of the routine should be stored
+105 ;;2619,21,3,0 in ^UTLITY($J,0,%Y). Each node of the array will become a line of the
+106 ;;2619,21,4,0 routine.
+107 ;;2620,0 DELETE ROUTINE^K^^DEL;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+108 ;;2620,3 Enter MUMPS code, 1-245 characters.
+109 ;;2620,9 @
+110 ;;2620,21,0 ^^1^1^3121113^
+111 ;;2620,21,1,0 Delete the routine named in X from the UCI.
+112 ;;2620,"DT" 3121113
+113 ;;2621,0 LOAD ROUTINE INTO ARRAY^K^^LOAD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+114 ;;2621,3 Enter MUMPS code, 1-245 characters.
+115 ;;2621,9 @
+116 ;;2621,21,0 ^^1^1^3121113^
+117 ;;2621,21,1,0 Load routine X into @(DIE_"XCNP,0)".
+118 ;;2621,"DT" 3121113
+119 ;;2622,0 SELECT ROUTINES^K^^RSEL;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+120 ;;2622,3 Enter MUMPS code, 1-245 characters.
+121 ;;2622,9 @
+122 ;;2622,21,0 ^^1^1^3121113^
+123 ;;2622,21,1,0 Returns the user's selection of routines in ^UTILITY($J,"routine name").
+124 ;;2622,"DT" 3121113
+125 ;;21400,0 HIGHEST CHARACTER VALUE^F^^HIGHESTCHAR;E1,250^D ^DIM
+126 ;;21400,3 Enter MUMPS code, 1-245 characters.
+127 ;;21400,9 @
+128 ;;21400,21,0 ^^1^1^3110515
+129 ;;21400,21,1,0 MUMPS code that sets into the "Y" variable the highest ('stop') character for the current MUMPS environment
+130 ;;190416,0 WRITE FROM SDP^F^^SDP;E1,250^D ^DIM
+131 ;;190416,9 @
+132 ;;190416,21,0 ^^4^4^2940909^
+133 ;;190416,21,1,0 MUMPS code that READs data from SDP and WRITEs it to a device. The $I
+134 ;;190416,21,2,0 value of the SDP device should be in variable DIO and the $I value
+135 ;;190416,21,3,0 for the output device in IO. The DLP variable should contain the open
+136 ;;190416,21,4,0 parameters of the SDP device.
+137 ;;190416.1,0 FIND SDP END^F^^SDPEND;E1,250^D ^DIM
+138 ;;190416.1,9 @
+139 ;;190416.1,21,0 ^^1^1^2940909^
+140 ;;190416.1,21,1,0 MUMPS code that tests for the end of SDP.
