VistA-WorldVistAEHR/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F9.m

DINIT0F9 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999
 ;;22.0;VA FileMan;;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="" ^DINIT0FA S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
 Q
ENTRY ;
 ;;^DIST(.404,.00116,40,4,2)
 ;;=6,23^54^6,15
 ;;^DIST(.404,.00116,40,4,3)
 ;;=!M
 ;;^DIST(.404,.00116,40,4,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,10))
 ;;^DIST(.404,.00116,40,4,20)
 ;;=DD^^0,10
 ;;^DIST(.404,.00116,40,5,0)
 ;;=.5^ ^4^^MULTIPLE FIELD NUMBER
 ;;^DIST(.404,.00116,40,5,2)
 ;;=1,2^77^1,1^1
 ;;^DIST(.404,.00116,40,5,30)
 ;;=D NUMBER^DICATTD
 ;;^DIST(.404,.00117,0)
 ;;=DICATTMUL^1
 ;;^DIST(.404,.00117,40,0)
 ;;=^.4044I^2^2
 ;;^DIST(.404,.00117,40,1,0)
 ;;=1^SHOULD USER SEE AN "ADDING A NEW ENTRY" MESSAGE^2
 ;;^DIST(.404,.00117,40,1,2)
 ;;=2,52^3^2,3
 ;;^DIST(.404,.00117,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00117,40,1,3.1)
 ;;=D LAYGODEF^DICATTDE
 ;;^DIST(.404,.00117,40,1,20)
 ;;=Y
 ;;^DIST(.404,.00117,40,2,0)
 ;;=2^HAVING ENTERED OR EDITED ONE MULTIPLE, SHOULD USER BE ASKED ANOTHER^2
 ;;^DIST(.404,.00117,40,2,2)
 ;;=3,72^3^3,3
 ;;^DIST(.404,.00117,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00117,40,2,3.1)
 ;;=S Y=$E("NY",$G(DICATT2)["M"+1)
 ;;^DIST(.404,.00117,40,2,20)
 ;;=Y
 ;;^DIST(.404,.00118,0)
 ;;=DICATT SCREEN^1
 ;;^DIST(.404,.00118,40,0)
 ;;=^.4044I^3^3
 ;;^DIST(.404,.00118,40,1,0)
 ;;=65^SHOULD ENTRIES BE SCREENED^2
 ;;^DIST(.404,.00118,40,1,2)
 ;;=2,31^3^2,3
 ;;^DIST(.404,.00118,40,1,3)
 ;;=!M
 ;;^DIST(.404,.00118,40,1,3.1)
 ;;=S Y=$E("NY",$G(^DD(DICATTA,DICATTF,12.1))]""+1)
 ;;^DIST(.404,.00118,40,1,12)
 ;;=D UNED^DDSUTL(66,,,'X),UNED^DDSUTL(67,,,'X) I 'X D PUT^DDSVALF(66,,,""),PUT^DDSVALF(67,,,"")
 ;;^DIST(.404,.00118,40,1,20)
 ;;=Y
 ;;^DIST(.404,.00118,40,1,21,0)
 ;;=^^2^2^2981215
 ;;^DIST(.404,.00118,40,1,21,1,0)
 ;;=Answer YES if there is a condition which should prohibit
 ;;^DIST(.404,.00118,40,1,21,2,0)
 ;;=the selection of all choices at all times.
 ;;^DIST(.404,.00118,40,2,0)
 ;;=66^MUMPS CODE THAT WILL SET DIC("S")^2
 ;;^DIST(.404,.00118,40,2,2)
 ;;=4,3^72^3,3
 ;;^DIST(.404,.00118,40,2,3)
 ;;=!M
 ;;^DIST(.404,.00118,40,2,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,12.1))
 ;;^DIST(.404,.00118,40,2,10)
 ;;=D REQ^DDSUTL(67,,,X]"")
 ;;^DIST(.404,.00118,40,2,20)
 ;;=F^U
 ;;^DIST(.404,.00118,40,2,21,0)
 ;;=^^3^3^2981215
 ;;^DIST(.404,.00118,40,2,21,1,0)
 ;;=Enter a MUMPS statement which begins with 'S DIC("S")=' and contains code
 ;;^DIST(.404,.00118,40,2,21,2,0)
 ;;=to set $T.  When the DIC("S") is executed, the variable 'Y' holds internal
 ;;^DIST(.404,.00118,40,2,21,3,0)
 ;;=code being screened.
 ;;^DIST(.404,.00118,40,2,22)
 ;;=D ^DIM
 ;;^DIST(.404,.00118,40,3,0)
 ;;=67^EXPLANATION OF SCREEN^2
 ;;^DIST(.404,.00118,40,3,2)
 ;;=6,3^72^5,3
 ;;^DIST(.404,.00118,40,3,3)
 ;;=!M
 ;;^DIST(.404,.00118,40,3,3.1)
 ;;=S Y=$G(^DD(DICATTA,DICATTF,12))
 ;;^DIST(.404,.00118,40,3,20)
 ;;=F^^1:245
 ;;^DIST(.404,.00118,40,3,22)
 ;;=K:X?.P X
 ;;^DIST(.404,.10011,0)
 ;;=DIPTED^.4
 ;;^DIST(.404,.10011,40,0)
 ;;=^.4044I^14^12
 ;;^DIST(.404,.10011,40,1,0)
 ;;=1^TEMPLATE NAME^3
 ;;^DIST(.404,.10011,40,1,1)
 ;;=.01
 ;;^DIST(.404,.10011,40,1,2)
 ;;=1,16^30^1,1
 ;;^DIST(.404,.10011,40,2,0)
 ;;=3^DATE LAST MODIFIED^3
 ;;^DIST(.404,.10011,40,2,1)
 ;;=2
 ;;^DIST(.404,.10011,40,2,2)
 ;;=4,28^17^4,8
 ;;^DIST(.404,.10011,40,2,4)
 ;;=^^^1
 ;;^DIST(.404,.10011,40,3,0)
 ;;=4^DATE LAST USED^3
 ;;^DIST(.404,.10011,40,3,1)
 ;;=7
 ;;^DIST(.404,.10011,40,3,2)
 ;;=5,28^11^5,12
 ;;^DIST(.404,.10011,40,3,4)
 ;;=^^^1
 ;;^DIST(.404,.10011,40,4,0)
 ;;=6^READ ACCESS^3
 ;;^DIST(.404,.10011,40,4,1)
 ;;=3
 ;;^DIST(.404,.10011,40,4,2)
 ;;=6,28^13^6,15
 ;;^DIST(.404,.10011,40,5,0)
 ;;=7^WRITE ACCESS^3
 ;;^DIST(.404,.10011,40,5,1)
 ;;=6
 ;;^DIST(.404,.10011,40,5,2)
 ;;=7,28^13^7,14
 ;;^DIST(.404,.10011,40,6,0)
 ;;=8^USER #^3
 ;;^DIST(.404,.10011,40,6,1)
 ;;=5
 ;;^DIST(.404,.10011,40,6,2)
 ;;=8,28^9^8,20
 ;;^DIST(.404,.10011,40,7,0)
 ;;=9^DESCRIPTION...^3
 ;;^DIST(.404,.10011,40,7,1)
 ;;=10
 ;;^DIST(.404,.10011,40,7,2)
 ;;=10,28^1^10,13^1
 ;;^DIST(.404,.10011,40,8,0)
 ;;=11^SUB-HEADER SUPPRESSED^3
 ;;^DIST(.404,.10011,40,8,1)
 ;;=707
 ;;^DIST(.404,.10011,40,8,2)
 ;;=14,28^3^14,5
 ;;^DIST(.404,.10011,40,10,0)
 ;;=2^TEMPLATE TYPE^3
 ;;^DIST(.404,.10011,40,10,1)
 ;;=8
 ;;^DIST(.404,.10011,40,10,2)
 ;;=1,71^9^1,56
 ;;^DIST(.404,.10011,40,10,4)
 ;;=^^^1
 ;;^DIST(.404,.10011,40,12,0)
 ;;=10^HEADER^2
 ;;^DIST(.404,.10011,40,12,2)
 ;;=13,4^76^12,4
 ;;^DIST(.404,.10011,40,12,3)
 ;;=!M
 ;;^DIST(.404,.10011,40,12,3.1)
 ;;=S Y=$G(^DIPT(DA,"H"))
 ;;^DIST(.404,.10011,40,12,20)
 ;;=F^^F
 ;;^DIST(.404,.10011,40,12,22)
 ;;=I '$$DHD^DIP3(X,+$P($G(^DIPT(DA,0)),U,4),0) K X
 ;;^DIST(.404,.10011,40,12,23)
 ;;=S ^DIPT(DA,"H")=$S(DDSEXT="":"@",1:DDSEXT)
 ;;^DIST(.404,.10011,40,13,0)
 ;;=5^^4
 ;;^DIST(.404,.10011,40,13,2)
 ;;=2,20^44
 ;;^DIST(.404,.10011,40,13,30)
 ;;=S Y=$G(^DIPT(DA,"ROU")),Y=$S(Y]"":"(Compiled as '"_Y_"' routine)",1:"(Not Compiled)")
 ;;^DIST(.404,.10011,40,14,0)
 ;;=12^(Print Fields on Next Page...)^1^^EDIT FIELD
 ;;^DIST(.404,.10011,40,14,2)
 ;;=^^16,20
 ;;^DIST(.404,.10012,0)
 ;;=DIPTED2^.4
 ;;^DIST(.404,.10012,11)
 ;;=D EDIT^DIPTED(DA)
 ;;^DIST(.404,.10012,40,0)
 ;;=^.4044I^1^1
 ;;^DIST(.404,.10012,40,1,0)
 ;;=1^ ^1
 ;;^DIST(.404,.10012,40,1,2)
 ;;=^^1,1
 ;;^DIST(.404,.110101,0)
 ;;=DIKC EDIT MAIN^.11
 ;;^DIST(.404,.110101,40,0)
 ;;=^.4044I^14^11
 ;;^DIST(.404,.110101,40,1,0)
 ;;=1^File^3
 ;;^DIST(.404,.110101,40,1,1)
 ;;=.01
 ;;^DIST(.404,.110101,40,1,2)
 ;;=1,15^20^1,9
 ;;^DIST(.404,.110101,40,1,13)
 ;;=D BLDLOG^DIKCFORM(DA)
 ;;^DIST(.404,.110101,40,1,14)
 ;;=D VALFILE^DIKCFORM
 ;;^DIST(.404,.110101,40,2,0)
 ;;=3^Index Name^3
 ;;^DIST(.404,.110101,40,2,1)
 ;;=.02
 ;;^DIST(.404,.110101,40,2,2)
 ;;=2,15^30^2,3
 ;;^DIST(.404,.110101,40,2,13)
 ;;=D NAMECHG^DIKCFORM
 ;;^DIST(.404,.110101,40,2,14)
 ;;=D NAMEVAL^DIKCFORM
 ;;^DIST(.404,.110101,40,3,0)
 ;;=5^Short Description^3
 ;;^DIST(.404,.110101,40,3,1)
 ;;=.11
 ;;^DIST(.404,.110101,40,3,2)
 ;;=4,20^60^4,1
 ;;^DIST(.404,.110101,40,4,0)
 ;;=6^Description (wp)^3
 ;;^DIST(.404,.110101,40,4,1)
 ;;=.1
 ;;^DIST(.404,.110101,40,4,2)
 ;;=5,20^1^5,2
 ;;^DIST(.404,.110101,40,5,0)
 ;;=8^Type^3
 ;;^DIST(.404,.110101,40,5,1)
 ;;=.2
 ;;^DIST(.404,.110101,40,5,2)
 ;;=7,15^8^7,9
 ;;^DIST(.404,.110101,40,5,13)
 ;;=D TYPECHG^DIKCFORM
 ;;^DIST(.404,.110101,40,5,14)
 ;;=D TYPEVAL^DIKCFORM
 ;;^DIST(.404,.110101,40,7,0)
 ;;=10^Execution^3
 ;;^DIST(.404,.110101,40,7,1)
 ;;=.4
 ;;^DIST(.404,.110101,40,7,2)
 ;;=10,15^6^10,4
 ;;^DIST(.404,.110101,40,8,0)
 ;;=9^Activity^3
 ;;^DIST(.404,.110101,40,8,1)
 ;;=.41
 ;;^DIST(.404,.110101,40,8,2)
 ;;=9,15^5^9,5
 ;;^DIST(.404,.110101,40,9,0)
 ;;=11^Use^3
 ;;^DIST(.404,.110101,40,9,1)
 ;;=.42
 ;;^DIST(.404,.110101,40,9,2)
 ;;=12,15^16^12,10
 ;;^DIST(.404,.110101,40,9,14)
 ;;=D USEVAL^DIKCFORM