Global: ^GMRD(120.84

FileMan FileNo	FileMan Filename	Package
120.84	GMR ALLERGY SITE PARAMETERS	Adverse Reaction Tracking

Package	Total	Routines
Adverse Reaction Tracking	28	DIVISION GMRA5UTL GMRACMR4 GMRADGMV GMRAFUT0 GMRAGUI1 GMRAMCB GMRAMCU0 GMRAOR5 GMRAPEE0 GMRAPEH0 GMRAPEM0 GMRAPER2 GMRARAD0 GMRAROBS GMRASEN2 GMRASEND GMRASIGN GMRAU85 GMRAU851 GMRAUTL GMRAUTL2 GMRAVFY GMRAY20 NKA CONVERSION TOP 10 REACTIONS ^GMR(120.88 ^GMRD(120.84
Order Entry Results Reporting	1	ORWDAL32

Package	Total	Routines
Adverse Reaction Tracking	1	GMRAFUT0

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[#120.846(.01)] STATE(#5)[16]
Adverse Reaction Tracking	1	SIGN/SYMPTOMS(#120.83)[#120.841(.01)]

Fields, Total: 30

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 06, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field is the name of this set of parameters. The name of the base set that is sent out is "HOSPITAL". The code will work more efficiently if the name of the base set of parameters is not changed from "HOSPITAL".` LAYGO TEST: `1,0)= D:$O(^GMRD(120.84,"B",X,0)) EN^DDIOL("CANNOT ADD DUPLICATE ENTRIES.","","!!") I '$O(^GMRD(120.84,"B",X,0))` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `120.84^B` `1)= S ^GMRD(120.84,"B",$E(X,1,30),DA)=""` `2)= K ^GMRD(120.84,"B",$E(X,1,30),DA)`
1	TOP 10 REACTIONS	1;0	POINTER Multiple #120.841	120.841 DESCRIPTION: `A list of reactions for the user to choose from when selecting reactions for a patient allergy/adverse reactions. These will be the ten most common reactions, and modifiable by the site.` IDENTIFIED BY: `"WRITE": S GMRAHLPX=" ("_Y_")" D EN^DDIOL(GMRAHLPX,"","?0") K GMRAHLPX`
2	AUTOVERIFY FOOD/DRUG/OTHER	0;2	SET	'0' FOR NO AUTOVERIFY; '1' FOR AUTOVERIFY DRUG ONLY; '2' FOR AUTOVERIFY FOOD ONLY; '3' FOR AUTOVERIFY DRUG/FOOD; '4' FOR AUTOVERIFY OTHER ONLY; '5' FOR AUTOVERIFY DRUG/OTHER; '6' FOR AUTOVERIFY FOOD/OTHER; '7' FOR AUTOVERIFY ALL; LAST EDITED: `JUN 26, 1991` DESCRIPTION: `This field determines which types of allergies a site wants autoverified at the user sign off.`
3	AUTOVERIFY OBSERVED/HISTORICAL	0;3	SET	'0' FOR NO AUTOVERIFY; '1' FOR AUTOVERIFY HISTORICAL ONLY; '2' FOR AUTOVERIFY OBSERVED ONLY; '3' FOR AUTOVERIFY BOTH; LAST EDITED: `JUN 26, 1991` DESCRIPTION: `This field is configurable by the site to allow autoverification of observed or historical allergies.`
3.5	AUTOVERIFY LOGICAL OPERATOR	0;6	SET	'!' FOR OR; '&' FOR AND; LAST EDITED: `SEP 30, 1992` DESCRIPTION: `This field will determine how the Autoverify Food/Drug/Other and Autoverify Observed/Historical parameters relate to each other. OR means that the reaction will be autoverified if it meets the criteria of one of the two` `parameters, while AND means the reaction will be autoverified only if it meets the criteria of both parameters. If this field is left null, the OR condition will be used.` `For example, if you want to verify only observed drug reactions, you would set the Autoverify Food/Drug/Other parameter to AUTOVERIFY FOOD/OTHER and the Autoverify Observed/Historical to AUTOVERIFY HISTORICAL ONLY , and` `the Autoverify Logical Operator to OR. This means that a reaction that has a type of Food/Other OR is Historical will be autoverified, thus leaving observed drug reactions to be verified.` `Another example would be if you wanted to verify all observed reactions and all drug reactions whether observed or historical. The parameters should be set accordingly: Autoverify Food/Drug/Other to AUTOVERIFY` `FOOD/OTHER, Autoverify Observed/Historical to AUTOVERIFY HISTORICAL ONLY` `and Autoverify Logical Operator to AND. In this case to be autoverifed, a reaction has to have a type of Food/Other AND it must be Historical, all other reactions will need to be verified.`
4	REQUIRE ORIGINATOR COMMENTS	0;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 26, 1991` DESCRIPTION: `This field indicates whether the originator will be required to enter comments for an OBSERVED reaction.`
5	*LAST DFN CONVERTED	CONV;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 12, 1995` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` DESCRIPTION: `The data in this field is the entry number of the Patient file record whose data was last converted by the Patient file data conversion. This field will be 0 before the conversion begins and after the conversion is over.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `READ AUTHORITY: ^`
5.1	*CONVERSION TASK NUMBER	CONV;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 12, 1995` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` DESCRIPTION: `This is the TaskMan task number of the Patient file data conversion job. The data in this field will be null before the job is queued to run, and after it has finished running.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `READ AUTHORITY: ^`
5.2	*CONVERSION FINISHED	CONV;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 12, 1995` DESCRIPTION: `This field indicates whether the Patient file data conversion has finished running or not. The data in this field will be 1 if the Patient file data conversion has finished running, or did not need to run.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `READ AUTHORITY: ^`
6	DIVISION	6;0	POINTER Multiple #120.846	120.846 DESCRIPTION: `The divisions associated with this set of site parameters.`
7	MARK ID BAND FLAG	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 10, 1992` DESCRIPTION: `This field is an indicator to denote whether the site wants to document if the patient ID band should be marked for a certain allergy. The system will assume the site wants to document the marking of inpatient ID bands.` `If this field is answered NO, the site does not want to document the marking of inpatient ID bands.`
7.1	METHOD OF NOTIFICATION	0;8	SET	'0' FOR BULLETIN; '1' FOR OE/RR TEAMS; '2' FOR NO NOTIFICATION; LAST EDITED: `JAN 12, 1993` DESCRIPTION: `This field tells ART if or how the users should be notified for chart or ID band markings. There are three methods. The first method is the use of BULLETINs, which is the current way ART works. The second method is the` `use of OE/RR Teams. If this method is used, then you will need to set up different teams for each ward and also assign printers to these teams. The third method is to turn off the function.`
7.2	ALERT ID BAND/CHART MARK	0;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 19, 1993` HELP-PROMPT: `Will turn off/on the alert function of the ID Band/Chart Mark option.` DESCRIPTION: `This field is to let the system know if you want to issue alerts if the fields have not been answered in the Enter/Edit Patient Reaction Data portion of the system. If the field is answered yes(1) or is null then, the` `system will continue to issue the alerts. If this field is no(0), then the system will not issue alerts for this record.`
7.3	NEW ADMISSION CHART MARK	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1995` DESCRIPTION: `This is to indicate if the site wants to send chart mark bulletin for a new admission.`
8	*3.0 CONVERSION LAST DFN	CONV3;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10000000000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 12, 1995` HELP-PROMPT: `Type a Number between 0 and 10000000000, 0 Decimal Digits` DESCRIPTION: `This field will contain the last field that has been fully converted. The field is initially set to 0.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^`
8.1	*3.0 TASK NUMBER	CONV3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `DEC 12, 1995` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: `This field is the TaskMan number that was assigned. In the event that there is a conversion failure this will enable the system to give the programmers the tools to investigate the problem.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^`
8.2	*CONVERSION FINISHED	CONV3;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 12, 1995` DESCRIPTION: `This field indicates whether the V3.0 data structure conversion has finished running. The data in this field will be 1 if the conversion has finished running or did not need to run.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^`
9	NKA CONVERSION	NKA;0	Multiple #120.849	120.849 LAST EDITED: `DEC 08, 1992` DESCRIPTION: `This field contains all the entries that are to be converted in the 3.0 NKA conversion.` `WRITE AUTHORITY: ^` `READ AUTHORITY: ^`
10	FDA DATA REQUIRED	0;7	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `NOV 30, 1992` DESCRIPTION: `This field will indicate whether the entry of FDA Data should be required during the Enter/Edit Patient Reaction Data. If this field is answered "YES", then the user must enter the FDA Data at the time of entering a` `reaction. If this field is left null or answered "NO", then the FDA Data entry will not be required during the Enter/Edit Patient Reaction Data option.`
10.1	E/E DESCRIPTION ACTIVE	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1995` DESCRIPTION: `Permit users to indicate why a reaction was Entered in Error.`
11	REPORTER NAME	RPT;1	FREE TEXT	INPUT TRANSFORM: `X ^DD(120.84,11,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X` `9.2 = N DIC,DO,DIX,DICR S DIC=200,DIC(0)="E" D ^DIC S:$D(DTOUT) X="^",Y=-1 Q:X="^" S:+Y>0 X=$P(Y,U,2) Q:+Y>0 X ^DD(120.84,11,9.3) Q` `9.3 = F S GMRAHLPX="IS "_X_" THE NAME YOU WANT TO USE" D EN^DDIOL(GMRAHLPX,"","!?2") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="" Q:% D EN^DDIOL("ANSWER YES OR NO","","!?5")` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field would contain the default reporter name to be used on the FDA reports.` EXECUTABLE HELP: `N DIC,D,DO S DIC="^VA(200,",DIC(0)="E",D="B",DZ="?" D DQ^DICQ Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	REPORTER ADDRESS1	RPT;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field would contain the first line of the reporter address to be used as a default for the FDA reports.`
13	REPORTER ADDRESS2	RPT;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field would contain the second line of the reporter address to be used as the default on the FDA reports.`
14	REPORTER ADDRESS3	RPT;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field would contain the third line of the reporter address to be used as the default on the FDA reports.`
15	REPORTER CITY	RPT;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the city to be used as the default on the FDA Reports.`
16	REPORTER STATE	RPT;6	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `DEC 01, 1992` DESCRIPTION: `This field contains the default state to be used on the FDA reports.`
17	REPORTER ZIP	RPT;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `This field contain the default Zip Code to be used on the FDA reports.`
18	REPORTER PHONE	RPT;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<7) X` LAST EDITED: `DEC 01, 1992` HELP-PROMPT: `Answer must be 7-20 characters in length.` DESCRIPTION: `This field contains the default phone number to be used on the FDA reports.`
19	OCCUPATION	RPT;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 10, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the reporter's occupation.`
21	*CONVERSION OF NKA	CONNKA;1	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `DEC 12, 1995` DESCRIPTION: `This field indicates if the NKA conversion is complete. ATS 3.0 will not install onto a system that has ATS Version 2.2 if this field is not set.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(120.84	11+1, 11OF9.2+1
^GMRD(120.84 - [#120.84]	.01LAYGO1+1, .01(XREF 1S), .01(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	11OF9.3+1*
D	11(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K)
DIC	11(HELP ), 11OF9.2+1~*
DIC(0	11(HELP ), 11OF9.2+1*
DICR	11OF9.2+1~
DIX	11OF9.2+1~
DO	11(HELP ), 11OF9.2+1~
>> DTOUT	11OF9.2+1
>> DZ	11(HELP )
GMRAHLPX	11OF9.3+1*!
U	11OF9.2+1
X	.01+1!, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), 5+1!, 5.1+1!, 8+1!, 8.1+1!, 11+1!, 11OF9.2+1* , 11OF9.3+1*, 12+1!, 13+1!, 14+1!, 15+1!, 17+1!, 18+1!, 19+1!
>> Y	11OF9.2+1, 11OF9.3+1

Customize PDF page

Package: Adverse Reaction Tracking

Global: ^GMRD(120.84

Information

Description

Directly Accessed By Routines, Total: 29

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 30

Found Entries, Total: 1

ICR, Total: 1

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
EN^DDIOL	.01LAYGO1+1, 11OF9.3+1
^DIC	11OF9.2+1
YN^DICN	11OF9.3+1
DQ^DICQ	11(HELP )