Routine: DINIT220

DINIT220 ;SFISC/DPC-LOAD DATA FOR DATA TYPE FILE ;7/22/94  10:50

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT24 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DI(.81,0)

 ;;=DATA TYPE^.81^99^10

 ;;^DI(.81,1,0)

 ;;=DATE/TIME^D

 ;;^DI(.81,2,0)

 ;;=NUMERIC^N

 ;;^DI(.81,3,0)

 ;;=SET OF CODES^S

 ;;^DI(.81,1,0)

 ;;=DATE/TIME^D

 ;;^DI(.81,2,0)

 ;;=NUMERIC^N

 ;;^DI(.81,3,0)

 ;;=SET OF CODES^S

 ;;^DI(.81,4,0)

 ;;=FREE TEXT^F

 ;;^DI(.81,5,0)

 ;;=WORD-PROCESSING^W

 ;;^DI(.81,6,0)

 ;;=COMPUTED^C

 ;;^DI(.81,7,0)

 ;;=POINTER TO A FILE^P

 ;;^DI(.81,8,0)

 ;;=VARIABLE-POINTER^V

 ;;^DI(.81,9,0)

 ;;=MUMPS^K

 ;;^DI(.81,99,0)

 ;;=RESERVED FOR FILEMAN

DINIT220  ;SFISC/DPC-LOAD DATA FOR DATA TYPE FILE ;7/22/94  10:50

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT24

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +4        QUIT

ENTRY     ;

 +1       ;;^DI(.81,0)

 +2       ;;=DATA TYPE^.81^99^10

 +3       ;;^DI(.81,1,0)

 +4       ;;=DATE/TIME^D

 +5       ;;^DI(.81,2,0)

 +6       ;;=NUMERIC^N

 +7       ;;^DI(.81,3,0)

 +8       ;;=SET OF CODES^S

 +9       ;;^DI(.81,1,0)

 +10      ;;=DATE/TIME^D

 +11      ;;^DI(.81,2,0)

 +12      ;;=NUMERIC^N

 +13      ;;^DI(.81,3,0)

 +14      ;;=SET OF CODES^S

 +15      ;;^DI(.81,4,0)

 +16      ;;=FREE TEXT^F

 +17      ;;^DI(.81,5,0)

 +18      ;;=WORD-PROCESSING^W

 +19      ;;^DI(.81,6,0)

 +20      ;;=COMPUTED^C

 +21      ;;^DI(.81,7,0)

 +22      ;;=POINTER TO A FILE^P

 +23      ;;^DI(.81,8,0)

 +24      ;;=VARIABLE-POINTER^V

 +25      ;;^DI(.81,9,0)

 +26      ;;=MUMPS^K

 +27      ;;^DI(.81,99,0)

 +28      ;;=RESERVED FOR FILEMAN

DINIT220.m