Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ORCB

Package: Order Entry Results Reporting

Routine: ORCB


Information

ORCB ;SLC/MKB-Notifications followup for LMgr chart ; Apr 20, 2023@17:45

Source Information

Source file <ORCB.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Order Entry Results Reporting 12 $$ONEHR^ORACCESS  DEL^ORB3FUP1  (EDIT,RENEW)^ORCACT  MSG^ORCFLAG  ($$MSG,DESELECT,EXIT,SELECT,TAB)^ORCHART  ORDER^ORCMENU  ($$LOCATION,$$PROVIDER)^ORCMENU1  NOTIF^ORCMENU2  
EN^ORCSIGN  (EN1,INIT)^ORCXPND  SLCT1^ORQPT  ($$LOCK,UNLOCK)^ORX2  
Kernel 3 ($$FMADD,$$NOW)^XLFDT  $$LJ^XLFSTR  EN^XQORM  
List Manager 2 (EN,SHOW)^VALM  ($$LOWER,FULL)^VALM1  
VA FileMan 2 YN^DICN  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Order Entry Results Reporting 9 ORB3FUP1  ORB3FUP2  ORC SELECT ALL  ORCB ACTIONS  ORCB DELETE ALERT  ORCB NEW ORDER  ORCB NOTIFICATIONS  ORCB RENEW ORDER  
ORCB REPLACE ORDER  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,ORFLG,DGRP,DEL) ; -- main entry point
INIT ; -- init variables and list array
HELP ; -- help code
PHDR ; -- protocol menu header code
SELECT ; -- process selected order(s)
SQ
UNFLAG ; -- Unflag orders
EN1(ORIFN,ACTION) ; -- entry point to display single order
NEW ; -- Add new order as follow-up action
NWQ
EDIT ; -- Edit order as follow-up action
RENEW ; --Renew order as follow-up action
SIGN ; -- Sign new order
EXIT ; -- exit action
ACTIONS ;;KEY;NAME
ALL ; -- Select ALL orders
FINDLOC() ; -- Loop through orders in alert to find assigned location
DELETE ; -- Delete current alert
D1

External References

Name Field # of Occurrence
YN^DICN D1
^DIR ALL+3
$$ONEHR^ORACCESS EN+11
DEL^ORB3FUP1 D1+5
EDIT^ORCACT EDIT+2
RENEW^ORCACT RENEW+2
MSG^ORCFLAG UNFLAG+8
$$MSG^ORCHART PHDR+2
DESELECT^ORCHART SQ
EXIT^ORCHART EXIT+9
SELECT^ORCHART SELECT+2
TAB^ORCHART INIT+1, SELECT+10
ORDER^ORCMENU NEW+8
$$LOCATION^ORCMENU1 NEW+4
$$PROVIDER^ORCMENU1 NEW+3
NOTIF^ORCMENU2 NEW+9, EDIT+3, RENEW+3
EN^ORCSIGN SIGN+4
EN1^ORCXPND EN1+5
INIT^ORCXPND RENEW+5
SLCT1^ORQPT EN+2
$$LOCK^ORX2 NEW+2
UNLOCK^ORX2 NWQ, EDIT+6, RENEW+7
EN^VALM EN+15
SHOW^VALM PHDR+2
$$LOWER^VALM1 PHDR+9
FULL^VALM1 NEW+8
$$FMADD^XLFDT EN+6, EN+9
$$NOW^XLFDT EN+6, EN+9
$$LJ^XLFSTR INIT+4
EN^XQORM SELECT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Site has migrated to Electronic Health Record."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"CPRS List Manager access not allowed."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"Enter the display numbers of the orders you wish to act on;"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"select either DT for a detailed listing of information about each"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"order, or the desired action. Enter Q to exit."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!,"ERROR"
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: !!,PRMT,!,"Are you sure"
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: !,"Nothing deleted."
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !!,"This action will delete the alert you are currently processing; the alert will",!,"disappear automatically when all orders have been acted on, but this action may",!,"be used to remove the alert if some orders are to be left unchanged."
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !,"Press <return> to continue ..."
  • Line Location: D1+4
Function Call: WRITE
  • Prompt: !,"Removing alert ..."
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: " done."
  • Line Location: D1+6
Function Call: WRITE
  • Prompt: " unable to delete alert."
  • Line Location: D1+7
Routine Call
  • DIR
  • Line Location:
    • ALL+3
Routine Call
  • VALM
  • Line Location:
    • EN+15
Routine Call
  • VALM
  • Line Location:
    • PHDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] EN+8
