Global: ^DIST(.403

FileMan FileNo	FileMan Filename	Package
.403	FORM	VA FileMan

Package	Total	Routines
Automated Information Collection System	4	IBDEI1NC IBDEI3D5 IBDEI3E0 IBDEINI3

Package	Total	FileMan Files
VA FileMan	1	BLOCK(#.404)[#.4031(1), #.4032(.01)]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,"E")) X` LAST EDITED: `SEP 04, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Enter the name of the form, 3-30 characters in length. The form name must be unique and cannot be numeric or start with a punctuation character. It should also be namespaced.` DELETE TEST: `1,0)= D EN^DDIOL($C(7)_"You must use the FileMan option to delete forms.") I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `.403^B` `1)= S ^DIST(.403,"B",$E(X,1,30),DA)=""` `2)= K ^DIST(.403,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `.403^F1^MUMPS` `1)= X "S %=$P("_DIC_"DA,0),U,8) S:$L(%) "_DIC_"""F""_%,X,DA)=1"` `2)= X "S %=$P("_DIC_"DA,0),U,8) K:$L(%) "_DIC_"""F""_%,X,DA)"` `3)= Programmer only` `This cross-reference is used to quickly find all ScreenMan templates associated with a file. It has the form:` `^DIST(.403,"F"_file#,"formname",DA)=1` `A comparable cross-reference also exists on the PRIMARY FILE field.` CROSS-REFERENCE: `.403^AY^MUMPS` `1)= Q` `2)= Q` `3)= Programmer only` `This is a no-op cross reference defined merely to document the data stored under ^DIST(.403,form IEN,"AY").` `This global stores the compiled data for a Form. Form compilation occurs automatically whenever a Form is edited through the FileMan supplied options. The compiled data stored in this global is static information that is` `used whenever a Form is run.`
1	READ ACCESS	0;2	FREE TEXT	INPUT TRANSFORM: `I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X` LAST EDITED: `OCT 20, 1993` HELP-PROMPT: `Enter VA FileMan access code(s) which control access to the form.` DESCRIPTION: `Non-programmers can enter only their own VA FileMan access code(s).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	WRITE ACCESS	0;3	FREE TEXT	INPUT TRANSFORM: `I DUZ(0)'="@" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X` LAST EDITED: `OCT 20, 1993` HELP-PROMPT: `Enter VA FileMan access code(s) which control access to the form.` DESCRIPTION: `Non-programmers can enter only their own VA FileMan access code(s).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	CREATOR	0;4	NUMBER	INPUT TRANSFORM: `K:X'?.N X` HELP-PROMPT: `Enter the VA FileMan User Number of the form creator.` DESCRIPTION: `This is the DUZ of the person who created the form. The ScreenMan options to create the form automatically put a value into this field.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	DATE CREATED	0;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 18, 1994` HELP-PROMPT: `Enter the date the form was created.` DESCRIPTION: `This is the date the form was created. The ScreenMan options to create the form automatically put a value into this field.`
5	DATE LAST USED	0;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 18, 1994` HELP-PROMPT: `Enter the date and time the form was last used.` DESCRIPTION: `This is the date the form was last used. ScreenMan automatically puts a value into this field when the form is invoked.`
6	TITLE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `SEP 08, 1994` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `The TITLE property can be used by the form designer to help identify a form. It is cross referenced and need not be unique. ScreenMan does not automatically display the TITLE to the user, but the form designer can choose` `to define a caption-only field that displays the title to the user.` CROSS-REFERENCE: `.403^C` `1)= S ^DIST(.403,"C",$E(X,1,30),DA)=""` `2)= K ^DIST(.403,"C",$E(X,1,30),DA)`
7	PRIMARY FILE	0;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X` LAST EDITED: `APR 07, 1992` HELP-PROMPT: `Answer must be 1-16 characters in length.` DESCRIPTION: `Enter a file number, greater than or equal to 2, which represents the data dictionary number of the primary file for this form.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `.403^F^MUMPS` `1)= X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"` `2)= X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"` `3)= Programmer only` `This cross-reference is used to quickly find all ScreenMan templates associated with a file.`
8	DISPLAY ONLY	0;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 28, 1993` DESCRIPTION: `This is a flag that indicates none of the blocks on the form are edit blocks. This flag is set during form compilation.` `UNEDITABLE`
9	FORM ONLY	0;10	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 28, 1993` DESCRIPTION: `This is a flag that indicates none of the fields on the form are data dictionary fields. This flag is set during form compilation.` `UNEDITABLE`
10	COMPILED	0;11	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 01, 1994` DESCRIPTION: `This is a flag that indicates that the form is compiled. This flag is set during form compilation.` `UNEDITABLE`
11	PRE ACTION	11;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` HELP-PROMPT: `Enter standard MUMPS code which will be executed at the beginning of the form.` DESCRIPTION: `This is MUMPS code that is executed when the form is first invoked, before any of the pages are loaded and displayed.` `WRITE AUTHORITY: @`
12	POST ACTION	12;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` HELP-PROMPT: `Enter standard MUMPS code which will be executed at the end of the form.` DESCRIPTION: `This is MUMPS code that is executed before ScreenMan returns to the calling application.` `WRITE AUTHORITY: @`
14	POST SAVE	14;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 13, 1993` HELP-PROMPT: `This is Standard MUMPS code.` DESCRIPTION: `This is MUMPS code that is executed when the user saves changes. It is executed only if all data is valid, and after all data has been filed.` `WRITE AUTHORITY: @`
15	DESCRIPTION	15;0	WORD-PROCESSING #.40315	DESCRIPTION: `Enter text that describes this form.`
20	DATA VALIDATION	20;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` HELP-PROMPT: `Enter standard MUMPS code.` DESCRIPTION: `This is MUMPS code that is executed when the user attempts to save changes to the form. If the code sets DDSERROR, the user is unable to save changes. If the code sets DDSBR, the user is taken to the specified field.` `In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you can use MSG^DDSUTL to print on a separate screen messages to the user about the validity of the data.` `WRITE AUTHORITY: @`
21	RECORD SELECTION PAGE	21;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X` HELP-PROMPT: `Type a Number between 1 and 999.9, 1 Decimal Digit` DESCRIPTION: `Enter the page number of the page that is used for record selection.` `If you define a Record Selection Page, the user can select another entry in the file, and, if LAYGO is allowed, add another entry into the file without exiting the form. The Record Selection Page should be a pop-up page` `that contains one form-only field that performs a pointer-type read into the Primary File of the form. The Record Selection Page property should be set equal to the Page Number of the Record Selection Page.` `The user can open the Record Selection Page by pressing L. After the user selects a record and closes the Record Selection Page, the data for the selected record is displayed.`
40	PAGE	40;0	Multiple #.4031	.4031 IDENTIFIED BY: `"WRITE": D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"","?12")`
21400	BUILD(S)		COMPUTED MULTIPLE POINTER TO BUILD FILE (#9.6)	MUMPS CODE: `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)` DESCRIPTION: `The Build File (#9.6) is searched for Builds containing the ScreenMan Form. A list of the identified Builds is created for display. Multiple Builds will be shown if appropriate.`

NAME: DICATT	NAME: DIPTED	NAME: DIKC EDIT	NAME: DIKC EDIT UI	NAME: DIKK EDIT	NAME: DIBTED	NAME: DIETED	NAME: DIEDIT
NAME: DDGF BLOCK EDIT	NAME: DDGF PAGE ADD	NAME: DDGF PAGE EDIT	NAME: DDGF PAGE SELECT	NAME: DDGF FORM EDIT	NAME: DDGF HEADER BLOCK EDIT	NAME: DDGF FIELD ADD	NAME: DDGF FIELD CAPTION ONLY
NAME: DDGF FIELD DD	NAME: DDGF FIELD FORM ONLY	NAME: DDGF FIELD COMPUTED	NAME: DDGF BLOCK ADD	NAME: DDGF BLOCK DELETE	NAME: DDGF HEADER BLOCK SELECT	NAME: DDXP FF FORM1	NAME: DDMP SPECIFY IMPORT
NAME: XPD EDIT BUILD	NAME: XUEDIT CHARACTERISTICS	NAME: XUEXISTING USER	NAME: XUDEVICE MT	NAME: XUDEVICE SDP	NAME: XUDEVICE SPL	NAME: XUDEVICE HFS	NAME: XUDEVICE CHAN
NAME: XU OPTION SCHEDULE	NAME: XUSERDEACT	NAME: XUTM UCI ASSOC	NAME: XUSITEPARM	NAME: XUAUDIT	NAME: XUREACT USER	NAME: PRSA TD EDIT	NAME: PRSA OT REQ
NAME: PRSA TD DISP	NAME: PRSA TL EDIT	NAME: PRSA TL DISP	NAME: PRSA LV REQ	NAME: PRSA ED REQ	NAME: PRSA VC POST	NAME: PRSA PM POST	NAME: PRSA TD TL
NAME: PRSA TP POST1	NAME: PRSA TE EDIT	NAME: PRSA FEE POST	NAME: NURA-I-SERVICE	NAME: XU-PERSON CLASS	NAME: XUNEW USER	NAME: PX EDUCATION TOPIC EDIT	NAME: PX EDUCATION TOPIC CHANGE LOG
NAME: PX EXAM EDIT	NAME: PX EXAM CHANGE LOG	NAME: XPD EDIT MP	NAME: XPD EDIT GP	NAME: PRCHQ1	NAME: PRCHQ2	NAME: PRCHQ3	NAME: PRCHQ4
NAME: PRCHQ5	NAME: PX HEALTH FACTOR EDIT	NAME: PX HEALTH FACTOR CHANGE LOG	NAME: PX VSC EDIT	NAME: PX HF CATEGORY EDIT	NAME: PX EXAM EDIT NCM	NAME: LREPI	NAME: ENPR MS
NAME: ENPR ALL	NAME: ENPR PRELIM	NAME: ENPR AE	NAME: ENPR CO	NAME: ENPR CHG	NAME: PX EDUCATION TOPIC EDIT NCM	NAME: XQEDTOPT	NAME: XU-INST-EDIT
NAME: LREPIPROT	NAME: XUTMKE ADD	NAME: WV PROC-FORM-1	NAME: WV NOTIF-FORM-1	NAME: WV PATIENT-FORM-1	NAME: WV NOTIF-FORM-2	NAME: WV PROC-FORM-2-COLP	NAME: WV NOTIFPURPOSE-FORM-1
NAME: WV SITE PARAMS-FORM-1	NAME: WV REFUSED PROCEDURE-ENTRY	NAME: WV PROC-FORM-LAB	NAME: XDR RESFILE FORM	NAME: HL SITE PARAMETERS	NAME: PSB PRN EFFECTIVENESS	NAME: PSB MED LOG EDIT	NAME: PSBO DL
NAME: PSBO WA	NAME: PSBO ML	NAME: PSBO MM	NAME: PSBO PE	NAME: PSB MISSING DOSE REQUEST	NAME: PSBO MH	NAME: PSBO MV	NAME: PSB MISSING DOSE FOLLOWUP
NAME: PSBO BL	NAME: PSBO MD	NAME: PSB NEW UD ENTRY	NAME: PSB NEW IV ENTRY	NAME: HL7 APP	NAME: HL7 LOGICAL LINK	NAME: HL7 INTERFACE	NAME: PX HEALTH FACTOR EDIT NCM
NAME: PSB MED LOG EDIT IV	NAME: PXRM DEF PRINT NAME EDIT	NAME: XU-CLINICAL TRAINEE	NAME: XUSSPKI	NAME: INSTITUTION EDIT	NAME: PRSA LD POST	NAME: XUDEVICE LPD	NAME: XUDEVICE TRM
NAME: KMPD PARAMETERS EDIT	NAME: LREPI9	NAME: XUDEVICE RES	NAME: PSBO BZ	NAME: ENIT EDIT	NAME: PXRM DIALOG EDIT	NAME: XUSITEIP	NAME: PSB BCBU PARAMETERS
NAME: PSBO XA	NAME: MD MAIN	NAME: PRSP ESR POST	NAME: PRSP EXT ABSENCE	NAME: MMRSMRSA WARD MAP	NAME: MMRSLABPARAM	NAME: MMRSISLTORD	NAME: XUER EDIT PARAMS
NAME: PRSN DAILY TIME RECORDS A/E/D	NAME: PRSN EDIT PAID PARAMETERS	NAME: PRSN EDIT TL POC	NAME: PXRM OCR EDIT	NAME: PXRM OCG EDIT	NAME: PXRM OCR EDIT RESTRICTED	NAME: PXRM OCG EDIT RESTRICTED	NAME: PXRM OCG EDIT HISTORY
NAME: PXRM OCR EDIT HISTORY	NAME: XUDEVICE PQ	NAME: GMRC MAIN	NAME: DDE ENTITY ENTER/EDIT	NAME: KMPV EDIT CONFIGURATION	NAME: KMPV VIEW CONFIGURATION	NAME: DIP81S	NAME: DIP86S
NAME: DIP87S	NAME: DIAC POLICY	NAME: DIAC SET	NAME: DIAC RULE	NAME: PXRM TAXONOMY EDIT	NAME: PXRM TAXONOMY CHANGE LOG	NAME: PXRM DIALOG TAXONOMY EDIT

Customize PDF page

Package: VA FileMan

Global: ^DIST(.403

Information

Description

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 1

Fields, Total: 19

Found Entries, Total: 159