Routine: RAORDS

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RAORD RAORD2 RAREG1

Entry Points

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*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORDS

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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