^DPT - [#2] EN+8
^OR(100 - [#100] UNFLAG+6, UNFLAG+7, EN1+1, EN1+3, NEW+5, FINDLOC+2
^ORD(100.98 - [#100.98] EN+3
^ORD(101 - [#101] PHDR+4, PHDR+7, PHDR+8, PHDR+9, SELECT+5, SELECT+9
^ORD(101.41 - [#101.41] NEW+6
^TMP("OR" EN+10*, INIT+2, INIT+4*, PHDR+3, PHDR+9, SELECT+3, UNFLAG+4, EN1+6!, SIGN+3*, SIGN+4!
, ALL+2, FINDLOC+2
^TMP("ORNEW" NEW+1!, NEW+9, NEW+10!, EDIT+1!, EDIT+5!, RENEW+1!, RENEW+6!, SIGN+3
^TMP("ORXPND" EN1+4*, EN1+6!, NEW+5, EDIT+4*, RENEW+4*, RENEW+5!

Label References

Name Line Occurrences
$$FINDLOC PHDR+10
D1 D1+2
NWQ NEW+3, NEW+4, NEW+6
SIGN NEW+9, EDIT+3, RENEW+3
SQ SELECT+6, SELECT+8
UNFLAG SELECT+10

Naked Globals

Name Field # of Occurrence
^( UNFLAG+6, FINDLOC+2
^(20 SELECT+9
^(3 UNFLAG+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DELETE+1~, D1*, D1+1, D1+2
%Y DELETE+1~
ACTION EN1~, EN1+2, EN1+4
ADM EN+8~*, EN+9
BEG EN+2~, EN+4*, EN+5*, EN+6*, EN+9*, EN+10
CNT SIGN+1~, SIGN+2*, SIGN+3*, SIGN+4
DEL EN~, D1+6*
DFN EN~, EN+1, EN+8, EN1+3*, EN1+5
DGRP EN~, EN+3*, EN+10
DIR ALL+1~
DIR("V" ALL+3*
DIR(0 ALL+3*
DT EN+5
DTIME HELP+5, D1+4
DUZ UNFLAG+7
END EN+2~, EN+4*, EN+6*, EN+9*, EN+10
I INIT+3~, INIT+4*, PHDR+1~, PHDR+7*
IFN NEW+1~, NEW+5*, NEW+6
MAX ALL+1~, ALL+2*, ALL+3
MENU SELECT+1~, SELECT+4*, SELECT+5
NUM PHDR+1~, PHDR+3*, PHDR+4, UNFLAG+1~, UNFLAG+3*, UNFLAG+4
ORA UNFLAG+1~, UNFLAG+5*, UNFLAG+7, UNFLAG+8
ORDEF PHDR+1~, PHDR+6*
OREBUILD PHDR+1!, SELECT+1~, SELECT+10, EDIT+1~, EDIT+2, RENEW+1~, RENEW+2
ORFLG EN~, EN+1, EN+4, EN+7, EN+10, INIT+3, PHDR+5, PHDR+6, SELECT+3*, SELECT+4
, SELECT+10, DELETE+2
ORI PHDR+1~, PHDR+5*, PHDR+7, UNFLAG+1~, UNFLAG+3*, FINDLOC+1~*, FINDLOC+2*
ORIFN UNFLAG+1~, UNFLAG+4*, UNFLAG+5*, UNFLAG+6, UNFLAG+7, UNFLAG+8, EN1~, EN1+1, EN1+3, EN1+4
, EN1+5, SIGN+1~, SIGN+2*, SIGN+3*, FINDLOC+1~, FINDLOC+2*
ORIG NEW+1~, NEW+5*
>> ORL PHDR+10*, NEW+4*
ORNMBR PHDR+1!, SELECT+1~, SELECT+2*, SQ, UNFLAG+3, SIGN+1~, SIGN+2*, SIGN+3*, ALL+4*
ORNP NEW+1~, NEW+3*
>> ORPNM DELETE+2
ORPTLK NEW+1~, NEW+2*
ORTAB INIT+1*, INIT+2, SELECT+10, SIGN+1~, SIGN+2*
>> ORVP NEW+2, NWQ, EDIT+6, RENEW+7
ORX UNFLAG+1~, UNFLAG+2*, UNFLAG+6, FINDLOC+2*
ORY SELECT+1~, SELECT+8*, FINDLOC+1~*, FINDLOC+2*, FINDLOC+3
ORY(1 SELECT+9, UNFLAG+2
PRMT DELETE+1~, DELETE+2*, D1
TYPE NEW+1~, NEW+6*
U EN+3, EN+8, PHDR+3, PHDR+9, SELECT+3, SELECT+9, UNFLAG+2, UNFLAG+4, UNFLAG+6, UNFLAG+7
, EN1+2, EN1+3, EN1+4, NEW+2, NEW+5, NEW+6, EDIT+4, RENEW+4, ALL+2, FINDLOC+2
>> VALMBCK HELP+1*, SELECT+1*, SELECT+9*, NEW+1*, NEW+3*, NEW+10*, EDIT+5*, RENEW+6*, DELETE+1*, D1+6*
>> VALMCNT INIT+2
>> VALMSG PHDR+2*
X INIT+3~*, INIT+4, HELP+1~, HELP+5*, PHDR+1~, PHDR+7*, PHDR+9*, UNFLAG+1~, UNFLAG+7*, UNFLAG+8*
, ALL+1~, ALL+2*, DELETE+1~, D1+4*
>> XQAID EN+5, D1+5
XQAKILL DELETE+1~*
XQORM SELECT+1~, SELECT+5*, SELECT+6
XQORM("#" PHDR+4*
XQORM("A" SELECT+7*
XQORM("B" PHDR+9*
XQORM("KEY" PHDR+7*, PHDR+8*, PHDR+9*
XQORM(0 SELECT+7*
>> XQORNOD(0 SELECT+2
Y SELECT+1~, SELECT+8, ALL+1~, ALL+2*, ALL+4, DELETE+1~, D1+5, D1+6

Marked Items

Name Field # of Occurrence
$T(ACTIONS+$PIECE^2;4(5) PHDR+7
$T(ACTIONS+ORDEF PHDR+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All