Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^ORD(101.45

Package: Order Entry Results Reporting

Global: ^ORD(101.45

Information

FileMan FileNo	FileMan Filename	Package
101.45	AP DIALOG CONFIG	Order Entry Results Reporting

Description

This file contains the information for the configuration of the AP Dialog for CPRS for AP ordering. There is one AP Dialog form which can be reused for any orderable item for AP. This configuration will allow for control over default values, the ability to find controls/prompts, and to build prompt assistance elements (builder blocks) that aid the user in populating the specimen description or word processing fields such as clinical history.

Directly Accessed By Routines, Total: 16

Package	Total	Routines
Order Entry Results Reporting	12	BUILDER BLOCK ORACCES2 ORAPDLG ORDER PROMPTS ORWLRAP1 ORWLRAP2 ORY569 PAGES PARAMETER SPECIMEN VALUES ^ORD(101.45

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Order Entry Results Reporting	2	ORWLRAP1 ORY569

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Lab Service	2	TOPOGRAPHY FIELD(#61)[#101.453(.01)] COLLECTION SAMPLE(#62)[#101.453(2.2)]
Order Entry Results Reporting	1	ORDERABLE ITEMS(#101.43)[.04]

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$G(ORAPDLGEDIT)!($L(X)>72!($L(X)<2)) X` `MAXIMUM LENGTH: 72` LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `Answer must be 2-72 characters in length.` DESCRIPTION: `The name field is set automatically to match the name of the orderable item.` EXECUTABLE HELP: `I $G(ORAPDLGEDIT) W " You may not edit the name."` CROSS-REFERENCE: `^^TRIGGER^101.45^.05` `1)= X ^DD(101.45,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101.45,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV N DIERR S X=+$$EXTERNAL^DIDU(101.45,.05,"",DIU) X ^DD(101.45,.01,1,1,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X N DIERR S Y(1)=$S($D(^ORD(101.45,D0,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(101.45,.05,"",$P(Y(1),U,5))=""` `1.4)= S DIH=$G(^ORD(101.45,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=101.45,DIG=.05 D ^DICR` `2)= Q` `3)= You cannot change this field.` `CREATE CONDITION)= NATIONAL STANDARD=""` `CREATE VALUE)= +NATIONAL STANDARD` `DELETE VALUE)= NO EFFECT` `FIELD)= NATIONAL STANDARD` `NOREINDEX)= 0` `Sets the NATIONAL STANDARD field to NO if it's not already set.` FIELD INDEX: `B (#1339) REGULAR IR LOOKUP & SORTING` `Short Descr: B Cross Reference` `Description: This is the B cross reference redone as a new style cross reference.` `Set Logic: S ^ORD(101.45,"B",$E(X,1,72),DA)=""` `Kill Logic: K ^ORD(101.45,"B",$E(X,1,72),DA)` `Whole Kill: K ^ORD(101.45,"B")` `X(1): NAME (101.45,.01) (Subscr 1) (Len 72) (forwards)`
.02	ALLOW OTHER SPECIMENS	0;2	SET	'0' FOR FALSE; '1' FOR TRUE; LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `Select TRUE to allow users to enter any specimen for this orderable item configuration.` DESCRIPTION: `By allowing the item of 'OTHER' to display as a choice in the specimen selection you will be allowing the user to select any entry from file 61 as a specimen for the selected orderable item. If there are no default` `specimens configured then 'OTHER' will display regardless of the value stored here.`
.03	RESTRICT MULTIPLE SPECIMEN	0;3	SET	'0' FOR FALSE; '1' FOR TRUE; LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `For multi specimen orders select TRUE to force the user in selecting multiple specimens of the same specimen.` DESCRIPTION: `When an orderable item is assigned multiple specimens it will, when this field is true, hide all other specimens when the user selects one specimen from the list. When this happens the down arrow for the combobox in the` `GUI is changed to a plus sign "+" meaning that the user can only add a duplicate specimen to the order rather than the others in this configuration. In order to change the currently selected specimen the user would need to` `delete all selections. Likewise, when this field is not set the user will be allowed to associate all configured specimens with their order.`
.04	ORDERABLE ITEM	0;4	POINTER TO ORDERABLE ITEMS FILE (#101.43)	**********************REQUIRED FIELD********************** ORDERABLE ITEMS(#101.43) INPUT TRANSFORM: `S DIC("S")="I $$OK4CPRS^ORWLRAP1(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `MAR 15, 2022` HELP-PROMPT: `Select an orderable item associated with a surgical pathology, cytology, or electron microscopy type lab test.` DESCRIPTION: `This is the laboratory orderable item defined by the screen as being associated with a surgical pathology, cytology, or electron microscopy lab test.` SCREEN: `S DIC("S")="I $$OK4CPRS^ORWLRAP1(Y)"` EXPLANATION: `Only orderable items associated with a lab test that is mapped to a LR CPRS PARAMETERS entry (via the CPRS SCREEN field).` FIELD INDEX: `AOI (#1338) MUMPS IR ACTION` `Short Descr: Update Name Field` `Description: This cross reference updates the NAME Field (#.01) with the name of the orderable item.` `Set Logic: D SETNAME^ORAPDLG(DA,X1,X2)` `Kill Logic: D KILLNAME^ORAPDLG(DA,X1,X2)` `X(1): ORDERABLE ITEM (101.45,.04) (forwards)` FIELD INDEX: `C (#1625) REGULAR IR LOOKUP & SORTING` `Unique for: Key A (#148), File #101.45` `Short Descr: Uniqueness Index for Key 'A' of File #101.45` `Description: This index is on the Orderable Item field.` `Set Logic: S ^ORD(101.45,"C",X,DA)=""` `Kill Logic: K ^ORD(101.45,"C",X,DA)` `Whole Kill: K ^ORD(101.45,"C")` `X(1): ORDERABLE ITEM (101.45,.04) (Subscr 1)`
.05	NATIONAL STANDARD	0;5	SET (BOOLEAN Data Type)	Indicates this anatomic pathology order dialog is a national standard and should not be modified, since it is subject to being changed by future patches. LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `Enter YES if the anatomic pathology order dialog is a national standard.` DESCRIPTION: `Indicates this anatomic pathology order dialog is a national standard and should not be modified, since it is subject to being changed by future patches.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `TRIGGERED by the NAME field of the AP DIALOG CONFIG File`
.06	INACTIVE	0;6	SET (BOOLEAN Data Type)	When set to Yes this order dialog will not be available in CPRS. LAST EDITED: `FEB 24, 2022` HELP-PROMPT: `Enter YES if you want to prevent this dialog from showing in CPRS.` DESCRIPTION: `When set to Yes this order dialog will not be available in CPRS.`
1	ORDER PROMPTS	1;0	SET Multiple #101.451	101.451 LAST EDITED: `FEB 24, 2022` DESCRIPTION: `Order Prompts refer to fields originally part of the Laboratory Order Dialog and have logic associated to them outside of AP.`
2	PAGES	2;0	Multiple #101.452	101.452 DESCRIPTION: `A page represents a word processing field for the order. Each page must be labeled (PAGE NAME) and have a RESPONSE ID. If no additional configuration is provided then it will just be a word processing field; otherwise,` `builder blocks can be created to assist with populating the word processing field.`
3	SPECIMEN	3;0	POINTER Multiple #101.453	101.453 DESCRIPTION: `When a specimen is added here you will be able to add builder blocks to it to assist the user in creating a specimen description. These specimen will be the only specimen selectable for this order unless 'Other' has been` `allowed. Additionally, if there are no specimen here then the user will be presented with 'Other' in which they can associate any specimen to this orderable item.` INDEXED BY: `SPECIMEN (S)`
4	PROMPT CHANGE MESSAGE	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `JUL 13, 2022` HELP-PROMPT: `Type a response of 1-245 characters that will be displayed to the user as a warning message when a specimen builder block is set to change the value of an ORDER PROMPTS control.` DESCRIPTION: `The 'PROMPT MESSAGE' is displayed when a specimen builder block is set to change an order prompt value. When this happens you have the option to notify the user of this change. There are three values that you will have` `access to that can be used in your message: cType = the order prompt such as URGENCY, oVal = the value of the order prompt before the change, and nVal = is the value of the order prompt after the change, this value is also` `provided because it could be that the intended change was unsuccessful, thus nVal <> the value to change to even if it does. You can include line breaks by using characters 13,10.`

Found Entries, Total: 14

NAME: DEFAULT	NAME: BONE MARROW	NAME: BRONCHIAL BIOPSY	NAME: BRONCHIAL CYTOLOGY	NAME: DERMATOLOGY	NAME: FINE NEEDLE ASPIRATE	NAME: GASTROINTESTINAL ENDOSCOPY	NAME: GENERAL FLUID
NAME: GYNECOLOGY (PAP SMEAR)	NAME: RENAL BIOPSY	NAME: TISSUE EXAM	NAME: URINE	NAME: UROLOGY,PROSTATE	NAME: UROLOGY,BLADDER/URETER

External References

Name	Field # of Occurrence
^DIC	.04+1
^DICR	.01(XREF 1n1.4)
$$EXTERNAL^DIDU	.01(XREF 1S), .01(XREF 1n1.3)
KILLNAME^ORAPDLG	IXAOIKL+1
SETNAME^ORAPDLG	IXAOISL+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(101.45	.01(XREF 1S)
^ORD(101.45 - [#101.45]	IXBSL+1, IXBKL+1!, IXBKEIC+1!, IXCSL+1, IXCKL+1!, IXCKEIC+1!, .01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)

Naked Globals

Name	Field # of Occurrence
^(0	.01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.01(XREF 1S), .01(XREF 1n1.3)
>> DA	IXAOISL+1, IXAOIKL+1, IXBSL+1, IXBKL+1, IXCSL+1, IXCKL+1, .01(XREF 1n1.3)
DIC	.04+1!*
DIC("S"	.04+1, .04SCR+1
>> DIE	.04+1
DIERR	.01(XREF 1S), .01(XREF 1n1.3)
>> DIG	.01(XREF 1n1.4)
>> DIH	.01(XREF 1n1.4)
>> DIU	.01(XREF 1S)
DIV	.01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)
DIV(0	.01(XREF 1n1.3), .01(XREF 1n1.4)
>> ORAPDLGEDIT	.01+1, .01(HELP )
U	.01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4)
X	IXBSL+1, IXBKL+1, IXCSL+1, IXCKL+1, .01+1!, .01(XREF 1S), .01(XREF 1n1.3), .01(XREF 1n1.4), .04+1*!, 4+1!
>> X1	IXAOISL+1, IXAOIKL+1
>> X2	IXAOISL+1, IXAOIKL+1
Y	.01(XREF 1S), .04+1
Y(0	.01(XREF 1n1.3)
Y(1	.01(XREF 1S), .01(XREF 1n1.3)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All