Global: ^GMPL(125

FileMan FileNo	FileMan Filename	Package
125	PROBLEM SELECTION LIST	Problem List

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Problem List	7	GMPL ^GMPL(125 GMPLBLCK GMPLBLD GMPLBLD2 GMPLBLDF GMPLUTL2
Order Entry Results Reporting	1	ORQQPL3

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Problem List	3	GMPLBLD2 GMPLBLD3 GMPLBLDF

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[125.1]
Problem List	1	PROBLEM SELECTION LIST CONTENTS(#125.1)[.01]

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Scheduling	1	HOSPITAL LOCATION(#44)[.03]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: This is a free text name for the list; it should contain the name of the clinic or user who will be the primary user(s) of this list, as this name will be used as an ID and a title. CROSS-REFERENCE: `125^B` 1)= S ^GMPL(125,"B",$E(X,1,30),DA)="" 2)= K ^GMPL(125,"B",$E(X,1,30),DA)
.02	DATE LAST MODIFIED	0;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 04, 1993` HELP-PROMPT: `Enter the date/time this list was last edited.` DESCRIPTION: This is the date[/time] this list was last changed in any way; this value is stuffed in by the Problem List pkg utilities that manage this file.
.03	CLINIC	0;3	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 02, 1994` HELP-PROMPT: `Enter the clinic to be associated with this list.` DESCRIPTION: `This is the clinic to be associated with this list. This should be the primary clinic in which this list will be used to populate patient problem lists; when adding new problems for a patient from this clinic, this list` will automatically be presented to select problems from. SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `Only hospital locations that are clinics are allowed.` CROSS-REFERENCE: `125^C` 1)= S ^GMPL(125,"C",$E(X,1,30),DA)="" 2)= K ^GMPL(125,"C",$E(X,1,30),DA)

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION

DESCRIPTION:

This is a free text name for the list; it should contain the name of the clinic or user who will be the primary user(s) of this list, as this name will be used as an ID and a title.

CROSS-REFERENCE: 125^B

1)= S ^GMPL(125,"B",$E(X,1,30),DA)=""

2)= K ^GMPL(125,"B",$E(X,1,30),DA)

.02

DATE LAST MODIFIED

0;2

DATE

INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 04, 1993
HELP-PROMPT: Enter the date/time this list was last edited.

DESCRIPTION:

This is the date[/time] this list was last changed in any way; this value is stuffed in by the Problem List pkg utilities that manage this file.

.03

CLINIC

0;3

POINTER TO HOSPITAL LOCATION FILE (#44)

HOSPITAL LOCATION(#44)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 02, 1994
HELP-PROMPT: Enter the clinic to be associated with this list.
DESCRIPTION: This is the clinic to be associated with this list. This should be the primary clinic in which this list will be used to populate patient problem lists; when adding new problems for a patient from this clinic, this list
```
will automatically be presented to select problems from.
```
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: Only hospital locations that are clinics are allowed.

CROSS-REFERENCE: 125^C

1)= S ^GMPL(125,"C",$E(X,1,30),DA)=""

2)= K ^GMPL(125,"C",$E(X,1,30),DA)

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2971	ORDER ENTRY/RESULTS REPORTING	NAME (.01). Access: Direct Global Read & w/Fileman DATE LAST MODIFIED (.02). Access: Direct Global Read & w/Fileman	Effective with OR3.0429, access to these fields areutilized in determining which clinic default selection lists to migrate to thenew default selection list parameter if a clinic has been assigned to morethan one list.

External References

Name	Field # of Occurrence
^%DT	.02+1
^DIC	.03+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125 - [#125]	.01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC	.03+1!*
DIC("S"	.03+1, .03SCR+1
>> DIE	.03+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1!, .03(XREF 1S), .03(XREF 1K)
>> Y	.02+1, .03+1

Customize PDF page

Package: Problem List