Routine: DINIT0F4

DINIT0F4 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:26 PM  14 Aug 2000 [ 04/02/2003   8:25 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;;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

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"

DINIT0F4  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:26 PM  14 Aug 2000 [ 04/02/2003   8:25 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;;22.0;VA FileMan;**8,42**;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 ^DINIT0F5

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +5        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.00101,0)

 +2       ;;=DICATT^1

 +3       ;;^DIST(.404,.00101,40,0)

 +4       ;;=^.4044I^17^16

 +5       ;;^DIST(.404,.00101,40,1,0)

 +6       ;;=1^FIELD LABEL^2^^LABEL

 +7       ;;^DIST(.404,.00101,40,1,2)

 +8       ;;=2,14^30^2,1

 +9       ;;^DIST(.404,.00101,40,1,3)

 +10      ;;=!M

 +11      ;;^DIST(.404,.00101,40,1,3.1)

 +12      ;;=S Y=$P($G(^DD(DICATTA,DICATTF,0)),U)

 +13      ;;^DIST(.404,.00101,40,1,10)

 +14      ;;=S DDSBR=20 I X="" S DDSSTACK=9

 +15      ;;^DIST(.404,.00101,40,1,20)

 +16      ;;=DD^^0,.01

 +17      ;;^DIST(.404,.00101,40,2,0)

 +18      ;;=2^TITLE^2^^TITLE

 +19      ;;^DIST(.404,.00101,40,2,2)

 +20      ;;=4,18^60^4,11

 +21      ;;^DIST(.404,.00101,40,2,3)

 +22      ;;=!M

 +23      ;;^DIST(.404,.00101,40,2,3.1)

 +24      ;;=S Y=$G(^DD(DICATTA,DICATTF,.1))

 +25      ;;^DIST(.404,.00101,40,2,11)

 +26      ;;=I $$GET^DDSVALF(1)="" S DDACT="EX"

 +27      ;;^DIST(.404,.00101,40,2,20)

 +28      ;;=F^^1:99

 +29      ;;^DIST(.404,.00101,40,2,22)

 +30      ;;=I +X=X K X

 +31      ;;^DIST(.404,.00101,40,3,0)

 +32      ;;=11^DESCRIPTION...^2^^DESCRIPTION

 +33      ;;^DIST(.404,.00101,40,3,2)

 +34      ;;=11,17^1^11,2^1

 +35      ;;^DIST(.404,.00101,40,3,10)

 +36      ;;=S DDSSTACK=1.1

 +37      ;;^DIST(.404,.00101,40,3,20)

 +38      ;;=F^^1:1

 +39      ;;^DIST(.404,.00101,40,4,0)

 +40      ;;=3^AUDIT^2^^AUDIT

 +41      ;;^DIST(.404,.00101,40,4,2)

 +42      ;;=5,18^16^5,11

 +43      ;;^DIST(.404,.00101,40,4,3)

 +44      ;;=!M

 +45      ;;^DIST(.404,.00101,40,4,3.1)

 +46      ;;=S Y=$P($G(^DD(DICATTA,DICATTF,"AUDIT")),U)

 +47      ;;^DIST(.404,.00101,40,4,20)

 +48      ;;=DD^^0,1.1

 +49      ;;^DIST(.404,.00101,40,5,0)

 +50      ;;=4^AUDIT CONDITION^2^^AUDIT CONDITION

 +51      ;;^DIST(.404,.00101,40,5,2)

 +52      ;;=6,18^60^6,1

 +53      ;;^DIST(.404,.00101,40,5,3)

 +54      ;;=!M

 +55      ;;^DIST(.404,.00101,40,5,3.1)

 +56      ;;=S Y=$G(^DD(DICATTA,DICATTF,"AX"))

 +57      ;;^DIST(.404,.00101,40,5,20)

 +58      ;;=DD^^0,1.2

 +59      ;;^DIST(.404,.00101,40,6,0)

 +60      ;;=5^READ ACCESS^2^^READ ACCESS

 +61      ;;^DIST(.404,.00101,40,6,2)

 +62      ;;=7,18^13^7,5

 +63      ;;^DIST(.404,.00101,40,6,3)

 +64      ;;=!M

 +65      ;;^DIST(.404,.00101,40,6,3.1)

 +66      ;;=S Y=$G(^DD(DICATTA,DICATTF,8))

 +67      ;;^DIST(.404,.00101,40,6,20)

 +68      ;;=DD^^0,8

 +69      ;;^DIST(.404,.00101,40,7,0)

 +70      ;;=6^DELETE ACCESS^2^^DELETE ACCESS

 +71      ;;^DIST(.404,.00101,40,7,2)

 +72      ;;=8,18^13^8,3

 +73      ;;^DIST(.404,.00101,40,7,3)

 +74      ;;=!M

 +75      ;;^DIST(.404,.00101,40,7,3.1)

 +76      ;;=S Y=$G(^DD(DICATTA,DICATTF,8.5))

 +77      ;;^DIST(.404,.00101,40,7,20)

 +78      ;;=DD^^0,8.5

 +79      ;;^DIST(.404,.00101,40,8,0)

 +80      ;;=7^WRITE ACCESS^2^^WRITE ACCESS

 +81      ;;^DIST(.404,.00101,40,8,2)

 +82      ;;=9,18^13^9,4

 +83      ;;^DIST(.404,.00101,40,8,3)

 +84      ;;=!M

 +85      ;;^DIST(.404,.00101,40,8,3.1)

 +86      ;;=S Y=$G(^DD(DICATTA,DICATTF,9))

 +87      ;;^DIST(.404,.00101,40,8,20)

 +88      ;;=DD^^0,9

 +89      ;;^DIST(.404,.00101,40,9,0)

 +90      ;;=12^TECHNICAL DESCRIPTION...^2

 +91      ;;^DIST(.404,.00101,40,9,2)

 +92      ;;=11,49^1^11,24^1

 +93      ;;^DIST(.404,.00101,40,9,10)

 +94      ;;=S DDSSTACK=1.2

 +95      ;;^DIST(.404,.00101,40,9,20)

 +96      ;;=F^^1:1

 +97      ;;^DIST(.404,.00101,40,10,0)

 +98      ;;=18^MANDATORY^2^^MANDATORY

 +99      ;;^DIST(.404,.00101,40,10,2)

 +100     ;;=15,17^3^15,6

 +101     ;;^DIST(.404,.00101,40,10,3)

 +102     ;;=!M

 +103     ;;^DIST(.404,.00101,40,10,3.1)

 +104     ;;=S Y=$S(DICATT2["R":"YES",DICATT2'["C"&'DICATT2:"NO",1:"")

 +105     ;;^DIST(.404,.00101,40,10,10)

 +106     ;;=S DDSBR=98

 +107     ;;^DIST(.404,.00101,40,10,20)

 +108     ;;=Y

 +109     ;;^DIST(.404,.00101,40,12,0)

 +110     ;;=98^HELP-PROMPT^2^^HELP-PROMPT

 +111     ;;^DIST(.404,.00101,40,12,2)

 +112     ;;=16,17^61^16,4

 +113     ;;^DIST(.404,.00101,40,12,3)

 +114     ;;=!M

 +115     ;;^DIST(.404,.00101,40,12,3.1)

 +116     ;;=S Y=$G(^DD(DICATTA,DICATTF,3))

 +117     ;;^DIST(.404,.00101,40,12,20)

 +118     ;;=DD^^0,3

 +119     ;;^DIST(.404,.00101,40,13,0)

 +120     ;;=99^XECUTABLE HELP^2^^XECUTABLE HELP

 +121     ;;^DIST(.404,.00101,40,13,2)

 +122     ;;=17,17^61^17,1

 +123     ;;^DIST(.404,.00101,40,13,3)

 +124     ;;=!M

 +125     ;;^DIST(.404,.00101,40,13,3.1)

 +126     ;;=S Y=$G(^DD(DICATTA,DICATTF,4))

 +127     ;;^DIST(.404,.00101,40,13,20)

 +128     ;;=DD^^0,4

 +129     ;;^DIST(.404,.00101,40,14,0)

 +130     ;;=20^DATA TYPE...^2^^TYPE

 +131     ;;^DIST(.404,.00101,40,14,2)

 +132     ;;=2,60^20^2,47^1

 +133     ;;^DIST(.404,.00101,40,14,3)

 +134     ;;=!M

 +135     ;;^DIST(.404,.00101,40,14,3.1)

 +136     ;;=S Y=$$TYPE^DICATTD

 +137     ;;^DIST(.404,.00101,40,14,4)

 +138     ;;=1

 +139     ;;^DIST(.404,.00101,40,14,10)

 +140     ;;=S DDSBR=18 D BRANCH^DICATTD

 +141     ;;^DIST(.404,.00101,40,14,11)

 +142     ;;=I $G(DICATTDK) S DDACT="EX"

 +143     ;;^DIST(.404,.00101,40,14,20)

 +144     ;;=S^M^1:DATE;2:NUMERIC;3:SET;4:FREE TEXT;5:WORD-PROCESSING;6:COMPUTED;7:POINTER;8:VARIABLE-POINTER;9:MUMPS

 +145     ;;^DIST(.404,.00101,40,14,24)

 +146     ;;=D SCREEN^DICATTD

 +147     ;;^DIST(.404,.00101,40,15,0)

 +148     ;;=.5^^4^^FIELD NUMBER

 +149     ;;^DIST(.404,.00101,40,15,2)

 +150     ;;=1,1^77

 +151     ;;^DIST(.404,.00101,40,15,30)

 +152     ;;=D NUMBER^DICATTD

 +153     ;;^DIST(.404,.00101,40,16,0)

 +154     ;;=8^SOURCE^2^^SOURCE

 +155     ;;^DIST(.404,.00101,40,16,2)

 +156     ;;=10,18^61^10,10

 +157     ;;^DIST(.404,.00101,40,16,3)

 +158     ;;=!M

 +159     ;;^DIST(.404,.00101,40,16,3.1)

 +160     ;;=S Y=$G(^DD(DICATTA,DICATTF,10))

 +161     ;;^DIST(.404,.00101,40,16,20)

 +162     ;;=DD^^0,10

 +163     ;;^DIST(.404,.00101,40,17,0)

 +164     ;;=20.5^IS THIS FIELD MULTIPLE...^2^^MULTIPLE

 +165     ;;^DIST(.404,.00101,40,17,2)

 +166     ;;=13,49^3^13,23^1

 +167     ;;^DIST(.404,.00101,40,17,3)

 +168     ;;=!M

 +169     ;;^DIST(.404,.00101,40,17,3.1)

 +170     ;;=S Y="N"

 +171     ;;^DIST(.404,.00101,40,17,4)

 +172     ;;=^^^0

 +173     ;;^DIST(.404,.00101,40,17,10)

 +174     ;;=S:DICATT2'["X"&X DDSSTACK=5 I DICATT4="",DUZ(0)="@" S DDSSTACK=$S(X:5,1:3)

 +175     ;;^DIST(.404,.00101,40,17,11)

 +176     ;;=I DICATT4="",'$G(DICATTLN) S DDSBR=98

 +177     ;;^DIST(.404,.00101,40,17,20)

 +178     ;;=Y

 +179     ;;^DIST(.404,.00102,0)

 +180     ;;=DICATT1^1

 +181     ;;^DIST(.404,.00102,40,0)

 +182     ;;=^.4044I^6^6

 +183     ;;^DIST(.404,.00102,40,1,0)

 +184     ;;=21^EARLIEST DATE^2^^EARLIEST DATE

 +185     ;;^DIST(.404,.00102,40,1,2)

 +186     ;;=1,29^18^1,14

 +187     ;;^DIST(.404,.00102,40,1,3)

 +188     ;;=!M

 +189     ;;^DIST(.404,.00102,40,1,3.1)

 +190     ;;=D EARLY^DICATTD1

 +191     ;;^DIST(.404,.00102,40,1,10)

 +192     ;;=S:'Y DDSBR=23

 +193     ;;^DIST(.404,.00102,40,1,20)

 +194     ;;=F

 +195     ;;^DIST(.404,.00102,40,1,21,0)

 +196     ;;=^^1^1^2981103

 +197     ;;^DIST(.404,.00102,40,1,21,1,0)

 +198     ;;=Enter a date, or "DT" to mean the current date at time of data entry

 +199     ;;^DIST(.404,.00102,40,1,22)

 +200     ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X

 +201     ;;^DIST(.404,.00102,40,2,0)

 +202     ;;=22^LATEST DATE^2^^LATEST DATE

 +203     ;;^DIST(.404,.00102,40,2,2)

 +204     ;;=2,29^20^2,16

 +205     ;;^DIST(.404,.00102,40,2,3)

 +206     ;;=!M

 +207     ;;^DIST(.404,.00102,40,2,3.1)

 +208     ;;=D LATEST^DICATTD1

 +209     ;;^DIST(.404,.00102,40,2,20)

 +210     ;;=F

 +211     ;;^DIST(.404,.00102,40,2,21,0)

 +212     ;;=^^1^1^2981103

 +213     ;;^DIST(.404,.00102,40,2,21,1,0)

 +214     ;;=Enter a date, or "DT" to mean the current date at time of data entry

 +215     ;;^DIST(.404,.00102,40,2,22)

 +216     ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X

 +217     ;;^DIST(.404,.00102,40,3,0)

 +218     ;;=23^CAN DATE BE IMPRECISE^2^^CAN DATE BE IMPRECISE

 +219     ;;^DIST(.404,.00102,40,3,2)

 +220     ;;=3,29^3^3,6

 +221     ;;^DIST(.404,.00102,40,3,3)

 +222     ;;=!M

 +223     ;;^DIST(.404,.00102,40,3,3.1)

 +224     ;;=S Y=$E("YN",$P(DICATT5,"""",2)["X"+1)

 +225     ;;^DIST(.404,.00102,40,3,20)

 +226     ;;=Y

 +227     ;;^DIST(.404,.00102,40,3,21,0)

 +228     ;;=^^1^1^2981031

 +229     ;;^DIST(.404,.00102,40,3,21,1,0)

 +230     ;;=E.G., Would 'FEB, 1999' be allowed?

 +231     ;;^DIST(.404,.00102,40,4,0)

 +232     ;;=24^CAN TIME OF DAY BE ENTERED^2^^CAN TIME OF DAY BE ENTERED

 +233     ;;^DIST(.404,.00102,40,4,2)

 +234     ;;=4,29^3^4,1

 +235     ;;^DIST(.404,.00102,40,4,3)

 +236     ;;=!M

 +237     ;;^DIST(.404,.00102,40,4,3.1)

 +238     ;;=S Y=$E("NY",$P(DICATT5,"""",2)["T"+1)

 +239     ;;^DIST(.404,.00102,40,4,10)

 +240     ;;=S:X=2 DDSBR="COM"

DINIT0F4.m