Global: ^DIC(9.2

FileMan FileNo	FileMan Filename	Package
9.2	HELP FRAME	Kernel

Package	Total	Routines
Kernel	19	%ZIS7 %ZISF EDITOR RELATED FRAME XPDIA1 XQ3 XQ61 XQ62 XQH XQH0 XQH1 XQH2 XQH3 XQH4 XQH5 XUINEND XUSERBLK XUSERNEW ^DIC(9.2
PCC Medical Query	8	AMQQ1 AMQQAC AMQQATA AMQQCMPM AMQQOPT AMQQOPT1 AMQQSQA0 AMQQSQBP
PCC New Encounter Form	8	VEN8INI2 VEN8INI3 VENKINI2 VENKINI3 VENLINI2 VENLINI3 VENMINI2 VENMINI3
IHS RPMS CHR System	4	BCH1INI2 BCH1INI3 BCH2INI2 BCH2INI3
Inpatient Medications	4	PSJAINI2 PSJAINI3 PSJVINI2 PSJVINI3
VA Fileman	4	DIFROM0 DIFROM12 DIPKINI2 DIPKINI3
IHS VA Utilities	3	XBDANGLE XBDR XBHFMAN1
Auto Replenishment Ward Stock	2	PSGWINI2 PSGWINI3
Automated Information Collection System	2	IBDEINI2 IBDEINI3
Dietetics	2	FHINIT2 FHINIT3
IHS Support HL7 Interfaces	2	BHLINIT2 BHLINIT3
IHS VA Support Files	2	AVAPINI2 AVAPINI3
Integrated Billing	2	IBINIT2 IBINIT3
Local Area Programs	2	AZHNINI2 AZHNINI3
Problem List	2	GMPLINI2 GMPLINI3
Tucson	2	BZSMINI2 BZSMINI3
Utilities	2	AUP6INI2 AUP6INI3
Utility Tables	2	AUTINIT2 AUTINIT3
IHS Changes To Pharmacy	1	APSP7PRE
Lab Service	1	LROPT
Order Entry Results Reporting	1	ORWDBA3
Quality Assurance	1	AQAOUHLP
Surgery	1	SROPRE
Toolkit	1	XTVGC2A1

Package	Total	Routines
General Medical Record - Vitals	1	GMRVXPRE

Package	Total	FileMan Files
Kernel	2	OPTION(#19)[3.7] HELP FRAME(#9.2)[#9.22(1)]

Package	Total	FileMan Files
Kernel	2	HELP FRAME(#9.2)[#9.22(1)] NEW PERSON(#200)[6, #9.24(.01)]

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000000)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 1000000` DESCRIPTION: This field uniquely identifies a help frame.
.01	NAME	0;1		INPUT TRANSFORM: `D CHKNAME^XQ5 K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `FEB 02, 1994` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: The unique name of the frame, preceded with the package prefix name, similar to option names. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9.2^B` 1)= S ^DIC(9.2,"B",$E(X,1,30),DA)="" 2)= K ^DIC(9.2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9.2^4` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9.2,.01,1,2,1.1) X ^DD(9.2,. 01,1,2,1.4) 1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% 1.4)= S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= DATE ENTERED="" CREATE VALUE)= NOW DELETE VALUE)= NO EFFECT FIELD)= DATE ENTERED This trigger sets the 'DATE ENTERED' field to the date and time when the help frame is created. CROSS-REFERENCE: `^^TRIGGER^9.2^6` 1)= X ^DD(9.2,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9.2,.01,1,3,1.1) X ^DD(9.2,.01,1,3,1.4) 1.1)= S X=DIV X ^DD(9.2,.01,1,3,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P( ^(.1),U,4),1:""),1:"??") K % 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))="" 1.4)= S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 49.2)= S X="#" CREATE CONDITION)= AUTHOR="" CREATE VALUE)= USER("#") DELETE VALUE)= NO EFFECT FIELD)= author This cross reference marks Help Frames with the creater in the Author field.
1	HEADER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-65 CHARACTERS IN LENGTH` DESCRIPTION: A short description of the frame, succinctly describing the content of the frame CROSS-REFERENCE: `9.2^C^KWIC` 1)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^DIC(9.2,"C",I,DA)="" 2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(9.2,"C",I,DA)
2	TEXT	1;0	WORD-PROCESSING #9.21	DESCRIPTION: The actual text of the help frame, which will be displayed when the user presses question mark. Screen breaks are indicated by a line terminating with "..".
3	RELATED FRAME	2;0	Multiple #9.22	9.22 DESCRIPTION: `This is a multiple field which contains information on the other help frames which are related to the current help frame through specific keywords. The keywords may be selected to obtain additional information about the` topic through the related help frame(s).
3.5	Want to LOAD KEYWORDS (Y/N)?	0;5	FREE TEXT	INPUT TRANSFORM: `D LOADKW^XQH2` LAST EDITED: `JUL 24, 1986` HELP-PROMPT: `Enter 'Y' if you wish to make all bracketed words appearing in the text into keywords.` DESCRIPTION: This field is designed for internal use. Its input transform will invoke a routine to associate keywords with related help frames. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	DATE ENTERED	0;3	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: Date/time that this frame was entered into the system, which is used to track new Help frame activity. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME field of the HELP FRAME File` TRIGGERED by the NAME field of the HELP FRAME File CROSS-REFERENCE: `9.2^D` 1)= S ^DIC(9.2,"D",$E(X,1,30),DA)="" 2)= K ^DIC(9.2,"D",$E(X,1,30),DA)
5	INVOKED BY ROUTINE	3;0	Multiple #9.23	9.23 DESCRIPTION: This field is for documentation purposes. It serves as a record of which routines reference a particular help frame.
6	AUTHOR	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 08, 1989` DESCRIPTION: The person who created the entry for this help frame. This is a triggered field, it's value determined by the creator of the .01 entry. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME field of the HELP FRAME File` TRIGGERED by the NAME field of the HELP FRAME File CROSS-REFERENCE: `9.2^AC` 1)= S ^DIC(9.2,"AC",$E(X,1,30),DA)="" 2)= K ^DIC(9.2,"AC",$E(X,1,30),DA)
7	EDITOR	4;0	POINTER Multiple #9.24	9.24 DESCRIPTION: Users who are allowed to edit this help frame, as determined by the author.
8	DATE LAST UPDATED		COMPUTED DATE	MUMPS CODE: `S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"") S X=$P(Y(9.2,8,1),U,5)` ALGORITHM: `S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"") S X=$P(Y(9.2,8,1),U,5)` LAST EDITED: `OCT 13, 1985` DESCRIPTION: This field is used to maintain an indication of the date on which the help frame was last modified or updated.
10.1	ENTRY EXECUTE STATEMENT	10.1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 16, 1991` HELP-PROMPT: `This is Standard MUMPS code which will be executed as the user enters this Help Frame` DESCRIPTION: This field is used to include an M code statement which is executed as the user enters this help frame. WRITE AUTHORITY: "@"
10.2	EXIT EXECUTE STATEMENT	10.2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 16, 1991` HELP-PROMPT: `This is Standard MUMPS code which will be executed as the user leaves the current Help Frame.` DESCRIPTION: This field is used to provide an M code statement which is to be executed as the user exits the current help frame (whether moving into another help frame or back out of the current help frame). WRITE AUTHORITY: "@"

Field #

Name

Loc

Type

Details

.001

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>1000000)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 1000000

DESCRIPTION:

This field uniquely identifies a help frame.

.01

NAME

0;1

INPUT TRANSFORM: D CHKNAME^XQ5 K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 02, 1994
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION

DESCRIPTION:

The unique name of the frame, preceded with the package prefix name, similar to option names.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9.2^B

1)= S ^DIC(9.2,"B",$E(X,1,30),DA)=""

2)= K ^DIC(9.2,"B",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^9.2^4

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9.2,.01,1,2,1.1) X ^DD(9.2,.

01,1,2,1.4)

1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%

1.4)= S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= DATE ENTERED=""

CREATE VALUE)= NOW

DELETE VALUE)= NO EFFECT

FIELD)= DATE ENTERED

This trigger sets the 'DATE ENTERED' field to the date and time when the help frame is created.

CROSS-REFERENCE: ^^TRIGGER^9.2^6

1)= X ^DD(9.2,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9.2,.01,1,3,1.1) X ^DD(9.2,.01,1,3,1.4)

1.1)= S X=DIV X ^DD(9.2,.01,1,3,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""),X=$S('DUZ:"??",X="#":DUZ,X="N":$P(%,U,1),X="I":$P(%,U,2),X="T":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""),X="NN":$S($D(^VA(200,+DUZ,.1)):$P(

^(.1),U,4),1:""),1:"??") K %

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))=""

1.4)= S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

49.2)= S X="#"

CREATE CONDITION)= AUTHOR=""

CREATE VALUE)= USER("#")

DELETE VALUE)= NO EFFECT

FIELD)= author

This cross reference marks Help Frames with the creater in the Author field.

1

HEADER

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-65 CHARACTERS IN LENGTH

DESCRIPTION:

A short description of the frame, succinctly describing the content of the frame

CROSS-REFERENCE: 9.2^C^KWIC

1)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^DIC(9.2,"C",I,DA)=""

2)= F %=1:1 Q:$P(X," ",%,99)=""  S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^DIC(9.2,"C",I,DA)

2

TEXT

1;0

WORD-PROCESSING #9.21

DESCRIPTION:

The actual text of the help frame, which will be displayed when the user presses question mark.  Screen breaks are indicated by a line terminating with "..".

3

RELATED FRAME

2;0

Multiple #9.22

9.22

DESCRIPTION: This is a multiple field which contains information on the other help frames which are related to the current help frame through specific keywords. The keywords may be selected to obtain additional information about the
```
topic through the related help frame(s).
```

3.5

Want to LOAD KEYWORDS (Y/N)?

0;5

FREE TEXT

