Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT295

DINIT295.m

Go to the documentation of this file. 
  1. DINIT295 ;SFISC/MKO - FORM AND BLOCK FILES ;2NOV2015
  1.  ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1.  ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1.  ;;Licensed under the terms of the Apache License, Version 2.0.
  1.  ;
  1.  ;
  1.  ;
  1.  ;
  1.  ;
  1.  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
  1.  G ^DINIT296
  1. Q Q
  1.  ;;^DIC(.404,0,"GL")
  1.  ;;=^DIST(.404,
  1.  ;;^DIC("B","BLOCK",.404)
  1.  ;;=
  1.  ;;^DIC(.404,"%D",0)
  1.  ;;=^^2^2^2940914^
  1.  ;;^DIC(.404,"%D",1,0)
  1.  ;;=This file stores ScreenMan blocks, which are used to build forms in the
  1.  ;;^DIC(.404,"%D",2,0)
  1.  ;;=Form file.
  1.  ;;^DD(.404,0)
  1.  ;;=FIELD^^40^7
  1.  ;;^DD(.404,0,"DT")
  1.  ;;=2940625
  1.  ;;^DD(.404,0,"IX","B",.404,.01)
  1.  ;;=
  1.  ;;^DD(.404,0,"NM","BLOCK")
  1.  ;;=
  1.  ;;^DD(.404,0,"PT",.4031,1)
  1.  ;;=
  1.  ;;^DD(.404,0,"PT",.4032,.01)
  1.  ;;=
  1.  ;;^DD(.404,.01,0)
  1.  ;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,"E")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)'=X,1:1),$D(^DIST(.404,"B",X)) K X
  1.  ;;^DD(.404,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.404,.01,1,1,0)
  1.  ;;=.404^B
  1.  ;;^DD(.404,.01,1,1,1)
  1.  ;;=S ^DIST(.404,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.404,.01,1,1,2)
  1.  ;;=K ^DIST(.404,"B",$E(X,1,30),DA)
  1.  ;;^DD(.404,.01,1,1,"DT")
  1.  ;;=2900912
  1.  ;;^DD(.404,.01,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(.404,.01,21,0)
  1.  ;;=^^2^2^2940907^^
  1.  ;;^DD(.404,.01,21,1,0)
  1.  ;;=Enter the name of the block, 3-30 characters in length.  The block name
  1.  ;;^DD(.404,.01,21,2,0)
  1.  ;;=must be unique and cannot be numeric or start with punctuation.
  1.  ;;^DD(.404,.01,"DEL",1,0)
  1.  ;;=I '$D(DDSDEL) D EN^DDIOL($C(7)_"You must use the FileMan options to delete blocks.") I 1
  1.  ;;^DD(.404,.01,"DT")
  1.  ;;=2931020
  1.  ;;^DD(.404,1,0)
  1.  ;;=DATA DICTIONARY NUMBER^FX^^0;2^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DD(X))&(X'?1".81".N) X
  1.  ;;^DD(.404,1,3)
  1.  ;;=Answer must be 1-16 characters in length.
  1.  ;;^DD(.404,1,21,0)
  1.  ;;=^^3^3^2940907^
  1.  ;;^DD(.404,1,21,1,0)
  1.  ;;=Enter the data dictionary number of the file or subfile that contains the
  1.  ;;^DD(.404,1,21,2,0)
  1.  ;;=fields that are placed on this block.  A block can contain fields from
  1.  ;;^DD(.404,1,21,3,0)
  1.  ;;=only one file or subfile.
  1.  ;;^DD(.404,1,"DT")
  1.  ;;=3151102
  1.  ;;^DD(.404,2,0)
  1.  ;;=DISABLE NAVIGATION^S^0:NO;1:YES;2:OUTOK;^0;3^Q
  1.  ;;^DD(.404,2,3)
  1.  ;;=
  1.  ;;^DD(.404,2,21,0)
  1.  ;;=^^8^8^2940907^^
  1.  ;;^DD(.404,2,21,1,0)
  1.  ;;=Enter 'YES' if navigation within the block should be disabled.  When
  1.  ;;^DD(.404,2,21,2,0)
  1.  ;;=navigation is disabled, user cannot ^-jump to other fields, they cannot
  1.  ;;^DD(.404,2,21,3,0)
  1.  ;;=^-jump to the Command Line, and the <Up>, <Down>, <Tab>, and <F4> keys
  1.  ;;^DD(.404,2,21,4,0)
  1.  ;;=traverse the fields in the same order as the <RET> key -- that is, in the
  1.  ;;^DD(.404,2,21,5,0)
  1.  ;;=order established by the Field Order property of the fields.
  1.  ;;^DD(.404,2,21,6,0)
  1.  ;;= 
  1.  ;;^DD(.404,2,21,7,0)
  1.  ;;=Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the
  1.  ;;^DD(.404,2,21,8,0)
  1.  ;;=Command Line.
  1.  ;;^DD(.404,11,0)
  1.  ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.404,11,3)
  1.  ;;=Enter standard MUMPS code that will be executed when the user navigates to the block.
  1.  ;;^DD(.404,11,9)
  1.  ;;=@
  1.  ;;^DD(.404,11,21,0)
  1.  ;;=^^6^6^2940907^^
  1.  ;;^DD(.404,11,21,1,0)
  1.  ;;=This is MUMPS code that is executed when the user navigates to the
  1.  ;;^DD(.404,11,21,2,0)
  1.  ;;=block.
  1.  ;;^DD(.404,11,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.404,11,21,4,0)
  1.  ;;=This pre-action is part of the block definition itself, so if this
  1.  ;;^DD(.404,11,21,5,0)
  1.  ;;=block is used on another page or another form, the pre-action still
  1.  ;;^DD(.404,11,21,6,0)
  1.  ;;=applies.
  1.  ;;^DD(.404,12,0)
  1.  ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.404,12,3)
  1.  ;;=Enter standard MUMPS that will be executed when the user leaves the block.
  1.  ;;^DD(.404,12,9)
  1.  ;;=@
  1.  ;;^DD(.404,12,21,0)
  1.  ;;=^^5^5^2940907^^
  1.  ;;^DD(.404,12,21,1,0)
  1.  ;;=This is MUMPS code that is executed when the user leaves the block.
  1.  ;;^DD(.404,12,21,2,0)
  1.  ;;= 
  1.  ;;^DD(.404,12,21,3,0)
  1.  ;;=This post-action is part of the block definition itself, so if the
  1.  ;;^DD(.404,12,21,4,0)
  1.  ;;=block is used on another page or on another form, the post-action still
  1.  ;;^DD(.404,12,21,5,0)
  1.  ;;=applies.
  1.  ;;^DD(.404,15,0)
  1.  ;;=DESCRIPTION^.40415^^15;0
  1.  ;;^DD(.404,40,0)
  1.  ;;=FIELD^.4044I^^40;0
  1.  ;;^DD(.40415,0)
  1.  ;;=DESCRIPTION SUB-FIELD^^.01^1
  1.  ;;^DD(.40415,0,"NM","DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(.40415,0,"UP")
  1.  ;;=.404
  1.  ;;^DD(.40415,.01,0)
  1.  ;;=DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(.40415,.01,3)
  1.  ;;=
  1.  ;;^DD(.40415,.01,21,0)
  1.  ;;=^^1^1^2940908^^^
  1.  ;;^DD(.40415,.01,21,1,0)
  1.  ;;=Enter text that describes this block.
  1.  ;;^DD(.4044,0)
  1.  ;;=FIELD SUB-FIELD^^30^33
  1.  ;;^DD(.4044,0,"ID","WRITE")
  1.  ;;=D EN^DDIOL($S($P(^(0),U,2)?1"Select "1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)="!M":$G(^(.1)),1:$P(^(0),U,2)))_$S($P(^(0),U,4)]"":"  ("_$P(^(0),U,4)_")",1:""),"","?9")
  1.  ;;^DD(.4044,0,"ID","WRITE1")
  1.  ;;=D EN^DDIOL($S($P($G(^(7)),U,2):"  (Sub Page Link defined)",1:"")_$S($G(^(1)):"   (Field #"_^(1)_")",1:"")_$S($P(^(0),U,5)]"":"  ("_$P(^(0),U,5)_")",1:""),"","?0")
  1.  ;;^DD(.4044,0,"IX","B",.4044,.01)
  1.  ;;=
  1.  ;;^DD(.4044,0,"IX","C",.4044,1)
  1.  ;;=
  1.  ;;^DD(.4044,0,"IX","D",.4044,3.1)
  1.  ;;=
  1.  ;;^DD(.4044,0,"NM","FIELD")
  1.  ;;=
  1.  ;;^DD(.4044,0,"UP")
  1.  ;;=.404
  1.  ;;^DD(.4044,.01,0)
  1.  ;;=FIELD ORDER^MNJ4,1X^^0;1^K:X'=+$P(X,"E")!(X>99.9)!(X<0)!(X?.E1"."2N.N) X I $D(X),$D(^DIST(.404,DA(1),40,"B",X)) K X
  1.  ;;^DD(.4044,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.4044,.01,1,1,0)
  1.  ;;=.4044^B
  1.  ;;^DD(.4044,.01,1,1,1)
  1.  ;;=S ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.4044,.01,1,1,2)
  1.  ;;=K ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)
  1.  ;;^DD(.4044,.01,3)
  1.  ;;=Enter a unique number between 0 and 99.9, inclusive, which represents the order in which the fields will be edited.
  1.  ;;^DD(.4044,.01,21,0)
  1.  ;;=^^2^2^2940907^
  1.  ;;^DD(.4044,.01,21,1,0)
  1.  ;;=The Field Order number determines the order in which users traverse the
  1.  ;;^DD(.4044,.01,21,2,0)
  1.  ;;=fields in the block as they press <RET>.
  1.  ;;^DD(.4044,1,0)
  1.  ;;=CAPTION^FX^^0;2^K:$L(X)>80!($L(X)<1) X S:$E($G(X))="!"&($G(X)'="!M") X=$$FUNC^DDSCAP(X)
  1.  ;;^DD(.4044,1,1,0)
  1.  ;;=^.1^^-1
  1.  ;;^DD(.4044,1,1,2,0)
  1.  ;;=.4044^C^MUMPS
  1.  ;;^DD(.4044,1,1,2,1)
  1.  ;;=S:X'="!M" ^DIST(.404,DA(1),40,"C",$$UP^DILIBF($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1,63)),DA)=""
  1.  ;;^DD(.4044,1,1,2,2)
  1.  ;;=K:X'="!M" ^DIST(.404,DA(1),40,"C",$$UP^DILIBF($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1,63)),DA)
  1.  ;;^DD(.4044,1,1,2,3)
  1.  ;;=Programmer only
  1.  ;;^DD(.4044,1,1,2,"%D",0)
  1.  ;;=^^2^2^2931029^^^^
  1.  ;;^DD(.4044,1,1,2,"%D",1,0)
  1.  ;;=This cross referenced is used to allow selection of fields by caption name
  1.  ;;^DD(.4044,1,1,2,"%D",2,0)
  1.  ;;=as well as by order number when entering new fields in the block.