165 lines
4.6 KiB
Mathematica
165 lines
4.6 KiB
Mathematica
DINIT0F3 ;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DIST(.403,.40405,40,2,0)
|
|
;;=11^^3,16^^^1^11,63
|
|
;;^DIST(.403,.40405,40,2,1)
|
|
;;=Other Parameters
|
|
;;^DIST(.403,.40405,40,2,40,0)
|
|
;;=^.4032PI^.404052^1
|
|
;;^DIST(.403,.40405,40,2,40,.404052,0)
|
|
;;=.404052^1^1,3^e
|
|
;;^DIST(.403,.40406,0)
|
|
;;=DDGF BLOCK ADD^^^0^2930413^2990316.0924^^.404^0^1^1
|
|
;;^DIST(.403,.40406,40,0)
|
|
;;=^.4031I^3^3
|
|
;;^DIST(.403,.40406,40,1,0)
|
|
;;=1^^3,9^^^1^7,65
|
|
;;^DIST(.403,.40406,40,1,1)
|
|
;;=Add a New Block
|
|
;;^DIST(.403,.40406,40,1,40,0)
|
|
;;=^.4032PI^.404061^1
|
|
;;^DIST(.403,.40406,40,1,40,.404061,0)
|
|
;;=.404061^1^1,1^e
|
|
;;^DIST(.403,.40406,40,2,0)
|
|
;;=11^^6,12^^^1^11,61
|
|
;;^DIST(.403,.40406,40,2,1)
|
|
;;=Add a New Block to Page
|
|
;;^DIST(.403,.40406,40,2,40,0)
|
|
;;=^.4032PI^.404062^1
|
|
;;^DIST(.403,.40406,40,2,40,.404062,0)
|
|
;;=.404062^1^1,1^e
|
|
;;^DIST(.403,.40406,40,3,0)
|
|
;;=21^^6,17^^^1^13,57
|
|
;;^DIST(.403,.40406,40,3,1)
|
|
;;=Duplicate Block Message
|
|
;;^DIST(.403,.40406,40,3,40,0)
|
|
;;=^.4032PI^.404063^1
|
|
;;^DIST(.403,.40406,40,3,40,.404063,0)
|
|
;;=.404063^1^1,1^e
|
|
;;^DIST(.403,.40407,0)
|
|
;;=DDGF BLOCK DELETE^^^0^2930809^2981117.0720^^.404^0^1^1
|
|
;;^DIST(.403,.40407,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40407,40,1,0)
|
|
;;=1^^5,9^^^1^11,62
|
|
;;^DIST(.403,.40407,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.40407,40,1,40,0)
|
|
;;=^.4032PI^.404071^1
|
|
;;^DIST(.403,.40407,40,1,40,.404071,0)
|
|
;;=.404071^1^3,3^e
|
|
;;^DIST(.403,.40408,0)
|
|
;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
|
|
;;^DIST(.403,.40408,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40408,40,1,0)
|
|
;;=1^^4,5^^^1^8,68
|
|
;;^DIST(.403,.40408,40,1,1)
|
|
;;=Add a New Header Block
|
|
;;^DIST(.403,.40408,40,1,40,0)
|
|
;;=^.4032PI^.404081^1
|
|
;;^DIST(.403,.40408,40,1,40,.404081,0)
|
|
;;=.404081^1^1,1^e
|
|
;;^DIST(.403,.441,0)
|
|
;;=DDXP FF FORM1^^^^2920925^2990324.0806^^.44^0^0^1
|
|
;;^DIST(.403,.441,20)
|
|
;;=D FORMVAL^DDXP1
|
|
;;^DIST(.403,.441,40,0)
|
|
;;=^.4031I^3^3
|
|
;;^DIST(.403,.441,40,1,0)
|
|
;;=1^^1,1^2^2^0
|
|
;;^DIST(.403,.441,40,1,1)
|
|
;;=PAGE 1
|
|
;;^DIST(.403,.441,40,1,15,0)
|
|
;;=^^1^1^2920925
|
|
;;^DIST(.403,.441,40,1,15,1,0)
|
|
;;=First page for Foreign Format definition. It contains block DDXP FF BLK1.
|
|
;;^DIST(.403,.441,40,1,40,0)
|
|
;;=^.4032PI^.441^1
|
|
;;^DIST(.403,.441,40,1,40,.441,0)
|
|
;;=.441^1^1,1^e
|
|
;;^DIST(.403,.441,40,2,0)
|
|
;;=2^^1,1^1^1^0
|
|
;;^DIST(.403,.441,40,2,1)
|
|
;;=PAGE 2
|
|
;;^DIST(.403,.441,40,2,15,0)
|
|
;;=^^2^2^2920925
|
|
;;^DIST(.403,.441,40,2,15,1,0)
|
|
;;=Page 2 of the form used to define a Foreign Format. It contains block
|
|
;;^DIST(.403,.441,40,2,15,2,0)
|
|
;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
|
|
;;^DIST(.403,.441,40,2,40,0)
|
|
;;=^.4032PI^.442^1
|
|
;;^DIST(.403,.441,40,2,40,.442,0)
|
|
;;=.442^1^1,1^e
|
|
;;^DIST(.403,.441,40,3,0)
|
|
;;=3^^12,23^^^1^16,59
|
|
;;^DIST(.403,.441,40,3,1)
|
|
;;=POP-UP PAGE 1
|
|
;;^DIST(.403,.441,40,3,15,0)
|
|
;;=^^2^2^2920925
|
|
;;^DIST(.403,.441,40,3,15,1,0)
|
|
;;=This pop-up page is called from page 2 of DDXP FF FORM1. It contains
|
|
;;^DIST(.403,.441,40,3,15,2,0)
|
|
;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
|
|
;;^DIST(.403,.441,40,3,40,0)
|
|
;;=^.4032PI^.443^1
|
|
;;^DIST(.403,.441,40,3,40,.443,0)
|
|
;;=.443^1^1,1^e
|
|
;;^DIST(.403,.461,0)
|
|
;;=DDMP SPECIFY IMPORT^^^^2950216.1102^2990224.0835^^.46^0^1^1
|
|
;;^DIST(.403,.461,11)
|
|
;;=S (DDMPFDCT,DDMPOSET)=0
|
|
;;^DIST(.403,.461,20)
|
|
;;=D VAL^DDMPSM
|
|
;;^DIST(.403,.461,40,0)
|
|
;;=^.4031I^4^4
|
|
;;^DIST(.403,.461,40,1,0)
|
|
;;=1^^1,1^2^2
|
|
;;^DIST(.403,.461,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.461,40,1,40,0)
|
|
;;=^.4032IP^.4611^1
|
|
;;^DIST(.403,.461,40,1,40,.4611,0)
|
|
;;=.4611^1^1,1^e
|
|
;;^DIST(.403,.461,40,2,0)
|
|
;;=2^^1,1^1^1
|
|
;;^DIST(.403,.461,40,2,1)
|
|
;;=Page 2
|
|
;;^DIST(.403,.461,40,2,11)
|
|
;;=D PAGE2^DDMPSM1
|
|
;;^DIST(.403,.461,40,2,40,0)
|
|
;;=^.4032IP^.4612^1
|
|
;;^DIST(.403,.461,40,2,40,.4612,0)
|
|
;;=.4612^1^1,1^e
|
|
;;^DIST(.403,.461,40,3,0)
|
|
;;=3^^5,33^^^1^11,79
|
|
;;^DIST(.403,.461,40,3,1)
|
|
;;=Page 3
|
|
;;^DIST(.403,.461,40,3,40,0)
|
|
;;=^.4032IP^.4613^1
|
|
;;^DIST(.403,.461,40,3,40,.4613,0)
|
|
;;=.4613^1^2,2^e
|
|
;;^DIST(.403,.461,40,4,0)
|
|
;;=4^^6,18^^^1^12,64
|
|
;;^DIST(.403,.461,40,4,1)
|
|
;;=Page 4
|
|
;;^DIST(.403,.461,40,4,11)
|
|
;;=S DDMPFRP4=1
|
|
;;^DIST(.403,.461,40,4,15,0)
|
|
;;=^^3^3^2950301
|
|
;;^DIST(.403,.461,40,4,15,1,0)
|
|
;;=This page explains that all fields need a length for a fixed length
|
|
;;^DIST(.403,.461,40,4,15,2,0)
|
|
;;=import. It gives user the option of deleting the last field entered or
|
|
;;^DIST(.403,.461,40,4,15,3,0)
|
|
;;=returning to length prompt.
|
|
;;^DIST(.403,.461,40,4,40,0)
|
|
;;=^.4032IP^.4614^1
|
|
;;^DIST(.403,.461,40,4,40,.4614,0)
|
|
;;=.4614^1^2,2^e
|