Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: ORWLRAP1

Package: Order Entry Results Reporting

Routine: ORWLRAP1


Information

ORWLRAP1 ;DSS/TFF - LAB ANATOMIC PATHOLOGY CONFIGURATION SUPPORT ;Feb 16, 2024@14:39

Source Information

Source file <ORWLRAP1.m>

Entry Points

Name Comments DBIA/ICR reference
GETIEN(IDX) ; Get the 101.45 IEN from the orderable item IEN
CONFIG(RET,TYP,IEN) ; RPC: ORWLRAP1 CONFIG
; *This configures the Delphi forms for CPRS aside from the original elements found
; in the Lab order dialog.
DEFAULT(TYP) ; Set Default Configuration
; *RET
; *** ORDER ELEMENTS
; O^ID^HIDE(1,0)^REQUIRED(1,0)^DEFAULT_VALUE
SPEC(RET,IEN) ; RPC: ORWLRAP1 SPEC
; *This returns the default specimen list.
SPEC1() ; Lab list of specimens for this test
NRQ(RQ,NM) ; Add * to name if required
VWL(ND0,ND1,IENS) ; Add value list as pipe delimited string
EXT(PC) ; Extend Value
END ; Clean Up
APOITEMS(Y,QOCALL,SHOWALL,CODE,NATFLAG,ACCESS) ; Subset of AP orderable items
; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
; QOCALL = Allow quick orders
; SHOWALL = Show inactive entries
; CODE: 0 = List only entries already in File 101.45
; 1 = List only entries not already in File 101.45
; NATFLAG = Add National Standard flag as piece 4 of the data
; ACCESS - List of allowed display groups
OK4CPRS(ORDITEM,QUICK) ; Determines if an orderable item is allowed for AP Dialogs
; Also used as a screen by the LR OTHER LAB AP TESTS order dialog
APORDITM(Y,QOCALL,ACCESS) ; Subset of AP orderable items
APDLGS ; Update AP Order Dialogs - Entry point for Option ORCM UPDATE AP DIALOGS
GETAPIENS() ;
ADDACTION(ACTION) ; Add Action Text to TEXT
ADD(TEXT,TEXT2,PREFIX) ; Add TEXT2 to TEXT, insert PREFIX between the two if TEXT '= ""
GETATXT(ACTION) ; Get Action Text
ADDQ(TEXT) ; Add TEXT to DIR("?",INDEX) or RESULT
ADDDESC(ACTION) ; Get action description

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Update Anatomic Pathology Order Dialogs",!
  • Line Location: APDLGS+4
Function Call: WRITE
  • Prompt: !,"Orderable Item not found!",!
  • Line Location: APDLGS+14
Function Call: WRITE
  • Prompt: !,"Error creating new entry. Please try again later."
  • Line Location: APDLGS+22
Function Call: WRITE
  • Prompt: !,"Before you can copy existing anatomic pathology order dialogs,"
  • Line Location: GETAPIENS+9
Function Call: WRITE
  • Prompt: !,"or create new order dialogs, you must work with your laboratory"
  • Line Location: GETAPIENS+10
Function Call: WRITE
  • Prompt: !,"application coordinator to create new, active anatomic pathology"
  • Line Location: GETAPIENS+11
Function Call: WRITE
  • Prompt: !,"tests in the LABORATORY TEST File (#60) that are mapped to a"
  • Line Location: GETAPIENS+12
Function Call: WRITE
  • Prompt: !,"CPRS SCREEN.",!
  • Line Location: GETAPIENS+13
Function Call: WRITE
  • Prompt: !!,"Existing Anatomic Pathology Order Dialogs:",!!
  • Line Location: GETAPIENS+31
Function Call: WRITE
  • Prompt: ?1,IDX,?5,FLAG_$P(ITEM,U,2),!
  • Line Location: GETAPIENS+34
Function Call: WRITE
  • Prompt: !,"* Indicates a National Standard.",!
  • Line Location: GETAPIENS+35
Function Call: WRITE
  • Prompt: !," ",$P($G(OILIST(+$G(Y))),U,2),!
  • Line Location: GETAPIENS+40
Function Call: WRITE
  • Prompt: !!,"Anatomic Pathology Orderable Items not assigned to an Order Dialog:",!!
  • Line Location: GETAPIENS+44
Function Call: WRITE
  • Prompt: ?1,IDX,?5,$P(UNASSIGNED(IDX),U,2),!
  • Line Location: GETAPIENS+46
Function Call: WRITE
  • Prompt: !," ",$P($G(UNASSIGNED(+$G(Y))),U,2),!
  • Line Location: GETAPIENS+53
Function Call: WRITE
  • Prompt: !
  • Line Location: GETAPIENS+61

Used in RPC

RPC Name Call Tags
ORWLRAP1 CONFIG CONFIG
ORWLRAP1 SPEC SPEC
ORWLRAP1 APORDITM APORDITM

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101.43 - [#101.43] GET1^DIQ
^ORD(101.45 - [#101.45] Classic Fileman Calls
^LAB(62 - [#62] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All