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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORCMENU1

Package: Order Entry Results Reporting

Routine: ORCMENU1


Information

ORCMENU1 ;SLC/MKB-Add Orders cont ;2/7/97 15:41

Source Information

Source file <ORCMENU1.m>

Entry Points

Name Comments DBIA/ICR reference
ORDCHK ; -- Order Checking [called from ORCSIGN]
; Returns ORQUIT=1 if ^ or timeout
OC1
OC2
LOCATION(ORQ,ORB,ORS) ; -- Returns patient location
; Optional: ORQ = 1 if not required
; ORB = Default value in vptr format
; ORS = String of location types to allow
LOC1
PROVIDER(ASK) ; -- Return ordering provider [ASK=1: force prompting]
P
PQ
SPEC(EVENT) ; -- Return treating specialty
CHANGE ; -- Change location and/or provider

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Unsigned orders with order checks:"
  • Line Location: ORDCHK+4
Function Call: WRITE
  • Prompt: !!,$J(ORY,3)_". "_$G(ORTX(1))_$S($O(ORTX(1)):" ...",1:"")
  • Line Location: ORDCHK+7
Function Call: WRITE
  • Prompt: !?10,"... orders cancelled.",!
  • Line Location: OC1+7
Function Call: WRITE
  • Prompt: !!,"Critical order checks remain that require a justification."
  • Line Location: OC2+1
Function Call: WRITE
  • Prompt: $C(7),!,"This location is inactive!"
  • Line Location: LOC1+1
Function Call: WRITE
  • Prompt: !,"Requesting CLINICIAN: "_$P($G(^VA(200,Y,0)),U)
  • Line Location: PROVIDER+4
Function Call: WRITE
  • Prompt: $C(7),!,"This provider is no longer active!"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !!,"You are not allowed to choose yourself as the Requesting Clinician",!
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !!,"There are new orders for this patient from the current location or provider!"
  • Line Location: CHANGE+2
Function Call: WRITE
  • Prompt: !!,"NOTE: You may now select a new ordering location and/or provider."
  • Line Location: CHANGE+5
Function Call: WRITE
  • Prompt: !,"===== These changes will remain in effect until the chart is closed unless",!," these values are changed again!",!,$C(7)
  • Line Location: CHANGE+6
Function Call: WRITE
  • Prompt: !?10,"... "_$S(ORCHNGD:"changes now effective!",1:"nothing changed!")
  • Line Location: CHANGE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] Classic Fileman Calls
^DIC(45.7 - [#45.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call