DINIT2B4 ;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 ^DINIT2B5
Q Q
;;^DD(1.5212,10,21,1,0)
;;=Code which when executed returns the base value of X
;;^DD(1.5212,10,"DT")
;;=2960820
;;^DD(1.5212,11,0)
;;=DM_FILEMAN_FIELD_TYPE^S^F:FREE TEXT;N:NUMERIC;P:POINTER;D:DATE;W:WORD-PROCESSING;K:MUMPS;B:BOOLEAN;S:SET-OF-CODES;V:VARIABLE POINTER;^0;8^Q
;;^DD(1.5212,11,.1)
;;=FT
;;^DD(1.5212,11,1,0)
;;=^.1
;;^DD(1.5212,11,1,1,0)
;;=1.5212^D
;;^DD(1.5212,11,1,1,1)
;;=S ^DMSQ("DM","D",$E(X,1,30),DA)=""
;;^DD(1.5212,11,1,1,2)
;;=K ^DMSQ("DM","D",$E(X,1,30),DA)
;;^DD(1.5212,11,1,1,"%D",0)
;;=^^1^1^2960828^
;;^DD(1.5212,11,1,1,"%D",1,0)
;;=Domain by FileMan type
;;^DD(1.5212,11,1,1,"DT")
;;=2960828
;;^DD(1.5212,11,9)
;;=^
;;^DD(1.5212,11,21,0)
;;=^^1^1^2970225^^^^
;;^DD(1.5212,11,21,1,0)
;;=FileMan field type (F, N, D, DT, K, ...)
;;^DD(1.5212,11,23,0)
;;=^^3^3^2970225^^^^
;;^DD(1.5212,11,23,1,0)
;;=A value in this field indicates that the domain is derived from a
;;^DD(1.5212,11,23,2,0)
;;=FileMan-specific field type. It is intended to signal vendors that a
;;^DD(1.5212,11,23,3,0)
;;=proprietary function may be required to implement the domain.
;;^DD(1.5212,11,"DT")
;;=2970225
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2B4 1722 printed Dec 13, 2024@02:51:37 Page 2
DINIT2B4 ;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 ^DINIT2B5
Q QUIT
+1 ;;^DD(1.5212,10,21,1,0)
+2 ;;=Code which when executed returns the base value of X
+3 ;;^DD(1.5212,10,"DT")
+4 ;;=2960820
+5 ;;^DD(1.5212,11,0)
+6 ;;=DM_FILEMAN_FIELD_TYPE^S^F:FREE TEXT;N:NUMERIC;P:POINTER;D:DATE;W:WORD-PROCESSING;K:MUMPS;B:BOOLEAN;S:SET-OF-CODES;V:VARIABLE POINTER;^0;8^Q
+7 ;;^DD(1.5212,11,.1)
+8 ;;=FT
+9 ;;^DD(1.5212,11,1,0)
+10 ;;=^.1
+11 ;;^DD(1.5212,11,1,1,0)
+12 ;;=1.5212^D
+13 ;;^DD(1.5212,11,1,1,1)
+14 ;;=S ^DMSQ("DM","D",$E(X,1,30),DA)=""
+15 ;;^DD(1.5212,11,1,1,2)
+16 ;;=K ^DMSQ("DM","D",$E(X,1,30),DA)
+17 ;;^DD(1.5212,11,1,1,"%D",0)
+18 ;;=^^1^1^2960828^
+19 ;;^DD(1.5212,11,1,1,"%D",1,0)
+20 ;;=Domain by FileMan type
+21 ;;^DD(1.5212,11,1,1,"DT")
+22 ;;=2960828
+23 ;;^DD(1.5212,11,9)
+24 ;;=^
+25 ;;^DD(1.5212,11,21,0)
+26 ;;=^^1^1^2970225^^^^
+27 ;;^DD(1.5212,11,21,1,0)
+28 ;;=FileMan field type (F, N, D, DT, K, ...)
+29 ;;^DD(1.5212,11,23,0)
+30 ;;=^^3^3^2970225^^^^
+31 ;;^DD(1.5212,11,23,1,0)
+32 ;;=A value in this field indicates that the domain is derived from a
+33 ;;^DD(1.5212,11,23,2,0)
+34 ;;=FileMan-specific field type. It is intended to signal vendors that a
+35 ;;^DD(1.5212,11,23,3,0)
+36 ;;=proprietary function may be required to implement the domain.
+37 ;;^DD(1.5212,11,"DT")
+38 ;;=2970225
