DINIT0F4 ;SFISC/MKO - DATA FOR FORM AND BLOCK FILES ;29AUG2015
;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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,3)
;;=!M
;;^DIST(.404,.00101,40,3,3.1)
;;=S Y=$$WPLUS^DICATTD0(21)
;;^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,3)
;;=!M
;;^DIST(.404,.00101,40,9,3.1)
;;=S Y=$$WPLUS^DICATTD0(23)
;;^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)
;;=P^M^.81:EOFIZ
;;^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"
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F4 7297 printed Sep 23, 2025@20:26:19 Page 2
DINIT0F4 ;SFISC/MKO - DATA FOR FORM AND BLOCK FILES ;29AUG2015
+1 ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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
+8 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,3)
+36 ;;=!M
+37 ;;^DIST(.404,.00101,40,3,3.1)
+38 ;;=S Y=$$WPLUS^DICATTD0(21)
+39 ;;^DIST(.404,.00101,40,3,10)
+40 ;;=S DDSSTACK=1.1
+41 ;;^DIST(.404,.00101,40,3,20)
+42 ;;=F^^1:1
+43 ;;^DIST(.404,.00101,40,4,0)
+44 ;;=3^AUDIT^2^^AUDIT
+45 ;;^DIST(.404,.00101,40,4,2)
+46 ;;=5,18^16^5,11
+47 ;;^DIST(.404,.00101,40,4,3)
+48 ;;=!M
+49 ;;^DIST(.404,.00101,40,4,3.1)
+50 ;;=S Y=$P($G(^DD(DICATTA,DICATTF,"AUDIT")),U)
+51 ;;^DIST(.404,.00101,40,4,20)
+52 ;;=DD^^0,1.1
+53 ;;^DIST(.404,.00101,40,5,0)
+54 ;;=4^AUDIT CONDITION^2^^AUDIT CONDITION
+55 ;;^DIST(.404,.00101,40,5,2)
+56 ;;=6,18^60^6,1
+57 ;;^DIST(.404,.00101,40,5,3)
+58 ;;=!M
+59 ;;^DIST(.404,.00101,40,5,3.1)
+60 ;;=S Y=$G(^DD(DICATTA,DICATTF,"AX"))
+61 ;;^DIST(.404,.00101,40,5,20)
+62 ;;=DD^^0,1.2
+63 ;;^DIST(.404,.00101,40,6,0)
+64 ;;=5^READ ACCESS^2^^READ ACCESS
+65 ;;^DIST(.404,.00101,40,6,2)
+66 ;;=7,18^13^7,5
+67 ;;^DIST(.404,.00101,40,6,3)
+68 ;;=!M
+69 ;;^DIST(.404,.00101,40,6,3.1)
+70 ;;=S Y=$G(^DD(DICATTA,DICATTF,8))
+71 ;;^DIST(.404,.00101,40,6,20)
+72 ;;=DD^^0,8
+73 ;;^DIST(.404,.00101,40,7,0)
+74 ;;=6^DELETE ACCESS^2^^DELETE ACCESS
+75 ;;^DIST(.404,.00101,40,7,2)
+76 ;;=8,18^13^8,3
+77 ;;^DIST(.404,.00101,40,7,3)
+78 ;;=!M
+79 ;;^DIST(.404,.00101,40,7,3.1)
+80 ;;=S Y=$G(^DD(DICATTA,DICATTF,8.5))
+81 ;;^DIST(.404,.00101,40,7,20)
+82 ;;=DD^^0,8.5
+83 ;;^DIST(.404,.00101,40,8,0)
+84 ;;=7^WRITE ACCESS^2^^WRITE ACCESS
+85 ;;^DIST(.404,.00101,40,8,2)
+86 ;;=9,18^13^9,4
+87 ;;^DIST(.404,.00101,40,8,3)
+88 ;;=!M
+89 ;;^DIST(.404,.00101,40,8,3.1)
+90 ;;=S Y=$G(^DD(DICATTA,DICATTF,9))
+91 ;;^DIST(.404,.00101,40,8,20)
+92 ;;=DD^^0,9
+93 ;;^DIST(.404,.00101,40,9,0)
+94 ;;=12^TECHNICAL DESCRIPTION...^2
+95 ;;^DIST(.404,.00101,40,9,2)
+96 ;;=11,49^1^11,24^1
+97 ;;^DIST(.404,.00101,40,9,3)
+98 ;;=!M
+99 ;;^DIST(.404,.00101,40,9,3.1)
+100 ;;=S Y=$$WPLUS^DICATTD0(23)
+101 ;;^DIST(.404,.00101,40,9,10)
+102 ;;=S DDSSTACK=1.2
+103 ;;^DIST(.404,.00101,40,9,20)
+104 ;;=F^^1:1
+105 ;;^DIST(.404,.00101,40,10,0)
+106 ;;=18^MANDATORY^2^^MANDATORY
+107 ;;^DIST(.404,.00101,40,10,2)
+108 ;;=15,17^3^15,6
+109 ;;^DIST(.404,.00101,40,10,3)
+110 ;;=!M
+111 ;;^DIST(.404,.00101,40,10,3.1)
+112 ;;=S Y=$S(DICATT2["R":"YES",DICATT2'["C"&'DICATT2:"NO",1:"")
+113 ;;^DIST(.404,.00101,40,10,10)
+114 ;;=S DDSBR=98
+115 ;;^DIST(.404,.00101,40,10,20)
+116 ;;=Y
+117 ;;^DIST(.404,.00101,40,12,0)
+118 ;;=98^HELP-PROMPT^2^^HELP-PROMPT
+119 ;;^DIST(.404,.00101,40,12,2)
+120 ;;=16,17^61^16,4
+121 ;;^DIST(.404,.00101,40,12,3)
+122 ;;=!M
+123 ;;^DIST(.404,.00101,40,12,3.1)
+124 ;;=S Y=$G(^DD(DICATTA,DICATTF,3))
+125 ;;^DIST(.404,.00101,40,12,20)
+126 ;;=DD^^0,3
+127 ;;^DIST(.404,.00101,40,13,0)
+128 ;;=99^XECUTABLE HELP^2^^XECUTABLE HELP
+129 ;;^DIST(.404,.00101,40,13,2)
+130 ;;=17,17^61^17,1
+131 ;;^DIST(.404,.00101,40,13,3)
+132 ;;=!M
+133 ;;^DIST(.404,.00101,40,13,3.1)
+134 ;;=S Y=$G(^DD(DICATTA,DICATTF,4))
+135 ;;^DIST(.404,.00101,40,13,20)
+136 ;;=DD^^0,4
+137 ;;^DIST(.404,.00101,40,14,0)
+138 ;;=20^DATA TYPE...^2^^TYPE
+139 ;;^DIST(.404,.00101,40,14,2)
+140 ;;=2,60^20^2,47^1
+141 ;;^DIST(.404,.00101,40,14,3)
+142 ;;=!M
+143 ;;^DIST(.404,.00101,40,14,3.1)
+144 ;;=S Y=$$TYPE^DICATTD
+145 ;;^DIST(.404,.00101,40,14,4)
+146 ;;=1
+147 ;;^DIST(.404,.00101,40,14,10)
+148 ;;=S DDSBR=18 D BRANCH^DICATTD
+149 ;;^DIST(.404,.00101,40,14,11)
+150 ;;=I $G(DICATTDK) S DDACT="EX"
+151 ;;^DIST(.404,.00101,40,14,20)
+152 ;;=P^M^.81:EOFIZ
+153 ;;^DIST(.404,.00101,40,14,24)
+154 ;;=D SCREEN^DICATTD
+155 ;;^DIST(.404,.00101,40,15,0)
+156 ;;=.5^^4^^FIELD NUMBER
+157 ;;^DIST(.404,.00101,40,15,2)
+158 ;;=1,1^77
+159 ;;^DIST(.404,.00101,40,15,30)
+160 ;;=D NUMBER^DICATTD
+161 ;;^DIST(.404,.00101,40,16,0)
+162 ;;=8^SOURCE^2^^SOURCE
+163 ;;^DIST(.404,.00101,40,16,2)
+164 ;;=10,18^61^10,10
+165 ;;^DIST(.404,.00101,40,16,3)
+166 ;;=!M
+167 ;;^DIST(.404,.00101,40,16,3.1)
+168 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))
+169 ;;^DIST(.404,.00101,40,16,20)
+170 ;;=DD^^0,10
+171 ;;^DIST(.404,.00101,40,17,0)
+172 ;;=20.5^IS THIS FIELD MULTIPLE...^2^^MULTIPLE
+173 ;;^DIST(.404,.00101,40,17,2)
+174 ;;=13,49^3^13,23^1
+175 ;;^DIST(.404,.00101,40,17,3)
+176 ;;=!M
+177 ;;^DIST(.404,.00101,40,17,3.1)
+178 ;;=S Y="N"
+179 ;;^DIST(.404,.00101,40,17,4)
+180 ;;=^^^0
+181 ;;^DIST(.404,.00101,40,17,10)
+182 ;;=S:DICATT2'["X"&X DDSSTACK=5 I DICATT4="",DUZ(0)="@" S DDSSTACK=$S(X:5,1:3)
+183 ;;^DIST(.404,.00101,40,17,11)
+184 ;;=I DICATT4="",'$G(DICATTLN) S DDSBR=98
+185 ;;^DIST(.404,.00101,40,17,20)
+186 ;;=Y
+187 ;;^DIST(.404,.00102,0)
+188 ;;=DICATT1^1
+189 ;;^DIST(.404,.00102,40,0)
+190 ;;=^.4044I^6^6
+191 ;;^DIST(.404,.00102,40,1,0)
+192 ;;=21^EARLIEST DATE^2^^EARLIEST DATE
+193 ;;^DIST(.404,.00102,40,1,2)
+194 ;;=1,29^18^1,14
+195 ;;^DIST(.404,.00102,40,1,3)
+196 ;;=!M
+197 ;;^DIST(.404,.00102,40,1,3.1)
+198 ;;=D EARLY^DICATTD1
+199 ;;^DIST(.404,.00102,40,1,10)
+200 ;;=S:'Y DDSBR=23
+201 ;;^DIST(.404,.00102,40,1,20)
+202 ;;=F
+203 ;;^DIST(.404,.00102,40,1,21,0)
+204 ;;=^^1^1^2981103
+205 ;;^DIST(.404,.00102,40,1,21,1,0)
+206 ;;=Enter a date, or "DT" to mean the current date at time of data entry
+207 ;;^DIST(.404,.00102,40,1,22)
+208 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
+209 ;;^DIST(.404,.00102,40,2,0)
+210 ;;=22^LATEST DATE^2^^LATEST DATE
+211 ;;^DIST(.404,.00102,40,2,2)
+212 ;;=2,29^20^2,16
+213 ;;^DIST(.404,.00102,40,2,3)
+214 ;;=!M
+215 ;;^DIST(.404,.00102,40,2,3.1)
+216 ;;=D LATEST^DICATTD1
+217 ;;^DIST(.404,.00102,40,2,20)
+218 ;;=F
+219 ;;^DIST(.404,.00102,40,2,21,0)
+220 ;;=^^1^1^2981103
+221 ;;^DIST(.404,.00102,40,2,21,1,0)
+222 ;;=Enter a date, or "DT" to mean the current date at time of data entry
+223 ;;^DIST(.404,.00102,40,2,22)
+224 ;;=N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
+225 ;;^DIST(.404,.00102,40,3,0)
+226 ;;=23^CAN DATE BE IMPRECISE^2^^CAN DATE BE IMPRECISE
+227 ;;^DIST(.404,.00102,40,3,2)
+228 ;;=3,29^3^3,6
+229 ;;^DIST(.404,.00102,40,3,3)
+230 ;;=!M
+231 ;;^DIST(.404,.00102,40,3,3.1)
+232 ;;=S Y=$E("YN",$P(DICATT5,"""",2)["X"+1)
+233 ;;^DIST(.404,.00102,40,3,20)
+234 ;;=Y
+235 ;;^DIST(.404,.00102,40,3,21,0)
+236 ;;=^^1^1^2981031
+237 ;;^DIST(.404,.00102,40,3,21,1,0)
+238 ;;=E.G., Would 'FEB, 1999' be allowed?
+239 ;;^DIST(.404,.00102,40,4,0)
+240 ;;=24^CAN TIME OF DAY BE ENTERED^2^^CAN TIME OF DAY BE ENTERED
+241 ;;^DIST(.404,.00102,40,4,2)
+242 ;;=4,29^3^4,1
+243 ;;^DIST(.404,.00102,40,4,3)
+244 ;;=!M
+245 ;;^DIST(.404,.00102,40,4,3.1)
+246 ;;=S Y=$E("NY",$P(DICATT5,"""",2)["T"+1)
+247 ;;^DIST(.404,.00102,40,4,10)
+248 ;;=S:X=2 DDSBR="COM"
