DINIT291 ;SFISC/MKO-FORM AND BLOCK FILES ;08DEC2015
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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,40,0)
;;=PAGE^.4031I^^40;0
;;^DD(.403,21400,0)
;;=BUILD(S)^Cmp9.6^^ ; ^N DISNAME,D S DISNAME=$P($G(^DIST(.403,D0,0)),U)_" FILE #"_$P($G(^(0)),U,8) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.403,"NM","B",DISNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
;;^DD(.403,21400,21,0)
;;=^^3^3^3160105^^
;;^DD(.403,21400,21,1,0)
;;=The Build File (#9.6) is searched for Builds containing the ScreenMan Form.
;;^DD(.403,21400,21,2,0)
;;=A list of the identified Builds is created for display.
;;^DD(.403,21400,21,3,0)
;;=Multiple Builds will be shown if appropriate.
;;^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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT291 7779 printed Apr 09, 2024@21:52:38 Page 2
DINIT291 ;SFISC/MKO-FORM AND BLOCK FILES ;08DEC2015
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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
+8 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,40,0)
+150 ;;=PAGE^.4031I^^40;0
+151 ;;^DD(.403,21400,0)
+152 ;;=BUILD(S)^Cmp9.6^^ ; ^N DISNAME,D S DISNAME=$P($G(^DIST(.403,D0,0)),U)_" FILE #"_$P($G(^(0)),U,8) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.403,"NM","B",DISNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
+153 ;;^DD(.403,21400,21,0)
+154 ;;=^^3^3^3160105^^
+155 ;;^DD(.403,21400,21,1,0)
+156 ;;=The Build File (#9.6) is searched for Builds containing the ScreenMan Form.
+157 ;;^DD(.403,21400,21,2,0)
+158 ;;=A list of the identified Builds is created for display.
+159 ;;^DD(.403,21400,21,3,0)
+160 ;;=Multiple Builds will be shown if appropriate.
+161 ;;^DD(.4031,0)
+162 ;;=PAGE SUB-FIELD^^40^13
+163 ;;^DD(.4031,0,"DT")
+164 ;;=2940506
+165 ;;^DD(.4031,0,"ID","WRITE")
+166 ;;=D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
+167 ;;^DD(.4031,0,"IX","AC",.4031,5)
+168 ;;=
+169 ;;^DD(.4031,0,"IX","B",.4031,.01)
+170 ;;=
+171 ;;^DD(.4031,0,"IX","C",.4031,7)
+172 ;;=
+173 ;;^DD(.4031,0,"NM","PAGE")
+174 ;;=
+175 ;;^DD(.4031,0,"UP")
+176 ;;=.403
+177 ;;^DD(.4031,.01,0)
+178 ;;=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
+179 ;;^DD(.4031,.01,1,0)
+180 ;;=^.1
+181 ;;^DD(.4031,.01,1,1,0)
+182 ;;=.4031^B
+183 ;;^DD(.4031,.01,1,1,1)
+184 ;;=S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
+185 ;;^DD(.4031,.01,1,1,2)
+186 ;;=K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
+187 ;;^DD(.4031,.01,3)
+188 ;;=Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
+189 ;;^DD(.4031,.01,21,0)
+190 ;;=^^2^2^2940907^^^
+191 ;;^DD(.4031,.01,21,1,0)
+192 ;;=This is the unique page number of the page. You can use this number to
+193 ;;^DD(.4031,.01,21,2,0)
+194 ;;=refer to the page in ScreenMan functions and utilities.
+195 ;;^DD(.4031,1,0)
+196 ;;=HEADER BLOCK^P.404^DIST(.404,^0;2^Q
+197 ;;^DD(.4031,1,1,0)
+198 ;;=^.1
+199 ;;^DD(.4031,1,1,1,0)
+200 ;;=.403^AC
+201 ;;^DD(.4031,1,1,1,1)
+202 ;;=S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
+203 ;;^DD(.4031,1,1,1,2)
+204 ;;=K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
+205 ;;^DD(.4031,1,1,1,"DT")
+206 ;;=2930702
+207 ;;^DD(.4031,1,3)
+208 ;;=Enter the block which will be used as a header for this page.
+209 ;;^DD(.4031,1,21,0)
+210 ;;=^^7^7^2940907^^^
+211 ;;^DD(.4031,1,21,1,0)
+212 ;;=The header block always appears at row 1, column 1 relative to the page
+213 ;;^DD(.4031,1,21,2,0)
+214 ;;=on which it is defined. It is for display purposes only -- the user
