- DINIT2 ;SFISC/GFT-INITIALIZE VA FILEMAN ;7/22/94 10:41
- ;;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.
- ;
- DD F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) G ^DINIT20:X?.P S @("^DD("_$E($P(X," ",2),3,99)_")=Y")
- ;;.2,0 DESTINATION^
- ;;.2,0,"NM","DESTINATION"
- ;;.2,.01,0 DESTINATION^P^DIC(.2,^0;1^Q
- ;;.2,.01,3 WHERE THIS DATA GOES (TO WHAT FORM, SYSTEM, ETC.)
- ;;.21,0 DATA DESTINATION
- ;;.21,0,"NM","DATA-DESTINATION"
- ;;.21,.01,0 DATA DESTINATION^F^^0;1^K:$L(X)<2!($L(X)>80) X
- ;;.21,.01,1,0 ^.1^1^1
- ;;.21,.01,1,1,0 .21^B
- ;;.21,.01,1,1,1 S ^DIC(.2,"B",X,DA)=""
- ;;.21,.01,1,1,2 K ^DIC(.2,"B",X,DA)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2 867 printed Jan 18, 2025@03:51:44 Page 2
- DINIT2 ;SFISC/GFT-INITIALIZE VA FILEMAN ;7/22/94 10:41
- +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 ;
- DD FOR I=1:1
- SET X=$TEXT(DD+I)
- SET Y=$PIECE(X," ",3,99)
- if X?.P
- GOTO ^DINIT20
- SET @("^DD("_$EXTRACT($PIECE(X," ",2),3,99)_")=Y")
- +1 ;;.2,0 DESTINATION^
- +2 ;;.2,0,"NM","DESTINATION"
- +3 ;;.2,.01,0 DESTINATION^P^DIC(.2,^0;1^Q
- +4 ;;.2,.01,3 WHERE THIS DATA GOES (TO WHAT FORM, SYSTEM, ETC.)
- +5 ;;.21,0 DATA DESTINATION
- +6 ;;.21,0,"NM","DATA-DESTINATION"
- +7 ;;.21,.01,0 DATA DESTINATION^F^^0;1^K:$L(X)<2!($L(X)>80) X
- +8 ;;.21,.01,1,0 ^.1^1^1
- +9 ;;.21,.01,1,1,0 .21^B
- +10 ;;.21,.01,1,1,1 S ^DIC(.2,"B",X,DA)=""
- +11 ;;.21,.01,1,1,2 K ^DIC(.2,"B",X,DA)