DINIT2BA ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
;;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.
;
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
G ^DINIT2BB
Q Q
;;^DD(1.5217,11,.1)
;;=Ext. Frm.
;;^DD(1.5217,11,3)
;;=Type a Number between 1 and 511, 0 Decimal Digits
;;^DD(1.5217,11,9)
;;=^
;;^DD(1.5217,11,21,0)
;;=^^2^2^2960926^^^
;;^DD(1.5217,11,21,1,0)
;;=First character to be extracted with $EXTRACT
;;^DD(1.5217,11,21,2,0)
;;=NULL unless specified by form E1,30.
;;^DD(1.5217,11,"DT")
;;=2960926
;;^DD(1.5217,12,0)
;;=C_EXTRACT_THRU^NJ3,0^^0;13^K:+X'=X!(X>511)!(X<1)!(X?.E1"."1N.N) X
;;^DD(1.5217,12,.1)
;;=Ext. Thru
;;^DD(1.5217,12,3)
;;=Type a Number between 1 and 511, 0 Decimal Digits
;;^DD(1.5217,12,9)
;;=^
;;^DD(1.5217,12,21,0)
;;=^^1^1^2960926^^
;;^DD(1.5217,12,21,1,0)
;;=Last character to extract with $E
;;^DD(1.5217,12,"DT")
;;=2960926
;;^DD(1.5217,13,0)
;;=C_COMPUTE_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(1.5217,13,.1)
;;=Computation
;;^DD(1.5217,13,3)
;;=M code to return value in {V}: machine generated
;;^DD(1.5217,13,4)
;;=W ?5,"Enter code to return value in {V}"
;;^DD(1.5217,13,9)
;;=^
;;^DD(1.5217,13,21,0)
;;=^^1^1^2970311^^^^
;;^DD(1.5217,13,21,1,0)
;;=Computation execute uses $$GET1^DIQ to return code by default
;;^DD(1.5217,13,"DT")
;;=2960926
;;^DD(1.5217,14,0)
;;=C_FM_EXEC^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(1.5217,14,.1)
;;=FileMan Retrieval Strategy
;;^DD(1.5217,14,3)
;;=Don't enter manually: machine generated.
;;^DD(1.5217,14,4)
;;=W ?5,"Don't enter this. It should be auto-generated."
;;^DD(1.5217,14,9)
;;=^
;;^DD(1.5217,14,21,0)
;;=^^2^2^2970311^^^^
;;^DD(1.5217,14,21,1,0)
;;=Standard $$GET1^DIQ code to return value of pointer, variable pointer
;;^DD(1.5217,14,21,2,0)
;;=and computed values, or when security flag is set
;;^DD(1.5217,14,"DT")
;;=2960926
;;^DD(1.5217,15,0)
;;=C_POINTER^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(1.5217,15,.1)
;;=Pointer or Set Param
;;^DD(1.5217,15,3)
;;=This is Standard MUMPS code.
;;^DD(1.5217,15,9)
;;=^
;;^DD(1.5217,15,21,0)
;;=^^1^1^2960926^
;;^DD(1.5217,15,21,1,0)
;;=Set translation string for SET, or global root for POINTER
;;^DD(1.5217,15,"DT")
;;=2960906
;;^DD(1.5217,16,0)
;;=C_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;4^Q
;;^DD(1.5217,16,.1)
;;=Output Format
;;^DD(1.5217,16,1,0)
;;=^.1
;;^DD(1.5217,16,1,1,0)
;;=1.5217^E
;;^DD(1.5217,16,1,1,1)
;;=S ^DMSQ("C","E",$E(X,1,30),DA)=""
;;^DD(1.5217,16,1,1,2)
;;=K ^DMSQ("C","E",$E(X,1,30),DA)
;;^DD(1.5217,16,1,1,"%D",0)
;;=^^1^1^2960909^
;;^DD(1.5217,16,1,1,"%D",1,0)
;;=Column by output format
;;^DD(1.5217,16,1,1,"DT")
;;=2960909
;;^DD(1.5217,16,9)
;;=^
;;^DD(1.5217,16,21,0)
;;=^^2^2^2960926^
;;^DD(1.5217,16,21,1,0)
;;=IEN of default output format in SQLI_OUTPUT_FORMAT for this column
;;^DD(1.5217,16,21,2,0)
;;=Always present for SET, POINTER and VARIABLE-POINTER data types
;;^DD(1.5217,16,"DT")
;;=2960926
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2BA 3456 printed Dec 13, 2024@02:51:43 Page 2
DINIT2BA ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
+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 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+8 GOTO ^DINIT2BB
Q QUIT
+1 ;;^DD(1.5217,11,.1)
+2 ;;=Ext. Frm.
+3 ;;^DD(1.5217,11,3)
+4 ;;=Type a Number between 1 and 511, 0 Decimal Digits
+5 ;;^DD(1.5217,11,9)
+6 ;;=^
+7 ;;^DD(1.5217,11,21,0)
+8 ;;=^^2^2^2960926^^^
+9 ;;^DD(1.5217,11,21,1,0)
+10 ;;=First character to be extracted with $EXTRACT
+11 ;;^DD(1.5217,11,21,2,0)
+12 ;;=NULL unless specified by form E1,30.
+13 ;;^DD(1.5217,11,"DT")
+14 ;;=2960926
+15 ;;^DD(1.5217,12,0)
+16 ;;=C_EXTRACT_THRU^NJ3,0^^0;13^K:+X'=X!(X>511)!(X<1)!(X?.E1"."1N.N) X
+17 ;;^DD(1.5217,12,.1)
+18 ;;=Ext. Thru
+19 ;;^DD(1.5217,12,3)
+20 ;;=Type a Number between 1 and 511, 0 Decimal Digits
+21 ;;^DD(1.5217,12,9)
+22 ;;=^
+23 ;;^DD(1.5217,12,21,0)
+24 ;;=^^1^1^2960926^^
+25 ;;^DD(1.5217,12,21,1,0)
+26 ;;=Last character to extract with $E
+27 ;;^DD(1.5217,12,"DT")
+28 ;;=2960926
+29 ;;^DD(1.5217,13,0)
+30 ;;=C_COMPUTE_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+31 ;;^DD(1.5217,13,.1)
+32 ;;=Computation
+33 ;;^DD(1.5217,13,3)
+34 ;;=M code to return value in {V}: machine generated
+35 ;;^DD(1.5217,13,4)
+36 ;;=W ?5,"Enter code to return value in {V}"
+37 ;;^DD(1.5217,13,9)
+38 ;;=^
+39 ;;^DD(1.5217,13,21,0)
+40 ;;=^^1^1^2970311^^^^
+41 ;;^DD(1.5217,13,21,1,0)
+42 ;;=Computation execute uses $$GET1^DIQ to return code by default
+43 ;;^DD(1.5217,13,"DT")
+44 ;;=2960926
+45 ;;^DD(1.5217,14,0)
+46 ;;=C_FM_EXEC^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+47 ;;^DD(1.5217,14,.1)
+48 ;;=FileMan Retrieval Strategy
+49 ;;^DD(1.5217,14,3)
+50 ;;=Don't enter manually: machine generated.
+51 ;;^DD(1.5217,14,4)
+52 ;;=W ?5,"Don't enter this. It should be auto-generated."
+53 ;;^DD(1.5217,14,9)
+54 ;;=^
+55 ;;^DD(1.5217,14,21,0)
+56 ;;=^^2^2^2970311^^^^
+57 ;;^DD(1.5217,14,21,1,0)
+58 ;;=Standard $$GET1^DIQ code to return value of pointer, variable pointer
+59 ;;^DD(1.5217,14,21,2,0)
+60 ;;=and computed values, or when security flag is set
+61 ;;^DD(1.5217,14,"DT")
+62 ;;=2960926
+63 ;;^DD(1.5217,15,0)
+64 ;;=C_POINTER^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+65 ;;^DD(1.5217,15,.1)
+66 ;;=Pointer or Set Param
+67 ;;^DD(1.5217,15,3)
+68 ;;=This is Standard MUMPS code.
+69 ;;^DD(1.5217,15,9)
+70 ;;=^
+71 ;;^DD(1.5217,15,21,0)
+72 ;;=^^1^1^2960926^
+73 ;;^DD(1.5217,15,21,1,0)
+74 ;;=Set translation string for SET, or global root for POINTER
+75 ;;^DD(1.5217,15,"DT")
+76 ;;=2960906
+77 ;;^DD(1.5217,16,0)
+78 ;;=C_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;4^Q
+79 ;;^DD(1.5217,16,.1)
+80 ;;=Output Format
+81 ;;^DD(1.5217,16,1,0)
+82 ;;=^.1
+83 ;;^DD(1.5217,16,1,1,0)
+84 ;;=1.5217^E
+85 ;;^DD(1.5217,16,1,1,1)
+86 ;;=S ^DMSQ("C","E",$E(X,1,30),DA)=""
+87 ;;^DD(1.5217,16,1,1,2)
+88 ;;=K ^DMSQ("C","E",$E(X,1,30),DA)
+89 ;;^DD(1.5217,16,1,1,"%D",0)
+90 ;;=^^1^1^2960909^
+91 ;;^DD(1.5217,16,1,1,"%D",1,0)
+92 ;;=Column by output format
+93 ;;^DD(1.5217,16,1,1,"DT")
+94 ;;=2960909
+95 ;;^DD(1.5217,16,9)
+96 ;;=^
+97 ;;^DD(1.5217,16,21,0)
+98 ;;=^^2^2^2960926^
+99 ;;^DD(1.5217,16,21,1,0)
+100 ;;=IEN of default output format in SQLI_OUTPUT_FORMAT for this column
+101 ;;^DD(1.5217,16,21,2,0)
+102 ;;=Always present for SET, POINTER and VARIABLE-POINTER data types
+103 ;;^DD(1.5217,16,"DT")
+104 ;;=2960926
