DINIT291 ;SFISC/MKO-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(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
G ^DINIT292
Q Q
;;^DD(.403,7,1,1,3)
;;=Programmer only
;;^DD(.403,7,1,1,"%D",0)
;;=^^2^2^2900911^
;;^DD(.403,7,1,1,"%D",0,"LE")
;;=1
;;^DD(.403,7,1,1,"%D",1,0)
;;=This cross-reference is used to quickly find all ScreenMan templates
;;^DD(.403,7,1,1,"%D",2,0)
;;=associated with a file.
;;^DD(.403,7,1,1,"DT")
;;=2900911
;;^DD(.403,7,3)
;;=Answer must be 1-16 characters in length.
;;^DD(.403,7,21,0)
;;=^^2^2^2920407^
;;^DD(.403,7,21,1,0)
;;=Enter a file number, greater than or equal to 2, which represents the data
;;^DD(.403,7,21,2,0)
;;=dictionary number of the primary file for this form.
;;^DD(.403,7,"DT")
;;=2920407
;;^DD(.403,8,0)
;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
;;^DD(.403,8,21,0)
;;=^^2^2^2931027^^^^
;;^DD(.403,8,21,1,0)
;;=This is a flag that indicates none of the blocks on the form are edit
;;^DD(.403,8,21,2,0)
;;=blocks. This flag is set during form compilation.
;;^DD(.403,8,"DT")
;;=2931028
;;^DD(.403,9,0)
;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
;;^DD(.403,9,21,0)
;;=^^2^2^2931027^
;;^DD(.403,9,21,1,0)
;;=This is a flag that indicates none of the fields on the form are data
;;^DD(.403,9,21,2,0)
;;=dictionary fields. This flag is set during form compilation.
;;^DD(.403,9,"DT")
;;=2931028
;;^DD(.403,10,0)
;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
;;^DD(.403,10,1,0)
;;=^.1^^0
;;^DD(.403,10,21,0)
;;=^^2^2^2940908^
;;^DD(.403,10,21,1,0)
;;=This is a flag that indicates that the form is compiled. This flag is
;;^DD(.403,10,21,2,0)
;;=set during form compilation.
;;^DD(.403,10,"DT")
;;=2940701
;;^DD(.403,11,0)
;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.403,11,3)
;;=Enter standard MUMPS code which will be executed at the beginning of the form.
;;^DD(.403,11,9)
;;=@
;;^DD(.403,11,21,0)
;;=^^2^2^2940906^
;;^DD(.403,11,21,1,0)
;;=This is MUMPS code that is executed when the form is first invoked,
;;^DD(.403,11,21,2,0)
;;=before any of the pages are loaded and displayed.
;;^DD(.403,12,0)
;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.403,12,3)
;;=Enter standard MUMPS code which will be executed at the end of the form.
;;^DD(.403,12,9)
;;=@
;;^DD(.403,12,21,0)
;;=^^2^2^2940906^^
;;^DD(.403,12,21,1,0)
;;=This is MUMPS code that is executed before ScreenMan returns to the
;;^DD(.403,12,21,2,0)
;;=calling application.
;;^DD(.403,14,0)
;;=POST SAVE^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.403,14,3)
;;=This is Standard MUMPS code.
;;^DD(.403,14,9)
;;=@
;;^DD(.403,14,21,0)
;;=^^2^2^2940906^
;;^DD(.403,14,21,1,0)
;;=This is MUMPS code that is executed when the user saves changes. It is
;;^DD(.403,14,21,2,0)
;;=executed only if all data is valid, and after all data has been filed.
;;^DD(.403,14,"DT")
;;=2930813
;;^DD(.403,15,0)
;;=DESCRIPTION^.40315^^15;0
;;^DD(.403,20,0)
;;=DATA VALIDATION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.403,20,3)
;;=Enter standard MUMPS code.
;;^DD(.403,20,9)
;;=@
;;^DD(.403,20,21,0)
;;=^^8^8^2940906^
;;^DD(.403,20,21,1,0)
;;=This is MUMPS code that is executed when the user attempts to save changes
;;^DD(.403,20,21,2,0)
;;=to the form. If the code sets DDSERROR, the user is unable to save
;;^DD(.403,20,21,3,0)
;;=changes. If the code sets DDSBR, the user is taken to the specified
;;^DD(.403,20,21,4,0)
;;=field.
;;^DD(.403,20,21,5,0)
;;=
;;^DD(.403,20,21,6,0)
;;=In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you
;;^DD(.403,20,21,7,0)
;;=can use MSG^DDSUTL to print on a separate screen messages to the user
;;^DD(.403,20,21,8,0)
;;=about the validity of the data.
;;^DD(.403,21,0)
;;=RECORD SELECTION PAGE^NJ5,1^^21;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
;;^DD(.403,21,3)
;;=Type a Number between 1 and 999.9, 1 Decimal Digit
;;^DD(.403,21,21,0)
;;=^^12^12^2940906^
;;^DD(.403,21,21,1,0)
;;=Enter the page number of the page that is used for record selection.
;;^DD(.403,21,21,2,0)
;;=
;;^DD(.403,21,21,3,0)
;;=If you define a Record Selection Page, the user can select another entry
;;^DD(.403,21,21,4,0)
;;=in the file, and, if LAYGO is allowed, add another entry into the file
;;^DD(.403,21,21,5,0)
;;=without exiting the form. The Record Selection Page should be a pop-up
;;^DD(.403,21,21,6,0)
;;=page that contains one form-only field that performs a pointer-type read
;;^DD(.403,21,21,7,0)
;;=into the Primary File of the form. The Record Selection Page property
;;^DD(.403,21,21,8,0)
;;=should be set equal to the Page Number of the Record Selection Page.
;;^DD(.403,21,21,9,0)
;;=
;;^DD(.403,21,21,10,0)
;;=The user can open the Record Selection Page by pressing <PF1>L. After the
;;^DD(.403,21,21,11,0)
;;=user selects a record and closes the Record Selection Page, the data for
;;^DD(.403,21,21,12,0)
;;=the selected record is displayed.
;;^DD(.403,21,"DT")
;;=2930225
;;^DD(.403,40,0)
;;=PAGE^.4031I^^40;0
;;^DD(.403,40,"DT")
;;=2930218
;;^DD(.4031,0)
;;=PAGE SUB-FIELD^^40^13
;;^DD(.4031,0,"DT")
;;=2940506
;;^DD(.4031,0,"ID","WRITE")
;;=D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
;;^DD(.4031,0,"IX","AC",.4031,5)
;;=
;;^DD(.4031,0,"IX","B",.4031,.01)
;;=
;;^DD(.4031,0,"IX","C",.4031,7)
;;=
;;^DD(.4031,0,"NM","PAGE")
;;=
;;^DD(.4031,0,"UP")
;;=.403
;;^DD(.4031,.01,0)
;;=PAGE NUMBER^MNJ5,1X^^0;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N)!$D(^DIST(.403,DA(1),40,"B",X)) X
;;^DD(.4031,.01,1,0)
;;=^.1
;;^DD(.4031,.01,1,1,0)
;;=.4031^B
;;^DD(.4031,.01,1,1,1)
;;=S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
;;^DD(.4031,.01,1,1,2)
;;=K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
;;^DD(.4031,.01,3)
;;=Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
;;^DD(.4031,.01,21,0)
;;=^^2^2^2940907^^^
;;^DD(.4031,.01,21,1,0)
;;=This is the unique page number of the page. You can use this number to
;;^DD(.4031,.01,21,2,0)
;;=refer to the page in ScreenMan functions and utilities.
;;^DD(.4031,1,0)
;;=HEADER BLOCK^P.404^DIST(.404,^0;2^Q
;;^DD(.4031,1,1,0)
;;=^.1
;;^DD(.4031,1,1,1,0)
;;=.403^AC
;;^DD(.4031,1,1,1,1)
;;=S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
;;^DD(.4031,1,1,1,2)
;;=K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
;;^DD(.4031,1,1,1,"DT")
;;=2930702
;;^DD(.4031,1,3)
;;=Enter the block which will be used as a header for this page.
;;^DD(.4031,1,21,0)
;;=^^7^7^2940907^^^
;;^DD(.4031,1,21,1,0)
;;=The header block always appears at row 1, column 1 relative to the page
;;^DD(.4031,1,21,2,0)
;;=on which it is defined. It is for display purposes only -- the user
DINIT291 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
+1 ;;22.0;VA FileMan;;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+4 GOTO ^DINIT292
Q QUIT
+1 ;;^DD(.403,7,1,1,3)
+2 ;;=Programmer only
+3 ;;^DD(.403,7,1,1,"%D",0)
+4 ;;=^^2^2^2900911^
+5 ;;^DD(.403,7,1,1,"%D",0,"LE")
+6 ;;=1
+7 ;;^DD(.403,7,1,1,"%D",1,0)
+8 ;;=This cross-reference is used to quickly find all ScreenMan templates
+9 ;;^DD(.403,7,1,1,"%D",2,0)
+10 ;;=associated with a file.
+11 ;;^DD(.403,7,1,1,"DT")
+12 ;;=2900911
+13 ;;^DD(.403,7,3)
+14 ;;=Answer must be 1-16 characters in length.
+15 ;;^DD(.403,7,21,0)
+16 ;;=^^2^2^2920407^
+17 ;;^DD(.403,7,21,1,0)
+18 ;;=Enter a file number, greater than or equal to 2, which represents the data
+19 ;;^DD(.403,7,21,2,0)
+20 ;;=dictionary number of the primary file for this form.
+21 ;;^DD(.403,7,"DT")
+22 ;;=2920407
+23 ;;^DD(.403,8,0)
+24 ;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
+25 ;;^DD(.403,8,21,0)
+26 ;;=^^2^2^2931027^^^^
+27 ;;^DD(.403,8,21,1,0)
+28 ;;=This is a flag that indicates none of the blocks on the form are edit
+29 ;;^DD(.403,8,21,2,0)
+30 ;;=blocks. This flag is set during form compilation.
+31 ;;^DD(.403,8,"DT")
+32 ;;=2931028
+33 ;;^DD(.403,9,0)
+34 ;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
+35 ;;^DD(.403,9,21,0)
+36 ;;=^^2^2^2931027^
+37 ;;^DD(.403,9,21,1,0)
+38 ;;=This is a flag that indicates none of the fields on the form are data
+39 ;;^DD(.403,9,21,2,0)
+40 ;;=dictionary fields. This flag is set during form compilation.
+41 ;;^DD(.403,9,"DT")
+42 ;;=2931028
+43 ;;^DD(.403,10,0)
+44 ;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
+45 ;;^DD(.403,10,1,0)
+46 ;;=^.1^^0
+47 ;;^DD(.403,10,21,0)
+48 ;;=^^2^2^2940908^
+49 ;;^DD(.403,10,21,1,0)
+50 ;;=This is a flag that indicates that the form is compiled. This flag is
+51 ;;^DD(.403,10,21,2,0)
+52 ;;=set during form compilation.
+53 ;;^DD(.403,10,"DT")
+54 ;;=2940701
+55 ;;^DD(.403,11,0)
+56 ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+57 ;;^DD(.403,11,3)
+58 ;;=Enter standard MUMPS code which will be executed at the beginning of the form.
+59 ;;^DD(.403,11,9)
+60 ;;=@
+61 ;;^DD(.403,11,21,0)
+62 ;;=^^2^2^2940906^
+63 ;;^DD(.403,11,21,1,0)
+64 ;;=This is MUMPS code that is executed when the form is first invoked,
+65 ;;^DD(.403,11,21,2,0)
+66 ;;=before any of the pages are loaded and displayed.
+67 ;;^DD(.403,12,0)
+68 ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+69 ;;^DD(.403,12,3)
+70 ;;=Enter standard MUMPS code which will be executed at the end of the form.
+71 ;;^DD(.403,12,9)
+72 ;;=@
+73 ;;^DD(.403,12,21,0)
+74 ;;=^^2^2^2940906^^
+75 ;;^DD(.403,12,21,1,0)
+76 ;;=This is MUMPS code that is executed before ScreenMan returns to the
+77 ;;^DD(.403,12,21,2,0)
+78 ;;=calling application.
+79 ;;^DD(.403,14,0)
+80 ;;=POST SAVE^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+81 ;;^DD(.403,14,3)
+82 ;;=This is Standard MUMPS code.
+83 ;;^DD(.403,14,9)
+84 ;;=@
+85 ;;^DD(.403,14,21,0)
+86 ;;=^^2^2^2940906^
+87 ;;^DD(.403,14,21,1,0)
+88 ;;=This is MUMPS code that is executed when the user saves changes. It is
+89 ;;^DD(.403,14,21,2,0)
+90 ;;=executed only if all data is valid, and after all data has been filed.
+91 ;;^DD(.403,14,"DT")
+92 ;;=2930813
+93 ;;^DD(.403,15,0)
+94 ;;=DESCRIPTION^.40315^^15;0
+95 ;;^DD(.403,20,0)
+96 ;;=DATA VALIDATION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+97 ;;^DD(.403,20,3)
+98 ;;=Enter standard MUMPS code.
+99 ;;^DD(.403,20,9)
+100 ;;=@
+101 ;;^DD(.403,20,21,0)
+102 ;;=^^8^8^2940906^
+103 ;;^DD(.403,20,21,1,0)
+104 ;;=This is MUMPS code that is executed when the user attempts to save changes
+105 ;;^DD(.403,20,21,2,0)
+106 ;;=to the form. If the code sets DDSERROR, the user is unable to save
+107 ;;^DD(.403,20,21,3,0)
+108 ;;=changes. If the code sets DDSBR, the user is taken to the specified
+109 ;;^DD(.403,20,21,4,0)
+110 ;;=field.
+111 ;;^DD(.403,20,21,5,0)
+112 ;;=
+113 ;;^DD(.403,20,21,6,0)
+114 ;;=In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you
+115 ;;^DD(.403,20,21,7,0)
+116 ;;=can use MSG^DDSUTL to print on a separate screen messages to the user
+117 ;;^DD(.403,20,21,8,0)
+118 ;;=about the validity of the data.
+119 ;;^DD(.403,21,0)
+120 ;;=RECORD SELECTION PAGE^NJ5,1^^21;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
+121 ;;^DD(.403,21,3)
+122 ;;=Type a Number between 1 and 999.9, 1 Decimal Digit
+123 ;;^DD(.403,21,21,0)
+124 ;;=^^12^12^2940906^
+125 ;;^DD(.403,21,21,1,0)
+126 ;;=Enter the page number of the page that is used for record selection.
+127 ;;^DD(.403,21,21,2,0)
+128 ;;=
+129 ;;^DD(.403,21,21,3,0)
+130 ;;=If you define a Record Selection Page, the user can select another entry
+131 ;;^DD(.403,21,21,4,0)
+132 ;;=in the file, and, if LAYGO is allowed, add another entry into the file
+133 ;;^DD(.403,21,21,5,0)
+134 ;;=without exiting the form. The Record Selection Page should be a pop-up
+135 ;;^DD(.403,21,21,6,0)
+136 ;;=page that contains one form-only field that performs a pointer-type read
+137 ;;^DD(.403,21,21,7,0)
+138 ;;=into the Primary File of the form. The Record Selection Page property
+139 ;;^DD(.403,21,21,8,0)
+140 ;;=should be set equal to the Page Number of the Record Selection Page.
+141 ;;^DD(.403,21,21,9,0)
+142 ;;=
+143 ;;^DD(.403,21,21,10,0)
+144 ;;=The user can open the Record Selection Page by pressing <PF1>L. After the
+145 ;;^DD(.403,21,21,11,0)
+146 ;;=user selects a record and closes the Record Selection Page, the data for
+147 ;;^DD(.403,21,21,12,0)
+148 ;;=the selected record is displayed.
+149 ;;^DD(.403,21,"DT")
+150 ;;=2930225
+151 ;;^DD(.403,40,0)
+152 ;;=PAGE^.4031I^^40;0
+153 ;;^DD(.403,40,"DT")
+154 ;;=2930218
+155 ;;^DD(.4031,0)
+156 ;;=PAGE SUB-FIELD^^40^13
+157 ;;^DD(.4031,0,"DT")
+158 ;;=2940506
+159 ;;^DD(.4031,0,"ID","WRITE")
+160 ;;=D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
+161 ;;^DD(.4031,0,"IX","AC",.4031,5)
+162 ;;=
+163 ;;^DD(.4031,0,"IX","B",.4031,.01)
+164 ;;=
+165 ;;^DD(.4031,0,"IX","C",.4031,7)
+166 ;;=
+167 ;;^DD(.4031,0,"NM","PAGE")
+168 ;;=
+169 ;;^DD(.4031,0,"UP")
+170 ;;=.403
+171 ;;^DD(.4031,.01,0)
+172 ;;=PAGE NUMBER^MNJ5,1X^^0;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N)!$D(^DIST(.403,DA(1),40,"B",X)) X
+173 ;;^DD(.4031,.01,1,0)
+174 ;;=^.1
+175 ;;^DD(.4031,.01,1,1,0)
+176 ;;=.4031^B
+177 ;;^DD(.4031,.01,1,1,1)
+178 ;;=S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
+179 ;;^DD(.4031,.01,1,1,2)
+180 ;;=K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
+181 ;;^DD(.4031,.01,3)
+182 ;;=Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
+183 ;;^DD(.4031,.01,21,0)
+184 ;;=^^2^2^2940907^^^
+185 ;;^DD(.4031,.01,21,1,0)
+186 ;;=This is the unique page number of the page. You can use this number to
+187 ;;^DD(.4031,.01,21,2,0)
+188 ;;=refer to the page in ScreenMan functions and utilities.
+189 ;;^DD(.4031,1,0)
+190 ;;=HEADER BLOCK^P.404^DIST(.404,^0;2^Q
+191 ;;^DD(.4031,1,1,0)
+192 ;;=^.1
+193 ;;^DD(.4031,1,1,1,0)
+194 ;;=.403^AC
+195 ;;^DD(.4031,1,1,1,1)
+196 ;;=S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
+197 ;;^DD(.4031,1,1,1,2)
+198 ;;=K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
+199 ;;^DD(.4031,1,1,1,"DT")
+200 ;;=2930702
+201 ;;^DD(.4031,1,3)
+202 ;;=Enter the block which will be used as a header for this page.
+203 ;;^DD(.4031,1,21,0)
+204 ;;=^^7^7^2940907^^^
+205 ;;^DD(.4031,1,21,1,0)
+206 ;;=The header block always appears at row 1, column 1 relative to the page
+207 ;;^DD(.4031,1,21,2,0)
+208 ;;=on which it is defined. It is for display purposes only -- the user
