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: ORCDRA

Package: Order Entry Results Reporting

Routine: ORCDRA


Information

ORCDRA ; SLC/MKB - Utility functions for RA dialogs ;7/23/01 11:47

Source Information

Source file <ORCDRA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Order Entry Results Reporting 3 $$PTR^ORCD  ($$FIND,DIC)^ORCDLG2  $$DIV^ORCDRA1  
Kernel 2 $$NOW^XLFDT  $$LOW^XLFSTR  
VA FileMan 2 ^DIC  ^DIR  
List Manager 1 $$LOWER^VALM1  
Radiology Nuclear Medicine 1 (EN2,EN4)^RAO7PC1  
Toolkit 1 $$GET^XPAR  

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: 2

Package Total Caller Graph
Order Entry Results Reporting 2 ^ORD(101.41  ITEMS  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Entry action for RA OERR EXAM order dialog
ENA
EX ; -- Exit action for RA OERR EXAM order dialog
LAST7 ; -- Display last 7 days of exams for patient
ITYPE ; -- Select Imaging Type for ordering, sets ORIMTYPE
ITQ
ACTIVE(DG) ; -- Returns 1 or 0, if active OI's exist for DG
ACTQ
COMMON ; -- Build ORDIALOG(PROMPT,"LIST") of Common Procedures
LIST ; -- List Common Procedures in ORDIALOG(PROMPT,"LIST") for selection
BROAD(PROC) ; -- Ck PROC type vs ORBROAD
LKP ; -- Special lookup on [common] procedures
NEXTPROC ; -- Gets next procedure in ORMORE()

External References

Name Field # of Occurrence
^DIC ITYPE+16
^DIR LIST+10
$$PTR^ORCD ITQ, ITQ+5
$$FIND^ORCDLG2 LKP+2
DIC^ORCDLG2 LKP+2, NEXTPROC+6
$$DIV^ORCDRA1 ITQ+7
EN2^RAO7PC1 LAST7+3
EN4^RAO7PC1 ITQ+7
$$LOWER^VALM1 LIST+4
$$NOW^XLFDT ACTIVE+3
$$LOW^XLFSTR COMMON+7
$$GET^XPAR ENA+2, ITQ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Case # Exams Over the Last 7 Days Exam Date Status of Exam Imaging Loc.",!,"------ -------------------------- --------- -------------- ------------"
  • Line Location: LAST7+5
Function Call: WRITE
  • Prompt: !,$E($P(EXAM,U,2),1,9),?10,$E($P(EXAM,U),1,28),?39,Y_" "_STS,?67,$E($P(EXAM,U,5),1,12)
  • Line Location: LAST7+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LAST7+10
Function Call: WRITE
  • Prompt: $C(7),!!,"No active Imaging Types defined!",!
  • Line Location: ITYPE+10
Function Call: WRITE
  • Prompt: !!,"Select one of the following imaging types:"
  • Line Location: ITYPE+12
Function Call: WRITE
  • Prompt: !," "_$P(ITYPE(I),U,2)
  • Line Location: ITYPE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ITYPE+15
Function Call: WRITE
  • Prompt: !!,"Common "_$$LOWER^VALM1($P(ORDG,U,2))_" Procedures: "
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !,$J(NUM,3)_" "_$E($P(ORDIALOG(PROMPT,"LIST",NUM),U,2),1,36)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: ?40,$J(NUM+HALF,3)_" "_$E($P(ORDIALOG(PROMPT,"LIST",NUM+HALF),U,2),1,36)
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: $C(7),!,"You may not select a broad procedure!",!
  • Line Location: BROAD+2
Function Call: WRITE
  • Prompt: !!,"For "_$P(ORDIALOG(PROMPT,"A"),":")_" "_$P(X,U,2)_":"
  • Line Location: NEXTPROC+4
Routine Call
  • DIC
  • Line Location:
    • ITYPE+16
Routine Call
  • DIR
  • Line Location:
    • LIST+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.2 - [#79.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LAST7+7
^OR(100 - [#100] ITYPE+3
^ORD(100.98 - [#100.98] ITYPE+2, ITYPE+3, ITYPE+4, ITYPE+5, ITYPE+6, ITYPE+7, COMMON+2, COMMON+3
^ORD(101.41 - [#101.41] COMMON+2
^ORD(101.43 - [#101.43] ACTIVE+2, COMMON+3, COMMON+5, BROAD+1
^RA(79.2 - [#79.2] ITQ+2
^TMP($J LAST7+3!, LAST7+4, LAST7+6, LAST7+10!

Label References

Name Line Occurrences
$$ACTIVE ITYPE+9
ACTQ ACTIVE+2
ITQ ITYPE+2, ITYPE+3, ITYPE+5, ITYPE+11
ITYPE ENA
LAST7 EN+1
NEXTPROC LKP+8

Naked Globals

Name Field # of Occurrence
^( LAST7+6, ITYPE+6, COMMON+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABBREV ITYPE+1~, ITYPE+7*, ITYPE+9
BEG LKP+1~, LKP+6*, LKP+7
CNT ITYPE+1~, ITYPE+4*, ITYPE+9*, ITYPE+10, ITYPE+11, ITQ+8*, ITQ+9, ITQ+10, COMMON+1~, COMMON+4*
, COMMON+5*, COMMON+6, COMMON+7
DA ITYPE+1~, ITYPE+4*, ITYPE+6*, COMMON+1~, COMMON+5*, LIST+1~, LIST+6*, LIST+8*
DG ITYPE+1~, ITYPE+3*, ITYPE+6*, ITYPE+7, ITYPE+9, ACTIVE~, ACTIVE+2, ACTIVE+3
DG0 ITYPE+1~, ITYPE+7*, ITYPE+9
DIC ITYPE+1~, ITYPE+14*
DIC("A" ITYPE+14*
DIC("S" ITYPE+15*
DIC(0 ITYPE+14*
DIR LIST+1~, LIST+10!
DIR(0 LIST+10*
DONE BROAD+2!
>> DTOUT ITYPE+16
>> DUOUT ITYPE+16
>> EDITONLY NEXTPROC+5*, NEXTPROC+6*
END LKP+1~, LKP+6*, LKP+7
ENT ENA~, ENA+1*, ENA+2
EXAM LAST7+1~, LAST7+6*, LAST7+8, LAST7+9
EXDT LAST7+1~
HALF LIST+1~, LIST+2*, LIST+3*, LIST+5, LIST+8, LIST+9
I ITYPE+1~, ITYPE+11*, ITYPE+13*, LKP+1~, LKP+3*, NEXTPROC+2~*, NEXTPROC+3
IDT LAST7+1~, LAST7+4*, LAST7+6*, LAST7+7
IDX ACTIVE+1~, ACTIVE+3*, ACTIVE+4*
IFN ITYPE+1~, ITQ+8*
>> INST NEXTPROC+1, NEXTPROC+5, NEXTPROC+6
ITYPE ITYPE+1~, ITQ+2*, ITQ+3, ITQ+7, COMMON+1~, COMMON+3*, COMMON+5
ITYPE( ITYPE+9*, ITYPE+11, ITYPE+13, ITYPE+17
ITYPE("" ITYPE+11
J LKP+1~, LKP+7*
NAME ITYPE+1~, ITQ*, ITQ+1, COMMON+1~, COMMON+4*, COMMON+5*
NOW ACTIVE+1~, ACTIVE+3*, ACTIVE+4
NUM LIST+1~, LIST+5*, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10
OI ITYPE+1~, ITQ*, ITQ+1, ITQ+3
>> ORACT LAST7+2
ORBROAD ENA+2*, EX+1!, BROAD+1
>> ORDG ITYPE+2*, ITYPE+3*, ITYPE+5*, ITYPE+11*, ITYPE+17*, ITQ, ITQ+2, COMMON+2*, COMMON+3, COMMON+7
, LIST+4
>> ORDIALOG COMMON+2
>> ORDIALOG( ITQ+1*, ITQ+3*, ITQ+6*, COMMON+1!, COMMON+5*, COMMON+6*, COMMON+7*, LIST+1, LIST+2, LIST+3
, LIST+6, LIST+7, LIST+8, LIST+9, LKP+7, NEXTPROC+1, NEXTPROC+4, NEXTPROC+5*, NEXTPROC+6*
ORDIV ENA+1, EX+1!, ITQ+7*, ITQ+9
>> ORIFN ITYPE+3
ORIMLOC EX+1!, ITQ+9!, ITQ+10*
ORIMLOC( ITQ+8*
ORIMLOC("B" ITQ+8*
ORIMTYPE EX+1!, ITQ+2*, ITQ+4, ITQ+6
ORMORE EX+1!, LKP+1!, LKP+4*, LKP+7*, NEXTPROC+2!, NEXTPROC+3*
ORMORE( LKP+4*, LKP+7*, NEXTPROC+3!
ORMORE(0 NEXTPROC+2
>> ORQUIT ITYPE+10*, ITYPE+16*, NEXTPROC+6*
>> ORTAB EN+1, LIST+10
>> ORTYPE LAST7+2, ITYPE+2, ITYPE+5
>> ORVP LAST7+3, LAST7+4, LAST7+6
ORX LKP+1~, LKP+3*
ORY ITYPE+1~
ORY( ITQ+8
PROC BROAD~, BROAD+1
>> PROMPT COMMON+1, COMMON+5, COMMON+6, COMMON+7, LIST+1, LIST+2, LIST+3, LIST+6, LIST+7, LIST+8
, LIST+9, LKP+2, LKP+7, NEXTPROC+1, NEXTPROC+4, NEXTPROC+5, NEXTPROC+6
PTR ITQ+5~*, ITQ+6
ROOT ACTIVE+1~, ACTIVE+3*, ACTIVE+4
>> SCR LIST+10
STS LAST7+1~, LAST7+8*, LAST7+9
U LAST7+8, LAST7+9, ITYPE+2, ITYPE+3, ITYPE+5, ITYPE+7, ITYPE+9, ITYPE+13, ITYPE+17, ITQ
, ITQ+2, ITQ+8, ACTIVE+4, COMMON+2, COMMON+3, COMMON+5, COMMON+7, LIST+4, LIST+7, LIST+9
, BROAD+1, LKP+4, NEXTPROC+4, NEXTPROC+6
>> VALM("TM" LIST+10
X ITYPE+1~, ACTIVE+1~, ACTIVE+4*, LKP+2, LKP+3*, LKP+4, LKP+5, LKP+6, NEXTPROC+2~, NEXTPROC+3*
, NEXTPROC+4, NEXTPROC+5, NEXTPROC+6*
XRAY ITYPE+1~, ITYPE+4*, ITYPE+5, ITYPE+6
Y LAST7+1~, LAST7+7*, LAST7+9, ITYPE+1~, ITYPE+16, ACTIVE+1~*, ACTIVE+4*, ACTQ, LIST+1~, LIST+5*
, LKP+2*, NEXTPROC+5*, NEXTPROC+6
Y(0 ITYPE+17
Z LKP+1~, LKP+7*
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