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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORCDLG

Package: Order Entry Results Reporting

Routine: ORCDLG


Information

ORCDLG ;SLC/MKB-Order dialogs ; 08 May 2002 2:12 PM

Source Information

Source file <ORCDLG.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Order Entry Results Reporting 7 ($$EXT,$$NMSP,$$PTR)^ORCD  EN^ORCDLG1  (ACCEPT,DISPLAY,LIST)^ORCHECK  (EN,SET)^ORCSAVE  $$GETXT^ORCSAVE1  (ADMIN,AM,NEXT)^ORCSAVE2  ($$LOCK,UNLOCK)^ORDD41  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  EN^XQORM  
VA FileMan 3 ^%DT  ^DIK  ^DIR  
Pharmacy Data Management 1 $$ITEM^PSSUTIL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Order Entry Results Reporting 10 ORCACT  ORCACT4  ORCDLG1  ORCMED  ORCMEDT1  ORCMEDT3  ORCMENU  OREVNT  
ORORDDSC  ORWDXM2  

Entry Points

Name Comments DBIA/ICR reference
ADD1
ADD0
S2
S1
ANOTHER() ; -- Add another order?
DISPLAY ; -- Display new order on screen
SET ; -- prompt for new order set
MNQ
DATE(X) ; -- Returns resolved date
ACTIVE()
ORDER(ORDIALOG) ; -- Execute ORDIALOG, return ORIFN or ^ if unsuccessful
ITEM(P,I) ; -- Display each item in dialog
ADD ; -- prompt for new order
; Requires: ORDIALOG = Order Dialog ifn
; ORNP = Ordering Provider (ifn in #200)
; ORVP = Patient (vptr to #2)
; Optional: ORL = Patient Location (vptr to #44)
; ORTS = Treating Specialty (ifn in #45.7)
; ORSET = Order Set (ifn in #101.41, from SET)
; $$ORDER enters at ADD0 to be able to return ORIFN
CONT() ; -- continue w/set?
KVALUES ; -- kill ORDIALOG("ORDERABLE ITEM",#) value nodes
OK() ; -- Ready to save?
ADDQ
MENU ; -- prompt for menu
SQ
NOW() ; -- Returns current Date Ordered for new order
EN(ORDIALOG) ; -- process ORDIALOG
DIALOG ; -- loop through prompts in dialog

External References

Name Field # of Occurrence
^%DT DATE+4
^DIK S2+2
^DIR ANOTHER+4, CONT+4, OK+4
$$EXT^ORCD ITEM+2, ITEM+6
$$NMSP^ORCD ADD0+6
$$PTR^ORCD ACTIVE+3, ACTIVE+10
EN^ORCDLG1 DIALOG+4
ACCEPT^ORCHECK ADD1+2
DISPLAY^ORCHECK ADD0+10
LIST^ORCHECK DISPLAY+13
EN^ORCSAVE ADD1+13
SET^ORCSAVE SET+6
$$GETXT^ORCSAVE1 ITEM+7, ITEM+8
ADMIN^ORCSAVE2 DATE+3
AM^ORCSAVE2 DATE+2
NEXT^ORCSAVE2 DATE+2
$$LOCK^ORDD41 MENU+2
UNLOCK^ORDD41 MNQ+1
$$ITEM^PSSUTIL1 ACTIVE+13
$$FMTE^XLFDT DATE+4
$$NOW^XLFDT SET+6, NOW+2, ACTIVE+3
$$REPEAT^XLFSTR DISPLAY+2, DISPLAY+12
EN^XQORM MENU+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: $C(7),!!,MSG
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?10,"... orders cancelled.",!
  • Line Location: S2+3
Function Call: WRITE
  • Prompt: !!,$P(ORI,U,2)
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --"
  • Line Location: ORDER+4
Function Call: WRITE
  • Prompt: $C(7),!!,MSG
  • Line Location: ORDER+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid order dialog!"
  • Line Location: ORDER+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Invalid dialog - cannot place order!"
  • Line Location: ADD0+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Inactive orderable item(s) - cannot place order!"
  • Line Location: ADD0+7
Function Call: WRITE
  • Prompt: !!,"This release event has occurred since you started writing delayed orders."
  • Line Location: ADD1+4
Function Call: WRITE
  • Prompt: !,"The orders that were signed have now been released; this and any other"
  • Line Location: ADD1+5
Function Call: WRITE
  • Prompt: !,"unsigned orders will be released immediately upon signature. The Orders"
  • Line Location: ADD1+6
Function Call: WRITE
  • Prompt: !,"tab will be refreshed in the Active Orders view when finished."
  • Line Location: ADD1+7
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: ADD1+9
Function Call: WRITE
  • Prompt: !?10,"... order cancelled.",!
  • Line Location: ADD1+12
Function Call: WRITE
  • Prompt: !?10,"... ERROR - unable to place order.",!
  • Line Location: ADD1+14
Function Call: WRITE
  • Prompt: !?10,"... order placed.",!
  • Line Location: ADD1+17
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",79)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,$J(TITLE,30)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: $E($G(^TMP("ORWORD",$J,PROMPT,I,1,0)),1,40)_$S($L($G(^(0)))>40:" ...",$O(^TMP("ORWORD",$J,PROMPT,I,1)):" ...",1:"")
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: $$ITEM(PROMPT,I)
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !?30,$$ITEM(PROMPT,I)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: "Order Checks:"
  • Line Location: DISPLAY+13
Routine Call
  • DIR
  • Line Location:
    • ANOTHER+4
    • CONT+4
    • OK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] S2+4*
^ORD(100.5 - [#100.5] SET+3
^ORD(100.98 - [#100.98] ACTIVE+8
^ORD(101.41 - [#101.41] EN+2, SET+2, SET+4, SET+5, S1, S1+1, SQ, MENU+3, MENU+5, MNQ
, ORDER+3, ADD0+1, ADD0+6, ADD0+8, ADDQ, DIALOG+2, DIALOG+3, ANOTHER+3, DISPLAY+3, DISPLAY+4
, ITEM+3, ITEM+4
^ORD(101.43 - [#101.43] ACTIVE+6, ACTIVE+12, ACTIVE+14, ACTIVE+15
^ORE(100.2 - [#100.2] SET+3, ADD1+3
^TMP("OR" ADD1+8*
^TMP("ORECALL" ADD1+16*
^TMP("ORNEW" ADD1+15*
^TMP("ORWORD" EN+1!, EN+6!, ORDER+1!, ORDER+8!, ADD1+16, DISPLAY+9, KVALUES+1!

Label References

Name Line Occurrences
$$ACTIVE ADD0+7
$$ANOTHER ADD1+18
$$CONT S1+4
$$DATE ITEM+2
$$ITEM DISPLAY+10, DISPLAY+11
$$NOW ADD0+3, ADD1+18
$$OK ADD1+10
@( ADD0+4
ADD EN+5
ADD0 ORDER+7
ADD1 ADD1+11, ADD1+18
ADDQ ADD0+8, ADD0+9, ADD1+1, ADD1+10
DIALOG ADD1
DISPLAY ADD1+10
EN S1+3, MENU+8
KVALUES ADD1+18
MENU EN+5
MNQ MENU+3, MENU+7
SET EN+5
SQ S2

Naked Globals

Name Field # of Occurrence
^( ADD1+16*, ITEM+3
^(0 DISPLAY+9, ITEM+4
^(2 ITEM+4
^(3 SET+4, MENU+3, ADD0+8
^(4 SQ, MNQ, ADDQ
^(5 ADD0+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~*
ACTION ORDER+2~, ADD+9~, ADD1+2*, ADD1+10*, ADD1+11, ADD1+12, ADD1+13
ASK ORDER+2~, ADD+9~, ADD0+3*, ADD1+18, ANOTHER+1
AUTO ORDER+2~, ADD+9~, ADD0+1*
DA S2+1~, S2+2*, DIALOG+1~, DIALOG+2*, DIALOG+3, DIALOG+4, DISPLAY+1~, DISPLAY+3*, DISPLAY+4, ITEM+1~
, ITEM+3*, ITEM+4
DD ACTIVE+10~*, ACTIVE+11
DIK S2+1~, S2+2*
DIR ANOTHER+2~, CONT+1~, OK+1~
DIR("?" CONT+3*, OK+3*
DIR("A" ANOTHER+3*, CONT+2*, OK+2*
DIR("B" ANOTHER+4*, CONT+4*, OK+2*
DIR(0 ANOTHER+4*, CONT+2*, OK+2*
>> DIROUT S1+4, ADD1+1
DRUG ACTIVE+10~, ACTIVE+11*, ACTIVE+13
DTIME ADD1+9
>> DTOUT OK+4
DUZ ADD0+2
FIRST ORDER+2~, ADD+9~, ADD0*, ADD1+1, ADD1+11*, ADD1+18*
I DISPLAY+1~, DISPLAY+6*, DISPLAY+9, DISPLAY+10, DISPLAY+11*, ITEM~, ITEM+2, ITEM+5, ITEM+6, ACTIVE+2~
, ACTIVE+4*, ACTIVE+5
IFN ITEM+1~, ITEM+4*, ITEM+5, ITEM+6
INST KVALUES+1~, KVALUES+3*, KVALUES+4*
ITEM ITEM+1~, ITEM+2*, ITEM+9*, ITEM+10
ITM ACTIVE+2~, ACTIVE+5*, ACTIVE+6, ACTIVE+14*, ACTIVE+15, ACTIVE+16
J ACTIVE+10~, ACTIVE+11*
MSG EN+1~, EN+2*, EN+4, ORDER+2~, ORDER+3*, ORDER+5
MULT DISPLAY+1~, DISPLAY+5*, DISPLAY+10
NODE0 ORDER+2~, ADD+9~, ADD0+1*, ADD0+2, ADD0+3
NOW ACTIVE+2~, ACTIVE+3*, ACTIVE+6, ACTIVE+15
OI ACTIVE+2~, ACTIVE+3*, ACTIVE+4, ACTIVE+5, ACTIVE+12, ACTIVE+16
>> ORCAT ACTIVE+9
ORCHECK ORDER+2~, ADD+9~, ADD1+10, ADD1+11!, DISPLAY+13, KVALUES+1!
ORCHLD SET+1~, S1+5*, S2+4
ORCHLD( S1+5*, S2+2
ORDG ORDER+2~, ADD+9~, ADD0+2*, ACTIVE+8
ORDIALOG EN~, EN+1, EN+2, SET+2, SET+6, MENU+2, MENU+3, MENU+5, MENU+6, MNQ
, MNQ+1, ORDER~, ORDER+1, ORDER+3, ADD0, ADD0+1, ADD0+5, ADD0+6, ADD0+8, ADD1+16
, ADDQ, DIALOG+2, DIALOG+3, ANOTHER+3, DISPLAY+3, DISPLAY+4, ITEM+3, ITEM+4
ORDIALOG( DISPLAY+6, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11, ITEM+2, ITEM+5, KVALUES+2, KVALUES+3!, KVALUES+4!
, ACTIVE+4, ACTIVE+5, ACTIVE+11, ACTIVE+12, ACTIVE+16*
>> ORDSET S1+2
ORDTXT ITEM+1~, ITEM+4*, ITEM+7, ITEM+8
ORDUZ ORDER+2~, ADD+9~, ADD0+2*
>> ORENEW ACTIVE+9
OREV0 SET+1~, SET+3*, S1+2
OREVENT SET+3, S1+2, ADD1+3, ADD1+8!, ITEM+2
ORI MENU+1~, MENU+2*, MENU+5*, MENU+8*
ORIFN ORDER+2~, ORDER+7*, ORDER+9, ADD+9~, ADD1+14, ADD1+15, KVALUES+1!
ORLAST SET+1~, S1+5*, S2+4
ORLOG ORDER+2~, ADD+9~, ADD0+3*, ADD1+18*
ORNMSP ORDER+2~, ADD+9~, ADD0+6*, ACTIVE+7
ORPARENT SET+1~, SET+5*, SET+6, S1+5, S2+4
ORPIFN SET+1~, S2+4
ORQUIT MENU+3, ORDER+2~, ADD+9~, ADD0+8, ADD1+1!, DIALOG+1!, DIALOG+2
ORS0 SET+1~, S1+1*, S1+2, S1+3
ORSEQ SET+1~, S1*
ORSET SET+1~, SET+2*, SET+4, SET+5, S1, S1+1, SQ, MENU+7, ADD1+1, ADD1+15
ORSIFN SET+1~, S1+1!, S1+5, ADD1+15*
ORSITM SET+1~, S1*, S1+1
ORSLOG SET+1~, SET+6*, NOW+1
ORSTOP SET+1~, S1, S1+4!, S2, MENU+7*, ADD1+1*
ORTYPE ORDER+2~, ADD+9~, ADD0+2*, ADD0+4, ADD0+9, DIALOG+2, ITEM+2
ORY MENU+1~, MENU+8*
ORY( MENU+8
P ITEM~, ITEM+2, ITEM+3
PROMPT DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11
PSOI ACTIVE+10~, ACTIVE+12*, ACTIVE+13
PTR KVALUES+1~, KVALUES+2*, KVALUES+3, KVALUES+4
SEQ DIALOG+1~, DIALOG+2*, DISPLAY+1~, DISPLAY+3*, ITEM+1~, ITEM+3*
TITLE EN+1~, EN+2*, EN+3, ORDER+2~, ORDER+3*, ORDER+4, DISPLAY+1~, DISPLAY+7*, DISPLAY+8
TYPE EN+1~, EN+2*, EN+5, ORDER+2~, ORDER+3*, ORDER+6
U EN+2, SET+3, SET+5, S1+2, S1+3, S2+4, MENU+2, MENU+5, MENU+8, ORDER+3
, ADD0+1, ADD0+2, ADD0+3, ADD0+6, ADD1+8, DIALOG+3, ANOTHER+3, DISPLAY+4, DISPLAY+5, ITEM+4
, ITEM+7, ITEM+8, ACTIVE+8, ACTIVE+12, ACTIVE+14
>> VALMBCK ADD0*
VERIFY ORDER+2~, ADD+9~, ADD0+3*, ADD1+10
X SET+1~, SET+3*, MENU+7, ADD1+9~*, ANOTHER+2~, CONT+1~, DISPLAY+1~, DISPLAY+4*, DISPLAY+5, ITEM+1~
, ITEM+2*, ITEM+6*, ITEM+7*, ITEM+8*, ITEM+9, DATE~, DATE+2, DATE+3, OK+1~, ACTIVE+2~
, ACTIVE+6*, ACTIVE+13*, ACTIVE+14, ACTIVE+15*
XQORM MENU+1~, MENU+6*
XQORM("M" MENU+5*
XQORM("W" MENU+4*
XQORM(0 MENU+6*
Y MENU+7, MENU+8, ANOTHER+2~, ANOTHER+5, CONT+1~, CONT+5, DATE+1~, DATE+4*, DATE+5, OK+1~
, OK+4*, OK+5, NOW+1~*, NOW+2*, NOW+3, ACTIVE+2~, ACTIVE+3*, ACTIVE+4, ACTIVE+6*, ACTIVE+7
, ACTIVE+16*, ACTIVE+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All