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

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    VALUES    ^ORD(101.45    SPECIMEN    

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