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

Package: Order Entry Results Reporting

Routine: ORCDRA


Information

ORCDRA ; SLC/MKB - Utility functions for RA dialogs ;Nov 28, 2023@11:02:32

Source Information

Source file <ORCDRA.m>

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()
GETPAR(ORRESULTS,ORUSER) ;called from JSYSPARM^ORWU, get parameter for use in CPRS GUI
DATEDSRD ;--validates date and enforces any associated parameters

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
Function Call: WRITE
  • Prompt: $C(7),!,"Response cannot be more than "_FUTDAYS_" days in the future."
  • Line Location: DATEDSRD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call