INPUT TRANSFORM: D LOADKW^XQH2
LAST EDITED: JUL 24, 1986
HELP-PROMPT: Enter 'Y' if you wish to make all bracketed words appearing in the text into keywords.

DESCRIPTION:

This field is designed for internal use.  Its input transform will invoke a routine to associate keywords with related help frames.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

4

DATE ENTERED

0;3

DATE

INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X

DESCRIPTION:

Date/time that this frame was entered into the system, which is used to track new Help frame activity.

WRITE AUTHORITY:  ^

NOTES: TRIGGERED by the NAME field of the HELP FRAME File
```
TRIGGERED by the NAME field of the HELP FRAME File
```

CROSS-REFERENCE: 9.2^D

1)= S ^DIC(9.2,"D",$E(X,1,30),DA)=""

2)= K ^DIC(9.2,"D",$E(X,1,30),DA)

5

INVOKED BY ROUTINE

3;0

Multiple #9.23

9.23

DESCRIPTION:

This field is for documentation purposes.  It serves as a record of which routines reference a particular help frame.

6

AUTHOR

0;4

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: SEP 08, 1989

DESCRIPTION:

The person who created the entry for this help frame.  This is a triggered field, it's value determined by the creator of the .01 entry.

WRITE AUTHORITY:  ^

NOTES: TRIGGERED by the NAME field of the HELP FRAME File
```
TRIGGERED by the NAME field of the HELP FRAME File
```

CROSS-REFERENCE: 9.2^AC

1)= S ^DIC(9.2,"AC",$E(X,1,30),DA)=""

2)= K ^DIC(9.2,"AC",$E(X,1,30),DA)

7

EDITOR

4;0

POINTER Multiple #9.24

9.24

DESCRIPTION:

Users who are allowed to edit this help frame, as determined by the author.

8

DATE LAST UPDATED

COMPUTED DATE

MUMPS CODE: S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"") S X=$P(Y(9.2,8,1),U,5)
ALGORITHM: S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"") S X=$P(Y(9.2,8,1),U,5)
LAST EDITED: OCT 13, 1985

DESCRIPTION:

This field is used to maintain an indication of the date on which the help frame was last modified or updated.

10.1

ENTRY EXECUTE STATEMENT

10.1;E1,245

MUMPS

INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JAN 16, 1991
HELP-PROMPT: This is Standard MUMPS code which will be executed as the user enters this Help Frame

DESCRIPTION:

This field is used to include an M code statement which is executed as the user enters this help frame.

WRITE AUTHORITY:  "@"

10.2

EXIT EXECUTE STATEMENT

10.2;E1,245

MUMPS

INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JAN 16, 1991
HELP-PROMPT: This is Standard MUMPS code which will be executed as the user leaves the current Help Frame.

DESCRIPTION:

This field is used to provide an M code statement which is to be executed as the user exits the current help frame (whether moving into another help frame or back out of the current help frame).

WRITE AUTHORITY:  "@"

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 3n1.4)
^DD("KWIC"	1(XREF 1S)
^DD(9.2	.01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.1)
^DIC(3.1 - [#3.1]	.01(XREF 3n1.1)
^DIC(9.2 - [#9.2]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), 1(XREF 1S), 1(XREF 1K), 4(XREF 1S) , 4(XREF 1K), 6(XREF 1S), 6(XREF 1K), 8+1
^VA(200 - [#200]	.01(XREF 3n1.1), .01(XREF 3n1.3)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 2n1.1), .01(XREF 3n1.1), 1(XREF 1S), 1(XREF 1K)
>> %DT	4+1*
%H	.01(XREF 2n1.1)
%I	.01(XREF 2n1.1)
>> D0	.01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.3), 8+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3n1.3), 1(XREF 1S), 1(XREF 1K), 4(XREF 1S), 4(XREF 1K), 6(XREF 1S), 6(XREF 1K)
>> DIG	.01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU	.01(XREF 2S), .01(XREF 3S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.3), .01(XREF 3n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3n1.3), .01(XREF 3n1.4)
DUZ	.01(XREF 3n1.1)
>> I	1(XREF 1S), 1(XREF 1K)
U	ID1+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.3), .01(XREF 3n1.4), 8+1
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.3) , .01(XREF 3n1.4), .01(XREF 3n49.2), 1+1!, 1(XREF 1S), 1(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 6(XREF 1S), 6(XREF 1K) , 8+1, 10.1+1!, 10.2+1!
Y	.01(XREF 2S), .01(XREF 3S), 4+1
Y(	8+1*
Y(0	.01(XREF 2S), .01(XREF 3n1.3)
Y(1	.01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.3)

Customize PDF page

Package: Kernel

Global: ^DIC(9.2

Information

Description

Directly Accessed By Routines, Total: 81

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 13

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	4+1
NOW^%DTC	.01(XREF 2n1.1)
^DICR	.01(XREF 2n1.4), .01(XREF 3n1.4)
^DIM	10.1+1, 10.2+1
CHKNAME^XQ5	.01+1
LOADKW^XQH2	3.5+1