DINIT2AC ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 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(ENTRY+I) G:X="" ^DINIT2B0 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DD("KEY",.1101,0)
;;=.11^A^P^.1101^^
;;^DD("KEY",.1101,2,0)
;;=^.312I^2^2
;;^DD("KEY",.1101,2,1,0)
;;=.01^.11^1
;;^DD("KEY",.1101,2,2,0)
;;=.02^.11^2
;;^DD("KEY",.11401,0)
;;=.114^A^P^.11401^^
;;^DD("KEY",.11401,2,0)
;;=^.312I^1^1
;;^DD("KEY",.11401,2,1,0)
;;=.01^.114^1
;;^DD("KEY",.3101,0)
;;=.31^A^P^.3101^^
;;^DD("KEY",.3101,2,0)
;;=^.312I^2^2
;;^DD("KEY",.3101,2,1,0)
;;=.01^.31^1
;;^DD("KEY",.3101,2,2,0)
;;=.02^.31^2
;;^DD("KEY",.31201,0)
;;=.312^A^P^.31201^^
;;^DD("KEY",.31201,2,0)
;;=^.312I^2^2
;;^DD("KEY",.31201,2,1,0)
;;=.01^.312^1
;;^DD("KEY",.31201,2,2,0)
;;=.02^.312^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2AC 1134 printed Dec 13, 2024@02:51:33 Page 2
DINIT2AC ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 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(ENTRY+I)
if X=""
GOTO ^DINIT2B0
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DD("KEY",.1101,0)
+2 ;;=.11^A^P^.1101^^
+3 ;;^DD("KEY",.1101,2,0)
+4 ;;=^.312I^2^2
+5 ;;^DD("KEY",.1101,2,1,0)
+6 ;;=.01^.11^1
+7 ;;^DD("KEY",.1101,2,2,0)
+8 ;;=.02^.11^2
+9 ;;^DD("KEY",.11401,0)
+10 ;;=.114^A^P^.11401^^
+11 ;;^DD("KEY",.11401,2,0)
+12 ;;=^.312I^1^1
+13 ;;^DD("KEY",.11401,2,1,0)
+14 ;;=.01^.114^1
+15 ;;^DD("KEY",.3101,0)
+16 ;;=.31^A^P^.3101^^
+17 ;;^DD("KEY",.3101,2,0)
+18 ;;=^.312I^2^2
+19 ;;^DD("KEY",.3101,2,1,0)
+20 ;;=.01^.31^1
+21 ;;^DD("KEY",.3101,2,2,0)
+22 ;;=.02^.31^2
+23 ;;^DD("KEY",.31201,0)
+24 ;;=.312^A^P^.31201^^
+25 ;;^DD("KEY",.31201,2,0)
+26 ;;=^.312I^2^2
+27 ;;^DD("KEY",.31201,2,1,0)
+28 ;;=.01^.312^1
+29 ;;^DD("KEY",.31201,2,2,0)
+30 ;;=.02^.312^2
