DINIT0FL ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 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="" ^DINIT0FM S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.442,40,7,4)
;;=^^^^0
;;^DIST(.404,.442,40,7,7)
;;=^3
;;^DIST(.404,.443,0)
;;=DDXP FF BLK3^.441^0
;;^DIST(.404,.443,15,0)
;;=^^2^2^2920925
;;^DIST(.404,.443,15,1,0)
;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT
;;^DIST(.404,.443,15,2,0)
;;=multiple. Used in defining a foreign file format.
;;^DIST(.404,.443,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.443,40,1,0)
;;=1^OTHER NAME^3
;;^DIST(.404,.443,40,1,1)
;;=.01
;;^DIST(.404,.443,40,1,2)
;;=2,20^15^2,8^0
;;^DIST(.404,.443,40,2,0)
;;=2^DESCRIPTION (WP)^3
;;^DIST(.404,.443,40,2,1)
;;=1
;;^DIST(.404,.443,40,2,2)
;;=4,20^1^4,2^0
;;^DIST(.404,.4611,0)
;;=DDMP SPECS 1^.44
;;^DIST(.404,.4611,15,0)
;;=^^2^2^2950216
;;^DIST(.404,.4611,15,1,0)
;;=Block contains specifications of data import including source file, VA
;;^DIST(.404,.4611,15,2,0)
;;=FileMan target file, and format of the incoming data.
;;^DIST(.404,.4611,40,0)
;;=^.4044I^23^21
;;^DIST(.404,.4611,40,1,0)
;;=1^DATA IMPORT^1
;;^DIST(.404,.4611,40,1,2)
;;=^^1,35
;;^DIST(.404,.4611,40,2,0)
;;=2^Page 1^1
;;^DIST(.404,.4611,40,2,2)
;;=^^1,72
;;^DIST(.404,.4611,40,3,0)
;;=1.1^===========^1
;;^DIST(.404,.4611,40,3,2)
;;=^^2,35^1
;;^DIST(.404,.4611,40,4,0)
;;=6^SOURCE FILE^1
;;^DIST(.404,.4611,40,4,2)
;;=^^4,53^1
;;^DIST(.404,.4611,40,5,0)
;;=6.1^-----------^1
;;^DIST(.404,.4611,40,5,2)
;;=^^5,53^1
;;^DIST(.404,.4611,40,6,0)
;;=6.2^Full path^2^^PTH
;;^DIST(.404,.4611,40,6,2)
;;=6,61^19^6,50
;;^DIST(.404,.4611,40,6,3)
;;=!M
;;^DIST(.404,.4611,40,6,3.1)
;;=S Y=$$PWD^%ZISH
;;^DIST(.404,.4611,40,6,4)
;;=1
;;^DIST(.404,.4611,40,6,20)
;;=F^^1:245
;;^DIST(.404,.4611,40,6,21,0)
;;=^^2^2^2950216
;;^DIST(.404,.4611,40,6,21,1,0)
;;=Enter the full path to the host file that contains the data you want to
;;^DIST(.404,.4611,40,6,21,2,0)
;;=import. Do not include the name of the file itself.
;;^DIST(.404,.4611,40,6,23)
;;=S DDMPHOST("PATH")=X
;;^DIST(.404,.4611,40,7,0)
;;=6.3^Host file name^2^^HST_FL
;;^DIST(.404,.4611,40,7,2)
;;=7,61^19^7,45
;;^DIST(.404,.4611,40,7,4)
;;=1
;;^DIST(.404,.4611,40,7,20)
;;=F^^1:100
;;^DIST(.404,.4611,40,7,21,0)
;;=^^1^1^2960611
;;^DIST(.404,.4611,40,7,21,1,0)
;;=^D HOSTHELP^DDMPSM1
;;^DIST(.404,.4611,40,7,23)
;;=S DDMPHOST("FILE")=X
;;^DIST(.404,.4611,40,8,0)
;;=7^VA FILEMAN FILE^1
;;^DIST(.404,.4611,40,8,2)
;;=^^10,51^1
;;^DIST(.404,.4611,40,9,0)
;;=7.1^---------------^1
;;^DIST(.404,.4611,40,9,2)
;;=^^11,51^1
;;^DIST(.404,.4611,40,10,0)
;;=7.2^Primary file^2^^F_SEL
;;^DIST(.404,.4611,40,10,2)
;;=12,61^18^12,47
;;^DIST(.404,.4611,40,10,13)
;;=D FILESEL^DDMPSM
;;^DIST(.404,.4611,40,10,20)
;;=P^^1:ANEF
;;^DIST(.404,.4611,40,10,21,0)
;;=^^3^3^2960918
;;^DIST(.404,.4611,40,10,21,1,0)
;;=Enter the name or number of the VA FileMan file into which the data will
;;^DIST(.404,.4611,40,10,21,2,0)
;;=be imported. If the FileMan file is specified in the source file, enter
;;^DIST(.404,.4611,40,10,21,3,0)
;;=nothing here.
;;^DIST(.404,.4611,40,10,23)
;;=S DDMPSELF=X
;;^DIST(.404,.4611,40,10,24)
;;=S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"
;;^DIST(.404,.4611,40,11,0)
;;=5^DATA FORMAT^1
;;^DIST(.404,.4611,40,11,2)
;;=^^4,16
;;^DIST(.404,.4611,40,12,0)
;;=5.1^-----------^1
;;^DIST(.404,.4611,40,12,2)
;;=^^5,16^1
;;^DIST(.404,.4611,40,13,0)
;;=5.2^Internal or external^2^^INT_EXT
;;^DIST(.404,.4611,40,13,2)
;;=6,23^8^6,1
;;^DIST(.404,.4611,40,13,3)
;;=External
;;^DIST(.404,.4611,40,13,20)
;;=S^OM^E:EXTERNAL;I:INTERNAL
;;^DIST(.404,.4611,40,13,21,0)
;;=^^3^3^2950216
;;^DIST(.404,.4611,40,13,21,1,0)
;;=Specify whether the imported data is in internal or external format.
;;^DIST(.404,.4611,40,13,21,2,0)
;;=Internal format means the way the data is stored inside of VA FileMan
;;^DIST(.404,.4611,40,13,21,3,0)
;;=files. External means the format that a user enter.
;;^DIST(.404,.4611,40,13,23)
;;=S DDMPIORE=X
;;^DIST(.404,.4611,40,14,0)
;;=5.3^Foreign format^2^^FOR_FMT
;;^DIST(.404,.4611,40,14,2)
;;=8,23^17^8,7
;;^DIST(.404,.4611,40,14,13)
;;=D FF^DDMPSM
;;^DIST(.404,.4611,40,14,20)
;;=P^^.44:EAM
;;^DIST(.404,.4611,40,14,21,0)
;;=^^6^6^2950228
;;^DIST(.404,.4611,40,14,21,1,0)
;;=Enter the foreign format that corresponds to the structure of the data
;;^DIST(.404,.4611,40,14,21,2,0)
;;=being imported. These formats are stored in the Foreign Format file. If
;;^DIST(.404,.4611,40,14,21,3,0)
;;=you do not choose a format here, you must specify whether the incoming
;;^DIST(.404,.4611,40,14,21,4,0)
;;=data is fixed length, what the field delimiter is (if any), and whether
;;^DIST(.404,.4611,40,14,21,5,0)
;;=some field values are quoted. If you enter a format here, any attributes
;;^DIST(.404,.4611,40,14,21,6,0)
;;=of the format that you specified below will be deleted.
;;^DIST(.404,.4611,40,16,0)
;;=5.5^Data fixed length?^2^^FIX
;;^DIST(.404,.4611,40,16,2)
;;=10,23^3^10,4^1
;;^DIST(.404,.4611,40,16,13)
;;=S DDMPSMFF("FIXED")=DDSEXT
;;^DIST(.404,.4611,40,16,20)
;;=Y
;;^DIST(.404,.4611,40,16,21,0)
;;=^^4^4^2950216
;;^DIST(.404,.4611,40,16,21,1,0)
;;=Enter YES or NO.
;;^DIST(.404,.4611,40,16,21,2,0)
;;=If the incoming data is in fixed length fields, enter YES.
;;^DIST(.404,.4611,40,16,21,3,0)
;;=If the fields are delimited by a special character, enter NO and enter the
;;^DIST(.404,.4611,40,16,21,4,0)
;;=field delimiter at the prompt below.
;;^DIST(.404,.4611,40,17,0)
;;=5.6^Field delimiter^2^^FLD_DLM
;;^DIST(.404,.4611,40,17,2)
;;=11,23^3^11,6
;;^DIST(.404,.4611,40,17,13)
;;=S DDMPSMFF("FDELIM")=DDSEXT
;;^DIST(.404,.4611,40,17,20)
;;=F^^1:15
;;^DIST(.404,.4611,40,17,21,0)
;;=^^8^8^2960823
;;^DIST(.404,.4611,40,17,21,1,0)
;;=If the incoming data is not in fixed length fields, enter the character or
;;^DIST(.404,.4611,40,17,21,2,0)
;;=characters that separate fields.
;;^DIST(.404,.4611,40,17,21,3,0)
;;=
;;^DIST(.404,.4611,40,17,21,4,0)
;;=Identify the delimiter either by 1-15 characters or by the delimiter's 3
;;^DIST(.404,.4611,40,17,21,5,0)
;;=digit ascii value. Up to 4 ascii-character values can be specified,
;;^DIST(.404,.4611,40,17,21,6,0)
;;=separated by commas. Use the ascii value when the delimiter is a
;;^DIST(.404,.4611,40,17,21,7,0)
;;=non-printing character (e.g., <TAB>, ascii=009) or a character that has a
;;^DIST(.404,.4611,40,17,21,8,0)
;;=special meaning at a ScreenMan prompt (e.g., ^, ascii=094).
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FL 7175 printed Dec 13, 2024@02:50:28 Page 2
DINIT0FL ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 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 ^DINIT0FM
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.442,40,7,4)
+2 ;;=^^^^0
+3 ;;^DIST(.404,.442,40,7,7)
+4 ;;=^3
+5 ;;^DIST(.404,.443,0)
+6 ;;=DDXP FF BLK3^.441^0
+7 ;;^DIST(.404,.443,15,0)
+8 ;;=^^2^2^2920925
+9 ;;^DIST(.404,.443,15,1,0)
+10 ;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT
+11 ;;^DIST(.404,.443,15,2,0)
+12 ;;=multiple. Used in defining a foreign file format.
+13 ;;^DIST(.404,.443,40,0)
+14 ;;=^.4044I^2^2
+15 ;;^DIST(.404,.443,40,1,0)
+16 ;;=1^OTHER NAME^3
+17 ;;^DIST(.404,.443,40,1,1)
+18 ;;=.01
+19 ;;^DIST(.404,.443,40,1,2)
+20 ;;=2,20^15^2,8^0
+21 ;;^DIST(.404,.443,40,2,0)
+22 ;;=2^DESCRIPTION (WP)^3
+23 ;;^DIST(.404,.443,40,2,1)
+24 ;;=1
+25 ;;^DIST(.404,.443,40,2,2)
+26 ;;=4,20^1^4,2^0
+27 ;;^DIST(.404,.4611,0)
+28 ;;=DDMP SPECS 1^.44
+29 ;;^DIST(.404,.4611,15,0)
+30 ;;=^^2^2^2950216
+31 ;;^DIST(.404,.4611,15,1,0)
+32 ;;=Block contains specifications of data import including source file, VA
+33 ;;^DIST(.404,.4611,15,2,0)
+34 ;;=FileMan target file, and format of the incoming data.
+35 ;;^DIST(.404,.4611,40,0)
+36 ;;=^.4044I^23^21
+37 ;;^DIST(.404,.4611,40,1,0)
+38 ;;=1^DATA IMPORT^1
+39 ;;^DIST(.404,.4611,40,1,2)
+40 ;;=^^1,35
+41 ;;^DIST(.404,.4611,40,2,0)
+42 ;;=2^Page 1^1
+43 ;;^DIST(.404,.4611,40,2,2)
+44 ;;=^^1,72
+45 ;;^DIST(.404,.4611,40,3,0)
+46 ;;=1.1^===========^1
+47 ;;^DIST(.404,.4611,40,3,2)
+48 ;;=^^2,35^1
+49 ;;^DIST(.404,.4611,40,4,0)
+50 ;;=6^SOURCE FILE^1
+51 ;;^DIST(.404,.4611,40,4,2)
+52 ;;=^^4,53^1
+53 ;;^DIST(.404,.4611,40,5,0)
+54 ;;=6.1^-----------^1
+55 ;;^DIST(.404,.4611,40,5,2)
+56 ;;=^^5,53^1
+57 ;;^DIST(.404,.4611,40,6,0)
+58 ;;=6.2^Full path^2^^PTH
+59 ;;^DIST(.404,.4611,40,6,2)
+60 ;;=6,61^19^6,50
+61 ;;^DIST(.404,.4611,40,6,3)
+62 ;;=!M
+63 ;;^DIST(.404,.4611,40,6,3.1)
+64 ;;=S Y=$$PWD^%ZISH
+65 ;;^DIST(.404,.4611,40,6,4)
+66 ;;=1
+67 ;;^DIST(.404,.4611,40,6,20)
+68 ;;=F^^1:245
+69 ;;^DIST(.404,.4611,40,6,21,0)
+70 ;;=^^2^2^2950216
+71 ;;^DIST(.404,.4611,40,6,21,1,0)
+72 ;;=Enter the full path to the host file that contains the data you want to
+73 ;;^DIST(.404,.4611,40,6,21,2,0)
+74 ;;=import. Do not include the name of the file itself.
+75 ;;^DIST(.404,.4611,40,6,23)
+76 ;;=S DDMPHOST("PATH")=X
+77 ;;^DIST(.404,.4611,40,7,0)
+78 ;;=6.3^Host file name^2^^HST_FL
+79 ;;^DIST(.404,.4611,40,7,2)
+80 ;;=7,61^19^7,45
+81 ;;^DIST(.404,.4611,40,7,4)
+82 ;;=1
+83 ;;^DIST(.404,.4611,40,7,20)
+84 ;;=F^^1:100
+85 ;;^DIST(.404,.4611,40,7,21,0)
+86 ;;=^^1^1^2960611
+87 ;;^DIST(.404,.4611,40,7,21,1,0)
+88 ;;=^D HOSTHELP^DDMPSM1
+89 ;;^DIST(.404,.4611,40,7,23)
+90 ;;=S DDMPHOST("FILE")=X
+91 ;;^DIST(.404,.4611,40,8,0)
+92 ;;=7^VA FILEMAN FILE^1
+93 ;;^DIST(.404,.4611,40,8,2)
+94 ;;=^^10,51^1
+95 ;;^DIST(.404,.4611,40,9,0)
+96 ;;=7.1^---------------^1
+97 ;;^DIST(.404,.4611,40,9,2)
+98 ;;=^^11,51^1
+99 ;;^DIST(.404,.4611,40,10,0)
+100 ;;=7.2^Primary file^2^^F_SEL
+101 ;;^DIST(.404,.4611,40,10,2)
+102 ;;=12,61^18^12,47
+103 ;;^DIST(.404,.4611,40,10,13)
+104 ;;=D FILESEL^DDMPSM
+105 ;;^DIST(.404,.4611,40,10,20)
+106 ;;=P^^1:ANEF
+107 ;;^DIST(.404,.4611,40,10,21,0)
+108 ;;=^^3^3^2960918
+109 ;;^DIST(.404,.4611,40,10,21,1,0)
+110 ;;=Enter the name or number of the VA FileMan file into which the data will
+111 ;;^DIST(.404,.4611,40,10,21,2,0)
+112 ;;=be imported. If the FileMan file is specified in the source file, enter
+113 ;;^DIST(.404,.4611,40,10,21,3,0)
+114 ;;=nothing here.
+115 ;;^DIST(.404,.4611,40,10,23)
+116 ;;=S DDMPSELF=X
+117 ;;^DIST(.404,.4611,40,10,24)
+118 ;;=S DIR("S")="N DIFILE,DIAC S DIFILE=Y,DIAC=""WR"" D ^DIAC I DIAC"
+119 ;;^DIST(.404,.4611,40,11,0)
+120 ;;=5^DATA FORMAT^1
+121 ;;^DIST(.404,.4611,40,11,2)
+122 ;;=^^4,16
+123 ;;^DIST(.404,.4611,40,12,0)
+124 ;;=5.1^-----------^1
+125 ;;^DIST(.404,.4611,40,12,2)
+126 ;;=^^5,16^1
+127 ;;^DIST(.404,.4611,40,13,0)
+128 ;;=5.2^Internal or external^2^^INT_EXT
+129 ;;^DIST(.404,.4611,40,13,2)
+130 ;;=6,23^8^6,1
+131 ;;^DIST(.404,.4611,40,13,3)
+132 ;;=External
+133 ;;^DIST(.404,.4611,40,13,20)
+134 ;;=S^OM^E:EXTERNAL;I:INTERNAL
+135 ;;^DIST(.404,.4611,40,13,21,0)
+136 ;;=^^3^3^2950216
+137 ;;^DIST(.404,.4611,40,13,21,1,0)
+138 ;;=Specify whether the imported data is in internal or external format.
+139 ;;^DIST(.404,.4611,40,13,21,2,0)
+140 ;;=Internal format means the way the data is stored inside of VA FileMan
+141 ;;^DIST(.404,.4611,40,13,21,3,0)
+142 ;;=files. External means the format that a user enter.
+143 ;;^DIST(.404,.4611,40,13,23)
+144 ;;=S DDMPIORE=X
+145 ;;^DIST(.404,.4611,40,14,0)
+146 ;;=5.3^Foreign format^2^^FOR_FMT
+147 ;;^DIST(.404,.4611,40,14,2)
+148 ;;=8,23^17^8,7
+149 ;;^DIST(.404,.4611,40,14,13)
+150 ;;=D FF^DDMPSM
+151 ;;^DIST(.404,.4611,40,14,20)
+152 ;;=P^^.44:EAM
+153 ;;^DIST(.404,.4611,40,14,21,0)
+154 ;;=^^6^6^2950228
+155 ;;^DIST(.404,.4611,40,14,21,1,0)
+156 ;;=Enter the foreign format that corresponds to the structure of the data
+157 ;;^DIST(.404,.4611,40,14,21,2,0)
+158 ;;=being imported. These formats are stored in the Foreign Format file. If
+159 ;;^DIST(.404,.4611,40,14,21,3,0)
+160 ;;=you do not choose a format here, you must specify whether the incoming
+161 ;;^DIST(.404,.4611,40,14,21,4,0)
+162 ;;=data is fixed length, what the field delimiter is (if any), and whether
+163 ;;^DIST(.404,.4611,40,14,21,5,0)
+164 ;;=some field values are quoted. If you enter a format here, any attributes
+165 ;;^DIST(.404,.4611,40,14,21,6,0)
+166 ;;=of the format that you specified below will be deleted.
+167 ;;^DIST(.404,.4611,40,16,0)
+168 ;;=5.5^Data fixed length?^2^^FIX
+169 ;;^DIST(.404,.4611,40,16,2)
+170 ;;=10,23^3^10,4^1
+171 ;;^DIST(.404,.4611,40,16,13)
+172 ;;=S DDMPSMFF("FIXED")=DDSEXT
+173 ;;^DIST(.404,.4611,40,16,20)
+174 ;;=Y
+175 ;;^DIST(.404,.4611,40,16,21,0)
+176 ;;=^^4^4^2950216
+177 ;;^DIST(.404,.4611,40,16,21,1,0)
+178 ;;=Enter YES or NO.
+179 ;;^DIST(.404,.4611,40,16,21,2,0)
+180 ;;=If the incoming data is in fixed length fields, enter YES.
+181 ;;^DIST(.404,.4611,40,16,21,3,0)
+182 ;;=If the fields are delimited by a special character, enter NO and enter the
+183 ;;^DIST(.404,.4611,40,16,21,4,0)
+184 ;;=field delimiter at the prompt below.
+185 ;;^DIST(.404,.4611,40,17,0)
+186 ;;=5.6^Field delimiter^2^^FLD_DLM
+187 ;;^DIST(.404,.4611,40,17,2)
+188 ;;=11,23^3^11,6
+189 ;;^DIST(.404,.4611,40,17,13)
+190 ;;=S DDMPSMFF("FDELIM")=DDSEXT
+191 ;;^DIST(.404,.4611,40,17,20)
+192 ;;=F^^1:15
+193 ;;^DIST(.404,.4611,40,17,21,0)
+194 ;;=^^8^8^2960823
+195 ;;^DIST(.404,.4611,40,17,21,1,0)
+196 ;;=If the incoming data is not in fixed length fields, enter the character or
+197 ;;^DIST(.404,.4611,40,17,21,2,0)
+198 ;;=characters that separate fields.
+199 ;;^DIST(.404,.4611,40,17,21,3,0)
+200 ;;=
+201 ;;^DIST(.404,.4611,40,17,21,4,0)
+202 ;;=Identify the delimiter either by 1-15 characters or by the delimiter's 3
+203 ;;^DIST(.404,.4611,40,17,21,5,0)
+204 ;;=digit ascii value. Up to 4 ascii-character values can be specified,
+205 ;;^DIST(.404,.4611,40,17,21,6,0)
+206 ;;=separated by commas. Use the ascii value when the delimiter is a
+207 ;;^DIST(.404,.4611,40,17,21,7,0)
+208 ;;=non-printing character (e.g., <TAB>, ascii=009) or a character that has a
+209 ;;^DIST(.404,.4611,40,17,21,8,0)
+210 ;;=special meaning at a ScreenMan prompt (e.g., ^, ascii=094).
