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 ;6/7/00 16:34

Source Information

Source file <RAORDS.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 HOME^%ZIS  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RAORD  RAORD2  RAREG1  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS RAORDS+2
$$UP^XLFSTR PARSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No requests available to select for this patient.",!
  • Line Location: RAORDS+10
Function Call: WRITE
  • Prompt: !,$J(RASEQ,2),?4,$P(RAOSTSYM,"^",+$P(RAORD0,"^",5)),?8,$E($P($P(^DD(75.1,6,0),RAOURG_":",2),";"),1,7),?16,RA6
  • Line Location: PRTORD+3
Function Call: WRITE
  • Prompt: ?17,$E(RAPRC,1,25),?44,$E(RAODTE,4,5)_"/"_$E(RAODTE,6,7)_"/"_(1700+$E(RAODTE,1,3)),?56,$E(RAPHY,1,11),?69,$E(RALOC,1,11)
  • Line Location: PRTORD+4
Function Call: WRITE
  • Prompt: !?17,"(",$S($P(RAORD0,U,20)="":"UNKNOWN",1:$E($P($G(^SC(+$G(^RA(79.1,+$P(RAORD0,U,20),0)),0)),U),1,23)),")"
  • Line Location: PRTORD+5
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: !?4,"St",?8,"Urgency",?17,"Procedure / (Img. Loc.)",?44,"Desired",?56,"Requester",?69,"Req'g Loc",!?4,"--",?8,"-------",?17,"-------------------------",?44,"----------",?56,"-----------",?69,"-----------"
  • Line Location: HD+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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,*7,"Item ",RASEL," is not a valid selection."
  • Line Location: CHKSEL+1
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," is not a valid selection."
  • Line Location: CHKSEL+2
Function Call: WRITE
  • Prompt: !?3,*7,"Item ",RASEL," was already selected."
  • Line Location: CHKSEL+3
Function Call: WRITE
  • Prompt: !?3,*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,*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,*7,"Only Detailed, Series, and Broad procedures can be selected !",!
  • Line Location: DPAR+7
Routine Call
  • %ZIS
  • Line Location:
    • RAORDS+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASKSEL PRTORD+6, HD, ASKSEL+4, PARSE+3
CHKORD RAORDS+11
CHKSEL PARSE+1, PARSE+2, DPAR+3
DPAR PARSE
HD PRTORD
HLPSEL ASKSEL+4
PARSE PARSE+3
PRTORD CHKORD
Q RAORDS+10
SETUTL RAORDS+9

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME ASKSEL+3
>> I RAORDS+8*
IOF HD
RA6 SETUTL+14*, SETUTL+15, PRTORD+2~*, PRTORD+3
>> RA7 SETUTL+14*, SETUTL+15*
RACNT RAORDS+7*, RAORDS+10, Q!, SETUTL+10*, PRTORD+6, HD, ASKSEL+3
RACNT1 Q!, CHKORD*
RADASH Q!, PARSE+1*, PARSE+2, PARSE+3!, CHKSEL
>> RADFN RAORDS+2, RAORDS+9
>> 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*
RAI Q!, ASKSEL*, PARSE+1*
RALCTN Q!, SETUTL+3, SETUTL+4*, SETUTL+5*, SETUTL+6*, SETUTL+7, SETUTL+8*
RALOC Q!, PRTORD+1*, PRTORD+4
RALP RAORDS+9*, Q+1!
>> RANME HD
RANUM Q+1!, ASKSEL*, CHKSEL+10*
RAOASTS Q+1!
RAODTE Q+1!, PRTORD*, PRTORD+4
RAODTI RAORDS+11*, Q+1!, CHKORD, PRTORD
RAOFNS Q+1!, ASKSEL+3, HLPSEL
RAOIFN RAORDS+9*, Q+1!, SETUTL+10, SETUTL+12, SETUTL+15, CHKORD*, PRTORD
RAOIFNS Q+1!
RAOIFNS( PRTORD*, CHKSEL+2, CHKSEL+4, CHKSEL+5, CHKSEL+10, CHKSEL+11, CHKSEL+12
>> RAOPT("ORDERPRINTPAT" CHKSEL+5
>> RAOPT("REG" ASKSEL+1, ASKSEL+2
RAORD0 RAORDS+9*, Q+1!, SETUTL+1, SETUTL+2, SETUTL+4, SETUTL+10, SETUTL+12, SETUTL+14, CHKORD*, PRTORD
, PRTORD+1, PRTORD+2, PRTORD+3, PRTORD+5
RAORDS RAORDS+2!, ASKSEL!, DPAR+7!
RAORDS( CHKSEL+10*
RAOSEL RAORDS+11, Q+1!, CHKORD, PRTORD, HD, ASKSEL+3*, CHKSEL+10*
RAOSTS RAORDS+8*, RAORDS+9*, Q+2!
RAOSTSNM RAORDS+8!*, Q+2!, CHKSEL+4, HLPSEL
RAOSTSYM RAORDS+7*, Q+2!, PRTORD+3
RAOURG RAORDS+11*, Q+2!, CHKORD, PRTORD+3
RAOUT RAORDS+2!, ASKSEL+3*
RAOVSTS RAORDS+8, RAORDS+9, Q+2!, CHKSEL+4
RAPAR Q+2!, PARSE+1*, PARSE+2, CHKSEL
>> RAPARENT RAORDS+7*, CHKSEL+5*, CHKSEL+8, CHKSEL+12*, DPAR+7
RAPHY Q+2!, PRTORD+1*, PRTORD+4
RAPRC Q+2!, PRTORD*, PRTORD+4
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+7*, Q+3!, PRTORD*, PRTORD+3, PRTORD+6, HD, ASKSEL+3
>> RAVSTFLG SETUTL+2
RAX Q+3!, ASKSEL+4*, PARSE, PARSE+1, HLPSEL+1, DPAR+1, DPAR+8
U SETUTL+1, SETUTL+2, SETUTL+12, SETUTL+14, SETUTL+15, PRTORD+2, PRTORD+5, CHKSEL+5, CHKSEL+8, CHKSEL+11
, CHKSEL+12
>> X RAORDS+8*, ASKSEL+3*, ASKSEL+4
>> X(1 RAORDS+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All