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

DINIT291.m

Go to the documentation of this file.
  1. DINIT291 ;SFISC/MKO-FORM AND BLOCK FILES ;08DEC2015
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  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. 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 ^DINIT292
  1. Q Q
  1. ;;^DD(.403,7,1,1,3)
  1. ;;=Programmer only
  1. ;;^DD(.403,7,1,1,"%D",0)
  1. ;;=^^2^2^2900911^
  1. ;;^DD(.403,7,1,1,"%D",0,"LE")
  1. ;;=1
  1. ;;^DD(.403,7,1,1,"%D",1,0)
  1. ;;=This cross-reference is used to quickly find all ScreenMan templates
  1. ;;^DD(.403,7,1,1,"%D",2,0)
  1. ;;=associated with a file.
  1. ;;^DD(.403,7,1,1,"DT")
  1. ;;=2900911
  1. ;;^DD(.403,7,3)
  1. ;;=Answer must be 1-16 characters in length.
  1. ;;^DD(.403,7,21,0)
  1. ;;=^^2^2^2920407^
  1. ;;^DD(.403,7,21,1,0)
  1. ;;=Enter a file number, greater than or equal to 2, which represents the data
  1. ;;^DD(.403,7,21,2,0)
  1. ;;=dictionary number of the primary file for this form.
  1. ;;^DD(.403,7,"DT")
  1. ;;=2920407
  1. ;;^DD(.403,8,0)
  1. ;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
  1. ;;^DD(.403,8,21,0)
  1. ;;=^^2^2^2931027^^^^
  1. ;;^DD(.403,8,21,1,0)
  1. ;;=This is a flag that indicates none of the blocks on the form are edit
  1. ;;^DD(.403,8,21,2,0)
  1. ;;=blocks. This flag is set during form compilation.
  1. ;;^DD(.403,8,"DT")
  1. ;;=2931028
  1. ;;^DD(.403,9,0)
  1. ;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
  1. ;;^DD(.403,9,21,0)
  1. ;;=^^2^2^2931027^
  1. ;;^DD(.403,9,21,1,0)
  1. ;;=This is a flag that indicates none of the fields on the form are data
  1. ;;^DD(.403,9,21,2,0)
  1. ;;=dictionary fields. This flag is set during form compilation.
  1. ;;^DD(.403,9,"DT")
  1. ;;=2931028
  1. ;;^DD(.403,10,0)
  1. ;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
  1. ;;^DD(.403,10,1,0)
  1. ;;=^.1^^0
  1. ;;^DD(.403,10,21,0)
  1. ;;=^^2^2^2940908^
  1. ;;^DD(.403,10,21,1,0)
  1. ;;=This is a flag that indicates that the form is compiled. This flag is
  1. ;;^DD(.403,10,21,2,0)
  1. ;;=set during form compilation.
  1. ;;^DD(.403,10,"DT")
  1. ;;=2940701
  1. ;;^DD(.403,11,0)
  1. ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.403,11,3)
  1. ;;=Enter standard MUMPS code which will be executed at the beginning of the form.
  1. ;;^DD(.403,11,9)
  1. ;;=@
  1. ;;^DD(.403,11,21,0)
  1. ;;=^^2^2^2940906^
  1. ;;^DD(.403,11,21,1,0)
  1. ;;=This is MUMPS code that is executed when the form is first invoked,
  1. ;;^DD(.403,11,21,2,0)
  1. ;;=before any of the pages are loaded and displayed.
  1. ;;^DD(.403,12,0)
  1. ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.403,12,3)
  1. ;;=Enter standard MUMPS code which will be executed at the end of the form.
  1. ;;^DD(.403,12,9)
  1. ;;=@
  1. ;;^DD(.403,12,21,0)
  1. ;;=^^2^2^2940906^^
  1. ;;^DD(.403,12,21,1,0)
  1. ;;=This is MUMPS code that is executed before ScreenMan returns to the
  1. ;;^DD(.403,12,21,2,0)
  1. ;;=calling application.
  1. ;;^DD(.403,14,0)
  1. ;;=POST SAVE^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.403,14,3)
  1. ;;=This is Standard MUMPS code.
  1. ;;^DD(.403,14,9)
  1. ;;=@
  1. ;;^DD(.403,14,21,0)
  1. ;;=^^2^2^2940906^
  1. ;;^DD(.403,14,21,1,0)
  1. ;;=This is MUMPS code that is executed when the user saves changes. It is
  1. ;;^DD(.403,14,21,2,0)
  1. ;;=executed only if all data is valid, and after all data has been filed.
  1. ;;^DD(.403,14,"DT")
  1. ;;=2930813
  1. ;;^DD(.403,15,0)
  1. ;;=DESCRIPTION^.40315^^15;0
  1. ;;^DD(.403,20,0)
  1. ;;=DATA VALIDATION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.403,20,3)
  1. ;;=Enter standard MUMPS code.
  1. ;;^DD(.403,20,9)
  1. ;;=@
  1. ;;^DD(.403,20,21,0)
  1. ;;=^^8^8^2940906^
  1. ;;^DD(.403,20,21,1,0)
  1. ;;=This is MUMPS code that is executed when the user attempts to save changes
  1. ;;^DD(.403,20,21,2,0)
  1. ;;=to the form. If the code sets DDSERROR, the user is unable to save
  1. ;;^DD(.403,20,21,3,0)
  1. ;;=changes. If the code sets DDSBR, the user is taken to the specified
  1. ;;^DD(.403,20,21,4,0)
  1. ;;=field.
  1. ;;^DD(.403,20,21,5,0)
  1. ;;=
  1. ;;^DD(.403,20,21,6,0)
  1. ;;=In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you
  1. ;;^DD(.403,20,21,7,0)
  1. ;;=can use MSG^DDSUTL to print on a separate screen messages to the user
  1. ;;^DD(.403,20,21,8,0)
  1. ;;=about the validity of the data.
  1. ;;^DD(.403,21,0)
  1. ;;=RECORD SELECTION PAGE^NJ5,1^^21;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
  1. ;;^DD(.403,21,3)
  1. ;;=Type a Number between 1 and 999.9, 1 Decimal Digit
  1. ;;^DD(.403,21,21,0)
  1. ;;=^^12^12^2940906^
  1. ;;^DD(.403,21,21,1,0)
  1. ;;=Enter the page number of the page that is used for record selection.
  1. ;;^DD(.403,21,21,2,0)
  1. ;;=
  1. ;;^DD(.403,21,21,3,0)
  1. ;;=If you define a Record Selection Page, the user can select another entry
  1. ;;^DD(.403,21,21,4,0)
  1. ;;=in the file, and, if LAYGO is allowed, add another entry into the file
  1. ;;^DD(.403,21,21,5,0)
  1. ;;=without exiting the form. The Record Selection Page should be a pop-up
  1. ;;^DD(.403,21,21,6,0)
  1. ;;=page that contains one form-only field that performs a pointer-type read
  1. ;;^DD(.403,21,21,7,0)
  1. ;;=into the Primary File of the form. The Record Selection Page property
  1. ;;^DD(.403,21,21,8,0)
  1. ;;=should be set equal to the Page Number of the Record Selection Page.
  1. ;;^DD(.403,21,21,9,0)
  1. ;;=
  1. ;;^DD(.403,21,21,10,0)
  1. ;;=The user can open the Record Selection Page by pressing <PF1>L. After the
  1. ;;^DD(.403,21,21,11,0)
  1. ;;=user selects a record and closes the Record Selection Page, the data for
  1. ;;^DD(.403,21,21,12,0)
  1. ;;=the selected record is displayed.
  1. ;;^DD(.403,40,0)
  1. ;;=PAGE^.4031I^^40;0
  1. ;;^DD(.403,21400,0)
  1. ;;=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)
  1. ;;^DD(.403,21400,21,0)
  1. ;;=^^3^3^3160105^^
  1. ;;^DD(.403,21400,21,1,0)
  1. ;;=The Build File (#9.6) is searched for Builds containing the ScreenMan Form.
  1. ;;^DD(.403,21400,21,2,0)
  1. ;;=A list of the identified Builds is created for display.
  1. ;;^DD(.403,21400,21,3,0)
  1. ;;=Multiple Builds will be shown if appropriate.
  1. ;;^DD(.4031,0)
  1. ;;=PAGE SUB-FIELD^^40^13
  1. ;;^DD(.4031,0,"DT")
  1. ;;=2940506
  1. ;;^DD(.4031,0,"ID","WRITE")
  1. ;;=D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")
  1. ;;^DD(.4031,0,"IX","AC",.4031,5)
  1. ;;=
  1. ;;^DD(.4031,0,"IX","B",.4031,.01)
  1. ;;=
  1. ;;^DD(.4031,0,"IX","C",.4031,7)
  1. ;;=
  1. ;;^DD(.4031,0,"NM","PAGE")
  1. ;;=
  1. ;;^DD(.4031,0,"UP")
  1. ;;=.403
  1. ;;^DD(.4031,.01,0)
  1. ;;=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
  1. ;;^DD(.4031,.01,1,0)
  1. ;;=^.1
  1. ;;^DD(.4031,.01,1,1,0)
  1. ;;=.4031^B
  1. ;;^DD(.4031,.01,1,1,1)
  1. ;;=S ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)=""
  1. ;;^DD(.4031,.01,1,1,2)
  1. ;;=K ^DIST(.403,DA(1),40,"B",$E(X,1,30),DA)
  1. ;;^DD(.4031,.01,3)
  1. ;;=Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page.
  1. ;;^DD(.4031,.01,21,0)
  1. ;;=^^2^2^2940907^^^
  1. ;;^DD(.4031,.01,21,1,0)
  1. ;;=This is the unique page number of the page. You can use this number to
  1. ;;^DD(.4031,.01,21,2,0)
  1. ;;=refer to the page in ScreenMan functions and utilities.
  1. ;;^DD(.4031,1,0)
  1. ;;=HEADER BLOCK^P.404^DIST(.404,^0;2^Q
  1. ;;^DD(.4031,1,1,0)
  1. ;;=^.1
  1. ;;^DD(.4031,1,1,1,0)
  1. ;;=.403^AC
  1. ;;^DD(.4031,1,1,1,1)
  1. ;;=S ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)=""
  1. ;;^DD(.4031,1,1,1,2)
  1. ;;=K ^DIST(.403,"AC",$E(X,1,30),DA(1),DA)
  1. ;;^DD(.4031,1,1,1,"DT")
  1. ;;=2930702
  1. ;;^DD(.4031,1,3)
  1. ;;=Enter the block which will be used as a header for this page.
  1. ;;^DD(.4031,1,21,0)
  1. ;;=^^7^7^2940907^^^
  1. ;;^DD(.4031,1,21,1,0)
  1. ;;=The header block always appears at row 1, column 1 relative to the page
  1. ;;^DD(.4031,1,21,2,0)
  1. ;;=on which it is defined. It is for display purposes only -- the user