Global: ^ORAM(103

FileMan FileNo	FileMan Filename	Package
103	ORAM FLOWSHEET	Order Entry Results Reporting

Package	Total	Routines
Order Entry Results Reporting	15	FS DATE ORAM ORAM NEXT LAB SORT ORAM1 ORAM2 ORAM3 ORAMSET ORAMTTR ORAMX ORAMX1 ORP351 ORWOR ORY354 PARAMETER ^ORAM(103

Package	Total	Routines
Order Entry Results Reporting	5	ORAM1 ORAM2 ORAMTTR ORAMX ORP351

Package	Total	FileMan Files
Order Entry Results Reporting	1	OE/RR LIST(#100.21)[102]
Registration	1	PATIENT(#2)[.01]
Scheduling	1	HOSPITAL LOCATION(#44)[101]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	PATIENT(#2) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAY 22, 2003` DESCRIPTION: `Patient DFN from file 2` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `103^B` `1)= S ^ORAM(103,"B",$E(X,1,30),DA)=""` `2)= K ^ORAM(103,"B",$E(X,1,30),DA)`
1	GOAL INR	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAY 20, 2003` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `Stores the INR GOAL RANGE set by the user in the ANTICOAGULATOR. Contains a free text range, like: 2.0-3.0`
2	INDICATION	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JUL 28, 2004` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `Stores indication set in the Anticoagulator and ICD9 code for the indication. Example: A Flutter=427.32`
3	NEXT LAB	0;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 13, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Fileman date of the next scheduled INR draw.` CROSS-REFERENCE: `103^L` `1)= S ^ORAM(103,"L",$E(X,1,30),DA)=""` `2)= K ^ORAM(103,"L",$E(X,1,30),DA)` `3)= DO NOT DELETE ` `This REGULAR FileMan cross-reference on NEXT LAB will optimize both look-up and sorting by next lab date...`
4	START DATE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `MAR 08, 2004` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `Date patient was started in Anticoagulation clinic; in free text format (request from the field); contains whatever the operator entered. example: 09/26/08 example: unknown`
5	STOP DATE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `AUG 14, 2003` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `Date patient was stopped OR expected to be stopped from needing followup in Anticoagulation clinic; in free text format (request from the field); contains whatever the operator entered. example: 09/26/08 example:` `indefinite`
6	DURATION	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JUL 28, 2004` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `Expected length of time patient will be followed in Anticoagulation clinic. Example: 6 months`
7	SPECIAL INSTRUCTIONS	1;0	WORD-PROCESSING #103.07	DESCRIPTION: `Word processing set of special instrections inputted into the Anticoagulator. Visible in the Anticoagulator and in the Header of the flow sheet on the REPORTS tab.` LAST EDITED: `NOV 13, 2003`
8	RISK FACTORS	2;0	WORD-PROCESSING #103.08	DESCRIPTION: `Word processing set of risk factors inputted into the Anticoagulator. Visible in the Anticoagulator and in the Header of the flow sheet on the REPORTS tab.` LAST EDITED: `MAY 20, 2003`
9	SIGNED AGREEMENT	0;8	SET	'Y' FOR yes; 'N' FOR no; LAST EDITED: `MAY 13, 2009` HELP-PROMPT: `Does the patient has a signed agreement for treatment?` DESCRIPTION: `Stores if patient has a signed agreement Y=yes; N or ""=No.`
10	ORIENTATION	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAY 13, 2009` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `Free text entry for date of orientation classs.`
11	FS DATE	3;0	DATE Multiple #103.011	103.011
15	COMPLEXITY	0;10	SET	'0' FOR STANDARD PT; '1' FOR COMPLEX PT; '2' FOR INACTIVE PT; LAST EDITED: `AUG 15, 2003` DESCRIPTION: `INDICATES IF PATIENT IS CURRENTLY COMPLEX, STANDARD OR INACTIVE`
25	MSG-PHONE	0;11	SET	'0' FOR NOT ASKED; '1' FOR NO MSGS; '2' FOR OK MSG; LAST EDITED: `JUN 12, 2003` DESCRIPTION: `PT PRIVACY ISSUE; indicates if pt approved leaving of msg on phone answering machine.`
35	MSG WITH	4;0	WORD-PROCESSING #103.035	DESCRIPTION: `If patient allows leaving of anticoagulation messages with others at his/her phone number, this indicates WHO is allowed to receive the messages.` LAST EDITED: `JUN 12, 2003` DESCRIPTION: `NAMES OF PEOPLE WHO MAY ANSWER PT PHONE IN WHICH IT IS OK TO LEAVE ANTICOAGULATION INFORMATION WITH.`
45	AM MEDS	0;12	SET	'0' FOR PM MEDS; '1' FOR AM MEDS; '2' FOR UNKNOWN; LAST EDITED: `JUN 12, 2003`
55	SAVE STATUS	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAY 13, 2009` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `Indicates if this entry is complete ("SAVE") or incomplete ("TEMPSAVE").`
60	FEE BASIS	0;14	SET	'0' FOR NO; '1' FOR PRIMARY; '2' FOR SECONDARY; LAST EDITED: `AUG 21, 2003` DESCRIPTION: `**Not in use for export version; here for legacy systems***` `RECORDS IF FEE BASIS IS AUTHORIZED AND IF PRIMARY OR SECONDARY STATUS`
65	FEE BASIS EXPIRATION	0;15	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 21, 2003` DESCRIPTION: `**Not in use for export version; here for legacy systems***` `DATE WHICH FEE BASIS QUALIFICATION EXPIRES AND NEEDS TO BE REASSESSED.`
70	FEE BASIS EVALUATED BY	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 21, 2003` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `**Not in use for export version; here for legacy systems***` `PERSON WHO EVALUATED PATIENT FOR FEE BASIS`
75	OUTSIDE LAB	0;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 29, 2008` DESCRIPTION: `***Note in use for exported version*****************` `expiration date for outside lab agreement.`
80	Reminder Date	0;18	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 28, 2004` DESCRIPTION: `If reminder is set; this is the first date it will begin to appear when the Anticoagulator is accessed. It is only viewable in the Anticoagulator.`
85	REMINDER	5;0	WORD-PROCESSING #103.085	DESCRIPTION: `Free text item to remind person who is accessing the Anticoagulator on a specific patient that something needs to be done. Will only appear at or after the reminder date (field 80). example: "CBC due"` LAST EDITED: `JUL 26, 2004`
90	LOCK	0;19	SET	'0' FOR OPEN; '1' FOR LOCKED; LAST EDITED: `AUG 23, 2004` DESCRIPTION: `IF 1; CHART IS IN USE BY SOMEONE ELSE.`
91	NEXT DAY CALLBACK	0;20	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 02, 2009` DESCRIPTION: `This Boolean field indicates whether the Clinician should wait until the day after the next INR Draw to call the patient.`
95	RESTRICT LAB DRAWS	6;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `APR 27, 2006` HELP-PROMPT: `Answer must be 1-5 characters in length.` DESCRIPTION: `Indicates days the patient does not want lab drawn. Represented by a string, example: 135 means Mon,Wed,Friday`
101	CLINIC	6;2	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $$GOODLOC^ORAMSET(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 23, 2009` HELP-PROMPT: `Enter the Clinic which is following the patient.` DESCRIPTION: `Clinic which is currently following the patient.` `Clinic determines many of the parameters which will determine the behavior of the Anticoagulation Management Application (e.g., Team List membership, Letterhead values, Visit locations for PCE, etc.). If clinic is` `missing, it will be assigned when the user files the first flowsheet entry.` SCREEN: `S DIC("S")="I $$GOODLOC^ORAMSET(Y)"` EXPLANATION: `Only active clinics may be selected.` CROSS-REFERENCE: `103^CL` `1)= S ^ORAM(103,"CL",$E(X,1,30),DA)=""` `2)= K ^ORAM(103,"CL",$E(X,1,30),DA)` `3)= DO NOT DELETE! ` `This REGULAR whole-file cross-reference by Clinic location allows look-up and sorting of patients who are being followed by any particular clinic.`
102	CMPLX	6;3	POINTER TO OE/RR LIST FILE (#100.21)	OE/RR LIST(#100.21) LAST EDITED: `SEP 20, 2008` DESCRIPTION: `THIS FIELD IS NOT IN USE AT THIS TIME.`
110	OUTSIDE HCT	6;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 20, 2008` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `Outside HCT lab value, entered by the pharmacist through the GUI, is stored here in the following format: value \| DATE date is not in fileman format example: 21.6\|9/19/2008`
111	ELIGIBLE FOR LMWH BRIDGING	6;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 01, 2009` HELP-PROMPT: `Indicate whether patient is eligible for LMWH Bridging.` DESCRIPTION: `Please indicate whether the patient is eligible for perioperative Low Molecular Weight Heparin bridging.`
112	BRIDGING COMMENTS	7;0	WORD-PROCESSING #103.0112	LAST EDITED: `MAY 01, 2009` HELP-PROMPT: `Enter comments pertaining to LMWH Bridging.` DESCRIPTION: `Enter any relevant information pertaining to the LMWH Bridging to be used for this patient.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	3+1, 65+1, 75+1, 80+1
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 101(XREF 1S), 101(XREF 1K)
DIC	101+1!*
DIC("S"	101+1, 101SCR+1
>> DIE	101+1
>> DINUM	.01+1*
X	.01+1, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 4+1!, 5+1! , 6+1!, 10+1!, 55+1!, 65+1!, 70+1!, 75+1!, 80+1!, 95+1!, 101+1*!, 101(XREF 1S) , 101(XREF 1K), 110+1!
>> Y	3+1, 65+1, 75+1, 80+1, 101+1

Customize PDF page

Package: Order Entry Results Reporting

Global: ^ORAM(103

Information

Description

Directly Accessed By Routines, Total: 22

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 3

Fields, Total: 31

External References

Global Variables Directly Accessed

Local Variables

Legend: