239 lines
6.7 KiB
Mathematica
239 lines
6.7 KiB
Mathematica
DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM 16 Sep 1999
|
|
;;22.0;VA FileMan;**8**;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="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|
Q
|
|
ENTRY ;
|
|
;;^DIST(.403,.40101,40,1,0)
|
|
;;=1^^1,1^2
|
|
;;^DIST(.403,.40101,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.40101,40,1,40,0)
|
|
;;=^.4032IP^.401011^1
|
|
;;^DIST(.403,.40101,40,1,40,.401011,0)
|
|
;;=.401011^1^1,1^e
|
|
;;^DIST(.403,.40101,40,2,0)
|
|
;;=2^^1,1^^1
|
|
;;^DIST(.403,.40101,40,2,1)
|
|
;;=Page 2
|
|
;;^DIST(.403,.40101,40,2,40,0)
|
|
;;=^.4032IP^.401012^1
|
|
;;^DIST(.403,.40101,40,2,40,.401012,0)
|
|
;;=.401012^1^1,1^e
|
|
;;^DIST(.403,.40101,40,2,40,.401012,11)
|
|
;;=D EDIT^DIETED(DA)
|
|
;;^DIST(.403,.40201,0)
|
|
;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1
|
|
;;^DIST(.403,.40201,20)
|
|
;;=D POST^DIU20
|
|
;;^DIST(.403,.40201,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40201,40,1,0)
|
|
;;=1^^1,1
|
|
;;^DIST(.403,.40201,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.40201,40,1,40,0)
|
|
;;=^.4032IP^.402011^1
|
|
;;^DIST(.403,.40201,40,1,40,.402011,0)
|
|
;;=.402011^1^1,3^e
|
|
;;^DIST(.403,.40301,0)
|
|
;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1
|
|
;;^DIST(.403,.40301,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.40301,40,1,0)
|
|
;;=1^^1,2^^^1^17,77
|
|
;;^DIST(.403,.40301,40,1,1)
|
|
;;=Edit Block Parameters
|
|
;;^DIST(.403,.40301,40,1,40,0)
|
|
;;=^.4032PI^.403012^2
|
|
;;^DIST(.403,.40301,40,1,40,.403011,0)
|
|
;;=.403011^1^1,1^e
|
|
;;^DIST(.403,.40301,40,1,40,.403012,0)
|
|
;;=.403012^2^10,1^e
|
|
;;^DIST(.403,.40301,40,1,40,.403012,1)
|
|
;;=PAGE:BLOCK:.01
|
|
;;^DIST(.403,.40301,40,2,0)
|
|
;;=11^^4,11^^^1^16,65
|
|
;;^DIST(.403,.40301,40,2,1)
|
|
;;=Page 11
|
|
;;^DIST(.403,.40301,40,2,40,0)
|
|
;;=^.4032PI^.403013^1
|
|
;;^DIST(.403,.40301,40,2,40,.403013,0)
|
|
;;=.403013^1^1,1^e
|
|
;;^DIST(.403,.40302,0)
|
|
;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1
|
|
;;^DIST(.403,.40302,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.40302,40,1,0)
|
|
;;=1^^4,18^^^1^8,43
|
|
;;^DIST(.403,.40302,40,1,1)
|
|
;;=Add a New Page
|
|
;;^DIST(.403,.40302,40,1,40,0)
|
|
;;=^.4032PI^.403021^1
|
|
;;^DIST(.403,.40302,40,1,40,.403021,0)
|
|
;;=.403021^1^1,1^e
|
|
;;^DIST(.403,.40302,40,2,0)
|
|
;;=11^^4,15^^^1^9,49
|
|
;;^DIST(.403,.40302,40,2,1)
|
|
;;=Select New Page Number
|
|
;;^DIST(.403,.40302,40,2,40,0)
|
|
;;=^.4032PI^.403022^1
|
|
;;^DIST(.403,.40302,40,2,40,.403022,0)
|
|
;;=.403022^1^1,1^e
|
|
;;^DIST(.403,.40303,0)
|
|
;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1
|
|
;;^DIST(.403,.40303,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40303,40,1,0)
|
|
;;=1^^1,3^^^1^17,77
|
|
;;^DIST(.403,.40303,40,1,1)
|
|
;;=Edit a Page
|
|
;;^DIST(.403,.40303,40,1,40,0)
|
|
;;=^.4032PI^.403031^1
|
|
;;^DIST(.403,.40303,40,1,40,.403031,0)
|
|
;;=.403031^1^1,1^e
|
|
;;^DIST(.403,.40303,40,1,40,.403031,11)
|
|
;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
|
|
;;^DIST(.403,.40304,0)
|
|
;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1
|
|
;;^DIST(.403,.40304,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40304,40,1,0)
|
|
;;=1^^4,10^^^1^8,56
|
|
;;^DIST(.403,.40304,40,1,1)
|
|
;;=Select a Page
|
|
;;^DIST(.403,.40304,40,1,40,0)
|
|
;;=^.4032PI^.403041^1
|
|
;;^DIST(.403,.40304,40,1,40,.403041,0)
|
|
;;=.403041^1^3,3^e
|
|
;;^DIST(.403,.40305,0)
|
|
;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1
|
|
;;^DIST(.403,.40305,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40305,40,1,0)
|
|
;;=1^^1,2^^^1^16,76
|
|
;;^DIST(.403,.40305,40,1,1)
|
|
;;=Form Edit
|
|
;;^DIST(.403,.40305,40,1,40,0)
|
|
;;=^.4032PI^.403051^1
|
|
;;^DIST(.403,.40305,40,1,40,.403051,0)
|
|
;;=.403051^1^1,1^e
|
|
;;^DIST(.403,.40306,0)
|
|
;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
|
|
;;^DIST(.403,.40306,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40306,40,1,0)
|
|
;;=1^^2,1^^^1^14,76
|
|
;;^DIST(.403,.40306,40,1,1)
|
|
;;=Edit/Delete the Header Block
|
|
;;^DIST(.403,.40306,40,1,40,0)
|
|
;;=^.4032PI^.403061^2
|
|
;;^DIST(.403,.40306,40,1,40,.403012,0)
|
|
;;=.403012^2^5,1^e
|
|
;;^DIST(.403,.40306,40,1,40,.403012,1)
|
|
;;=PAGE:1
|
|
;;^DIST(.403,.40306,40,1,40,.403061,0)
|
|
;;=.403061^1^1,1^e
|
|
;;^DIST(.403,.40401,0)
|
|
;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1
|
|
;;^DIST(.403,.40401,20)
|
|
;;=D VAL1^DDGFU
|
|
;;^DIST(.403,.40401,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40401,40,1,0)
|
|
;;=1^^4,12^^^1^10,59
|
|
;;^DIST(.403,.40401,40,1,1)
|
|
;;=New field
|
|
;;^DIST(.403,.40401,40,1,40,0)
|
|
;;=^.4032PI^.404011^1
|
|
;;^DIST(.403,.40401,40,1,40,.404011,0)
|
|
;;=.404011^1^3,3^e
|
|
;;^DIST(.403,.40402,0)
|
|
;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1
|
|
;;^DIST(.403,.40402,40,0)
|
|
;;=^.4031I^1^1
|
|
;;^DIST(.403,.40402,40,1,0)
|
|
;;=1^^1,2^^^1^9,75
|
|
;;^DIST(.403,.40402,40,1,1)
|
|
;;=Caption only field
|
|
;;^DIST(.403,.40402,40,1,40,0)
|
|
;;=^.4032PI^.404021^1
|
|
;;^DIST(.403,.40402,40,1,40,.404021,0)
|
|
;;=.404021^1^1,3^e
|
|
;;^DIST(.403,.40403,0)
|
|
;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1
|
|
;;^DIST(.403,.40403,40,0)
|
|
;;=^.4031I^4^4
|
|
;;^DIST(.403,.40403,40,1,0)
|
|
;;=1^^1,1^^^1^16,77
|
|
;;^DIST(.403,.40403,40,1,1)
|
|
;;=Page 1
|
|
;;^DIST(.403,.40403,40,1,40,0)
|
|
;;=^.4032PI^.404031^1
|
|
;;^DIST(.403,.40403,40,1,40,.404031,0)
|
|
;;=.404031^1^1,1^e
|
|
;;^DIST(.403,.40403,40,2,0)
|
|
;;=11^^3,3^^^1^15,75
|
|
;;^DIST(.403,.40403,40,2,1)
|
|
;;=Single-Valued Field (Other)
|
|
;;^DIST(.403,.40403,40,2,40,0)
|
|
;;=^.4032PI^.404032^1
|
|
;;^DIST(.403,.40403,40,2,40,.404032,0)
|
|
;;=.404032^1^1,1^e
|
|
;;^DIST(.403,.40403,40,3,0)
|
|
;;=21^^3,17^^^1^15,60
|
|
;;^DIST(.403,.40403,40,3,1)
|
|
;;=Multiple-Valued Field (Other)
|
|
;;^DIST(.403,.40403,40,3,40,0)
|
|
;;=^.4032PI^.404033^1
|
|
;;^DIST(.403,.40403,40,3,40,.404033,0)
|
|
;;=.404033^1^1,1^e
|
|
;;^DIST(.403,.40403,40,4,0)
|
|
;;=31^^3,17^^^1^13,60
|
|
;;^DIST(.403,.40403,40,4,1)
|
|
;;=Word Processing Field (Other)
|
|
;;^DIST(.403,.40403,40,4,40,0)
|
|
;;=^.4032PI^.404034^1
|
|
;;^DIST(.403,.40403,40,4,40,.404034,0)
|
|
;;=.404034^1^1,1^e
|
|
;;^DIST(.403,.40404,0)
|
|
;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1
|
|
;;^DIST(.403,.40404,40,0)
|
|
;;=^.4031I^3^3
|
|
;;^DIST(.403,.40404,40,1,0)
|
|
;;=1^^1,1^^^1^16,77
|
|
;;^DIST(.403,.40404,40,1,1)
|
|
;;=Form Only Field
|
|
;;^DIST(.403,.40404,40,1,40,0)
|
|
;;=^.4032PI^.404041^1
|
|
;;^DIST(.403,.40404,40,1,40,.404041,0)
|
|
;;=.404041^1^1,1^e
|
|
;;^DIST(.403,.40404,40,2,0)
|
|
;;=11^^3,3^^^1^15,75
|
|
;;^DIST(.403,.40404,40,2,1)
|
|
;;=Other Form Only Field Params
|
|
;;^DIST(.403,.40404,40,2,40,0)
|
|
;;=^.4032PI^.404042^1
|
|
;;^DIST(.403,.40404,40,2,40,.404042,0)
|
|
;;=.404042^1^1,1^e
|
|
;;^DIST(.403,.40404,40,3,0)
|
|
;;=21^^3,3^^^1^15,75
|
|
;;^DIST(.403,.40404,40,3,1)
|
|
;;=Other Parameters
|
|
;;^DIST(.403,.40404,40,3,40,0)
|
|
;;=^.4032PI^.404032^1
|
|
;;^DIST(.403,.40404,40,3,40,.404032,0)
|
|
;;=.404032^1^1,1^e
|
|
;;^DIST(.403,.40405,0)
|
|
;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1
|
|
;;^DIST(.403,.40405,40,0)
|
|
;;=^.4031I^2^2
|
|
;;^DIST(.403,.40405,40,1,0)
|
|
;;=1^^1,2^^^1^12,76
|
|
;;^DIST(.403,.40405,40,1,1)
|
|
;;=Computed Field
|
|
;;^DIST(.403,.40405,40,1,40,0)
|
|
;;=^.4032PI^.404051^1
|
|
;;^DIST(.403,.40405,40,1,40,.404051,0)
|
|
;;=.404051^1^1,1^e
|