DINIT0FF ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**8,62,82**;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="" ^DINIT0FG S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.402011,40,11,21,0)
;;=^^5^5^3010402
;;^DIST(.404,.402011,40,11,21,1,0)
;;=Enter a valid MUMPS routine name of from 3 to 8 characters. This must
;;^DIST(.404,.402011,40,11,21,2,0)
;;=be entered without a leading up-arrow, and cannot begin with "DI".
;;^DIST(.404,.402011,40,11,21,3,0)
;;=It must name a routine currently on the system.
;;^DIST(.404,.402011,40,11,21,4,0)
;;=This special lookup routine will be executed instead of the standard
;;^DIST(.404,.402011,40,11,21,5,0)
;;=FileMan lookup logic, whenever a call is made to ^DIC.
;;^DIST(.404,.402011,40,12,0)
;;=12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE
;;^DIST(.404,.402011,40,12,2)
;;=17,26^6^17,1
;;^DIST(.404,.402011,40,12,3)
;;=!M
;;^DIST(.404,.402011,40,12,3.1)
;;=S Y=$G(^DD(DA,0,"DIK"))
;;^DIST(.404,.402011,40,12,14)
;;=I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1
;;^DIST(.404,.402011,40,12,20)
;;=F
;;^DIST(.404,.402011,40,12,21,0)
;;=^^11^11^2981029
;;^DIST(.404,.402011,40,12,21,1,0)
;;=
;;^DIST(.404,.402011,40,12,21,2,0)
;;=Enter a valid MUMPS routine name of from 3 to 6 characters. This must
;;^DIST(.404,.402011,40,12,21,3,0)
;;=be entered without a leading up-arrow, and cannot begin with "DI".
;;^DIST(.404,.402011,40,12,21,4,0)
;;=
;;^DIST(.404,.402011,40,12,21,5,0)
;;=This will become the namespace of the compiled routine(s).
;;^DIST(.404,.402011,40,12,21,6,0)
;;=
;;^DIST(.404,.402011,40,12,21,7,0)
;;=If a NEW routine name is entered, but the cross-references are not
;;^DIST(.404,.402011,40,12,21,8,0)
;;=compiled at this time, the routine name will be automatically deleted.
;;^DIST(.404,.402011,40,12,21,9,0)
;;=
;;^DIST(.404,.402011,40,12,21,10,0)
;;=If the routine name is deleted, the cross-references are considered
;;^DIST(.404,.402011,40,12,21,11,0)
;;=un-compiled, and FileMan will not use the routine for re-indexing.
;;^DIST(.404,.402011,40,13,0)
;;=1.8^DEVELOPER^3
;;^DIST(.404,.402011,40,13,1)
;;=20
;;^DIST(.404,.402011,40,13,2)
;;=5,36^35^5,25
;;^DIST(.404,.402011,40,15,0)
;;=1.2^Select APPLICATION GROUP^3
;;^DIST(.404,.402011,40,15,1)
;;=10
;;^DIST(.404,.402011,40,15,2)
;;=4,36^5^4,10
;;^DIST(.404,.402011,40,16,0)
;;=.1^^4^^NUMBER
;;^DIST(.404,.402011,40,16,2)
;;=3,49^18
;;^DIST(.404,.402011,40,16,30)
;;=S Y="(File # "_DA_")"
;;^DIST(.404,.402011,40,17,0)
;;=.2^FILE NAME^2^^NAME
;;^DIST(.404,.402011,40,17,2)
;;=2,12^45^2,1
;;^DIST(.404,.402011,40,17,3)
;;=!M
;;^DIST(.404,.402011,40,17,3.1)
;;=S Y=$P($G(^DIC(DA,0)),U)
;;^DIST(.404,.402011,40,17,13)
;;=I X="" S DDACT="EX"
;;^DIST(.404,.402011,40,17,20)
;;=F^^3:45
;;^DIST(.404,.402011,40,18,0)
;;=13^^4^^FORMERLY COMPILED AS
;;^DIST(.404,.402011,40,18,2)
;;=17,37^31
;;^DIST(.404,.402011,40,18,30)
;;=S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"
;;^DIST(.404,.403011,0)
;;=DDGF BLOCK EDIT 1^.4032
;;^DIST(.404,.403011,11)
;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
;;^DIST(.404,.403011,40,0)
;;=^.4044I^10^8
;;^DIST(.404,.403011,40,1,0)
;;=1^ Block Properties Stored in FORM File ^1
;;^DIST(.404,.403011,40,1,2)
;;=^^1,20^1
;;^DIST(.404,.403011,40,2,0)
;;=3^BLOCK ORDER^3
;;^DIST(.404,.403011,40,2,1)
;;=1
;;^DIST(.404,.403011,40,2,2)
;;=3,69^4^3,56
;;^DIST(.404,.403011,40,2,4)
;;=1
;;^DIST(.404,.403011,40,3,0)
;;=4^TYPE OF BLOCK^3
;;^DIST(.404,.403011,40,3,1)
;;=3
;;^DIST(.404,.403011,40,3,2)
;;=4,18^7^4,3
;;^DIST(.404,.403011,40,3,4)
;;=1
;;^DIST(.404,.403011,40,3,13)
;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
;;^DIST(.404,.403011,40,5,0)
;;=6^POINTER LINK^3
;;^DIST(.404,.403011,40,5,1)
;;=4
;;^DIST(.404,.403011,40,5,2)
;;=6,18^57^6,4
;;^DIST(.404,.403011,40,6,0)
;;=2^BLOCK NAME^3
;;^DIST(.404,.403011,40,6,1)
;;=.01
;;^DIST(.404,.403011,40,6,2)
;;=3,18^30^3,6
;;^DIST(.404,.403011,40,8,0)
;;=7^PRE ACTION^3
;;^DIST(.404,.403011,40,8,1)
;;=11
;;^DIST(.404,.403011,40,8,2)
;;=7,18^57^7,6
;;^DIST(.404,.403011,40,9,0)
;;=9^POST ACTION^3
;;^DIST(.404,.403011,40,9,1)
;;=12
;;^DIST(.404,.403011,40,9,2)
;;=8,18^57^8,5
;;^DIST(.404,.403011,40,10,0)
;;=5^OTHER PARAMETERS...^2
;;^DIST(.404,.403011,40,10,2)
;;=4,69^1^4,49^1
;;^DIST(.404,.403011,40,10,7)
;;=^11
;;^DIST(.404,.403011,40,10,20)
;;=F^^0:0
;;^DIST(.404,.403011,40,10,21,0)
;;=^^1^1^2940928
;;^DIST(.404,.403011,40,10,21,1,0)
;;=Press <RET> to edit additional properties of the block
;;^DIST(.404,.403012,0)
;;=DDGF BLOCK EDIT 2^.404
;;^DIST(.404,.403012,40,0)
;;=^.4044I^7^7
;;^DIST(.404,.403012,40,1,0)
;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
;;^DIST(.404,.403012,40,1,2)
;;=^^1,2^1
;;^DIST(.404,.403012,40,2,0)
;;=2^NAME^2
;;^DIST(.404,.403012,40,2,2)
;;=3,16^30^3,10
;;^DIST(.404,.403012,40,2,3)
;;=!M
;;^DIST(.404,.403012,40,2,3.1)
;;=S Y=DDGFBKNO
;;^DIST(.404,.403012,40,2,20)
;;=DD^^.404,.01
;;^DIST(.404,.403012,40,2,23)
;;=S DDGFBKNN=X
;;^DIST(.404,.403012,40,3,0)
;;=3^DESCRIPTION (WP)^3
;;^DIST(.404,.403012,40,3,1)
;;=15
;;^DIST(.404,.403012,40,3,2)
;;=3,69^1^3,51
;;^DIST(.404,.403012,40,4,0)
;;=4^DD NUMBER^3
;;^DIST(.404,.403012,40,4,1)
;;=1
;;^DIST(.404,.403012,40,4,2)
;;=4,16^16^4,5
;;^DIST(.404,.403012,40,5,0)
;;=5^DISABLE NAVIGATION^3
;;^DIST(.404,.403012,40,5,1)
;;=2
;;^DIST(.404,.403012,40,5,2)
;;=4,69^5^4,49
;;^DIST(.404,.403012,40,6,0)
;;=6^PRE ACTION^3
;;^DIST(.404,.403012,40,6,1)
;;=11
;;^DIST(.404,.403012,40,6,2)
;;=6,16^59^6,4
;;^DIST(.404,.403012,40,7,0)
;;=7^POST ACTION^3
;;^DIST(.404,.403012,40,7,1)
;;=12
;;^DIST(.404,.403012,40,7,2)
;;=7,16^59^7,3
;;^DIST(.404,.403013,0)
;;=DDGF BLOCK EDIT OTHER^.4032
;;^DIST(.404,.403013,11)
;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",1)
;;^DIST(.404,.403013,40,0)
;;=^.4044I^9^9
;;^DIST(.404,.403013,40,1,0)
;;=1^ Other Block Parameters ^1
;;^DIST(.404,.403013,40,1,2)
;;=^^1,16
;;^DIST(.404,.403013,40,2,0)
;;=2^BLOCK COORDINATE^2
;;^DIST(.404,.403013,40,2,2)
;;=3,24^7^3,6
;;^DIST(.404,.403013,40,2,3)
;;=!M
;;^DIST(.404,.403013,40,2,3.1)
;;=S Y=DDGFBKCO
;;^DIST(.404,.403013,40,2,4)
;;=1
;;^DIST(.404,.403013,40,2,20)
;;=DD^^.4032,2
;;^DIST(.404,.403013,40,2,23)
;;=S DDGFBKCN=X
DINIT0FF ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;06:21 PM 2 Apr 2001 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**8,62,82**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 FOR I=1:2
SET X=$TEXT(ENTRY+I)
IF X=""
GOTO ^DINIT0FG
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+5 QUIT
ENTRY ;
+1 ;;^DIST(.404,.402011,40,11,21,0)
+2 ;;=^^5^5^3010402
+3 ;;^DIST(.404,.402011,40,11,21,1,0)
+4 ;;=Enter a valid MUMPS routine name of from 3 to 8 characters. This must
+5 ;;^DIST(.404,.402011,40,11,21,2,0)
+6 ;;=be entered without a leading up-arrow, and cannot begin with "DI".
+7 ;;^DIST(.404,.402011,40,11,21,3,0)
+8 ;;=It must name a routine currently on the system.
+9 ;;^DIST(.404,.402011,40,11,21,4,0)
+10 ;;=This special lookup routine will be executed instead of the standard
+11 ;;^DIST(.404,.402011,40,11,21,5,0)
+12 ;;=FileMan lookup logic, whenever a call is made to ^DIC.
+13 ;;^DIST(.404,.402011,40,12,0)
+14 ;;=12^CROSS-REFERENCE ROUTINE^2^^CROSS-REFERENCE ROUTINE
+15 ;;^DIST(.404,.402011,40,12,2)
+16 ;;=17,26^6^17,1
+17 ;;^DIST(.404,.402011,40,12,3)
+18 ;;=!M
+19 ;;^DIST(.404,.402011,40,12,3.1)
+20 ;;=S Y=$G(^DD(DA,0,"DIK"))
+21 ;;^DIST(.404,.402011,40,12,14)
+22 ;;=I X?1"DI".E!(X'?3U.3NU),X]"" S DDSERROR=1
+23 ;;^DIST(.404,.402011,40,12,20)
+24 ;;=F
+25 ;;^DIST(.404,.402011,40,12,21,0)
+26 ;;=^^11^11^2981029
+27 ;;^DIST(.404,.402011,40,12,21,1,0)
+28 ;;=
+29 ;;^DIST(.404,.402011,40,12,21,2,0)
+30 ;;=Enter a valid MUMPS routine name of from 3 to 6 characters. This must
+31 ;;^DIST(.404,.402011,40,12,21,3,0)
+32 ;;=be entered without a leading up-arrow, and cannot begin with "DI".
+33 ;;^DIST(.404,.402011,40,12,21,4,0)
+34 ;;=
+35 ;;^DIST(.404,.402011,40,12,21,5,0)
+36 ;;=This will become the namespace of the compiled routine(s).
+37 ;;^DIST(.404,.402011,40,12,21,6,0)
+38 ;;=
+39 ;;^DIST(.404,.402011,40,12,21,7,0)
+40 ;;=If a NEW routine name is entered, but the cross-references are not
+41 ;;^DIST(.404,.402011,40,12,21,8,0)
+42 ;;=compiled at this time, the routine name will be automatically deleted.
+43 ;;^DIST(.404,.402011,40,12,21,9,0)
+44 ;;=
+45 ;;^DIST(.404,.402011,40,12,21,10,0)
+46 ;;=If the routine name is deleted, the cross-references are considered
+47 ;;^DIST(.404,.402011,40,12,21,11,0)
+48 ;;=un-compiled, and FileMan will not use the routine for re-indexing.
+49 ;;^DIST(.404,.402011,40,13,0)
+50 ;;=1.8^DEVELOPER^3
+51 ;;^DIST(.404,.402011,40,13,1)
+52 ;;=20
+53 ;;^DIST(.404,.402011,40,13,2)
+54 ;;=5,36^35^5,25
+55 ;;^DIST(.404,.402011,40,15,0)
+56 ;;=1.2^Select APPLICATION GROUP^3
+57 ;;^DIST(.404,.402011,40,15,1)
+58 ;;=10
+59 ;;^DIST(.404,.402011,40,15,2)
+60 ;;=4,36^5^4,10
+61 ;;^DIST(.404,.402011,40,16,0)
+62 ;;=.1^^4^^NUMBER
+63 ;;^DIST(.404,.402011,40,16,2)
+64 ;;=3,49^18
+65 ;;^DIST(.404,.402011,40,16,30)
+66 ;;=S Y="(File # "_DA_")"
+67 ;;^DIST(.404,.402011,40,17,0)
+68 ;;=.2^FILE NAME^2^^NAME
+69 ;;^DIST(.404,.402011,40,17,2)
+70 ;;=2,12^45^2,1
+71 ;;^DIST(.404,.402011,40,17,3)
+72 ;;=!M
+73 ;;^DIST(.404,.402011,40,17,3.1)
+74 ;;=S Y=$P($G(^DIC(DA,0)),U)
+75 ;;^DIST(.404,.402011,40,17,13)
+76 ;;=I X="" S DDACT="EX"
+77 ;;^DIST(.404,.402011,40,17,20)
+78 ;;=F^^3:45
+79 ;;^DIST(.404,.402011,40,18,0)
+80 ;;=13^^4^^FORMERLY COMPILED AS
+81 ;;^DIST(.404,.402011,40,18,2)
+82 ;;=17,37^31
+83 ;;^DIST(.404,.402011,40,18,30)
+84 ;;=S Y="" I '$D(^DD(DA,0,"DIK")) S Y=$G(^("DIKOLD")) S:Y]"" Y="(formerly compiled as '"_Y_"')"
+85 ;;^DIST(.404,.403011,0)
+86 ;;=DDGF BLOCK EDIT 1^.4032
+87 ;;^DIST(.404,.403011,11)
+88 ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
+89 ;;^DIST(.404,.403011,40,0)
+90 ;;=^.4044I^10^8
+91 ;;^DIST(.404,.403011,40,1,0)
+92 ;;=1^ Block Properties Stored in FORM File ^1
+93 ;;^DIST(.404,.403011,40,1,2)
+94 ;;=^^1,20^1
+95 ;;^DIST(.404,.403011,40,2,0)
+96 ;;=3^BLOCK ORDER^3
+97 ;;^DIST(.404,.403011,40,2,1)
+98 ;;=1
+99 ;;^DIST(.404,.403011,40,2,2)
+100 ;;=3,69^4^3,56
+101 ;;^DIST(.404,.403011,40,2,4)
+102 ;;=1
+103 ;;^DIST(.404,.403011,40,3,0)
+104 ;;=4^TYPE OF BLOCK^3
+105 ;;^DIST(.404,.403011,40,3,1)
+106 ;;=3
+107 ;;^DIST(.404,.403011,40,3,2)
+108 ;;=4,18^7^4,3
+109 ;;^DIST(.404,.403011,40,3,4)
+110 ;;=1
+111 ;;^DIST(.404,.403011,40,3,13)
+112 ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
+113 ;;^DIST(.404,.403011,40,5,0)
+114 ;;=6^POINTER LINK^3
+115 ;;^DIST(.404,.403011,40,5,1)
+116 ;;=4
+117 ;;^DIST(.404,.403011,40,5,2)
+118 ;;=6,18^57^6,4
+119 ;;^DIST(.404,.403011,40,6,0)
+120 ;;=2^BLOCK NAME^3
+121 ;;^DIST(.404,.403011,40,6,1)
+122 ;;=.01
+123 ;;^DIST(.404,.403011,40,6,2)
+124 ;;=3,18^30^3,6
+125 ;;^DIST(.404,.403011,40,8,0)
+126 ;;=7^PRE ACTION^3
+127 ;;^DIST(.404,.403011,40,8,1)
+128 ;;=11
+129 ;;^DIST(.404,.403011,40,8,2)
+130 ;;=7,18^57^7,6
+131 ;;^DIST(.404,.403011,40,9,0)
+132 ;;=9^POST ACTION^3
+133 ;;^DIST(.404,.403011,40,9,1)
+134 ;;=12
+135 ;;^DIST(.404,.403011,40,9,2)
+136 ;;=8,18^57^8,5
+137 ;;^DIST(.404,.403011,40,10,0)
+138 ;;=5^OTHER PARAMETERS...^2
+139 ;;^DIST(.404,.403011,40,10,2)
+140 ;;=4,69^1^4,49^1
+141 ;;^DIST(.404,.403011,40,10,7)
+142 ;;=^11
+143 ;;^DIST(.404,.403011,40,10,20)
+144 ;;=F^^0:0
+145 ;;^DIST(.404,.403011,40,10,21,0)
+146 ;;=^^1^1^2940928
+147 ;;^DIST(.404,.403011,40,10,21,1,0)
+148 ;;=Press <RET> to edit additional properties of the block
+149 ;;^DIST(.404,.403012,0)
+150 ;;=DDGF BLOCK EDIT 2^.404
+151 ;;^DIST(.404,.403012,40,0)
+152 ;;=^.4044I^7^7
+153 ;;^DIST(.404,.403012,40,1,0)
+154 ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
+155 ;;^DIST(.404,.403012,40,1,2)
+156 ;;=^^1,2^1
+157 ;;^DIST(.404,.403012,40,2,0)
+158 ;;=2^NAME^2
+159 ;;^DIST(.404,.403012,40,2,2)
+160 ;;=3,16^30^3,10
+161 ;;^DIST(.404,.403012,40,2,3)
+162 ;;=!M
+163 ;;^DIST(.404,.403012,40,2,3.1)
+164 ;;=S Y=DDGFBKNO
+165 ;;^DIST(.404,.403012,40,2,20)
+166 ;;=DD^^.404,.01
+167 ;;^DIST(.404,.403012,40,2,23)
+168 ;;=S DDGFBKNN=X
+169 ;;^DIST(.404,.403012,40,3,0)
+170 ;;=3^DESCRIPTION (WP)^3
+171 ;;^DIST(.404,.403012,40,3,1)
+172 ;;=15
+173 ;;^DIST(.404,.403012,40,3,2)
+174 ;;=3,69^1^3,51
+175 ;;^DIST(.404,.403012,40,4,0)
+176 ;;=4^DD NUMBER^3
+177 ;;^DIST(.404,.403012,40,4,1)
+178 ;;=1
+179 ;;^DIST(.404,.403012,40,4,2)
+180 ;;=4,16^16^4,5
+181 ;;^DIST(.404,.403012,40,5,0)
+182 ;;=5^DISABLE NAVIGATION^3
+183 ;;^DIST(.404,.403012,40,5,1)
+184 ;;=2
+185 ;;^DIST(.404,.403012,40,5,2)
+186 ;;=4,69^5^4,49
+187 ;;^DIST(.404,.403012,40,6,0)
+188 ;;=6^PRE ACTION^3
+189 ;;^DIST(.404,.403012,40,6,1)
+190 ;;=11
+191 ;;^DIST(.404,.403012,40,6,2)
+192 ;;=6,16^59^6,4
+193 ;;^DIST(.404,.403012,40,7,0)
+194 ;;=7^POST ACTION^3
+195 ;;^DIST(.404,.403012,40,7,1)
+196 ;;=12
+197 ;;^DIST(.404,.403012,40,7,2)
+198 ;;=7,16^59^7,3
+199 ;;^DIST(.404,.403013,0)
+200 ;;=DDGF BLOCK EDIT OTHER^.4032
+201 ;;^DIST(.404,.403013,11)
+202 ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'" D UNED^DDSUTL(DDGFZ,"","",1)
+203 ;;^DIST(.404,.403013,40,0)
+204 ;;=^.4044I^9^9
+205 ;;^DIST(.404,.403013,40,1,0)
+206 ;;=1^ Other Block Parameters ^1
+207 ;;^DIST(.404,.403013,40,1,2)
+208 ;;=^^1,16
+209 ;;^DIST(.404,.403013,40,2,0)
+210 ;;=2^BLOCK COORDINATE^2
+211 ;;^DIST(.404,.403013,40,2,2)
+212 ;;=3,24^7^3,6
+213 ;;^DIST(.404,.403013,40,2,3)
+214 ;;=!M
+215 ;;^DIST(.404,.403013,40,2,3.1)
+216 ;;=S Y=DDGFBKCO
+217 ;;^DIST(.404,.403013,40,2,4)
+218 ;;=1
+219 ;;^DIST(.404,.403013,40,2,20)
+220 ;;=DD^^.4032,2
+221 ;;^DIST(.404,.403013,40,2,23)
+222 ;;=S DDGFBKCN=X
