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

DINIT290.m

Go to the documentation of this file. 
  1. DINIT290 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  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 ^DINIT291
  1. Q Q
  1.  ;;^DIC(.403,0,"GL")
  1.  ;;=^DIST(.403,
  1.  ;;^DIC("B","FORM",.403)
  1.  ;;=
  1.  ;;^DIC(.403,"%D",0)
  1.  ;;=^^3^3^2940914^
  1.  ;;^DIC(.403,"%D",1,0)
  1.  ;;=This file stores ScreenMan forms, which are composed of blocks.  The
  1.  ;;^DIC(.403,"%D",2,0)
  1.  ;;=form's attributes that describe how information is presented on the screen
  1.  ;;^DIC(.403,"%D",3,0)
  1.  ;;=are contained in this file.
  1.  ;;^DD(.403,0)
  1.  ;;=FIELD^^40^18
  1.  ;;^DD(.403,0,"DT")
  1.  ;;=2941018
  1.  ;;^DD(.403,0,"ID","WRITE")
  1.  ;;=N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,5) S:D D1(2)="("_$$FMTE^DILIBF(D)_")",D1(2,"F")="?30" S D=$P(D2,U,4) S:D D1(3)="User #"_D,D1(3,"F")="?50" S D=$P(D2,U,8) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
  1.  ;;^DD(.403,0,"ID","WRITED")
  1.  ;;=I $G(DZ)?1"???".E N D S D=0 F  S D=$O(^DIST(.403,Y,15,D)) Q:D'>0  I $D(^(D,0))#2 D EN^DDIOL(^(0),"","!?5")
  1.  ;;^DD(.403,0,"IX","AB",.4032,.01)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","AC",.4031,1)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","AY",.403,.01)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","B",.403,.01)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","C",.403,6)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","F",.403,7)
  1.  ;;=
  1.  ;;^DD(.403,0,"IX","F1",.403,.01)
  1.  ;;=
  1.  ;;^DD(.403,0,"NM","FORM")
  1.  ;;=
  1.  ;;^DD(.403,.01,0)
  1.  ;;=NAME^RFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,"E")) X
  1.  ;;^DD(.403,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.403,.01,1,1,0)
  1.  ;;=.403^B
  1.  ;;^DD(.403,.01,1,1,1)
  1.  ;;=S ^DIST(.403,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.403,.01,1,1,2)
  1.  ;;=K ^DIST(.403,"B",$E(X,1,30),DA)
  1.  ;;^DD(.403,.01,1,2,0)
  1.  ;;=.403^F1^MUMPS
  1.  ;;^DD(.403,.01,1,2,1)
  1.  ;;=X "S %=$P("_DIC_"DA,0),U,8) S:$L(%) "_DIC_"""F""_%,X,DA)=1"
  1.  ;;^DD(.403,.01,1,2,2)
  1.  ;;=X "S %=$P("_DIC_"DA,0),U,8) K:$L(%) "_DIC_"""F""_%,X,DA)"
  1.  ;;^DD(.403,.01,1,2,3)
  1.  ;;=Programmer only
  1.  ;;^DD(.403,.01,1,2,"%D",0)
  1.  ;;=^^6^6^2910812^
  1.  ;;^DD(.403,.01,1,2,"%D",1,0)
  1.  ;;=This cross-reference is used to quickly find all ScreenMan templates
  1.  ;;^DD(.403,.01,1,2,"%D",2,0)
  1.  ;;=associated with a file.  It has the form:
  1.  ;;^DD(.403,.01,1,2,"%D",3,0)
  1.  ;;=
  1.  ;;^DD(.403,.01,1,2,"%D",4,0)
  1.  ;;=  ^DIST(.403,"F"_file#,"formname",DA)=1
  1.  ;;^DD(.403,.01,1,2,"%D",5,0)
  1.  ;;=
  1.  ;;^DD(.403,.01,1,2,"%D",6,0)
  1.  ;;=A comparable cross-reference also exists on the PRIMARY FILE field.
  1.  ;;^DD(.403,.01,1,2,"DT")
  1.  ;;=2910812
  1.  ;;^DD(.403,.01,1,3,0)
  1.  ;;=.403^AY^MUMPS
  1.  ;;^DD(.403,.01,1,3,1)
  1.  ;;=Q
  1.  ;;^DD(.403,.01,1,3,2)
  1.  ;;=Q
  1.  ;;^DD(.403,.01,1,3,3)
  1.  ;;=Programmer only
  1.  ;;^DD(.403,.01,1,3,"%D",0)
  1.  ;;=^^7^7^2980924^
  1.  ;;^DD(.403,.01,1,3,"%D",1,0)
  1.  ;;=This is a no-op cross reference defined merely to document the data stored
  1.  ;;^DD(.403,.01,1,3,"%D",2,0)
  1.  ;;=under ^DIST(.403,form IEN,"AY").
  1.  ;;^DD(.403,.01,1,3,"%D",3,0)
  1.  ;;= 
  1.  ;;^DD(.403,.01,1,3,"%D",4,0)
  1.  ;;=This global stores the compiled data for a Form. Form compilation occurs
  1.  ;;^DD(.403,.01,1,3,"%D",5,0)
  1.  ;;=automatically whenever a Form is edited through the FileMan supplied
  1.  ;;^DD(.403,.01,1,3,"%D",6,0)
  1.  ;;=options. The compiled data stored in this global is static information
  1.  ;;^DD(.403,.01,1,3,"%D",7,0)
  1.  ;;=that is used whenever a Form is run.
  1.  ;;^DD(.403,.01,1,3,"DT")
  1.  ;;=2980904
  1.  ;;^DD(.403,.01,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(.403,.01,21,0)
  1.  ;;=^^3^3^2940906^
  1.  ;;^DD(.403,.01,21,1,0)
  1.  ;;=Enter the name of the form, 3-30 characters in length.  The form name
  1.  ;;^DD(.403,.01,21,2,0)
  1.  ;;=must be unique and cannot be numeric or start with a punctuation
  1.  ;;^DD(.403,.01,21,3,0)
  1.  ;;=character.  It should also be namespaced.
  1.  ;;^DD(.403,.01,"DEL",1,0)
  1.  ;;=D EN^DDIOL($C(7)_"You must use the FileMan option to delete forms.") I 1
  1.  ;;^DD(.403,.01,"DT")
  1.  ;;=2980904
  1.  ;;^DD(.403,1,0)
  1.  ;;=READ ACCESS^FX^^0;2^I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
  1.  ;;^DD(.403,1,3)
  1.  ;;=Enter VA FileMan access code(s) which control access to the form.
  1.  ;;^DD(.403,1,21,0)
  1.  ;;=^^1^1^2931020^^
  1.  ;;^DD(.403,1,21,1,0)
  1.  ;;=Non-programmers can enter only their own VA FileMan access code(s).
  1.  ;;^DD(.403,1,"DT")
  1.  ;;=2931020
  1.  ;;^DD(.403,2,0)
  1.  ;;=WRITE ACCESS^FX^^0;3^I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X
  1.  ;;^DD(.403,2,3)
  1.  ;;=Enter VA FileMan access code(s) which control access to the form.
  1.  ;;^DD(.403,2,21,0)
  1.  ;;=^^1^1^2931020^
  1.  ;;^DD(.403,2,21,1,0)
  1.  ;;=Non-programmers can enter only their own VA FileMan access code(s).
  1.  ;;^DD(.403,2,"DT")
  1.  ;;=2931020
  1.  ;;^DD(.403,3,0)
  1.  ;;=CREATOR^NJ3,0X^^0;4^K:X'?.N X
  1.  ;;^DD(.403,3,3)
  1.  ;;=Enter the VA FileMan User Number of the form creator.
  1.  ;;^DD(.403,3,21,0)
  1.  ;;=^^2^2^2931020^^
  1.  ;;^DD(.403,3,21,1,0)
  1.  ;;=This is the DUZ of the person who created the form.  The ScreenMan
  1.  ;;^DD(.403,3,21,2,0)
  1.  ;;=options to create the form automatically put a value into this field.
  1.  ;;^DD(.403,4,0)
  1.  ;;=DATE CREATED^D^^0;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(.403,4,3)
  1.  ;;=Enter the date the form was created.
  1.  ;;^DD(.403,4,21,0)
  1.  ;;=^^2^2^2941018^^
  1.  ;;^DD(.403,4,21,1,0)
  1.  ;;=This is the date the form was created.  The ScreenMan options to create
  1.  ;;^DD(.403,4,21,2,0)
  1.  ;;=the form automatically put a value into this field.
  1.  ;;^DD(.403,4,"DT")
  1.  ;;=2941018
  1.  ;;^DD(.403,5,0)
  1.  ;;=DATE LAST USED^D^^0;6^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(.403,5,3)
  1.  ;;=Enter the date and time the form was last used.
  1.  ;;^DD(.403,5,21,0)
  1.  ;;=^^2^2^2941018^^
  1.  ;;^DD(.403,5,21,1,0)
  1.  ;;=This is the date the form was last used.  ScreenMan automatically
  1.  ;;^DD(.403,5,21,2,0)
  1.  ;;=puts a value into this field when the form is invoked.
  1.  ;;^DD(.403,5,"DT")
  1.  ;;=2941018
  1.  ;;^DD(.403,6,0)
  1.  ;;=TITLE^F^^0;7^K:$L(X)>50!($L(X)<1) X
  1.  ;;^DD(.403,6,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.403,6,1,1,0)
  1.  ;;=.403^C
  1.  ;;^DD(.403,6,1,1,1)
  1.  ;;=S ^DIST(.403,"C",$E(X,1,30),DA)=""
  1.  ;;^DD(.403,6,1,1,2)
  1.  ;;=K ^DIST(.403,"C",$E(X,1,30),DA)
  1.  ;;^DD(.403,6,1,1,"DT")
  1.  ;;=2940908
  1.  ;;^DD(.403,6,3)
  1.  ;;=Answer must be 1-50 characters in length.
  1.  ;;^DD(.403,6,21,0)
  1.  ;;=^^4^4^2940908^
  1.  ;;^DD(.403,6,21,1,0)
  1.  ;;=The TITLE property can be used by the form designer to help identify a
  1.  ;;^DD(.403,6,21,2,0)
  1.  ;;=form.  It is cross referenced and need not be unique.  ScreenMan does not
  1.  ;;^DD(.403,6,21,3,0)
  1.  ;;=automatically display the TITLE to the user, but the form designer can
  1.  ;;^DD(.403,6,21,4,0)
  1.  ;;=choose to define a caption-only field that displays the title to the user.
  1.  ;;^DD(.403,6,22)
  1.  ;;=
  1.  ;;^DD(.403,6,"DT")
  1.  ;;=2940908
  1.  ;;^DD(.403,7,0)
  1.  ;;=PRIMARY FILE^RFX^^0;8^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X
  1.  ;;^DD(.403,7,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.403,7,1,1,0)
  1.  ;;=.403^F^MUMPS
  1.  ;;^DD(.403,7,1,1,1)
  1.  ;;=X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"
  1.  ;;^DD(.403,7,1,1,2)
  1.  ;;=X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"