- DINIT2AB ;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="" ^DINIT2AC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
- Q
- ENTRY ;
- ;;^DD("IX",.31203,0)
- ;;=.312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS
- ;;^DD("IX",.31203,.1,0)
- ;;=^^4^4^2980911^
- ;;^DD("IX",.31203,.1,1,0)
- ;;=The S index, a compound index on all fields of the Fields multiple of the
- ;;^DD("IX",.31203,.1,2,0)
- ;;=Key file, lets FileMan step through the key fields in sequence. This is
- ;;^DD("IX",.31203,.1,3,0)
- ;;=essential for prompting, returning values, as well as for the generation
- ;;^DD("IX",.31203,.1,4,0)
- ;;=of each key's uniqueness index.
- ;;^DD("IX",.31203,1)
- ;;=S ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)=""
- ;;^DD("IX",.31203,2)
- ;;=K ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)
- ;;^DD("IX",.31203,2.5)
- ;;=K ^DD("KEY",DA(1),2,"S")
- ;;^DD("IX",.31203,11.1,0)
- ;;=^.114^3^3
- ;;^DD("IX",.31203,11.1,1,0)
- ;;=1^F^.312^1^^1
- ;;^DD("IX",.31203,11.1,2,0)
- ;;=2^F^.312^.01^^2
- ;;^DD("IX",.31203,11.1,3,0)
- ;;=3^F^.312^.02^^3
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2AB 1415 printed Feb 19, 2025@00:17:46 Page 2
- DINIT2AB ;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 ^DINIT2AC
- SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- +8 QUIT
- ENTRY ;
- +1 ;;^DD("IX",.31203,0)
- +2 ;;=.312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS
- +3 ;;^DD("IX",.31203,.1,0)
- +4 ;;=^^4^4^2980911^
- +5 ;;^DD("IX",.31203,.1,1,0)
- +6 ;;=The S index, a compound index on all fields of the Fields multiple of the
- +7 ;;^DD("IX",.31203,.1,2,0)
- +8 ;;=Key file, lets FileMan step through the key fields in sequence. This is
- +9 ;;^DD("IX",.31203,.1,3,0)
- +10 ;;=essential for prompting, returning values, as well as for the generation
- +11 ;;^DD("IX",.31203,.1,4,0)
- +12 ;;=of each key's uniqueness index.
- +13 ;;^DD("IX",.31203,1)
- +14 ;;=S ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)=""
- +15 ;;^DD("IX",.31203,2)
- +16 ;;=K ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)
- +17 ;;^DD("IX",.31203,2.5)
- +18 ;;=K ^DD("KEY",DA(1),2,"S")
- +19 ;;^DD("IX",.31203,11.1,0)
- +20 ;;=^.114^3^3
- +21 ;;^DD("IX",.31203,11.1,1,0)
- +22 ;;=1^F^.312^1^^1
- +23 ;;^DD("IX",.31203,11.1,2,0)
- +24 ;;=2^F^.312^.01^^2
- +25 ;;^DD("IX",.31203,11.1,3,0)
- +26 ;;=3^F^.312^.02^^3