DINIT0F4 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:26 PM  14 Aug 2000
 ;;22.0;VA FileMan;**8,42**;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="" ^DINIT0F5 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
 Q
ENTRY ;
 ;;^DIST(.404,.00101,0)
 ;;=DICATT^1
 ;;^DIST(.404,.00101,40,0)
 ;;=^.4044I^17^16
 ;;^DIST(.404,.00101,40,1,0)
 ;;=1^FIELD LABEL^2^^LABEL
 ;;^DIST(.404,.00101,40,1,2)
 ;;=2,14^30^2,1
 ;;^DIST(.404,.00101,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,1,3.1)
 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)
 ;;^DIST(.404,.00101,40,1,10)
 ;;=S DDSBR=20 I X="" S DDSSTACK=9
 ;;^DIST(.404,.00101,40,1,20)
 ;;=DD^^0,.01
 ;;^DIST(.404,.00101,40,2,0)
 ;;=2^TITLE^2^^TITLE
 ;;^DIST(.404,.00101,40,2,2)
 ;;=4,18^60^4,11
 ;;^DIST(.404,.00101,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,2,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,.1))
 ;;^DIST(.404,.00101,40,2,11)
 ;;=I $$GET^DDSVALF(1)="" S DDACT="EX"
 ;;^DIST(.404,.00101,40,2,20)
 ;;=F^^1:99
 ;;^DIST(.404,.00101,40,2,22)
 ;;=I +X=X K X
 ;;^DIST(.404,.00101,40,3,0)
 ;;=11^DESCRIPTION...^2^^DESCRIPTION
 ;;^DIST(.404,.00101,40,3,2)
 ;;=11,17^1^11,2^1
 ;;^DIST(.404,.00101,40,3,10)
 ;;=S DDSSTACK=1.1
 ;;^DIST(.404,.00101,40,3,20)
 ;;=F^^1:1
 ;;^DIST(.404,.00101,40,4,0)
 ;;=3^AUDIT^2^^AUDIT
 ;;^DIST(.404,.00101,40,4,2)
 ;;=5,18^16^5,11
 ;;^DIST(.404,.00101,40,4,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,4,3.1)
 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,"AUDIT")),U)
 ;;^DIST(.404,.00101,40,4,20)
 ;;=DD^^0,1.1
 ;;^DIST(.404,.00101,40,5,0)
 ;;=4^AUDIT CONDITION^2^^AUDIT CONDITION
 ;;^DIST(.404,.00101,40,5,2)
 ;;=6,18^60^6,1
 ;;^DIST(.404,.00101,40,5,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,5,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,"AX"))
 ;;^DIST(.404,.00101,40,5,20)
 ;;=DD^^0,1.2
 ;;^DIST(.404,.00101,40,6,0)
 ;;=5^READ ACCESS^2^^READ ACCESS
 ;;^DIST(.404,.00101,40,6,2)
 ;;=7,18^13^7,5
 ;;^DIST(.404,.00101,40,6,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,6,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))
 ;;^DIST(.404,.00101,40,6,20)
 ;;=DD^^0,8
 ;;^DIST(.404,.00101,40,7,0)
 ;;=6^DELETE ACCESS^2^^DELETE ACCESS
 ;;^DIST(.404,.00101,40,7,2)
 ;;=8,18^13^8,3
 ;;^DIST(.404,.00101,40,7,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,7,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,8.5))
 ;;^DIST(.404,.00101,40,7,20)
 ;;=DD^^0,8.5
 ;;^DIST(.404,.00101,40,8,0)
 ;;=7^WRITE ACCESS^2^^WRITE ACCESS
 ;;^DIST(.404,.00101,40,8,2)
 ;;=9,18^13^9,4
 ;;^DIST(.404,.00101,40,8,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,8,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))
 ;;^DIST(.404,.00101,40,8,20)
 ;;=DD^^0,9
 ;;^DIST(.404,.00101,40,9,0)
 ;;=12^TECHNICAL DESCRIPTION...^2
 ;;^DIST(.404,.00101,40,9,2)
 ;;=11,49^1^11,24^1
 ;;^DIST(.404,.00101,40,9,10)
 ;;=S DDSSTACK=1.2
 ;;^DIST(.404,.00101,40,9,20)
 ;;=F^^1:1
 ;;^DIST(.404,.00101,40,10,0)
 ;;=18^MANDATORY^2^^MANDATORY
 ;;^DIST(.404,.00101,40,10,2)
 ;;=15,17^3^15,6
 ;;^DIST(.404,.00101,40,10,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,10,3.1)
 ;;=S Y=$S(DICATT2["R":"YES",DICATT2'["C"&'DICATT2:"NO",1:"")
 ;;^DIST(.404,.00101,40,10,10)
 ;;=S DDSBR=98
 ;;^DIST(.404,.00101,40,10,20)
 ;;=Y
 ;;^DIST(.404,.00101,40,12,0)
 ;;=98^HELP-PROMPT^2^^HELP-PROMPT
 ;;^DIST(.404,.00101,40,12,2)
 ;;=16,17^61^16,4
 ;;^DIST(.404,.00101,40,12,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,12,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,3))
 ;;^DIST(.404,.00101,40,12,20)
 ;;=DD^^0,3
 ;;^DIST(.404,.00101,40,13,0)
 ;;=99^XECUTABLE HELP^2^^XECUTABLE HELP
 ;;^DIST(.404,.00101,40,13,2)
 ;;=17,17^61^17,1
 ;;^DIST(.404,.00101,40,13,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,13,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,4))
 ;;^DIST(.404,.00101,40,13,20)
 ;;=DD^^0,4
 ;;^DIST(.404,.00101,40,14,0)
 ;;=20^DATA TYPE...^2^^TYPE
 ;;^DIST(.404,.00101,40,14,2)
 ;;=2,60^20^2,47^1
 ;;^DIST(.404,.00101,40,14,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,14,3.1)
 ;;=S Y=$$TYPE^DICATTD
 ;;^DIST(.404,.00101,40,14,4)
 ;;=1
 ;;^DIST(.404,.00101,40,14,10)
 ;;=S DDSBR=18 D BRANCH^DICATTD
 ;;^DIST(.404,.00101,40,14,11)
 ;;=I $G(DICATTDK) S DDACT="EX"
 ;;^DIST(.404,.00101,40,14,20)
 ;;=S^M^1:DATE;2:NUMERIC;3:SET;4:FREE TEXT;5:WORD-PROCESSING;6:COMPUTED;7:POINTER;8:VARIABLE-POINTER;9:MUMPS
 ;;^DIST(.404,.00101,40,14,24)
 ;;=D SCREEN^DICATTD
 ;;^DIST(.404,.00101,40,15,0)
 ;;=.5^^4^^FIELD NUMBER
 ;;^DIST(.404,.00101,40,15,2)
 ;;=1,1^77
 ;;^DIST(.404,.00101,40,15,30)
 ;;=D NUMBER^DICATTD
 ;;^DIST(.404,.00101,40,16,0)
 ;;=8^SOURCE^2^^SOURCE
 ;;^DIST(.404,.00101,40,16,2)
 ;;=10,18^61^10,10
 ;;^DIST(.404,.00101,40,16,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,16,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))
 ;;^DIST(.404,.00101,40,16,20)
 ;;=DD^^0,10
 ;;^DIST(.404,.00101,40,17,0)
 ;;=20.5^IS THIS FIELD MULTIPLE...^2^^MULTIPLE
 ;;^DIST(.404,.00101,40,17,2)
 ;;=13,49^3^13,23^1
 ;;^DIST(.404,.00101,40,17,3)
 ;;=!M
 ;;^DIST(.404,.00101,40,17,3.1)
 ;;=S Y="N"
 ;;^DIST(.404,.00101,40,17,4)
 ;;=^^^0
 ;;^DIST(.404,.00101,40,17,10)
 ;;=S:DICATT2'["X"&X DDSSTACK=5 I DICATT4="",DUZ(0)="@" S DDSSTACK=$S(X:5,1:3)
 ;;^DIST(.404,.00101,40,17,11)
 ;;=I DICATT4="",'$G(DICATTLN) S DDSBR=98
 ;;^DIST(.404,.00101,40,17,20)
 ;;=Y
 ;;^DIST(.404,.00102,0)
 ;;=DICATT1^1
 ;;^DIST(.404,.00102,40,0)
 ;;=^.4044I^6^6
 ;;^DIST(.404,.00102,40,1,0)
 ;;=21^EARLIEST DATE^2^^EARLIEST DATE
 ;;^DIST(.404,.00102,40,1,2)
 ;;=1,29^18^1,14
 ;;^DIST(.404,.00102,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00102,40,1,3.1)
 ;;=D EARLY^DICATTD1
 ;;^DIST(.404,.00102,40,1,10)
 ;;=S:'Y DDSBR=23
 ;;^DIST(.404,.00102,40,1,20)
 ;;=F
 ;;^DIST(.404,.00102,40,1,21,0)
 ;;=^^1^1^2981103
 ;;^DIST(.404,.00102,40,1,21,1,0)
 ;;=Enter a date, or "DT" to mean the current date at time of data entry
 ;;^DIST(.404,.00102,40,1,22)
 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
 ;;^DIST(.404,.00102,40,2,0)
 ;;=22^LATEST DATE^2^^LATEST DATE
 ;;^DIST(.404,.00102,40,2,2)
 ;;=2,29^20^2,16
 ;;^DIST(.404,.00102,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00102,40,2,3.1)
 ;;=D LATEST^DICATTD1
 ;;^DIST(.404,.00102,40,2,20)
 ;;=F
 ;;^DIST(.404,.00102,40,2,21,0)
 ;;=^^1^1^2981103
 ;;^DIST(.404,.00102,40,2,21,1,0)
 ;;=Enter a date, or "DT" to mean the current date at time of data entry
 ;;^DIST(.404,.00102,40,2,22)
 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
 ;;^DIST(.404,.00102,40,3,0)
 ;;=23^CAN DATE BE IMPRECISE^2^^CAN DATE BE IMPRECISE
 ;;^DIST(.404,.00102,40,3,2)
 ;;=3,29^3^3,6
 ;;^DIST(.404,.00102,40,3,3)
 ;;=!M
 ;;^DIST(.404,.00102,40,3,3.1)
 ;;=S Y=$E("YN",$P(DICATT5,"""",2)["X"+1)
 ;;^DIST(.404,.00102,40,3,20)
 ;;=Y
 ;;^DIST(.404,.00102,40,3,21,0)
 ;;=^^1^1^2981031
 ;;^DIST(.404,.00102,40,3,21,1,0)
 ;;=E.G., Would 'FEB, 1999' be allowed?
 ;;^DIST(.404,.00102,40,4,0)
 ;;=24^CAN TIME OF DAY BE ENTERED^2^^CAN TIME OF DAY BE ENTERED
 ;;^DIST(.404,.00102,40,4,2)
 ;;=4,29^3^4,1
 ;;^DIST(.404,.00102,40,4,3)
 ;;=!M
 ;;^DIST(.404,.00102,40,4,3.1)
 ;;=S Y=$E("NY",$P(DICATT5,"""",2)["T"+1)
 ;;^DIST(.404,.00102,40,4,10)
 ;;=S:X=2 DDSBR="COM"