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  | All
Print Page as PDF
Routine: RAORDS

Package: Radiology Nuclear Medicine

Routine: RAORDS


Information

RAORDS ;HISC/CAH,DAD AISC/RMO-Select Patient's Requests ; Nov 08, 2022@12:41:56

Source Information

Source file <RAORDS.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 HOME^%ZIS  $$FMTE^XLFDT  $$UP^XLFSTR  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Radiology Nuclear Medicine 1 D^RAUTL  

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

Package Total Caller Graph
Radiology Nuclear Medicine 4 RAORD  RAORD2  RAORDR  RAREG1  

Entry Points

Name Comments DBIA/ICR reference
Q
SETUTL ; Check if option is to be screened. If yes, apply the screen.
CHKORD
PRTORD
HD
ASKSEL
PARSE
CHKSEL
HLPSEL
DPAR ; convert detail proc to parent

External References

Name Field # of Occurrence
HOME^%ZIS RAORDS+5
EN6^GMRVUTL HD+6
D^RAUTL HD+9
$$FMTE^XLFDT PRTORD+11
$$UP^XLFSTR PARSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No requests available to select for this patient.",!
  • Line Location: RAORDS+13
Function Call: WRITE
  • Prompt: @IOF,!?16,"**** Requested Exams for ",$E(RANME,1,20)," ****",?65,$J(RACNT,3),?70,"Requests"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?2,$E(RAHDVITL),"eight : ",$P(RAHDX,U,8)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: $S(RAHDVITL="HT":"""",RAHDVITL="WT":" lbs",1:"")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: " on ",Y
  • Line Location: HD+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKSEL+3
Function Call: WRITE
  • Prompt: !!?3,"Please select the request(s) you want separated by commas or a range",!?3,"of numbers separated by a dash, or a combination of commas and dashes."
  • Line Location: ASKSEL+4
Function Call: WRITE
  • Prompt: !?3,$C(7),"Item ",RASEL," is not a valid selection."
  • Line Location: CHKSEL+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Item ",RASEL," is not a valid selection."
  • Line Location: CHKSEL+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"Item ",RASEL," was already selected."
  • Line Location: CHKSEL+3
Function Call: WRITE
  • Prompt: !?3,$C(7),"Item ",RASEL," does not have a valid status for this option.",!?3,"Valid statuses are ",RAOSTSNM,"."
  • Line Location: CHKSEL+4
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Only one parent type procedure may be chosen at a time."
  • Line Location: CHKSEL+7
Function Call: WRITE
  • Prompt: !?3,"(You have already chosen ",$P($G(^RAMIS(71,RAPARENT,0)),U),".)"
  • Line Location: CHKSEL+8
Function Call: WRITE
  • Prompt: !!?3,"The request(s) must have one of the following statuses",$S($D(RAOFNS):" to "_RAOFNS,1:""),":",!?6,RAOSTSNM
  • Line Location: HLPSEL+0
Function Call: WRITE
  • Prompt: !!?3,"Status Symbols: 'dc' - discontinued 'c' - complete 'h' - on hold",!?20,"'p' - pending ' ' - active 's' - scheduled"
  • Line Location: HLPSEL+1
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Only Detailed, Series, and Broad procedures can be selected !",!
  • Line Location: DPAR+7
Routine Call
  • %ZIS
  • Line Location:
    • RAORDS+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(75.1 RAORDS+11, PRTORD+5, PRTORD+10
^RA(79.1 - [#79.1] SETUTL+6, PRTORD+7, PRTORD+13
^RAMIS(71 - [#71] SETUTL+1, SETUTL+2, SETUTL+14, SETUTL+17, PRTORDPRTORD+2, CHKSEL+5, CHKSEL+8, CHKSEL+11
^RAO(75.1 - [#75.1] RAORDS+12, SETUTL+11, CHKSEL+4, CHKSEL+5, CHKSEL+11, CHKSEL+12
^SC - [#44] SETUTL+8, PRTORD+1, PRTORD+7, PRTORD+13
^TMP($J RAORDS+5!, RAORDS+6!, RAORDS+9*, RAORDS+13, RAORDS+14, Q!, SETUTL+3, SETUTL+12*, SETUTL+14*, SETUTL+17*
CHKORD
^VA(200 - [#200] PRTORD+1

Label References

Name Line Occurrences
ASKSEL PRTORD+17, HDASKSEL+4, PARSE+3
CHKORD RAORDS+14
CHKSEL PARSE+1, PARSE+2, DPAR+3
DPAR PARSE
HD PRTORD
HLPSEL ASKSEL+4
PARSE PARSE+3
PRTORD CHKORD
Q RAORDS+13
SETUTL RAORDS+12

Naked Globals

Name Field # of Occurrence
^( SETUTL+17, CHKORD
^(0 RAORDS+12, SETUTL+6, SETUTL+8, PRTORDPRTORD+1, PRTORD+2, CHKSEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN HD+3~, HD+5*
DTIME ASKSEL+3
GMRVSTR HD+3~, HD+5*
>> I RAORDS+11*
IOF HD
RA6 SETUTL+16*, SETUTL+17, PRTORD+2~*, PRTORD+5, PRTORD+10
>> RA7 SETUTL+16*, SETUTL+17*
RACNT RAORDS+10*, RAORDS+13, Q!, SETUTL+12*, PRTORD+17, HDASKSEL+3
RACNT1 Q!, CHKORD*
RADASH Q!, PARSE+1*, PARSE+2, PARSE+3!, CHKSEL
>> RADFN RAORDS+5, RAORDS+12, SETUTL+11, HD+5
>> RADPARFL DPAR+9*
RADUP Q!, ASKSEL!
RADUP( CHKSEL+3, CHKSEL+10*
RAERR Q!, ASKSEL*, PARSE+1, PARSE+3, CHKSEL*, CHKSEL+1*, CHKSEL+2*, CHKSEL+3*, CHKSEL+4*, CHKSEL+5*
>> RAFLGA PRTORD+4, HD+14
RAHDVITL HD+3~, HD+4*, HD+5, HD+7, HD+8
RAHDX HD+3~, HD+6*, HD+7, HD+8, HD+9
RAI Q!, ASKSEL*, PARSE+1*
RALCTN Q!, SETUTL+3, SETUTL+4*, SETUTL+5*, SETUTL+6*, SETUTL+7, SETUTL+8*
RALOC Q!, PRTORD+1*, PRTORD+6, PRTORD+14
RALP RAORDS+12*, Q+1!
>> RANME HD
RANUM Q+1!, ASKSEL*, CHKSEL+10*
RAOASTS Q+1!
RAODTE Q+1!, PRTORD*, PRTORD+6, PRTORD+11
RAODTI RAORDS+14*, Q+1!, CHKORDPRTORD
RAOFNS Q+1!, ASKSEL+3, HLPSEL
RAOIFN RAORDS+12*, Q+1!, SETUTL+11, SETUTL+12, SETUTL+14, SETUTL+17, CHKORD*, PRTORD
RAOIFNS Q+1!
RAOIFNS( PRTORD*, CHKSEL+2, CHKSEL+4, CHKSEL+5, CHKSEL+10, CHKSEL+11, CHKSEL+12
>> RAOPT("CCR" SETUTL+11
>> RAOPT("ORDERPRINTPAT" CHKSEL+5
>> RAOPT("REG" ASKSEL+1, ASKSEL+2
RAORD0 RAORDS+12*, Q+1!, SETUTL+1, SETUTL+2, SETUTL+4, SETUTL+12, SETUTL+14, SETUTL+16, CHKORD*, PRTORD
PRTORD+1, PRTORD+2, PRTORD+5, PRTORD+7, PRTORD+10, PRTORD+11, PRTORD+13
RAORDS RAORDS+5!, ASKSEL!, DPAR+7!
RAORDS( CHKSEL+10*
RAOSEL RAORDS+14, Q+1!, CHKORDPRTORDHDASKSEL+3*, CHKSEL+10*
RAOSTS RAORDS+11*, RAORDS+12*, Q+2!
RAOSTSNM RAORDS+11!*, Q+2!, CHKSEL+4, HLPSEL
RAOSTSYM RAORDS+10*, Q+2!, PRTORD+5, PRTORD+10
RAOURG RAORDS+14*, Q+2!, CHKORDPRTORD+5, PRTORD+10
RAOUT RAORDS+5!, ASKSEL+3*
RAOVSTS RAORDS+11, RAORDS+12, Q+2!, CHKSEL+4
RAPAR Q+2!, PARSE+1*, PARSE+2, CHKSEL
>> RAPARENT RAORDS+10*, CHKSEL+5*, CHKSEL+8, CHKSEL+12*, DPAR+7
RAPHY Q+2!, PRTORD+1*, PRTORD+6, PRTORD+12
RAPRC Q+2!, PRTORD*, PRTORD+6, PRTORD+11
RAREQ Q+2!
>> RASCREEN SETUTL+3
RASEL Q+3!, PARSE+1*, PARSE+2*, CHKSEL+1, CHKSEL+2, CHKSEL+3, CHKSEL+4, CHKSEL+5, CHKSEL+10, CHKSEL+11
CHKSEL+12, DPAR+1*, DPAR+2*
RASEQ RAORDS+10*, Q+3!, PRTORD*, PRTORD+5, PRTORD+10, PRTORD+17, HDASKSEL+3
>> RAVSTFLG SETUTL+2
RAX Q+3!, ASKSEL+4*, PARSEPARSE+1, HLPSEL+1, DPAR+1, DPAR+8
U SETUTL+1, SETUTL+2, SETUTL+14, SETUTL+16, SETUTL+17, PRTORD+2, PRTORD+7, PRTORD+11, PRTORD+13, HD+7
HD+8, HD+9, CHKSEL+5, CHKSEL+8, CHKSEL+11, CHKSEL+12
X RAORDS+11*, HD+3~, HD+6, ASKSEL+3*, ASKSEL+4
X(1 RAORDS+11*
Y HD+3~, HD+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All