DINIT0F3 ;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.403,.40405,40,2,0)
;;=11^^3,16^^^1^11,63
;;^DIST(.403,.40405,40,2,1)
;;=Other Parameters
;;^DIST(.403,.40405,40,2,40,0)
;;=^.4032PI^.404052^1
;;^DIST(.403,.40405,40,2,40,.404052,0)
;;=.404052^1^1,3^e
;;^DIST(.403,.40406,0)
;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1
;;^DIST(.403,.40406,40,0)
;;=^.4031I^3^3
;;^DIST(.403,.40406,40,1,0)
;;=1^^3,9^^^1^7,65
;;^DIST(.403,.40406,40,1,1)
;;=Add a New Block
;;^DIST(.403,.40406,40,1,40,0)
;;=^.4032PI^.404061^1
;;^DIST(.403,.40406,40,1,40,.404061,0)
;;=.404061^1^1,1^e
;;^DIST(.403,.40406,40,2,0)
;;=11^^6,12^^^1^11,61
;;^DIST(.403,.40406,40,2,1)
;;=Add a New Block to Page
;;^DIST(.403,.40406,40,2,40,0)
;;=^.4032PI^.404062^1
;;^DIST(.403,.40406,40,2,40,.404062,0)
;;=.404062^1^1,1^e
;;^DIST(.403,.40406,40,3,0)
;;=21^^6,17^^^1^13,57
;;^DIST(.403,.40406,40,3,1)
;;=Duplicate Block Message
;;^DIST(.403,.40406,40,3,40,0)
;;=^.4032PI^.404063^1
;;^DIST(.403,.40406,40,3,40,.404063,0)
;;=.404063^1^1,1^e
;;^DIST(.403,.40407,0)
;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1
;;^DIST(.403,.40407,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40407,40,1,0)
;;=1^^5,9^^^1^11,62
;;^DIST(.403,.40407,40,1,1)
;;=Page 1
;;^DIST(.403,.40407,40,1,40,0)
;;=^.4032PI^.404071^1
;;^DIST(.403,.40407,40,1,40,.404071,0)
;;=.404071^1^3,3^e
;;^DIST(.403,.40408,0)
;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
;;^DIST(.403,.40408,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40408,40,1,0)
;;=1^^4,5^^^1^8,68
;;^DIST(.403,.40408,40,1,1)
;;=Add a New Header Block
;;^DIST(.403,.40408,40,1,40,0)
;;=^.4032PI^.404081^1
;;^DIST(.403,.40408,40,1,40,.404081,0)
;;=.404081^1^1,1^e
;;^DIST(.403,.441,0)
;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1
;;^DIST(.403,.441,20)
;;=D FORMVAL^DDXP1
;;^DIST(.403,.441,40,0)
;;=^.4031I^3^3
;;^DIST(.403,.441,40,1,0)
;;=1^^1,1^2^2^0
;;^DIST(.403,.441,40,1,1)
;;=PAGE 1
;;^DIST(.403,.441,40,1,15,0)
;;=^^1^1^2920925
;;^DIST(.403,.441,40,1,15,1,0)
;;=First page for Foreign Format definition. It contains block DDXP FF BLK1.
;;^DIST(.403,.441,40,1,40,0)
;;=^.4032PI^.441^1
;;^DIST(.403,.441,40,1,40,.441,0)
;;=.441^1^1,1^e
;;^DIST(.403,.441,40,2,0)
;;=2^^1,1^1^1^0
;;^DIST(.403,.441,40,2,1)
;;=PAGE 2
;;^DIST(.403,.441,40,2,15,0)
;;=^^2^2^2920925
;;^DIST(.403,.441,40,2,15,1,0)
;;=Page 2 of the form used to define a Foreign Format. It contains block
;;^DIST(.403,.441,40,2,15,2,0)
;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
;;^DIST(.403,.441,40,2,40,0)
;;=^.4032PI^.442^1
;;^DIST(.403,.441,40,2,40,.442,0)
;;=.442^1^1,1^e
;;^DIST(.403,.441,40,3,0)
;;=3^^12,23^^^1^16,59
;;^DIST(.403,.441,40,3,1)
;;=POP-UP PAGE 1
;;^DIST(.403,.441,40,3,15,0)
;;=^^2^2^2920925
;;^DIST(.403,.441,40,3,15,1,0)
;;=This pop-up page is called from page 2 of DDXP FF FORM1. It contains
;;^DIST(.403,.441,40,3,15,2,0)
;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
;;^DIST(.403,.441,40,3,40,0)
;;=^.4032PI^.443^1
;;^DIST(.403,.441,40,3,40,.443,0)
;;=.443^1^1,1^e
;;^DIST(.403,.461,0)
;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1
;;^DIST(.403,.461,11)
;;=S (DDMPFDCT,DDMPOSET)=0
;;^DIST(.403,.461,20)
;;=D VAL^DDMPSM
;;^DIST(.403,.461,40,0)
;;=^.4031I^4^4
;;^DIST(.403,.461,40,1,0)
;;=1^^1,1^2^2
;;^DIST(.403,.461,40,1,1)
;;=Page 1
;;^DIST(.403,.461,40,1,40,0)
;;=^.4032IP^.4611^1
;;^DIST(.403,.461,40,1,40,.4611,0)
;;=.4611^1^1,1^e
;;^DIST(.403,.461,40,2,0)
;;=2^^1,1^1^1
;;^DIST(.403,.461,40,2,1)
;;=Page 2
;;^DIST(.403,.461,40,2,11)
;;=D PAGE2^DDMPSM1
;;^DIST(.403,.461,40,2,40,0)
;;=^.4032IP^.4612^1
;;^DIST(.403,.461,40,2,40,.4612,0)
;;=.4612^1^1,1^e
;;^DIST(.403,.461,40,3,0)
;;=3^^5,33^^^1^11,79
;;^DIST(.403,.461,40,3,1)
;;=Page 3
;;^DIST(.403,.461,40,3,40,0)
;;=^.4032IP^.4613^1
;;^DIST(.403,.461,40,3,40,.4613,0)
;;=.4613^1^2,2^e
;;^DIST(.403,.461,40,4,0)
;;=4^^6,18^^^1^12,64
;;^DIST(.403,.461,40,4,1)
;;=Page 4
;;^DIST(.403,.461,40,4,11)
;;=S DDMPFRP4=1
;;^DIST(.403,.461,40,4,15,0)
;;=^^3^3^2950301
;;^DIST(.403,.461,40,4,15,1,0)
;;=This page explains that all fields need a length for a fixed length
;;^DIST(.403,.461,40,4,15,2,0)
;;=import. It gives user the option of deleting the last field entered or
;;^DIST(.403,.461,40,4,15,3,0)
;;=returning to length prompt.
;;^DIST(.403,.461,40,4,40,0)
;;=^.4032IP^.4614^1
;;^DIST(.403,.461,40,4,40,.4614,0)
;;=.4614^1^2,2^e
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F3 5099 printed Sep 23, 2025@20:26:18 Page 2
DINIT0F3 ;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 ^DINIT0F4
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.403,.40405,40,2,0)
+2 ;;=11^^3,16^^^1^11,63
+3 ;;^DIST(.403,.40405,40,2,1)
+4 ;;=Other Parameters
+5 ;;^DIST(.403,.40405,40,2,40,0)
+6 ;;=^.4032PI^.404052^1
+7 ;;^DIST(.403,.40405,40,2,40,.404052,0)
+8 ;;=.404052^1^1,3^e
+9 ;;^DIST(.403,.40406,0)
+10 ;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1
+11 ;;^DIST(.403,.40406,40,0)
+12 ;;=^.4031I^3^3
+13 ;;^DIST(.403,.40406,40,1,0)
+14 ;;=1^^3,9^^^1^7,65
+15 ;;^DIST(.403,.40406,40,1,1)
+16 ;;=Add a New Block
+17 ;;^DIST(.403,.40406,40,1,40,0)
+18 ;;=^.4032PI^.404061^1
+19 ;;^DIST(.403,.40406,40,1,40,.404061,0)
+20 ;;=.404061^1^1,1^e
+21 ;;^DIST(.403,.40406,40,2,0)
+22 ;;=11^^6,12^^^1^11,61
+23 ;;^DIST(.403,.40406,40,2,1)
+24 ;;=Add a New Block to Page
+25 ;;^DIST(.403,.40406,40,2,40,0)
+26 ;;=^.4032PI^.404062^1
+27 ;;^DIST(.403,.40406,40,2,40,.404062,0)
+28 ;;=.404062^1^1,1^e
+29 ;;^DIST(.403,.40406,40,3,0)
+30 ;;=21^^6,17^^^1^13,57
+31 ;;^DIST(.403,.40406,40,3,1)
+32 ;;=Duplicate Block Message
+33 ;;^DIST(.403,.40406,40,3,40,0)
+34 ;;=^.4032PI^.404063^1
+35 ;;^DIST(.403,.40406,40,3,40,.404063,0)
+36 ;;=.404063^1^1,1^e
+37 ;;^DIST(.403,.40407,0)
+38 ;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1
+39 ;;^DIST(.403,.40407,40,0)
+40 ;;=^.4031I^1^1
+41 ;;^DIST(.403,.40407,40,1,0)
+42 ;;=1^^5,9^^^1^11,62
+43 ;;^DIST(.403,.40407,40,1,1)
+44 ;;=Page 1
+45 ;;^DIST(.403,.40407,40,1,40,0)
+46 ;;=^.4032PI^.404071^1
+47 ;;^DIST(.403,.40407,40,1,40,.404071,0)
+48 ;;=.404071^1^3,3^e
+49 ;;^DIST(.403,.40408,0)
+50 ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
+51 ;;^DIST(.403,.40408,40,0)
+52 ;;=^.4031I^1^1
+53 ;;^DIST(.403,.40408,40,1,0)
+54 ;;=1^^4,5^^^1^8,68
+55 ;;^DIST(.403,.40408,40,1,1)
+56 ;;=Add a New Header Block
+57 ;;^DIST(.403,.40408,40,1,40,0)
+58 ;;=^.4032PI^.404081^1
+59 ;;^DIST(.403,.40408,40,1,40,.404081,0)
+60 ;;=.404081^1^1,1^e
+61 ;;^DIST(.403,.441,0)
+62 ;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1
+63 ;;^DIST(.403,.441,20)
+64 ;;=D FORMVAL^DDXP1
+65 ;;^DIST(.403,.441,40,0)
+66 ;;=^.4031I^3^3
+67 ;;^DIST(.403,.441,40,1,0)
+68 ;;=1^^1,1^2^2^0
+69 ;;^DIST(.403,.441,40,1,1)
+70 ;;=PAGE 1
+71 ;;^DIST(.403,.441,40,1,15,0)
+72 ;;=^^1^1^2920925
+73 ;;^DIST(.403,.441,40,1,15,1,0)
+74 ;;=First page for Foreign Format definition. It contains block DDXP FF BLK1.
+75 ;;^DIST(.403,.441,40,1,40,0)
+76 ;;=^.4032PI^.441^1
+77 ;;^DIST(.403,.441,40,1,40,.441,0)
+78 ;;=.441^1^1,1^e
+79 ;;^DIST(.403,.441,40,2,0)
+80 ;;=2^^1,1^1^1^0
+81 ;;^DIST(.403,.441,40,2,1)
+82 ;;=PAGE 2
+83 ;;^DIST(.403,.441,40,2,15,0)
+84 ;;=^^2^2^2920925
+85 ;;^DIST(.403,.441,40,2,15,1,0)
+86 ;;=Page 2 of the form used to define a Foreign Format. It contains block
+87 ;;^DIST(.403,.441,40,2,15,2,0)
+88 ;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
+89 ;;^DIST(.403,.441,40,2,40,0)
+90 ;;=^.4032PI^.442^1
+91 ;;^DIST(.403,.441,40,2,40,.442,0)
+92 ;;=.442^1^1,1^e
+93 ;;^DIST(.403,.441,40,3,0)
+94 ;;=3^^12,23^^^1^16,59
+95 ;;^DIST(.403,.441,40,3,1)
+96 ;;=POP-UP PAGE 1
+97 ;;^DIST(.403,.441,40,3,15,0)
+98 ;;=^^2^2^2920925
+99 ;;^DIST(.403,.441,40,3,15,1,0)
+100 ;;=This pop-up page is called from page 2 of DDXP FF FORM1. It contains
+101 ;;^DIST(.403,.441,40,3,15,2,0)
+102 ;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
+103 ;;^DIST(.403,.441,40,3,40,0)
+104 ;;=^.4032PI^.443^1
+105 ;;^DIST(.403,.441,40,3,40,.443,0)
+106 ;;=.443^1^1,1^e
+107 ;;^DIST(.403,.461,0)
+108 ;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1
+109 ;;^DIST(.403,.461,11)
+110 ;;=S (DDMPFDCT,DDMPOSET)=0
+111 ;;^DIST(.403,.461,20)
+112 ;;=D VAL^DDMPSM
+113 ;;^DIST(.403,.461,40,0)
+114 ;;=^.4031I^4^4
+115 ;;^DIST(.403,.461,40,1,0)
+116 ;;=1^^1,1^2^2
+117 ;;^DIST(.403,.461,40,1,1)
+118 ;;=Page 1
+119 ;;^DIST(.403,.461,40,1,40,0)
+120 ;;=^.4032IP^.4611^1
+121 ;;^DIST(.403,.461,40,1,40,.4611,0)
+122 ;;=.4611^1^1,1^e
+123 ;;^DIST(.403,.461,40,2,0)
+124 ;;=2^^1,1^1^1
+125 ;;^DIST(.403,.461,40,2,1)
+126 ;;=Page 2
+127 ;;^DIST(.403,.461,40,2,11)
+128 ;;=D PAGE2^DDMPSM1
+129 ;;^DIST(.403,.461,40,2,40,0)
+130 ;;=^.4032IP^.4612^1
+131 ;;^DIST(.403,.461,40,2,40,.4612,0)
+132 ;;=.4612^1^1,1^e
+133 ;;^DIST(.403,.461,40,3,0)
+134 ;;=3^^5,33^^^1^11,79
+135 ;;^DIST(.403,.461,40,3,1)
+136 ;;=Page 3
+137 ;;^DIST(.403,.461,40,3,40,0)
+138 ;;=^.4032IP^.4613^1
+139 ;;^DIST(.403,.461,40,3,40,.4613,0)
+140 ;;=.4613^1^2,2^e
+141 ;;^DIST(.403,.461,40,4,0)
+142 ;;=4^^6,18^^^1^12,64
+143 ;;^DIST(.403,.461,40,4,1)
+144 ;;=Page 4
+145 ;;^DIST(.403,.461,40,4,11)
+146 ;;=S DDMPFRP4=1
+147 ;;^DIST(.403,.461,40,4,15,0)
+148 ;;=^^3^3^2950301
+149 ;;^DIST(.403,.461,40,4,15,1,0)
+150 ;;=This page explains that all fields need a length for a fixed length
+151 ;;^DIST(.403,.461,40,4,15,2,0)
+152 ;;=import. It gives user the option of deleting the last field entered or
+153 ;;^DIST(.403,.461,40,4,15,3,0)
+154 ;;=returning to length prompt.
+155 ;;^DIST(.403,.461,40,4,40,0)
+156 ;;=^.4032IP^.4614^1
+157 ;;^DIST(.403,.461,40,4,40,.4614,0)
+158 ;;=.4614^1^2,2^e
