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