265 lines
6.6 KiB
Mathematica
265 lines
6.6 KiB
Mathematica
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
|