DINIT0F6 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:50 PM  23 Mar 2001
 ;;22.0;VA FileMan;**33,76**;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
 Q
ENTRY ;
 ;;^DIST(.404,.00106,40,5,0)
 ;;=83^LENGTH OF FIELD^2^^LENGTH
 ;;^DIST(.404,.00106,40,5,2)
 ;;=8,19^3^8,2
 ;;^DIST(.404,.00106,40,5,3)
 ;;=!M
 ;;^DIST(.404,.00106,40,5,3.1)
 ;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)
 ;;^DIST(.404,.00106,40,5,20)
 ;;=N^^1:250:0
 ;;^DIST(.404,.00106,40,5,21,0)
 ;;=^^2^2^2981106
 ;;^DIST(.404,.00106,40,5,21,1,0)
 ;;=MAXIMUM NUMBER OF CHARACTERS
 ;;^DIST(.404,.00106,40,5,21,2,0)
 ;;=  (not more than 250)
 ;;^DIST(.404,.00106,40,6,0)
 ;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED
 ;;^DIST(.404,.00106,40,6,2)
 ;;=6,65^3^6,33
 ;;^DIST(.404,.00106,40,6,3)
 ;;=!M
 ;;^DIST(.404,.00106,40,6,3.1)
 ;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)
 ;;^DIST(.404,.00106,40,6,20)
 ;;=Y
 ;;^DIST(.404,.00106,40,7,0)
 ;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING
 ;;^DIST(.404,.00106,40,7,2)
 ;;=7,65^3^7,8
 ;;^DIST(.404,.00106,40,7,3)
 ;;=!M
 ;;^DIST(.404,.00106,40,7,3.1)
 ;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"
 ;;^DIST(.404,.00106,40,7,20)
 ;;=Y
 ;;^DIST(.404,.00107,0)
 ;;=DICATT7^1
 ;;^DIST(.404,.00107,40,0)
 ;;=^.4044I^2^2
 ;;^DIST(.404,.00107,40,1,0)
 ;;=84^POINT TO WHICH FILE^2^^FILE
 ;;^DIST(.404,.00107,40,1,2)
 ;;=2,27^39^2,6
 ;;^DIST(.404,.00107,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00107,40,1,3.1)
 ;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)
 ;;^DIST(.404,.00107,40,1,11)
 ;;=S:$G(DICATTSC)=7 DDACT="CL"
 ;;^DIST(.404,.00107,40,1,20)
 ;;=P^^1:EOFIZ
 ;;^DIST(.404,.00107,40,1,24)
 ;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"
 ;;^DIST(.404,.00107,40,2,0)
 ;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO
 ;;^DIST(.404,.00107,40,2,2)
 ;;=4,59^3^4,6
 ;;^DIST(.404,.00107,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00107,40,2,3.1)
 ;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)
 ;;^DIST(.404,.00107,40,2,14)
 ;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")
 ;;^DIST(.404,.00107,40,2,20)
 ;;=Y
 ;;^DIST(.404,.00108,0)
 ;;=DICATT8^1
 ;;^DIST(.404,.00108,40,0)
 ;;=^.4044I^14^14
 ;;^DIST(.404,.00108,40,1,0)
 ;;=91^VARIABLE-POINTER FILE #1^2^^VP 1
 ;;^DIST(.404,.00108,40,1,2)
 ;;=2,29^30^2,3
 ;;^DIST(.404,.00108,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,1,3.1)
 ;;=D Y^DICATTD8(1,1)
 ;;^DIST(.404,.00108,40,1,4)
 ;;=1
 ;;^DIST(.404,.00108,40,1,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,1,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,2,0)
 ;;=92^VARIABLE-POINTER FILE #2^2^^VP 2
 ;;^DIST(.404,.00108,40,2,2)
 ;;=3,29^30^3,3
 ;;^DIST(.404,.00108,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,2,3.1)
 ;;=D Y^DICATTD8(2,1)
 ;;^DIST(.404,.00108,40,2,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,2,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,3,0)
 ;;=91.1^ORDER...^2^^ORDER1
 ;;^DIST(.404,.00108,40,3,2)
 ;;=2,70^4^2,61^1
 ;;^DIST(.404,.00108,40,3,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,3,3.1)
 ;;=D Y^DICATTD8(1,3)
 ;;^DIST(.404,.00108,40,3,10)
 ;;=S:X DICATTVP=1,DDSSTACK=8
 ;;^DIST(.404,.00108,40,3,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,4,0)
 ;;=92.1^ORDER...^2^^ORDER2
 ;;^DIST(.404,.00108,40,4,2)
 ;;=3,70^4^3,61^1
 ;;^DIST(.404,.00108,40,4,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,4,3.1)
 ;;=D Y^DICATTD8(2,3)
 ;;^DIST(.404,.00108,40,4,10)
 ;;=S:X DICATTVP=2,DDSSTACK=8
 ;;^DIST(.404,.00108,40,4,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,5,0)
 ;;=93^VARIABLE-POINTER FILE #3^2
 ;;^DIST(.404,.00108,40,5,2)
 ;;=4,29^30^4,3
 ;;^DIST(.404,.00108,40,5,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,5,3.1)
 ;;=D Y^DICATTD8(3,1)
 ;;^DIST(.404,.00108,40,5,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,5,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,6,0)
 ;;=93.1^ORDER...^2^^ORDER3
 ;;^DIST(.404,.00108,40,6,2)
 ;;=4,70^4^4,61^1
 ;;^DIST(.404,.00108,40,6,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,6,3.1)
 ;;=D Y^DICATTD8(3,3)
 ;;^DIST(.404,.00108,40,6,10)
 ;;=S:X DICATTVP=3,DDSSTACK=8
 ;;^DIST(.404,.00108,40,6,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,7,0)
 ;;=94.1^ORDER...^2^^ORDER4
 ;;^DIST(.404,.00108,40,7,2)
 ;;=5,70^4^5,61^1
 ;;^DIST(.404,.00108,40,7,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,7,3.1)
 ;;=D Y^DICATTD8(4,3)
 ;;^DIST(.404,.00108,40,7,10)
 ;;=S:X DICATTVP=4,DDSSTACK=8
 ;;^DIST(.404,.00108,40,7,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,8,0)
 ;;=95.1^ORDER...^2^^ORDER5
 ;;^DIST(.404,.00108,40,8,2)
 ;;=6,70^4^6,61^1
 ;;^DIST(.404,.00108,40,8,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,8,3.1)
 ;;=D Y^DICATTD8(5,3)
 ;;^DIST(.404,.00108,40,8,10)
 ;;=S:X DICATTVP=5,DDSSTACK=8
 ;;^DIST(.404,.00108,40,8,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,9,0)
 ;;=96.1^ORDER...^2^^ORDER6
 ;;^DIST(.404,.00108,40,9,2)
 ;;=7,70^4^7,61^1
 ;;^DIST(.404,.00108,40,9,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,9,3.1)
 ;;=D Y^DICATTD8(6,3)
 ;;^DIST(.404,.00108,40,9,10)
 ;;=S:X DICATTVP=6,DDSSTACK=8
 ;;^DIST(.404,.00108,40,9,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,10,0)
 ;;=97.1^ORDER...^2^^ORDER7
 ;;^DIST(.404,.00108,40,10,2)
 ;;=8,70^4^8,61^1
 ;;^DIST(.404,.00108,40,10,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,10,3.1)
 ;;=D Y^DICATTD8(7,3)
 ;;^DIST(.404,.00108,40,10,10)
 ;;=S:X DICATTVP=7,DDSSTACK=8
 ;;^DIST(.404,.00108,40,10,20)
 ;;=N^^1:99:1
 ;;^DIST(.404,.00108,40,11,0)
 ;;=94^VARIABLE-POINTER FILE #4^2^^VP4
 ;;^DIST(.404,.00108,40,11,2)
 ;;=5,29^30^5,3
 ;;^DIST(.404,.00108,40,11,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,11,3.1)
 ;;=D Y^DICATTD8(4,1)
 ;;^DIST(.404,.00108,40,11,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,11,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,12,0)
 ;;=95^VARIABLE-POINTER FILE #5^2^^VP 5
 ;;^DIST(.404,.00108,40,12,2)
 ;;=6,29^30^6,3
 ;;^DIST(.404,.00108,40,12,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,12,3.1)
 ;;=D Y^DICATTD8(5,1)
 ;;^DIST(.404,.00108,40,12,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,12,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,13,0)
 ;;=96^VARIABLE-POINTER FILE #6^2^^VP 6
 ;;^DIST(.404,.00108,40,13,2)
 ;;=7,29^30^7,3
 ;;^DIST(.404,.00108,40,13,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,13,3.1)
 ;;=D Y^DICATTD8(6,1)
 ;;^DIST(.404,.00108,40,13,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,13,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00108,40,14,0)
 ;;=97^VARIABLE-POINTER FILE #7^2^^VP 7
 ;;^DIST(.404,.00108,40,14,2)
 ;;=8,29^30^8,3
 ;;^DIST(.404,.00108,40,14,3)
 ;;=!M
 ;;^DIST(.404,.00108,40,14,3.1)
 ;;=D Y^DICATTD8(7,1)
 ;;^DIST(.404,.00108,40,14,20)
 ;;=P^^1:EOFIZM
 ;;^DIST(.404,.00108,40,14,24)
 ;;=D DICS^DICATTD8
 ;;^DIST(.404,.00109,0)
 ;;=DICATT3^1
 ;;^DIST(.404,.00109,40,0)
 ;;=^.4044I^26^26
 ;;^DIST(.404,.00109,40,1,0)
 ;;=35^CODE^2^^CODE1
 ;;^DIST(.404,.00109,40,1,2)
 ;;=2,8^4^2,2
 ;;^DIST(.404,.00109,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00109,40,1,3.1)
 ;;=D Y^DICATTD3(1,1)