DINIT294 ;SFISC/MKO-FORM AND BLOCK FILES ;1:30 PM 21 Apr 1999 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;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(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 ^DINIT295
Q Q
;;^DD(.4032,3,21,5,0)
;;=of those two kinds of fields so that the user can press <RET> to view or
;;^DD(.4032,3,21,6,0)
;;=edit the subfields in the multiple or invoke an editor to view the
;;^DD(.4032,3,21,7,0)
;;=contents of the word processing field.
;;^DD(.4032,3,"DT")
;;=2940413
;;^DD(.4032,4,0)
;;=POINTER LINK^FX^^1;1^K:$L(X)>245!($L(X)<1) X I $D(X) D PLINK^DDSIT
;;^DD(.4032,4,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.4032,4,21,0)
;;=^^9^9^2940907^^
;;^DD(.4032,4,21,1,0)
;;=If the fields displayed in this block are reached through a relational
;;^DD(.4032,4,21,2,0)
;;=jump from the primary file of the form, enter the relational expression
;;^DD(.4032,4,21,3,0)
;;=that describes this jump. Your frame of reference is the primary file of
;;^DD(.4032,4,21,4,0)
;;=the form.
;;^DD(.4032,4,21,5,0)
;;=
;;^DD(.4032,4,21,6,0)
;;=For example, if the primary file has a field #999 called TEST that points
;;^DD(.4032,4,21,7,0)
;;=to the file associated with this block, enter
;;^DD(.4032,4,21,8,0)
;;=
;;^DD(.4032,4,21,9,0)
;;= 999 or TEST
;;^DD(.4032,4,"DT")
;;=2931201
;;^DD(.4032,5,0)
;;=REPLICATION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
;;^DD(.4032,5,3)
;;=Type a Number between 2 and 999, 0 Decimal Digits
;;^DD(.4032,5,21,0)
;;=^^3^3^2940907^^
;;^DD(.4032,5,21,1,0)
;;=If this is a repeating block, enter the number of times the fields
;;^DD(.4032,5,21,2,0)
;;=defined in this block should be replicated. If used, this number must
;;^DD(.4032,5,21,3,0)
;;=be greater than 1.
;;^DD(.4032,5,"DT")
;;=2940503
;;^DD(.4032,6,0)
;;=INDEX^F^^2;2^K:$L(X)>63!($L(X)<1) X
;;^DD(.4032,6,3)
;;=Answer must be 1-63 characters in length.
;;^DD(.4032,6,21,0)
;;=^^7^7^2941020^
;;^DD(.4032,6,21,1,0)
;;=Enter the name of the cross reference that should be used to pick up the
;;^DD(.4032,6,21,2,0)
;;=subentries in the multiple. ScreenMan will initially display the
;;^DD(.4032,6,21,3,0)
;;=subentries to the user sorted in the order defined by this index. The
;;^DD(.4032,6,21,4,0)
;;=default INDEX is B.
;;^DD(.4032,6,21,5,0)
;;=
;;^DD(.4032,6,21,6,0)
;;=If the multiple has no index, or you wish to display the subentries
;;^DD(.4032,6,21,7,0)
;;=in record number order, enter !IEN.
;;^DD(.4032,6,"DT")
;;=2940503
;;^DD(.4032,7,0)
;;=INITIAL POSITION^S^f:FIRST;l:LAST;n:NEW;^2;3^Q
;;^DD(.4032,7,21,0)
;;=^^5^5^2940908^
;;^DD(.4032,7,21,1,0)
;;=This is the position in the list where the cursor should initially rest
;;^DD(.4032,7,21,2,0)
;;=when the user first navigates to the repeating block. Possible values are
;;^DD(.4032,7,21,3,0)
;;=FIRST, LAST, and NEW, where NEW indicates that the cursor should initially
;;^DD(.4032,7,21,4,0)
;;=rest on the blank line at the end of the list. The default INITIAL
;;^DD(.4032,7,21,5,0)
;;=POSITION is FIRST.
;;^DD(.4032,7,"DT")
;;=2940503
;;^DD(.4032,8,0)
;;=DISALLOW LAYGO^S^0:NO;1:YES;^2;4^Q
;;^DD(.4032,8,21,0)
;;=^^3^3^2940907^^
;;^DD(.4032,8,21,1,0)
;;=If set to YES, this prohibits the user from entering new subentries into
;;^DD(.4032,8,21,2,0)
;;=the multiple. If null or set to NO, the setting in the data dictionary
;;^DD(.4032,8,21,3,0)
;;=determines whether LAYGO is allowed.
;;^DD(.4032,8,"DT")
;;=2940505
;;^DD(.4032,9,0)
;;=FIELD FOR SELECTION^F^^2;5^K:$L(X)>30!($L(X)<1) X
;;^DD(.4032,9,3)
;;=Answer must be 1-30 characters in length.
;;^DD(.4032,9,21,0)
;;=^^5^5^2940907^^
;;^DD(.4032,9,21,1,0)
;;=This is the field order of the field that defines the column position of
;;^DD(.4032,9,21,2,0)
;;=the blank line at the end of the list. The default is the first editable
;;^DD(.4032,9,21,3,0)
;;=field in the block. This is also the field before which ScreenMan prints
;;^DD(.4032,9,21,4,0)
;;=the plus sign (+) to indicate there are more entries above or below the
;;^DD(.4032,9,21,5,0)
;;=displayed list.
;;^DD(.4032,9,"DT")
;;=2940506
;;^DD(.4032,10,0)
;;=ASK 'OK'^S^0:NO;1:YES;^2;6^Q
;;^DD(.4032,10,21,0)
;;=^^5^5^2990420^
;;^DD(.4032,10,21,1,0)
;;=Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only
;;^DD(.4032,10,21,2,0)
;;=one match is made to the user's lookup value, then ScreenMan will ask
;;^DD(.4032,10,21,3,0)
;;="OK?" instead of automatically selecting the found entry. This property
;;^DD(.4032,10,21,4,0)
;;=corresponds to the "V" flag in the DIC(0) input variable to ^DIC and only
;;^DD(.4032,10,21,5,0)
;;=pertains to multiple-valued fields.
;;^DD(.4032,10,"DT")
;;=2990420
;;^DD(.4032,11,0)
;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.4032,11,3)
;;=This is Standard MUMPS code.
;;^DD(.4032,11,9)
;;=@
;;^DD(.4032,11,21,0)
;;=^^5^5^2940907^
;;^DD(.4032,11,21,1,0)
;;=Enter MUMPS code that is executed whenever the user reaches this block.
;;^DD(.4032,11,21,2,0)
;;=
;;^DD(.4032,11,21,3,0)
;;=This pre-action is a characteristic of the block only as it is used on
;;^DD(.4032,11,21,4,0)
;;=this form. If you place this block on another form, you can define a
;;^DD(.4032,11,21,5,0)
;;=different pre-action.
;;^DD(.4032,11,"DT")
;;=2930610
;;^DD(.4032,12,0)
;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.4032,12,3)
;;=This is Standard MUMPS code.
;;^DD(.4032,12,9)
;;=@
;;^DD(.4032,12,21,0)
;;=^^5^5^2940907^
;;^DD(.4032,12,21,1,0)
;;=Enter MUMPS code that is executed whenever the user leaves this block.
;;^DD(.4032,12,21,2,0)
;;=
;;^DD(.4032,12,21,3,0)
;;=This post-action is a characteristic of the block only as it is used on
;;^DD(.4032,12,21,4,0)
;;=this form. If you place this block on another form, you can define a
;;^DD(.4032,12,21,5,0)
;;=different post-action.
;;^DD(.4032,12,"DT")
;;=2930610
DINIT294 ;SFISC/MKO-FORM AND BLOCK FILES ;1:30 PM 21 Apr 1999 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**8**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 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
+5 GOTO ^DINIT295
Q QUIT
+1 ;;^DD(.4032,3,21,5,0)
+2 ;;=of those two kinds of fields so that the user can press <RET> to view or
+3 ;;^DD(.4032,3,21,6,0)
+4 ;;=edit the subfields in the multiple or invoke an editor to view the
+5 ;;^DD(.4032,3,21,7,0)
+6 ;;=contents of the word processing field.
+7 ;;^DD(.4032,3,"DT")
+8 ;;=2940413
+9 ;;^DD(.4032,4,0)
+10 ;;=POINTER LINK^FX^^1;1^K:$L(X)>245!($L(X)<1) X I $D(X) D PLINK^DDSIT
+11 ;;^DD(.4032,4,3)
+12 ;;=Answer must be 1-245 characters in length.
+13 ;;^DD(.4032,4,21,0)
+14 ;;=^^9^9^2940907^^
+15 ;;^DD(.4032,4,21,1,0)
+16 ;;=If the fields displayed in this block are reached through a relational
+17 ;;^DD(.4032,4,21,2,0)
+18 ;;=jump from the primary file of the form, enter the relational expression
+19 ;;^DD(.4032,4,21,3,0)
+20 ;;=that describes this jump. Your frame of reference is the primary file of
+21 ;;^DD(.4032,4,21,4,0)
+22 ;;=the form.
+23 ;;^DD(.4032,4,21,5,0)
+24 ;;=
+25 ;;^DD(.4032,4,21,6,0)
+26 ;;=For example, if the primary file has a field #999 called TEST that points
+27 ;;^DD(.4032,4,21,7,0)
+28 ;;=to the file associated with this block, enter
+29 ;;^DD(.4032,4,21,8,0)
+30 ;;=
+31 ;;^DD(.4032,4,21,9,0)
+32 ;;= 999 or TEST
+33 ;;^DD(.4032,4,"DT")
+34 ;;=2931201
+35 ;;^DD(.4032,5,0)
+36 ;;=REPLICATION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
+37 ;;^DD(.4032,5,3)
+38 ;;=Type a Number between 2 and 999, 0 Decimal Digits
+39 ;;^DD(.4032,5,21,0)
+40 ;;=^^3^3^2940907^^
+41 ;;^DD(.4032,5,21,1,0)
+42 ;;=If this is a repeating block, enter the number of times the fields
+43 ;;^DD(.4032,5,21,2,0)
+44 ;;=defined in this block should be replicated. If used, this number must
+45 ;;^DD(.4032,5,21,3,0)
+46 ;;=be greater than 1.
+47 ;;^DD(.4032,5,"DT")
+48 ;;=2940503
+49 ;;^DD(.4032,6,0)
+50 ;;=INDEX^F^^2;2^K:$L(X)>63!($L(X)<1) X
+51 ;;^DD(.4032,6,3)
+52 ;;=Answer must be 1-63 characters in length.
+53 ;;^DD(.4032,6,21,0)
+54 ;;=^^7^7^2941020^
+55 ;;^DD(.4032,6,21,1,0)
+56 ;;=Enter the name of the cross reference that should be used to pick up the
+57 ;;^DD(.4032,6,21,2,0)
+58 ;;=subentries in the multiple. ScreenMan will initially display the
+59 ;;^DD(.4032,6,21,3,0)
+60 ;;=subentries to the user sorted in the order defined by this index. The
+61 ;;^DD(.4032,6,21,4,0)
+62 ;;=default INDEX is B.
+63 ;;^DD(.4032,6,21,5,0)
+64 ;;=
+65 ;;^DD(.4032,6,21,6,0)
+66 ;;=If the multiple has no index, or you wish to display the subentries
+67 ;;^DD(.4032,6,21,7,0)
+68 ;;=in record number order, enter !IEN.
+69 ;;^DD(.4032,6,"DT")
+70 ;;=2940503
+71 ;;^DD(.4032,7,0)
+72 ;;=INITIAL POSITION^S^f:FIRST;l:LAST;n:NEW;^2;3^Q
+73 ;;^DD(.4032,7,21,0)
+74 ;;=^^5^5^2940908^
+75 ;;^DD(.4032,7,21,1,0)
+76 ;;=This is the position in the list where the cursor should initially rest
+77 ;;^DD(.4032,7,21,2,0)
+78 ;;=when the user first navigates to the repeating block. Possible values are
+79 ;;^DD(.4032,7,21,3,0)
+80 ;;=FIRST, LAST, and NEW, where NEW indicates that the cursor should initially
+81 ;;^DD(.4032,7,21,4,0)
+82 ;;=rest on the blank line at the end of the list. The default INITIAL
+83 ;;^DD(.4032,7,21,5,0)
+84 ;;=POSITION is FIRST.
+85 ;;^DD(.4032,7,"DT")
+86 ;;=2940503
+87 ;;^DD(.4032,8,0)
+88 ;;=DISALLOW LAYGO^S^0:NO;1:YES;^2;4^Q
+89 ;;^DD(.4032,8,21,0)
+90 ;;=^^3^3^2940907^^
+91 ;;^DD(.4032,8,21,1,0)
+92 ;;=If set to YES, this prohibits the user from entering new subentries into
+93 ;;^DD(.4032,8,21,2,0)
+94 ;;=the multiple. If null or set to NO, the setting in the data dictionary
+95 ;;^DD(.4032,8,21,3,0)
+96 ;;=determines whether LAYGO is allowed.
+97 ;;^DD(.4032,8,"DT")
+98 ;;=2940505
+99 ;;^DD(.4032,9,0)
+100 ;;=FIELD FOR SELECTION^F^^2;5^K:$L(X)>30!($L(X)<1) X
+101 ;;^DD(.4032,9,3)
+102 ;;=Answer must be 1-30 characters in length.
+103 ;;^DD(.4032,9,21,0)
+104 ;;=^^5^5^2940907^^
+105 ;;^DD(.4032,9,21,1,0)
+106 ;;=This is the field order of the field that defines the column position of
+107 ;;^DD(.4032,9,21,2,0)
+108 ;;=the blank line at the end of the list. The default is the first editable
+109 ;;^DD(.4032,9,21,3,0)
+110 ;;=field in the block. This is also the field before which ScreenMan prints
+111 ;;^DD(.4032,9,21,4,0)
+112 ;;=the plus sign (+) to indicate there are more entries above or below the
+113 ;;^DD(.4032,9,21,5,0)
+114 ;;=displayed list.
+115 ;;^DD(.4032,9,"DT")
+116 ;;=2940506
+117 ;;^DD(.4032,10,0)
+118 ;;=ASK 'OK'^S^0:NO;1:YES;^2;6^Q
+119 ;;^DD(.4032,10,21,0)
+120 ;;=^^5^5^2990420^
+121 ;;^DD(.4032,10,21,1,0)
+122 ;;=Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only
+123 ;;^DD(.4032,10,21,2,0)
+124 ;;=one match is made to the user's lookup value, then ScreenMan will ask
+125 ;;^DD(.4032,10,21,3,0)
+126 ;;="OK?" instead of automatically selecting the found entry. This property
+127 ;;^DD(.4032,10,21,4,0)
+128 ;;=corresponds to the "V" flag in the DIC(0) input variable to ^DIC and only
+129 ;;^DD(.4032,10,21,5,0)
+130 ;;=pertains to multiple-valued fields.
+131 ;;^DD(.4032,10,"DT")
+132 ;;=2990420
+133 ;;^DD(.4032,11,0)
+134 ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+135 ;;^DD(.4032,11,3)
+136 ;;=This is Standard MUMPS code.
+137 ;;^DD(.4032,11,9)
+138 ;;=@
+139 ;;^DD(.4032,11,21,0)
+140 ;;=^^5^5^2940907^
+141 ;;^DD(.4032,11,21,1,0)
+142 ;;=Enter MUMPS code that is executed whenever the user reaches this block.
+143 ;;^DD(.4032,11,21,2,0)
+144 ;;=
+145 ;;^DD(.4032,11,21,3,0)
+146 ;;=This pre-action is a characteristic of the block only as it is used on
+147 ;;^DD(.4032,11,21,4,0)
+148 ;;=this form. If you place this block on another form, you can define a
+149 ;;^DD(.4032,11,21,5,0)
+150 ;;=different pre-action.
+151 ;;^DD(.4032,11,"DT")
+152 ;;=2930610
+153 ;;^DD(.4032,12,0)
+154 ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+155 ;;^DD(.4032,12,3)
+156 ;;=This is Standard MUMPS code.
+157 ;;^DD(.4032,12,9)
+158 ;;=@
+159 ;;^DD(.4032,12,21,0)
+160 ;;=^^5^5^2940907^
+161 ;;^DD(.4032,12,21,1,0)
+162 ;;=Enter MUMPS code that is executed whenever the user leaves this block.
+163 ;;^DD(.4032,12,21,2,0)
+164 ;;=
+165 ;;^DD(.4032,12,21,3,0)
+166 ;;=This post-action is a characteristic of the block only as it is used on
+167 ;;^DD(.4032,12,21,4,0)
+168 ;;=this form. If you place this block on another form, you can define a
+169 ;;^DD(.4032,12,21,5,0)
+170 ;;=different post-action.
+171 ;;^DD(.4032,12,"DT")
+172 ;;=2930610
